lucasdebeltran wrote:Hola Sebas,
Muchas gracias, pero creo que haría falta un ejemplo autocontenido para que la gente lo pueda probar y dar feedback.
Tal cual lo publicas nadie lo puede probar.
He probado lo siguiente sin éxito:
- Code: Select all Expand view RUN
#include "myrpt.prg"
REQUEST DBFCDX
//---------------------------------------------------------------------------
function Main()
//---------------------------------------------------------------------------
local oBar, oCursorHand
DEFINE WINDOW oWnd ;
TITLE "Testing MyRept"
DEFINE MESSAGE BAR OF oWnd TITLE FWCOPYRIGHT ;
NOINSET DATE CLOCK KEYBOARD
ACTIVATE WINDOW oWnd MAXIMIZED ;
VALID MsgYesNo( "Want to exit ?" ) ;
ON INIT DoReport()
return nil
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
function DoReport()
//---------------------------------------------------------------------------
local o, oRpt, oList, n
o := MyRpt():New('Fattura.rpt',"Factura",'MyApp', .T. )
oRpt := o:Run()
oRpt:lPreview := .t. //Si quereis Preview
oRpt:Activate()
//oRpt:bHeader := {|| Cabefact(oRpt) }
// oRpt:bFooter := {|| Piefact(oRpt) }
oRpt:Activate()
//utilizar el método data para poner los datos en los Items:
For nI = 1 to len(oRpt:oReport:aitems)
oitem := oRpt:oReport:aitems[nI] //Item actual
do case
case oitem:cID = 'NUMERO_FACTURA'
oRpt:Data('NUMERO_FACTURA', 100)
case oitem:cID = 'NOMBRE_CLIENTE'
oRpt:data('NOMBRE_CLIENTE', "cnombre")
endcase
Next nI
oRpt:End()
o := nil
return nil
//---------------------------------------------------------------------------
Muchas gracias.
Saludos
He probado tu ejemplo ,
al Ejecutarlo me da error, Veo que falta el archivo 'Fattura.rpt' , no tienes un ejemplo que se pueda reproducir con todo que tenga la tabla y el rpt. Numca lo he probado , no lo conozco bien, pero segun veo solamente se necesitan dos archivo.
Un ejemplo que muestre como se usa la tabla , y como se crea un RPT.
