Here is my solution to use fastreport with a xailer tsqlquery.
The functions SetXailerDataSet and GetSQLValue will pass a datasource to
fastreport.
I post it here, as a thank you for all the help you give me.
Ronald
//---------------------------------------------------------- --------------------
METHOD Button1Click( oSender ) CLASS TForm1
// this is an example sql query. make your own queries, as long as you give
every column an alias.
// in this example fastreport will receive a dataset with the alias:
HARDWARE and the fields: description, uren and day.
with object ::oSQLQuery1
IF :lOpen
:Close()
ENDIF
:cSelect := "SELECT billingTimeDurationEntries.durationDescription
description, " + ;
"billingTimeDurationEntries.hoursTotal uren, " + ;
"billingTimeDurationEntries.startDay day, " + ;
"FROM billingtimedurationentries WHERE etcetera etcetera ORDER
BY; "
:Open()
:GoTop()
END WITH
SetXailerDataSet( FrPrn, "HARDWARE" , ::oSQLQuery1 )
DoFrAction( "hardware.fr3" )
RETURN Nil
//---------------------------------------------------------- --------------------
function SetXailerDataSet(oFrManager, cFrAlias, oDataSet)
//---------------------------------------------------------- --------------------
local cStr:='', x, aVelden
for x := 1 to len( oDataSet:aFields)
cStr+=oDataSet:aFields[x]:cName + ";"
next
aVelden := oDataSet:aFields
oFrManager:SetUserDataSet(cFrAlias, cStr,;
{||oDataSet:GoTop}, {||oDataSet:Skip(1)}, ;
{||oDataSet:Skip(-1)}, {||oDataSet:Eof},;
{|cField| GetSQLValue( cField, oDataSet)})
Return Nil
//---------------------------------------------------------- --------------------
function GetSQLValue( cField, oDataSet)
local cRet := "", nPos, aVelden
// get the position of current fieldname in fields array
aVelden := oDataSet:aFields
nPos := ascan( aVelden,{|aVal| aVal:cName == cField})
// get the value
cRet := oDataSet:aFields[nPos]:Value
RETURN cRet
"Paco V." <
ssi-estono-@ono.com> wrote in message
news:49cbc4c8$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ehhhhhhhh, que yo solo utilizo la tecnologia de I+C, sobre lo que hacen
> Bingen y JuanJo.
>
> Yo soy un pobrecito "pringadillo".
>
> Saludos.
>
> Paco V
> "Rene Flores" <"rflores[nospam]"@ciber-tec.com> escribió en el mensaje
> news:[email=49cbabf2@svctag-j7w3v3j....]49cbabf2@svctag-j7w3v3j....[/email]
>> Bingen:
>>
>>> De momento he hecho cientos de informes de lo mas normal y de lo más
>>> rebuscado con FR y es una maravilla.
>>
>> Que modesto que eres, cientos de informes te creo, pero lo de rebuscado
>> te haz quedado corto... tienes verdaderas virguerias de informes igual
>> que Paco Viru.
>>
>> Saludos
>>
>> Rene Flores
>>
http://www.ciber-tec.com
>>
>>>
>>> Pero no he tenido tiempo de ponerme con ello.
>>>
>>> En breve espero....
>>>
>>> Josep Castells escribió:
>>>> Hola Bingen:
>>>> En un articulo de Rene, a propósito del Open House en Madrid,
>>>> comentaba:
>>>> * *Para cerrar el día, Bingen y Juanjo nos presentaron la integración
>>>> de FastReports con Xailer*.
>>>> y luego:
>>>> *Bingen y Juanjo han mejorado la clase de Sergey para que pueda
>>>> "interpretar" los datasets de Xailer *
>>>> *y poder presentarlo dentro del diseñador visual de FastReports para
>>>> que puedas elegir los campos *
>>>> *directamente de un DataSet de Xailer.
>>>>
>>>> También han creado toda clase de informes distintos, desde los tipicos
>>>> listados, hasta cosas mucho mas*
>>>> *complejas como la impresión de cheques bancarios, o reportes con
>>>> imágenes guardadas en campos *
>>>> *BLOB de la base de datos..... simplemente increíble.
>>>> *
>>>> Se puede conseguir más información al respecto.......pues seria
>>>> interesante para acabar de decidirnos por este
>>>> diseñador visual.
>>>> Perdona por la intromisión.
>>>> Gracias.
>>>> Josep Castells
>>
>
>