Página 1 de 1

CREAR PDF CON FASTREPORT

Publicado: Mar Dic 11, 2012 2:38 am
por PEDRO DE LEON RODAS[3]
Buen dia a todos, alguien me puede ayudar.
Quiero generar un archivo pdf directamente sin entrar al ShowReport(), tengo
el siguiente codigo:
Local cMovimientos,cPdf
cMovimientos=AppData:Base:Query("Select
fecha,numero_socio,depositos from movimientos where
numero_socio=estatus='ABONO' limit 200 ")
cMovimientos:Open()
SetXailerDataSet(::Reporte, "REPORTES" , cMovimientos )
::Reporte:SetProperty("cPdf", "Filename",'.pdfmiarchivo.pdf' )
::Reporte:SetProperty("cPdf", "OpenAfterExport", .f.)
::Reporte:SetProperty("cPdf", "ShowDialog",.f.)
::Reporte:SetProperty("cPdf", "PrintOptimized", .t.)
::Reporte:LoadFromFile("c:reportesnuevo.fr3")
::Reporte:PrepareReport()
::Reporte:DoExport("cPdf")
::Reporte:ClearDataSets()
::Reporte:Destroyfr()
Cuando lo ejecuto por primera vez si se genera el archivo pdf, pero cuando
lo quiero volver a generar me manda el siguiente error
#1: GPF (Code = c0000005):
Access violation
CALL_FUNC_CC_I (0)
FRREPORTMANAGER:SETUSERDATASET (1226)
SETXAILERDATASET (2245)
PRUEBAS:BTNBMP6CLICK (345)
TBTNBMP:ONCLICK (0)
TBTNBMP:CLICK (100)
(b)XCONTROL:XCONTROL (147)
TBTNBMP:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (272)
PRUEBAS:WMCOMMAND (931)
PRUEBAS:SHOWMODAL (0)
FUNC0000 (466)
MAIN (290)
De antemano les agradezco toda ayuda.
Saludos

CREAR PDF CON FASTREPORT

Publicado: Mar Dic 11, 2012 4:12 am
por PEDRO DE LEON RODAS[3]
Ya pude resolver mi problema.
Quedo asi:
Local cMovimientos,cArchivo,reporte
Reporte:SetProperty("PDFExport", "Filename",cArchivo )
Reporte:SetProperty("PDFExport", "OpenAfterExport", .f.)
Reporte:SetProperty("PDFExport", "ShowDialog",.f.)
Reporte:SetProperty("PDFExport", "PrintOptimized", .t.)
Reporte:LoadFromFile(AppData:Reportes+"nuevo.fr3")
Reporte:PrepareReport()
Reporte:DoExport("PDFExport")
Reporte:Destroyfr()
AppData:VAR_FASTREPORT:=frReportManager():new()
AppData:VAR_FASTREPORT:LoadLangRes("Spanish.xml")
Reporte:=AppData:VAR_FASTREPORT
Saludos