Saludos a todos
Mayores datos sobre la incidencia.
Application
===========
Path and name: C:\DPSGEV51\BIN\DPCRPE.EXE (32 bits)
Size: 2,961,408 bytes
Compiler version: Harbour 3.2.0dev (r1603082110)
FiveWin Version: FWH 15.03
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 05/02/17, 18:01:36
Error description: Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW
Args:
[ 1] = C CrystalRuntime.Application
[ 2] = U
[ 3] = U
Stack Calls
===========
Called from: => THROW( 0 )
Called from: xhb\xhbole.prg => TOLEAUTO:NEW( 0 )
Called from: xhb\xhbole.prg => CREATEOBJECT( 0 )
Called from: dpcrpe.prg => MAIN( 114 )
Programa Fuente
cRpt_Type:=1
cRpt_Format:=31
cRpt_Rpt :="c:\dpsgev51\"+cRpt_Rpt
cRpt_Out :="c:\dpsgev51\pdf\mipdf.pdf"
IF !FILE(cRpt_Rpt)
MsgAlert("Archivo "+cRpt_Rpt+" no Existe para Salida OLEAUTO")
CANCEL
ENDIF
? cRpt_App, cRpt_Rpt,cRpt_Type,cRpt_Format,"ANTES DE OLEAUTO"
oApplication := CreateObject(cRpt_App) // "CrystalRuntime.Application")
oReport := oApplication:OpenReport( cRpt_Rpt)
oReport:ExportOptions:DestinationType(cRpt_Type) // 1 ) //to disk
oReport:ExportOptions:FormatType( cRpt_Format) // 31 //to pdf
oReport:ExportOptions:DiskFileName( cRpt_Out ) // "c:\report.pdf" )
oReport:Export( .t. ) // Antes .f.
↧