En el caso que NO se tenga licencia de OFFICE, porque viene la versión de prueba, al segundo intento de generar un PDF desde la llamada al report de la clase
xBrowse, ocasiona un crash en la aplicación.
RPREVIEW.PRG
- Code: Select all Expand view RUN
- if oDoc != nil
TRY
oDoc:ExportAsFixedFormat( cFile, 17, lView )
CATCH
lWordPDF := .f.
// MsgInfo( FWString( "PDF Plugin Error" ), FWString( "Information" ) )
END
if lPDF
oDoc:Close( .f. )
Se cae ,porque oDoc no vale nada, y al intentar llamar a Close(), linea 1784, se cae la aplicación. Es un tema de licencia de office, pero
indirectamente se cae.
Dejo el error.log
Application
===========
Path and name: E:\programacion\pms\webtesipro\AET\gestorsii\gestorsii.exe (32 bits)
Size: 4,720,640 bytes
Compiler version: Harbour 3.2.0dev (r1603312228)
FiveWin version: FWH 17.05
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 28 mins 40 secs
Error occurred at: 20-06-2017, 13:02:58
Error description: (DOS Error -2147352567) WINOLE/1007 ha expirado la licencia para usar esta aplicación. Este método o propiedad no está disponible porque. (0x800A11FD): Microsoft Word
Args:
[ 1] = L .F.
Stack Calls
===========
Called from: => TOLEAUTO:CLOSE( 0 )
Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:SAVEAS( 1784 )
Called from: .\source\classes\RPREVIEW.PRG => (b)TPREVIEW_BUILDBUTTONBAR( 371 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 683 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 919 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1721 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1866 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
