When I want to see a PDF:
****************************
m.lcPDFdoc=ALLTRIM ("\eisvisualsystems\documentos\pdf\"+vr_documentos_pdf.PATH)
THISFORM.visorPDF.LoadFile(ALLTRIM(lcPDFdoc))
When I want to index a PDF in my table
******************
m.lcPicFile=GETFILE('PDF')
IF !EMPTY(m.lcPicFile)
m.lcExt=RIGHT(ALLTRIM(m.lcPicFile),4)
m.lcUnico=vr_documentos_pdf.unico
m.lcTarget="\eisvisualsystems\documentos\pdf\"+m.lcUnico+m.lcext
m.lcCopy="COPY FILE '"+lcPicFile+ "' TO "+lcTarget
&lcCopy
REPLACE vr_documentos_pdf.PATH WITH m.lcUnico+m.lcExt
m.lcPDFdoc=ALLTRIM("\eisvisualsystems\documentos\pdf\"+vr_documentos_pdf.PATH)
THISFORM.visorPDF.LoadFile(ALLTRIM(lcPDFdoc))
THISFORM.REFRESH()
ENDIF
**********************
2. You simple drop the ._shellexecute class in your form. You find out about this class in the solution samples application. Whit this class you are capable to run all windows applications not only PDF.
TRY
m.lcPDFDoc=ALLTRIM("\eisvisualsystems\documentos\pdf\"+vr_documentos_pdf.PATH)
THISFORM._shellexecute.shellexecute(lcPDFDoc)
THISFORM.REFRESH()
CATCH TO loException
MESSAGEBOX(Exception_Error(loException),0+16,THISFORM.CAPTION)
FINALLY
ENDTRY
I hope this resolve your problem, If you have more questions please let me note.
Good Luck
CarlosCarlos A. Miranda
E.I.S.lnc
President