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-46829 |
The entry point CTCABR3 allows for the customization of the standard report header in the R3 version.
With this entry point, it is possible to define and adapt specific information that should appear in the header, customizing the display according to the report requirements or user preferences.
aCabec := ExecBlock("CTCABR3",.F.,.F.)
User Function CTCABR3()
Local dDataIni
Local dDataFim
Local cChar := chr(160) // Dummy character for header alignment
Local cDataExt := ""
If NomeProg = "CTBR110" // Example -> If it is the General Journal
dDataIni := mv_par01
dDataFim := mv_par02
cDataExt := Transform(Day(dDataIni),'99') + " of " + MesExtenso(dDataIni) + " de " + Transform(Year(dDataIni),'9999');
+ " a " + Transform(Day(dDataFim),'99') + " de " + MesExtenso(dDataFim) + " de " + 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(m_pag,'999999')}
EndIf
Return aCabec
Important!