A mi no me deja imprimir los reportes si no los tengo en el cliente.

Desde ya están incluidos en el proyecto.

Que estoy haciendo mal.

 

Gracias

 

 

 

Walter Cómito

 Analista de Sistemas

 MP 0397 C.P.C.I.P.C.

 

›  [email protected]

         [email protected]

 

'   +54 351 494.4667

           153.292.707

 

þ www.softram.com.ar <http://www.softram.com.ar/> 

 

Q  Si no es necesario, no imprima este correo.

Todos somos responsables por el cuidado del medio ambiente.

 

 

NOTA DE CONFIDENCIALIDAD 
Este mensaje (y sus anexos) es confidencial y puede contener información de
propiedad 
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este mensaje
por error, 
por favor comuníquelo inmediatamente a  <mailto:[email protected]>
[email protected] y tenga la amabilidad 
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a
ninguna persona.

Muchas Gracias.

 

De: [email protected] [mailto:[email protected]] En nombre de francisco prieto
Enviado el: martes, 27 de agosto de 2013 07:52 p.m.
Para: GUFA List Member
Asunto: [GUFA] FoxyPreviewer

 

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 <mailto:[email protected]>  

Sent: Tuesday, August 27, 2013 7:35 PM

To: GUFA List Member <mailto:[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&nbsp; -&nbsp; Your Home<BR>05432-030
&nbsp;- &nbsp;Your City&nbsp;- &nbsp;XX</FONT><BR>

<FONT face=Wingdings color=black size=2>(</FONT><STRONG> </STRONG>

<FONT face=Verdana>Phone: 1 11 -&nbsp;3322.2233 <BR></FONT>

<FONT face=Wingdings color=black size=2>(</FONT> 

<FONT face=Verdana>Fax:&nbsp;&nbsp; 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




 

 

Responder a