No, el reporte esta dentro del exe. No distribuyo ningun fuente. Saludos,
Pancho El 27 de agosto de 2013 19:48, Flores Sistemas (Pablo Flores) < [email protected]> escribió: > 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 <[email protected]> > *Sent:* Tuesday, August 27, 2013 7:35 PM > *To:* GUFA List Member <[email protected]> > *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:[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 >> >> >> >> >
