ayuda con FWMariadb y fastreport (Resuelto)

[jose_murugosa]

Queridos compañeros,
Quisiera utilizar el método setuserdataset() para establecer un area de trabajo con un Rowset de la clase nativa de FWH para MariaDb.

Con dolphin sería así:

oApp:oFr:SetUserDataSet( "Cheques", MySqlFields( oCheques ),; // "fecven;feegre;nroche;desbanc;desplaza;destino;importe",;
{|| oCheques:GoTop() },;
{|| oCheques:Skip(1) },;
{|| oCheques:Skip(-1) },;
{|| oCheques:EoF() },;
{|nField| oCheques:FieldGet( nField ) })

MySqlFields( oCheques ) devuelve un array con los nombres de todas las columnas del recordset, ¿Cuál sería el equivalente en FWMariadb?
Lo busqué en la documentación, supongo que debe estar, pero no lo encontré.

Gracias desde ya por vuestra atención.

[Compuin]

Hola Jose, yo lo hago asi y me funciona perfecto

El equivalente es oRs:RecCount()

Code: Select all  Expand view

STATIC function Freporte( oRs )

   LOCAL oFr

   oFr := frReportManager():New()
   oFr:LoadLangRes( "Spanish.xml" )


   oFr:SetUserDataSet( "ALMACEN", mysqlfields(oRs),;
                         {|| oRs:GoTop()  },;
                         {|| oRs:Skip(1)  },;
                         {|| oRs:Skip(-1) },;
                         {|| oRs:EoF()    },;
                         {| aField| oRs:FieldGet( aField ) })

   oFr:SetTitle( "Diseñador de Informes" )

   WITH OBJECT oFr
         :SetIcon( 1 )
      IF .NOT. oFr:LoadFromFile("C:\clinicaFWH\Reportes\Almacen.Fr3")
         MsgInfo("Problema cargando el Reporte de Almacenes")
         :DesignReport()
      ELSE
         :PreviewOptions:SetButtons(1+8+16+32+128+256+1024)
         :PreviewOptions:SetMaximized(.f.)
         :ShowReport()
         :ClearDataSets()
         :DestroyFR()
      ENDIF
   END

RETURN NIL

STATIC FUNCTION mysqlfields( oRs )
   Local clField := ""

   nLen := oRs:RecCount()

   for x := 1 to oRs:RecCount()
      clField := clField + oRs:FieldName( x ) + iif( x < nLen ,";","" )
   Next

Return clField


 

[jose_murugosa]

Muchísimas gracias.
Ya pruebo!!

[carlos vargas]

Code: Select all  Expand view

for x := 1 to oRs:RecCount()
me parece que seria
for x := 1 to oRs:FCount()
 

Code: Select all  Expand view

FUNCTION MySqlFields( oQry )
   LOCAL cFields := ""
   LOCAL i, nLen

   FOR i := 1 TO oQry:FCount()
      cFields += oQry:FieldName( i ) + ";"
   NEXT

   cFields := hb_StrShrink( cFields )

RETURN cFields

[nageswaragunupudi]

Code: Select all  Expand view

FW_ArrayAsList( ArrTranspose( oRs:aStructure )[ 1 ], ";" )