FiveTech Software tech support forums

Code: Select all

   REDEFINE BUTTON oAdobePDF ID 302 OF oDlgEnv ;
            ACTION ( ShowPDF_READER( cAlias ) )

// USANDO ADOBE READER - DIRETO VIA FIVEWIN
FUNCTION ShowPDF_READER( cAlias )

   LOCAL oWndPdf, oPdf, cTmp, NFEVisualSUM, nNumNfeSUM, nRecNo, oTaskP

   nRecNo     := ( cAlias )->( RecNo() ) //-> CCE.DBF
   GoTo( nRecNo )

   nNumNfeSUM := VAL( SUBSTR( ( cAlias )->CHAVE, 29, 6 ) )


   // Nombre del archivo *.PDF
   NFEVisualSUM := "C:\NFEPDF\"+"CCE"+ALLTRIM( STR( nNumNfeSUM ) )+".PDF"


   MsgWait( "LOCALIZANDO O ARQUIVO PDF...              ", ;
            "AGUARDE UM MOMENTO POR FAVOR...           ", 2.5 )

   IF .NOT. FILE( NFEVisualSUM )  

      ? "mensageria"

      RETURN NIL

   ENDIF

   DEFINE WINDOW oWndPdf TITLE "FiveWin ActiveX Support - Imprimir  *.PDF Usando Adobe Reader"

   oPdf = TActiveX():New( oWndPdf, "AcroPDF.PDF.1" , 1, 1, 20, 50 )

   oWndPdf:oClient := oPdf

   oPdf : src = NFEVisualSUM

   oPdf:SetProp( "Src", cTmp )

   oPdf:Do( "LoadFile", Lfn2Sfn(cTmp) )

   oPdf:Do( "GetVersions" )

   oPdf:Do( "SetCurrentPage", 1 )

   oPdf:Do( "SetShowToolbar", .T. )

   oPdf:Do( "SetShowScrollbars", .T. )

   ACTIVATE WINDOW oWndPdf MAXIMIZED      ;
            ON INIT( PDFActivex( oPdf ) ) ;
            VALID( oWndPdf := NIL, oPdf:End(), .T. )

RETURN NIL

FUNCTION PDFActivex( MyProgID )

   LOCAL adretor := .T.
 
   if IsActivex( "PDF.PdfCtrl.1" ); MyProgID := "PDF.PdfCtrl.1"; endif
   if IsActivex( "PDF.PdfCtrl.2" ); MyProgID := "PDF.PdfCtrl.2"; endif
   if IsActivex( "PDF.PdfCtrl.3" ); MyProgID := "PDF.PdfCtrl.3"; endif
   if IsActivex( "PDF.PdfCtrl.4" ); MyProgID := "PDF.PdfCtrl.4"; endif
   if IsActivex( "PDF.PdfCtrl.5" ); MyProgID := "PDF.PdfCtrl.5"; endif
   if IsActivex( "PDF.PdfCtrl.6" ); MyProgID := "PDF.PdfCtrl.6"; endif
   if IsActivex( "PDF.PdfCtrl.7" ); MyProgID := "PDF.PdfCtrl.7"; endif
   if IsActivex( "acroPDF.PDF.1" ); MyProgID := "acroPDF.PDF.1"; endif
   if IsActivex( "acroPDF.PDF.2" ); MyProgID := "acroPDF.PDF.2"; endif

   IF Empty( MyProgID )

      MsgInfo( "PDF Activex não instalado !!!"+CRLF+" É necessário que seja instalado o programa ADOBE READER, consulte o suporte do sistema.",.F.)

      adretor := .F.

   ENDIF

RETURN(adretor)