FiveTech Software tech support forums

Code: Select all  Expand view

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
//---------------------------------------------------------------------------

 

Jairo Barbosa wrote:Dear Silvio

Well... i´ve done the whole work on Windows 7 with Harbour and FWH 1204 as you could see the images on the forum, the document is pretty elegant as the EasyReport one as well.

what ever you need you can send me an E-mail and i´ll answer as soon as i can.

Cordialmente

Jairo Barbosa

Sebastián Almirón wrote:Hola,

He dejado en http://www.caseinformatica.com/MyRpt/, una nueva versión de MyRpt.

Si queréis probarlo, se trata solo de dos ficheros, el prg y la dll (de momento solo en castellano).

En la página indico un poco por donde voy.

Saludos