In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

FastReport Xailer

Foro de Xailer profesional en español
Responder
Martin del Angel[1]
Mensajes: 114
Registrado: Dom Dic 18, 2005 7:50 pm

FastReport Xailer

Mensaje por Martin del Angel[1] »

Hola a Todos !
Alguien en este foro a logrado implementar FastReport con Xailer ?
Tengo cierto avanze , pero no logro que los DataSets creados con Xailer
puedan ser visibles en el Designer de FastReport.
cSQL := 'Select Cliente,((Cant_Vend * PrecioUnit) - (Cant_Vend *
ImpteDescto)) As VtaNeta, ' +;
' (Cant_Vend * ImpteIVA) As IvaTotal, FechaVtaSinHora, Folio,
Farmacia From VenDet'+;
' LEFT JOIN CatClientes ON (VenDet.Cliente = CatClientes.Codigo)
'+;
' WHERE Vendet.FechaVtaSinHora BETWEEN ' + CHR(39)+ cFECI +
CHR(39) + ' AND ' + CHR(39)+ cFECF + CHR(39) +;
IF(!EMPTY(cCLIENTES),cCLIENTES,"")
WITH OBJECT ::oDSSUMACTES // TSQlQuery
:cSelect:=cSQL
:Open()
END WITH
TRY
::oFR := CreateObject( "FastReport.TfrxReport" )
CATCH oError
lResult := .F.
MsgStop(oError:Operation,"Error en Abrir Fast Report")
END
::oFR:LoadReportFromFile('.PruebaFastReport.fr3') // cargo el reporte
previamente diseñado
::oFR:DesignReport() // llamo a Diseñador (Designer)
Gracias...
Arriba
Fredy
Mensajes: 199
Registrado: Mié Mar 29, 2006 1:28 am

FastReport Xailer

Mensaje por Fredy »

Hello Martin,
Hola,
Para comunicarte entre fastreport y xailer tienes que utilizar el método
setvariable(), en tu caso puedes hacer algo así­:
- En FR te creas una variable que se llame, por ejemplo xSql.
- En Xailer, después de cargar el informe con LoadReportFromFile
::oFR:setvariable("xSql",cSql)
- En FR, en el evento OnBeforePrint de Page1
AdoQuery1.sql.cText := xSql ;
Si no te funciona, casi seguro que es cosa de las comillas, puede que sea
::oFR:setvariable("xSql","cSql"), la verdad es que el paso de variables
de tipo texto da un poco de lata
Un saludico,
Fredy
> Hola a Todos !
>
> Alguien en este foro a logrado implementar FastReport con Xailer ?
>
> Tengo cierto avanze , pero no logro que los DataSets creados con
> Xailer puedan ser visibles en el Designer de FastReport.
>
> cSQL := 'Select Cliente,((Cant_Vend * PrecioUnit) - (Cant_Vend *
> ImpteDescto)) As VtaNeta, ' +;
> ' (Cant_Vend * ImpteIVA) As IvaTotal, FechaVtaSinHora,
> Folio,
> Farmacia From VenDet'+;
> ' LEFT JOIN CatClientes ON (VenDet.Cliente =
> CatClientes.Codigo)
> '+;
> ' WHERE Vendet.FechaVtaSinHora BETWEEN ' + CHR(39)+ cFECI +
> CHR(39) + ' AND ' + CHR(39)+ cFECF + CHR(39) +;
> IF(!EMPTY(cCLIENTES),cCLIENTES,"")
> WITH OBJECT ::oDSSUMACTES // TSQlQuery
> :cSelect:=cSQL
> :Open()
> END WITH
> TRY
> ::oFR := CreateObject( "FastReport.TfrxReport" )
> CATCH oError
> lResult := .F.
> MsgStop(oError:Operation,"Error en Abrir Fast Report")
> END
> ::oFR:LoadReportFromFile('.PruebaFastReport.fr3') // cargo el
> reporte
> previamente diseñado
> ::oFR:DesignReport() // llamo a Diseñador (Designer)
> Gracias...
>
Arriba
Martin del Angel[1]
Mensajes: 114
Registrado: Dom Dic 18, 2005 7:50 pm

