Product: |
TOTVS Backoffice
|
Product Line: | Protheus Line |
Segment: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGACTB)
|
Function: | CTBXREL |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46748 |
The entry point CTCABR4 was developed to allow for the customization of the standard header used in R4 version reports. With it, it is possible to adjust or complement the information displayed in the report header, ensuring that they meet specific data presentation needs and comply with the organization's internal or external requirements.
aCabec := ExecBlock("CTCABR4",.F.,.F.)
User Function CTCABR4()
Local dDataIni
Local dDataFim
Local cChar := chr(160) // Dummy character for header alignment
Local cDataExt := ""
If NomeProg = "CTBR400" // Example -> If it is the General Journal
dDataIni := mv_par01
dDataFim := mv_par02
cDataExt := Transform(Day(dDataIni),'99') + " de " + MesExtenso(dDataIni) + " of " + Transform(Year(dDataIni),'9999');
+ " a " + Transform(Day(dDataFim),'99') + " of " + MesExtenso(dDataFim) + " of " + Transform(Year(dDataFim),'9999')
aCabec := { cChar + " " + "TEST COMPANY S/A" + " " + cChar; , cChar + " " + "000.000.000-0" + " " + cChar;
, cChar + " " + "GENERAL JOURNAL" + " " + cChar; , cChar + " " + cDataExt + " " + cChar;
, cChar + " " + RptFolha + TRANSFORM(oReport:Page(),'999999') }
Endif
Return aCabec
Important!