/**********************************************************************************************/
/* Nom    : uf_open_ie_pdf                                             */
/* But    :                                                        */
/* Arguments:                                                        */
/* Appel    :                                                         */
/* Remarques:                                                         */
/* Histo    : SKA                                              */
/**********************************************************************************************/

// ouverture du fichier pdf
// via internet explorer
// cette méthode évite de connaitre la version de acrobat reader.
OLEObject   lo_IE, lo_acrobat
string    ls_tilte
integer    li_ret

setpointer(hourglass!)
ls_tilte = char(126) // permet de mettre des tiltes !
// lorsqu'il faudra inserer un tilte, il faudra passer par cette variable
// powerbuilder n'accepte pas les ~ en directe !


// on verifie d'abord que adobre acrobat existe sur le poste client
lo_acrobat = CREATE OLEObject
// Acrobat reader V7
li_ret = lo_acrobat.ConnectToNewObject("AcroPDF.PDF")

if li_ret < 0 then
  lo_acrobat = CREATE OLEObject
  // Acrobat reader V4
  li_ret = lo_acrobat.ConnectToNewObject("PDF.PdfCtrl.1")

  if li_ret < 0 then
    lo_acrobat = CREATE OLEObject
    // Acrobat reader V5
    li_ret = lo_acrobat.ConnectToNewObject("PDF.PdfCtrl.5")

    if li_ret < 0 then
      lo_acrobat = CREATE OLEObject
      // Acrobat reader V6
      li_ret = lo_acrobat.ConnectToNewObject("PDF.PdfCtrl.6")

          end if
  end if
end if

if isvalid(lo_acrobat) then
  destroy lo_acrobat
end if


if li_ret <0 then
        Messagebox("Information","Impossible de se connecter avec Adobe Acrobat Reader !")
        return -1
      end if


// on branche ensuite l'accès à internet explorer
lo_IE = CREATE OLEObject
li_ret = lo_IE.ConnectToNewObject("InternetExplorer.Application")
if li_ret >= 0 then
  lo_IE.menubar=0
  lo_IE.toolbar=0
  lo_IE.statusBar=0
  lo_IE.navigate(is_file)
  lo_IE.visible=1
  lo_IE.AddressBar=0
  lo_IE.FullScreen=0
else
  Messagebox("Information","Impossible de se connecter avec InternetExplorer !")
  li_ret = -1
end if  

if isvalid(lo_IE) then
  destroy lo_IE
end if

return li_ret