Page 1 of 1
Generar FastReport con VS2022 e Eagle 1
Posted: Mon Jan 17, 2022 12:58 pm
by 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
Re: Generar FastReport con VS2022 e Eagle 1
Posted: Mon Jan 17, 2022 8:00 pm
by karinha
Re: Generar FastReport con VS2022 e Eagle 1
Posted: Mon Jan 17, 2022 11:41 pm
by Compuin
Joao
Solo me muestra el Designer, mas no los datos
Alguna otra sugerencia?
Re: Generar FastReport con VS2022 e Eagle 1
Posted: Mon Jan 17, 2022 11:48 pm
by 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.
Re: Generar FastReport con VS2022 e Eagle 1
Posted: Mon Jan 17, 2022 11:57 pm
by 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
Re: Generar FastReport con VS2022 e Eagle 1
Posted: Tue Jan 18, 2022 12:12 am
by karinha
No tengo idea de cómo usar FAST con MYSQL, tal vez puedas con SQLRDD.
Saludos.
Re: Generar FastReport con VS2022 e Eagle 1
Posted: Tue Jan 18, 2022 3:30 pm
by 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#p190864Un Saludo,
Re: Generar FastReport con VS2022 e Eagle 1
Posted: Tue Jan 18, 2022 3:41 pm
by 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
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
oFr:SetUserDataSet( "ALMACEN", "CODALM;NOMALM",;
{|| oCur:GoTop() },;
{|| oCur:Skip(1) },;
{|| oCur:Skip(-1) },;
{|| oCur:EoF() },;
{|nField| oCur:FieldGet( nField ) })
Gracias una vez mas
Re: Generar FastReport con VS2022 e Eagle 1
Posted: Wed Jan 19, 2022 2:46 pm
by cnavarro
Compuin wrote: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 ?
Re: Generar FastReport con VS2022 e Eagle 1
Posted: Wed Jan 19, 2022 2:49 pm
by Compuin
cnavarro wrote:Compuin wrote: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
Re: Generar FastReport con VS2022 e Eagle 1
Posted: Wed Jan 19, 2022 4:44 pm
by 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
////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
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
Re: Generar FastReport con VS2022 e Eagle 1
Posted: Wed Jan 19, 2022 4:55 pm
by Compuin
Hola Mike,
Muchas gracias, lo voy a revisar aunque tengo algunos problemitas generando arrays con Eagle 1