FastReport Xailer

Mensaje por Martin del Angel[1] »

Efectivamente tengo problemas con las comillas , no he podido , ya intente
de todas las maneras con las comillas y nada.
si tienes por ahi algo que ya este funcionando , te lo agredeceria.
Gracias..
"Fredy" <fredy@aglsl.com> wrote in message
news:[email=a20b86f3504f8c954683f8d2714@news.xailer.com...]a20b86f3504f8c954683f8d2714@news.xailer.com...[/email]
> Hello Martin,
>
> Hola,
>
> Para comunicarte entre fastreport y xailer tienes que utilizar el método
> setvariable(), en tu caso puedes hacer algo así:
>
> - En FR te creas una variable que se llame, por ejemplo xSql.
>
> - En Xailer, después de cargar el informe con LoadReportFromFile
> ::oFR:setvariable("xSql",cSql)
>
> - En FR, en el evento OnBeforePrint de Page1
>
> AdoQuery1.sql.cText := xSql ;
>
>
>
> Si no te funciona, casi seguro que es cosa de las comillas, puede que sea
> ::oFR:setvariable("xSql","cSql"), la verdad es que el paso de variables de
> tipo texto da un poco de lata
>
>
> Un saludico,
> Fredy
>
>
>
>> Hola a Todos !
>>
>> Alguien en este foro a logrado implementar FastReport con Xailer ?
>>
>> Tengo cierto avanze , pero no logro que los DataSets creados con
>> Xailer puedan ser visibles en el Designer de FastReport.
>>
>> cSQL := 'Select Cliente,((Cant_Vend * PrecioUnit) - (Cant_Vend *
>> ImpteDescto)) As VtaNeta, ' +;
>> ' (Cant_Vend * ImpteIVA) As IvaTotal, FechaVtaSinHora,
>> Folio,
>> Farmacia From VenDet'+;
>> ' LEFT JOIN CatClientes ON (VenDet.Cliente =
>> CatClientes.Codigo)
>> '+;
>> ' WHERE Vendet.FechaVtaSinHora BETWEEN ' + CHR(39)+ cFECI +
>> CHR(39) + ' AND ' + CHR(39)+ cFECF + CHR(39) +;
>> IF(!EMPTY(cCLIENTES),cCLIENTES,"")
>> WITH OBJECT ::oDSSUMACTES // TSQlQuery
>> :cSelect:=cSQL
>> :Open()
>> END WITH
>> TRY
>> ::oFR := CreateObject( "FastReport.TfrxReport" )
>> CATCH oError
>> lResult := .F.
>> MsgStop(oError:Operation,"Error en Abrir Fast Report")
>> END
>> ::oFR:LoadReportFromFile('.PruebaFastReport.fr3') // cargo el
>> reporte
>> previamente diseñado
>> ::oFR:DesignReport() // llamo a Diseñador (Designer)
>> Gracias...
>>
>
>
>
Arriba
movil
Mensajes: 46
Registrado: Vie Mar 09, 2007 1:12 pm

FastReport Xailer

