FasReport ala primera bien a la segunda no muestra datos

[Hugo Navarro]

Hola
Buena Noche.
De antemano gracias por su amable atención.
Ejecuto un reporte con este metodo.
METHOD OptionList1Item4Click( oSender ) CLASS TInv_CatPRO
Local oQR, xVar := "Bien"
*oQR := AppData:oMDB_DS1:QueryReport( [ SELECT KPRO, CDESC FROM Inv_Productos ORDER BY CDESC ], xVar )
oQR := AppData:oMDB_DS1:Query( [ SELECT KPRO, CDESC FROM Inv_Productos ORDER BY CDESC ], xVar )
oQR:lopen := .T.
::oFrXailerDataset1:oDataset := oQR
With object ::oFastReport1
*:DesignReport()
:ShowReport()
end with
oQR:lopen := .F.
oQR:Destroy()
::oFrXailerDataset1:oDataset := NIL
RETURN Nil
A la primera ejecutada ... Sale bien el Reporte
A la segunda ejecutada ... No me muestra el detalle del reporte.
y si cierro el formulario y lo ejecuto.
me muestra este error:
TFASTREPORT:PROCESSEVENT(208)
Error BASE/1132 Bound error: array access
Argumentos: ( [ 1] = Tipo: A Valor: [ 2] = Tipo: N Valor: 69)
Saludos y Gracias..

Attached files

ProGpos.FR3 (5 KB)Â

[ignacio]

Buenos dí­as,
Es posible que el error que tiene sea un error conocido que ya estarí­a corregido en la nueva versión de Xailer que publicamos en breve. Dicho error sólo se produce cuando el objeto TFastReport es añadido visualmente como control al formulario. Es decir, si se crea el objeto TFastReport por código no deberí­a producirse dicho error. Si es así­, le anticipo que está resuelto en la próxima versión.
Un salduo

[Hugo Navarro]

Hola
Ingnacio
Gracias por tu amable atención
Lo del error:
TFASTREPORT:PROCESSEVENT(208)
Error BASE/1132 Bound error: array access
Argumentos: ( [ 1] = Tipo: A Valor: [ 2] = Tipo: N Valor: 69)
Lo arregle con ->
::oFastReport1:Free()
al cerrar el formulario.
Solamente tengo este detalle.
Al entrar al formulario y ejecutar el reporte
la primera ves, sale bien.
la segunda ves, no me muestra los datos del detalle del reporte, me muestra solamente el encabezado.
utilizo MariaDB. no se si tenga que ver con esto. ?
Saludos y Gracias..

[Hugo Navarro]

Solucionado....
METHOD OptionList1Item4Click( oSender ) CLASS TInv_CatPRO
Local oQR, xVar := "Bien"
oQR := AppData:oMDB_DS1:QueryReport( [ SELECT KPRO, CDESC FROM Inv_Productos ORDER BY CDESC ], xVar )
oQR:lopen := .T.
WITH OBJECT ::oReport := TFastReport():New( Self ):Create()
:AddDataSet( "DATASET", oQR )
:cFileName := "frProGpos.FR3"
:cLanguage := "Spanish"
:cTitle := "CatPro"

:ShowReport()
END WITH
::oFrXailerDataset1:oDataset := NIL
oQR:lopen := .F.
oQR:Destroy()
::oReport:End()
RETURN Nil
Saludos y Gracias..

[Hugo Navarro]

Hola Buen Dí­a.
Solamente un Detalle.....
en :ShowReport()
en el boton de exportar.
Me duplica las opciones del menu varias veces.
Anexo imagen.
Saludos y Gracias..

Attached files

[Hugo Navarro]

Solucionado....
Definitivamente eso de poner los controles FastReport
por la IDE de manera visual, genera problemas.
Saludos y Gracias..