FiveTech Support Forums

  Time from start: 0 hours 0 mins 21 secs 
   Error occurred at: 07/03/2018, 15:41:43
   Error description: (DOS Error -2147352567) WINOLE/1007  El filtro de gráficos no pudo convertir este archivo. (0x800A1506): Microsoft Word
   Args:
     [   1] = C   C:\Users\Usuario\AppData\Local\Temp\67795937.emf
     [   2] = L   .F.
     [   3] = L   .T.

Stack Calls
===========
   Called from:  => TOLEAUTO:ADDPICTURE( 0 )
   Called from: C:\t-fe_win10\rpreview.prg => CONVERTTOWORDDOC( 1658 )
   Called from: C:\t-fe_win10\rpreview.prg => TPREVIEW:SAVEAS( 1551 )
   Called from: C:\t-fe_win10\rpreview.prg => (b)TPREVIEW_BUILDBUTTONBAR( 203 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:CLICK( 717 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 917 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1721 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1575 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
   Called from:  => SYSREFRESH( 0 )
   Called from: C:\t-fe_win10\util.prg => STOPUNTIL( 1615 )
   Called from: C:\t-fe_win10\rpreview.prg => TPREVIEW:ACTIVATE( 155 )
   Called from: C:\t-fe_win10\rpreview.prg => RPREVIEW( 1625 )
   Called from: .\source\classes\REPORT.PRG => (b)TREPORT_NEW( 175 )
   Called from: .\source\classes\REPORT.PRG => TREPORT:ACTIVATE( 857 )
   Called from: C:\t-fe_win10\facturas_fe.prg => RPTFACTURAS( 1566 )
   Called from: C:\t-fe_win10\facturas_fe.prg => (b)TABLAFACTURAS( 230 )
   Called from: C:\t-fe_win10\h_TTaskItem.prg => TTASKITEM:LBUTTONUP( 317 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1721 )
   Called from: C:\t-fe_win10\h_TTaskItem.prg => TTASKITEM:HANDLEEVENT( 258 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1036 )
   Called from: C:\t-fe_win10\main.prg => START( 106 )
   Called from: C:\t-fe_win10\main.prg => MAIN( 32 )

function FWSavePreviewToPDF( oDevice, cPDF, lOpen )   // oDevice can be oPrinter or oPreview

   local cOrient, oPDF
   local hWnd

   if oDevice:IsKindOf( "TPREVIEW" )
      hWnd    := oDevice:oWnd:hWnd
      oDevice := oDevice:oDevice
   endif
#ifndef USEGDI
   if LoadFreeImage() <= 32
      MsgAlert( FWString( "freeimage.dll not found" ), FWString( "Alert" ) )
      return nil
   endif
#endif

   // MODIFICADO EM: 14/03/2016 PARA SALVAR O PDF NA PASTA: C:\NFEPDF
   cPRGPATH := cFILEPATH( "C:\NFEPDF\" )

   lCHDIR(cPRGPATH)

   // ? hb_CurDrive() + ":\" + CurDir() + "\"

   DEFAULT cPDF   := cGetFile( FWString( "PDF files | *.pdf |" ),;
                               FWString( "Select PDF File to Save" ),, ;
                               CurDir(), .T.,,,;
                               hb_CurDrive() + ":\" + CurDir() + "\" + ;
                               If( oDevice:IsKindOf( "TPreview" ),;
                               oDevice:cName, oDevice:cDocument ) + ".pdf"  )
   if ! Empty( cPDF )
      cPDF = cFileSetExt( cPDF, "pdf" )
      CursorWait()
      cOrient = If( oDevice:nHorzSize() > oDevice:nVertSize(), 'L', 'P' )
      oPdf = fwPdf():New( cPdf, cOrient )
      AEval( oDevice:aMeta, { | cMeta | oPdf:AddMeta( cMeta ) } )
      oPdf:Close()
      CursorArrow()

      DEFAULT lOpen := MsgYesNo( If( FWLanguageID() == 2, FWString( "¿" ) + " ", "" ) + ;
                       FWString( "View" ) + ;
                       " " + cPDF + " " + FWString( "(Y/N)" ) + " ?",;
                       FWString( "Please select" ) )

      if lOpen
         ShellExecute( IfNil( hWnd, GetWndDefault() ), "open", cPDF )
      endif
   else
      cPDF  := nil
   endif

   // VOLTO AO DIRETORIO DO PLENO PARA NAO QUEBRAR OS BANCOS.
   lCHDIR( cDirPleno )

   // ? hb_CurDrive() + ":\" + CurDir() + "\"

return cPDF