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:[email protected]";><FONT face=Verdana>
[email protected]</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) <
[email protected]> 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
>
>
>
>
