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:
static ownd #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.
