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
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
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.
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
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
No tengo idea de cómo usar FAST con MYSQL, tal vez puedas con SQLRDD.
Saludos.
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,
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()oFr:SetUserDataSet( "ALMACEN", "CODALM;NOMALM",;
{|| oCur:GoTop() },;
{|| oCur:Skip(1) },;
{|| oCur:Skip(-1) },;
{|| oCur:EoF() },;
{|nField| oCur:FieldGet( nField ) })FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
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
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 ?
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
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 nPosHola Mike,
Muchas gracias, lo voy a revisar aunque tengo algunos problemitas generando arrays con Eagle 1
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity