Dear friends, I need to make a report from an XBrowse (oBrw:Report()) with an header in the first page and a footer in the last page. Is it possible?
EMG
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour XBrowse: report header and footer
Solved for footer:
oRpt:bPostEnd = { || oRpt:Say( ... ) }
Any ideas for header? I'm trying with oRpt:bInit but it prints after the columns header.
EMG
Enrico.
Try this, please:
Try this, please:
ACTIVATE REPORT oReport ;
ON ENDPAGE ( oReport:oHeader := TrLine():New({}) , oReport:oTitle := TrLine():New({}) , oReport:nTitleRow := 0 )Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Thank you. Unfortunately, the page number is overwritten by the double line from the second page on. I tried to reduce the height of the list without results.
EMG
Enrico Maria Giordano wrote:Thank you. Unfortunately, the page number is overwritten by the double line from the second page on. I tried to reduce the height of the list without results.
EMG
Enrico, can you test?
//------------------------------------------//
Function TituSoloEnPag1()
local oReport, oFont
DBUSEAREA(.T.,,"CUSTOMER","CUST",.T.)
DBGOTOP()
DEFINE FONT oFont NAME "ARIAL" SIZE 0,-10
REPORT oReport ;
TITLE "PROBANDO TITULO-HEADER SOLO EN PRIMERA PAGINA",;
"UTILIZAMOS 'CUSTOMER.DBF'",;
"LISTADO DE NUESTROS CLIENTES" ;
FONT oFont;
HEADER Dtoc(Date()), "Pag: " + str(oReport:nPage,3) RIGHT ;
PREVIEW
COLUMN TITLE "FIRST" DATA Field->FIRST SIZE 20
COLUMN TITLE "LAST" DATA Field->LAST SIZE 20
COLUMN TITLE "STREET" DATA Field->STREET SIZE 30
COLUMN TITLE "CITY" DATA Field->CITY SIZE 20
COLUMN TITLE "STATE" DATA Field->STATE SIZE 10
ENDREPORT
ACTIVATE REPORT oReport ;
ON ENDPAGE ( oReport:oTitle := TrLine():New({}) )
//Header y Title solo en la primer pagina.
//ON ENDPAGE ( oReport:oHeader := TrLine():New({}) , oReport:oTitle := TrLine():New({}) , oReport:nTitleRow := 0 )
//Header y Title en pag 1, y en siguientes header y espacio vacio del title.
//ON ENDPAGE ( oReport:oTitle := TrLine():New({}) )
CUST->(DBCLOSEAREA())
RELEASE oFont
Return nilFrancisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Thank you, Francisco. In your sample, the header is printed on the first page, ok, but the header space is left blank from the second page on.
EMG
Enrico Maria Giordano wrote:Thank you, Francisco. In your sample, the header is printed on the first page, ok, but the header space is left blank from the second page on.
EMG
Enrico, here.
//------------------------------------------//
Function TituSoloEnPag1()
local oReport, oFont
DBUSEAREA(.T.,,"CUSTOMER","CUST",.T.)
DBGOTOP()
DEFINE FONT oFont NAME "ARIAL" SIZE 0,-10
REPORT oReport ;
TITLE "PROBANDO TITULO-HEADER SOLO EN PRIMERA PAGINA",;
"UTILIZAMOS 'CUSTOMER.DBF'",;
"LISTADO DE NUESTROS CLIENTES" ;
FONT oFont;
HEADER Dtoc(Date()), "Pag: " + str(oReport:nPage,3) RIGHT ;
PREVIEW
COLUMN TITLE "FIRST" DATA Field->FIRST SIZE 20
COLUMN TITLE "LAST" DATA Field->LAST SIZE 20
COLUMN TITLE "STREET" DATA Field->STREET SIZE 30
COLUMN TITLE "CITY" DATA Field->CITY SIZE 20
COLUMN TITLE "STATE" DATA Field->STATE SIZE 10
ENDREPORT
ACTIVATE REPORT oReport ;
ON ENDPAGE ( oReport:oTitle := TrLine():New({}), oReport:nTitleRow := oReport:oHeader:nHeight + oReport:nTopMargin )
CUST->(DBCLOSEAREA())
RELEASE oFont
Return nilRegards.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Great! Many thanks, Francisco! 
EMG
Nice to collaborate.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Thank you. Unfortunately, the page number is overwritten by the double line from the second page on. I tried to reduce the height of the list without results.
This is a bug. Happens when oRep:lJoin or oRep:lSeparator is true.
We will fix it soon and inform you.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Thank you, Master Rao!
EMG