Crash oBrw:Report()

[thefull]

Buenas,

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

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 )