Generar FastReport con VS2022 e Eagle 1

[Compuin]

Hola foro

Alguien tiene un ejemplo de reporte usando Eagle1 y Fast Report?

Tengo compilado el FastReport con Harbour 3.2 y Visual Studio 2022 32/64 Bits

Eagle1 tambien la tengo compilada con Visual Studio 2022 y Harbour 3.2 32/64 Bits.

Utilizo HBMK2

Necesito un ejemplo de conexion entre E1 y FastReport para generar informe.

Gracias de antemano

[karinha]

Que és Eagle 1? SQL? Mira se esto ayuda:

http://fivewin.com.br/index.php?/topic/30760-fastreport-co-mysql/

Saludos.

[Compuin]

Joao

Solo me muestra el Designer, mas no los datos




Alguna otra sugerencia?

[karinha]

Buenas noches, como no entiendo SQL, primero intente dominar FASTREPORT, de la manera convencional, después de entender y dominar FASTREPORT, comienza a usar SQL. Empecé a usar Bases de datos .DBF que son más sencillas de incorporar a FAST, ¿de acuerdo?

Esta pantalla que está mostrando es el VISOR DE FASTREPORT, donde EDITA el archivo FAST con extensión .FR3.

Regards, saludos.

[Compuin]

Hay una parte del código que decide si no logra conectar a sql entonces salta al designer de FR

Ya la forma convencional con DBF la conozco mi problema es con SQL

[karinha]

No tengo idea de cómo usar FAST con MYSQL, tal vez puedas con SQLRDD.

Saludos.

[Mike Serra]

Buenas tardes Compuin:

Quizas el siguiente enlace te pueda orientar. Es un uso de tDolphin con FastReport.

http://forums.fivetechsupport.com/viewt ... es#p190864

Un Saludo,

[Compuin]

Hola Mike, gracias por tu respuesta

Me genera este error



Este es el codigo que uso para crear el array

Code: Select all  Expand view  RUN

cSql  := "SELECT * FROM MXCTAALM"

   oTB:=TMsTable():New( oAp:oMySql, cTable )
   oTB:cStatement:=cSql

   IF !oTB:Open()
      MsgInfo ( "No se puede abrir la tabla: " + cTable, "Operacion Cancelada" )
      RETURN NIL
   ENDIF
 
 //?oTB:FCount()
   oCur:= TMSACursor():New( oTB )
   oCur:Open()

y Asi hago la consulta

Code: Select all  Expand view  RUN

oFr:SetUserDataSet( "ALMACEN", "CODALM;NOMALM",;
                         {|| oCur:GoTop()  },;
                         {|| oCur:Skip(1)  },;
                         {|| oCur:Skip(-1) },;
                         {|| oCur:EoF()    },;
                         {|nField| oCur:FieldGet( nField ) })

Gracias una vez mas

[cnavarro]

Hola foro

Alguien tiene un ejemplo de reporte usando Eagle1 y Fast Report?

Tengo compilado el FastReport con Harbour 3.2 y Visual Studio 2022 32/64 Bits

Eagle1 tambien la tengo compilada con Visual Studio 2022 y Harbour 3.2 32/64 Bits.

Utilizo HBMK2

Necesito un ejemplo de conexion entre E1 y FastReport para generar informe.

Gracias de antemano

No conozco lo suficente FastReport, pero si tú lo has usado, y sabes hacer un report de un array, te recomiendo que pases el query obtenido a un array y hagas el reporte del array, no ?

[Compuin]

Hola foro

Alguien tiene un ejemplo de reporte usando Eagle1 y Fast Report?

Tengo compilado el FastReport con Harbour 3.2 y Visual Studio 2022 32/64 Bits

Eagle1 tambien la tengo compilada con Visual Studio 2022 y Harbour 3.2 32/64 Bits.

Utilizo HBMK2

Necesito un ejemplo de conexion entre E1 y FastReport para generar informe.

Gracias de antemano

No conozco lo suficente FastReport, pero si tú lo has usado, y sabes hacer un report de un array, te recomiendo que pases el query obtenido a un array y hagas el reporte del array, no ?

Gracias Navarro

Trato de utilizar un array pero me falla o tal vez no lo estoy haciendo bien. Arriba puse el codigo

[Mike Serra]

Buenas tardes Compuin:

He escrito, cortado y pegado (no he compilado) mas o menos lo que yo uso con un array

Code: Select all  Expand view  RUN

////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
function FastReportSample(objetoFastReport)
   local aDatas:={;
                  {"Central",100},;
              {"Tienda1",200},;
              {"Tienda2",300};
                 }
   local i,xx,cField,bGotop,bSkipPlus1,bSkipMinus1,bCheckEOF
   local aFrItems:={"NombreAlmacen","Stock"}

   i:=1
   xx:=0
   cField:=""
   bGotop      :={||i:=1}
   bSkipPlus1 :={||i:=i+1}
   bSkipMinus1:={||i:=i-1}
   bCheckEOF  :={||i > len(aDatas)}

   objetoFastReport:SetUserDataset("oRsAlmacenes",frItemsString(aFrItems),bGotop,bSkipPlus1,bSkipMinus1,bCheckEOF,{|cField| xx:=frGetValue(cField,aFrItems), aDatas[i,xx]})

return

////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
function frItemsString(aFrItems,aBase)
   local cString:="",nTam
   default aBase:={}
   nTam:=len(aFrItems)
   for i:=1 to nTam
      if len(aBase)=0
         cString+=alltrim(aFrItems[i])
      else
         cString+=alltrim(aBase[i,1])+"="+alltrim(aFrItems[i])
      end if
       
      if i<>len(aFrItems)
         cString+=";"
      end if
   next
return cString

////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
function frGetValue(cField,aFrItems)
   local nPos:=0
   nPos:=ascan(aFrItems,{|v| upper(alltrim(v))=upper(alltrim(cField))})
   if nPos=0
      nPos:=1
   end if
return nPos
 

Creo que te puede servir.

Ya nos cuentas

[Compuin]

Hola Mike,

Muchas gracias, lo voy a revisar aunque tengo algunos problemitas generando arrays con Eagle 1