Xailer & OZ Software

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...

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...
>

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...
>>
>
>
>

<!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>