Cómo definir campos en SetUserDataSet de FR (SOLUCIONADO)

Board index FiveWin para Harbour/xHarbour Cómo definir campos en SetUserDataSet de FR (SOLUCIONADO)

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Cómo definir campos en SetUserDataSet de FR (SOLUCIONADO)
Posted: Sun Oct 30, 2016 05:06 PM

Hola amigos del foro:

Para definir y pasar los campos disponibles a un reporte creado con FastReport
lo hago de la siguiente forma:

Code (fw): Select all Collapse

    oFr:SetUserDataSet("oRsCli","CLI_RFC;CLI_NOM",;

En este trozo de código solo se trata de dos campos y no hay problema, perooo que
pasa si se trata de 20, 30 ó 40 campos?, es mucho el código por escribir, la pregunta
del millón, hay alguna forma de especificar que pase todos los campos contenidos
en el record set?, algo como en el SELECT (SELECT * FROM .....).

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: Cómo definir muchos campos en SetUserDataSet de FR?
Posted: Sun Oct 30, 2016 09:31 PM

Armando,
Yo tengo esta funcion :

Code (fw): Select all Collapse

*------------------------------------------------------*
/***
* MySqlFields()
* Syntax .....: MySqlFields(<oQry>)
* Arguments ..: <oQry> Objecto Query
* Examples ...: MySqlFields(oQry)
* Retorna un String con los campos del Query TDolphin
*/
FUNCTION MySqlFields( oQry )
Local clField := "", x, nLen

// Inicializa las Variables
clField := ""
nLen    := oQry:Fcount()

For x := 1 to nLen
   cLfield := cLfield + oQry:FieldName( x ) + iif( x < nLen ,";","" )
Next x

Return cLfield

y lo llamo desde FR :

Code (fw): Select all Collapse

                    oFr:SetUserDataSet( cAliasReport, MySqlFields( oTable ),;
                               {|| oTable:GoTop()  },;
                               {|| oTable:Skip(1)  },;
                               {|| oTable:Skip(-1) },;
                               {|| oTable:EoF()    },;
                               {|nField| oTable:FieldGet( nField ) })

cAliasReport -> nombre de los datos en el reporte
oTable -> Query o tabla temporal

Espero te sirva,
Saludos.

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Cómo definir muchos campos en SetUserDataSet de FR?
Posted: Sun Oct 30, 2016 11:04 PM

Ariel:

Muchas gracias, buena solución. Pensé que habría algún comando o función que hiciera lo mismo.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion