*-- Se emite el reporte
*
* VES Jul 21, 2012
* Se define una variable lResult para determinar en el caso especifico
* del modo PDF, si fue posible generar el archivo PDF o no
*
LOCAL cFormat, lResult
cFormat = ALLT(CFDConf.formatoImpresion)
lResult = .T. && VES Jul 21, 2012
DO CASE
CASE plPreview
PUBLIC pubPDFTarget
pubPDFTarget = Strtran(pcPDFTarget,".PDF",".PNG")
if !FILE(pubPDFTarget)
pubPDFTarget = Strtran(pubPDFTarget,".PNG",".BMP")
Endif
REPORT FORM (cFormat) NOCONSOLE PREVIEW
CASE plPDFMode AND CFDConf.usarPrint2PDF && VES Jul 25, 2012
Print2PDF(pcPDFTarget, cFormat)
lResult = FILE('&pcPDFTarget') && VES Jul 25, 2012
CASE plPDFMode AND !CFDConf.usarPrint2PDF && Se utiliza PDFCreator
pcPDFTarget = FULLPATH(pcPDFTarget) && VES Ene 5, 2011
* LOCAL oPDF
* oPDF=CREATEOBJECT("PDFCreator.clsPDFCreator")
* oPDF.cStart()
* oPDF.cVisible=False
* oPDF.cClearCache()
* oPDF.cPrinterStop=False
* oPDF.cOption("AutosaveDirectory")=JUSTPATH(pcPDFTarget)
* oPDF.cOption("AutosaveFileName")=JUSTFNAME(pcPDFTarget)
* oPDF.cOption("UseAUtosave")=1
* oPDF.cOption("UseAutosaveDirectory")=1
* oPDF.cOption("AutosaveFormat")=0
* oPDF.cSaveOptions()
*****
PUBLIC pubPDFTarget
pubPDFTarget = Strtran(pcPDFTarget,".PDF",".PNG")
if !FILE(pubPDFTarget)
pubPDFTarget = Strtran(pubPDFTarget,".PNG",".BMP")
Endif
Local lcPDF
lcPDF = FULLPATH(pcPDFTarget)
DO "FoxyPreviewer.App"
Local loReport as "PreviewHelper" OF "FoxyPreviewer.App"
loReport = CREATEOBJECT("PreviewHelper")
WITH loReport as ReportHelper
.AddReport(cFormat, "NODIALOG")
.cDestFile = pcPDFTarget
RELEASE loEspere
.RunReport()
ENDWITH
loReport = NULL