Xailer forum

Estoy empezando a probar FastReport, pero al usarlo me aparece este error:

------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 7.0.0
Compilador: Harbour 3.2.0dev (r1912031042)
Compilador C/C++: MinGW GNU C 7.3 (32-bit)
Plataforma: Windows 10 10.0
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Message not found
Operación: TAppData:*MARIADB_DATABASE
Argumentos: [ 1] = Tipo: O Valor:
Fichero:
Código error SO: 0

Pila de llamadas:
__ERRRT_SBASE (0)
TAPPDATA:ERROR (0)
(b)HBOBJECT (0)
TAPPDATA:MSGNOTFOUND (0)
TAPPDATA:*MARIADB_DATABASE (0)
__OBJSENDMSG (0)
TFASTREPORT:AFTERLOAD (614)
TFASTREPORT:LOADREPORT (515)
TFASTREPORT:LOADFROMFILE (644)
(b)XACLASS_ADDPROPINIT (234)
TFASTREPORT:_CFILENAME (0)
TCLIENTES:PRINTDATAS (311)
.....

La variable existe, pues la uso en todo el programa.

Saludos.

Puedes incluir la parte del código fuente donde te envía el error de otra manera no es posible identificar el origen del error

Me estoy basando de los ejemplos que trae X7.

Class TAppData From XAppData
::::
Component oMariaDBDataSource
Component MariaDB_Host
Component MariaDB_User
Component MariaDB_Password
Component MariaDB_DataBase
::::
End


With Object ::oFastReport1
:cFileName := AppData:DIR_FORMATOS + ::cReportFile
//::oFastReport1:cResName := ""
//:SetProperty( "BarCode2", "Text", "PROD0000001-0000001-20150131-100.99" )
:OnBtnSendMail := {|| MsgInfo("My Email process" ) }
:OnBtnGenPdf := {|| MsgInfo("My PDF process" ) }
:OnBtnPrint := {|| MsgInfo("My Print process" ) }
//:PrepareReport()
:DesignReport()
//:ShowReport()
End With

Ramón:
Lo más seguro es que no existe el archivo fr3
yo lo verifico así:
With Object ::oFastReport1
:Create()
IF !file(:cFileName := AppData:DIR_FORMATOS + ::cReportFile
)
:DesignReport()
ELSE
:SetProperty("mailexport","showdialog",pfalse)
IF valtype(::cFilePdf)!="U"
:SetProperty("pdfexport","showdialog",::lShowdialogPdf)
:SetProperty("pdfexport","FileName",::cFilePdf)
ENDIF
AppData:LXls:=::lSiXLS
IF ::lSiXLS
:DoExport( "BIFFEXPORT" )
:PreviewClose()
::End()
ELSE
:ShowReport()
ENDIF
ENDIF
END
Tengo una función de vista preliminar que tiene algunas data que me ayudan en el proceso como cFilePdf, lsixls, lShowdialogpdf, pfalse es un #define pfalse .f. que me hace más legible el fuente y Appdata:lxls lo uso en el reporte fr3 para definir el formato que voy a usar, espero te ayude a encontrar el error.

Si, existe, haré más pruebas. o buscaré más ejemplos para continuar probando.

Saludos.