Hojear PDF asociado a Base de datos

[Manuel Aranda]

Con el siguiente código puedo visualizar un archivo pdf asociado a un listbox. La idea es que al cambiar de registro se refresque el pdf, pero no lo consigo. Si activo oPdf con bchange en vez del ON INIT de ACTIVATE DIALOG se produce un cuelgue. ¿Alguna idea?

Code: Select all  Expand view

***************************
STATIC FUNCTION VerPdf()
***************************
Local oDlg
Local oLbx
Local oPdf
Local cPdf:=ALLTRIM(DOCU->Ubicado)
//
DEFINE DIALOG oDlg RESOURCE "IMAGEN"

REDEFINE LISTBOX oLbx ;
            FIELDS ;
            " "+DOCU->Concepto+" ",;
            " "+DOCU->Ubicado+" ";
            FIELDSIZES 240,240 ;
            HEADERS "Descripción del documento","Ubicación del documento");
            ID 509
            OF oDlg


REDEFINE ACTIVEX oPdf ID 800 OF oDlg PROGID "AcroPDF.PDF.1"

//oLbx:bChange:= {|| cFoto:=ALLTRIM(DOCU->Ubicado),PonPdf(oPdf,cPdf,oDlg) }

ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT (oPdf:Do( "LoadFile", cPdf ),oPdf:Do( "SetCurrentPage", 1 )  )
//
oPdf: End()
//
RETURN NIL
//
****************************************
STATIC FUNCTION PonPdf(oPdf,cPdf,oDlg)
****************************************
//
oPdf:Do( "LoadFile", cPdf )
oPdf:Do( "SetCurrentPage", 1 )
oPdf:Refresh()
//
RETURN NIL
//