enviar a pdf
Publicado por Loly (103 intervenciones) el 04/06/2009 17:42:48
Hola buenos dias... estoy tratando de generar un archivo PDF a en base a un frx que se encuentra en la carpeta reportes... lo quiero generar en otra carpeta llamada INFORMES....
alguna sugerencia... tengo el siguiente codigo....
O SEA LO QUE QUIERO ES QUE ESTA RUTINA TOME EL NOMBRE DEL ARCHIVO DE LA CARPETA REPORTS Y LO ENVIE EN PDF A LA CARPETA INFORMES
cFile="archivo.frx
cFilex="archivo.pdf
=frxtopdf(cFile,cFilex)
*******
FUNCTION frxtopdf
PARAMETERS cFile,cFilex
Local loSession, lnRetval, cFilepdf
cFilepdf="REPORTS&cFile."
loSession=Evaluate([xfrx("XFRX#INIT")])
lnRetval = loSession.SetParams(cFilepdf,,,,,,"PDF")
If lnRetval = 0
loDocument = Evaluate([xfrx("PDFL#INIT")])
loDocument.attachToPDFDocument(loSession)
loSession.ProcessReport(cFilepdf)
loSession.finalize
ENDIF
Return
QUE DEBO MODIFICAR DE ESTA RUTINA...
GRACIAS...
alguna sugerencia... tengo el siguiente codigo....
O SEA LO QUE QUIERO ES QUE ESTA RUTINA TOME EL NOMBRE DEL ARCHIVO DE LA CARPETA REPORTS Y LO ENVIE EN PDF A LA CARPETA INFORMES
cFile="archivo.frx
cFilex="archivo.pdf
=frxtopdf(cFile,cFilex)
*******
FUNCTION frxtopdf
PARAMETERS cFile,cFilex
Local loSession, lnRetval, cFilepdf
cFilepdf="REPORTS&cFile."
loSession=Evaluate([xfrx("XFRX#INIT")])
lnRetval = loSession.SetParams(cFilepdf,,,,,,"PDF")
If lnRetval = 0
loDocument = Evaluate([xfrx("PDFL#INIT")])
loDocument.attachToPDFDocument(loSession)
loSession.ProcessReport(cFilepdf)
loSession.finalize
ENDIF
Return
QUE DEBO MODIFICAR DE ESTA RUTINA...
GRACIAS...
Valora esta pregunta


0