Mensaje por movil »

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<font face="Verdana">Fredy,<br>
<br>
<br>
Tienes un pequeÃo ejemplo de como usar Fastreport con Xailer.<br>
Me ServirÃa mucho para guiarme.<br>
<br>
Mil Gracias<br>
<br>
</font>-- <br>
<div class="moz-signature">
<meta http-equiv="CONTENT-TYPE" content="text/html; ">
<title>Josà David Angulo</title>
<meta name="GENERATOR" content="OpenOffice.org 2.0 (Win32)">
<meta name="CREATED" content="20060220;11005750">
<meta name="CHANGED" content="20061028;16242395">
<meta name="ProgId" content="Word.Document">
<meta name="Originator" content="Microsoft Word 9">
<style>
<!--
P { color: #000000 }
A:link { color: #0000ff }
A:visited { color: #800080 }
-->
</style>
<p style="margin-bottom: 0cm;"><font size="2"><span
style="background: transparent none repeat scroll 0% 50%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;"><b><font
face="Century Gothic"><font color="#000080">JosÃ
David Angulo.</font></font></b></span><font face="Arial"><font
color="#0000ff"><br>
</font></font></font><font face="Arial"><font color="#0000ff"><b><font
style="font-size: 11pt;" size="2">A<span lang="en-GB">uditorÃa
y Sistemas Ltda. </span></font></b></font></font>
</p>
<p style="margin-bottom: 0cm;"><font style="font-size: 8pt;" size="1"><font
face="Arial"><font color="#0000ff">Cartagena
- Colombia</font></font></font></p>
</div>
<br>
<br>
Fredy escribiÃ:
<blockquote cite="mid:a20b86f3504f8c954683f8d2714@news.xailer.com"
type="cite">Hello Martin,
<br>
<br>
Hola,
<br>
<br>
Para comunicarte entre fastreport y xailer tienes que utilizar el
mÃtodo setvariable(), en tu caso puedes hacer algo asÃ:
<br>
<br>
- En FR te creas una variable que se llame, por ejemplo xSql.
<br>
<br>
- En Xailer, despuÃs de cargar el informe con LoadReportFromFile
<br>
::oFR:setvariable("xSql",cSql)
<br>
<br>
- En FR, en el evento OnBeforePrint de Page1
<br>
<br>
ÂAdoQuery1.sql.cText := xSql ;
<br>
<br>
<br>
<br>
Si no te funciona, casi seguro que es cosa de las comillas, puede que
sea
<br>
::oFR:setvariable("xSql","cSql"), la verdad es que el paso de variables
de tipo texto da un poco de lata
<br>
<br>
<br>
Un saludico,
<br>
ÂÂ Fredy
<br>
<br>
<br>
<br>
<blockquote type="cite">Hola a Todos !
<br>
<br>
Alguien en este foro a logrado implementar FastReport con Xailer ?
<br>
<br>
Tengo cierto avanze , pero no logro que los DataSets creados con
<br>
Xailer puedan ser visibles en el Designer de FastReport.
<br>
<br>
cSQL := 'Select Cliente,((Cant_Vend * PrecioUnit) - (Cant_Vend *
<br>
ImpteDescto)) As VtaNeta, ' +;
<br>
' (Cant_Vend * ImpteIVA) As IvaTotal, FechaVtaSinHora,
<br>
Folio,
<br>
Farmacia From VenDet'+;
<br>
' LEFT JOIN CatClientes ON (VenDet.Cliente =
<br>
CatClientes.Codigo)
<br>
'+;
<br>
' WHERE Vendet.FechaVtaSinHora BETWEEN ' + CHR(39)+ cFECI +
<br>
CHR(39) + ' AND ' + CHR(39)+ cFECF + CHR(39) +;
<br>
IF(!EMPTY(cCLIENTES),cCLIENTES,"")
<br>
WITH OBJECT ::oDSSUMACTESÂ // TSQlQuery
<br>
:cSelect:=cSQL
<br>
:Open()
<br>
END WITH
<br>
TRY
<br>
::oFR := CreateObject( "FastReport.TfrxReport" )
<br>
CATCH oError
<br>
lResult := .F.
<br>
MsgStop(oError:Operation,"Error en Abrir Fast Report")
<br>
END
<br>
::oFR:LoadReportFromFile('.PruebaFastReport.fr3') // cargo el
<br>
reporte
<br>
previamente diseÃado
<br>
::oFR:DesignReport()Â // llamo a DiseÃador (Designer)
<br>
Gracias...
<br>
<br>
</blockquote>
<br>
<br>
<br>
</blockquote>
<br>
<div class="moz-signature"><br>
</div>
</body>
</html>
Arriba
Responder

Volver a “Xailer Pro Spanish”