topic-11398

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

add text to REPORT
Posted: Mon Jun 02, 2008 03:08 PM

Hi,

I have a REPORT such as:

REPORT oReport TITLE OemToAnsi(" Listado de AGENTES ") ;
PREVIEW CAPTION OemToAnsi("Listado de AGENTES")

COLUMN TITLE OemToAnsi("C¢digo") DATA AGENTES->CODIGO

COLUMN TITLE "Nombre del Agente" DATA LEFT( AGENTES->NOMBRE, 30 )

END REPORT

ACTIVATE REPORT oReport

At the end of it (not as PAGE FOOTERS), I would like to add a table like this:

=====================
Resumen anual
====================
Total primer trimestre 100
====================
Total segundo trimestre 200
====================

¿How can be done?. Thank you!!!.

Best regards,

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

Enrico Maria Giordano

Posts: 9022

Joined: Thu Oct 06, 2005 08:17 PM

Re: add text to REPORT
Posted: Mon Jun 02, 2008 04:32 PM

Code: Select all Collapse

#include "Fivewin.ch"
#include "Report.ch"


FUNCTION MAIN()

    LOCAL oRpt

    USE TEST

    REPORT oRpt PREVIEW

    COLUMN TITLE "LAST";
           DATA FIELD -> last

    COLUMN TITLE "FIRST";
           DATA FIELD -> first

    ENDREPORT

    ACTIVATE REPORT oRpt;
             ON END ( oRpt:TotalLine( RPT_DOUBLELINE ),;
                      oRpt:Say( 1, "This is the first line" ),;
                      oRpt:StartLine(),;
                      oRpt:EndLine(),;
                      oRpt:Say( 1, "This is the second line" ) )

    CLOSE

    RETURN NIL

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

add text to REPORT
Posted: Mon Jun 02, 2008 08:01 PM

Thank you!!!

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

FiveTech Support Forums

Continue the discussion