Report
Hola buendia, bera tengo este código:
cNameFile = putfile('Pdf','cNombre','Pdf')
IF EMPTY(cNameFile)
return
ENDIF
Local loListener As "PdfListener" Of "PR_Pdfx.vcx"
loListener = NewObject('PdfListener', 'PR_PDFx.vcx')
loListener.cCodePage="CP1252"
loListener.cTargetFileName = Forcepath(JUSTFNAME(cNameFile),JUSTPATH(cNameFile))&&&
loListener.QuietMode = .T.
loListener.lCanPrint = .T.
loListener.lCanEdit = .T.
loListener.lCanCopy = .T.
loListener.lCanAddNotes= .T.
loListener.lEncryptDocument = .F.
loListener.cMasterPassword = ""
loListener.cUserPassword = ""
loListener.lOpenViewer = .F.
Report Form p2demo Object loListener
espara crear un pdf pero el código busca un frx en especial,¿nosabra una manera para que me pemita elegir el reporte?
Gracias de antemano
cNameFile = putfile('Pdf','cNombre','Pdf')
IF EMPTY(cNameFile)
return
ENDIF
Local loListener As "PdfListener" Of "PR_Pdfx.vcx"
loListener = NewObject('PdfListener', 'PR_PDFx.vcx')
loListener.cCodePage="CP1252"
loListener.cTargetFileName = Forcepath(JUSTFNAME(cNameFile),JUSTPATH(cNameFile))&&&
loListener.QuietMode = .T.
loListener.lCanPrint = .T.
loListener.lCanEdit = .T.
loListener.lCanCopy = .T.
loListener.lCanAddNotes= .T.
loListener.lEncryptDocument = .F.
loListener.cMasterPassword = ""
loListener.cUserPassword = ""
loListener.lOpenViewer = .F.
Report Form p2demo Object loListener
espara crear un pdf pero el código busca un frx en especial,¿nosabra una manera para que me pemita elegir el reporte?
Gracias de antemano
1 Respuesta
Respuesta de jorgeamg
1
Podrias capturar el nombre el reporte elegido con algo asi;
reporte = getfile('.frx', 'Buscar rporte:', 'OK',0, 'Buscar reporte')
If empty(reporte)
return
Endif
Y ya usas la variable reporte, bueno eso es algo que se me ocurre.
reporte = getfile('.frx', 'Buscar rporte:', 'OK',0, 'Buscar reporte')
If empty(reporte)
return
Endif
Y ya usas la variable reporte, bueno eso es algo que se me ocurre.
