SET PROCEDURE TO LOCFILE("Foxypreviewer.App") ADDITIVE
Do Form [MainForm] Name oMainform
Read Events
CLOSE PROCEDURES "FoxyPreviewer.App"
**********************************************************************
* FoxyPreview sample script
*
Local loReport As "PreviewHelper" Of "FoxyPreviewer.app"
loReport = Createobject("PreviewHelper")
With loReport As ReportHelper
* Add the FRX and clauses here
.AddReport("Documentos_Repactacion.Frx", "", "DocReneg")
.AddReport("Calculo_Repactacion.Frx", "", "CuotasNuevas")
*.lPDFasImage = .T.
.cPDFSymbolFontsList = "PF Barcode 39,PF Barcode 128"
.cDestFile = "c:\PDF_Resumen\RES\Reporte.Pdf"
* Execute the report preview
.RunReport()
lcPDFFile = .cDestFile
Endwith
loReport = Null
Release loReport
**********************************************************************
Error No. : 202
Procedimiento : init
Línea : 718
SELECT Repactacion
Error No. : 202
Procedimiento : init
Línea : 718
La ruta o el nombre de archivo no es válido.
lcArcDestino
= "c:\Mandatos\PDF_Resumen\prueba.pdf"**********************************************************************
* FoxyPreview sample script
*
LOCAL
loReport AS "FoxyPreviewerCaller" OF "FoxyPreviewerCaller.prg"loReport
= CREATEOBJECT("FoxyPreviewerCaller")With
loReport As ReportHelper * Add the FRX and clauses here .AddReport("Documentos_Repactacion.Frx", "", "DocReneg").
AddReport("Calculo_Repactacion.Frx", "", "CuotasNuevas") *.lPDFasImage = .T.Endwith
loReport
= NullRelease
loReport