Pancho con eso te incluye los reportes en el .exe?? o tenes que distribuirlos a
los archivos de reportes tambien??
Saludos
Pablo Flores
From: francisco prieto
Sent: Tuesday, August 27, 2013 7:35 PM
To: GUFA List Member
Subject: [GUFA] FoxyPreviewer
Pablo,
Cuando uso Foxypreview lo hago de la siguiente forma:
Local lcNomReporte
If This.Parent.Parent.pFiltros.opt_valor.Value=1
lcNomReporte="rep_Deriva"
Else
lcNomReporte="rep_Deriva_valor"
Endif
Select cur_rep
Public poAuxiliar
poAuxiliar=Createobject("Custom")
poAuxiliar.AddProperty("Dde",This.Parent.Parent.pFiltros.Txt_Dde.Value)
poAuxiliar.AddProperty("Hsta",This.Parent.Parent.pFiltros.Txt_Hsta.Value)
Thisform.Nombre_Report=lcNomReporte
Thisform.TituloRepPrev="Informe de Derivadores con OT"
Thisform.UsaFoxyPreviewer()
poAuxiliar=.Null.
Release poAuxiliar
Select cur_rep
Claro que como podras ver no utililizo el default y modifique el fuente...
Te paso ademas el contenido del método UsaFoxyPreviewer
SET PROCEDURE TO FoxyPreviewer.Prg ADDITIVE
SET STATUS BAR OFF
SET CONSOLE OFF
SET POINT TO ","
SET DECIMALS TO 2
SET SEPARATOR TO "."
SET TALK OFF
LOCAL loReport as "PreviewHelper" OF FoxyPreviewer.Prg
loReport = CREATEOBJECT("PreviewHelper")
WITH loReport as ReportHelper
IF Thisform.Resumen
.AddReport(Thisform.Nombre_Report,"SUMMARY")
ELSE
.AddReport(Thisform.Nombre_Report)
ENDIF
.cTitle = Thisform.TituloRepPrev
.cLanguage = "ESPANIOL"
TEXT TO lcHTML NOSHOW PRETEXT 3
<HTML><HEAD>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<FONT face=Verdana size=2>
To<BR></FONT>
<BR>
<BR>
<FONT face=Verdana size=2>Sincerely</FONT>
<P></P>
<BR>
<HR><STRONG>
<FONT face=Verdana size=1>FoxyPreviewer team.</FONT></STRONG>
<FONT face=Arial color=black size=1><BR>
<FONT face=Verdana>1818 Super Street - Your Home<BR>05432-030
- Your City - XX</FONT><BR>
<FONT face=Wingdings color=black size=2>(</FONT><STRONG> </STRONG>
<FONT face=Verdana>Phone: 1 11 - 3322.2233 <BR></FONT>
<FONT face=Wingdings color=black size=2>(</FONT>
<FONT face=Verdana>Fax: 2 11 - 3366.6656<BR></FONT>
<FONT face=Wingdings color=black size=2>*</FONT>
<A href="mailto:cont...@mycompany.com";><FONT
face=Verdana>cont...@mycompany.com</FONT></A> </FONT>
<BR>
</HTML>
ENDTEXT
.cEmailBody = lcHTML
.nWindowState=2
.nDockType=0
.RunReport()
ENDWITH
SET POINT TO "."
SET SEPARATOR TO ","
SET TALK OFF
Sin embargo no te garantizo que esto funcione con la versión bajada de Internet
porque tuve que arreglar varias cosas en medio.
Pero al menos te doy una punta.
Saludos,
Pancho
Córdoba
El 27 de agosto de 2013 19:08, Flores Sistemas (Pablo Flores)
<pabloflo...@arnet.com.ar> escribió:
Hola...
estoy usando el foxypreviewer en modo completo. En el proyecto tengo
agregados los reportes/etiquetas
pero cuando genero el .exe y lo ejecuto me pide el reporte
Estoy usando vfp9 sp2, tambien ejecuto el foxypreviewercaller.prg en el
programa principal.prg y esta tambien en el proyecto
Gracias
Saludos
Pablo Flores
