...
Product | Produto: |
| ||||||||||||
| Linha de Produto: |
| |||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Segmento: |
| |||||||||||||
Product Line: | Protheus Line | |||||||||||||
Segment: | Services | |||||||||||||
Module: | TOTVS Backoffice (Protheus Line) - Managerial Accounting | Módulo: |
ModulosCrossSegmentos | TOTVS Backoffice (Linha Protheus) - Contabilidade Gerencial (SIGACTB)
| ||||||||||
Function: | CTBXREL | |||||||||||||
Country: | BrasilBrazil | |||||||||||||
Ticket: | InternoInternal | |||||||||||||
Requisite/ | StoryStory/Issue | DSERCTR1-46748 |
...
O ponto de entrada CTCABR4 foi desenvolvido para permitir a customização do cabeçalho padrão utilizado nos relatórios da versão R4. Com ele, é possível ajustar ou complementar as informações exibidas no cabeçalho dos relatórios, garantindo que atendam às necessidades específicas de apresentação de dados e conformidade com requisitos internos ou externos da organização.
...
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.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
aCabec := ExecBlock("CTCABR4",.F.,.F.) |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
User Function CTCABR4() Local dDataIni Local dDataFim Local cChar := chr(160) // caracterDummy dummycharacter parafor alinhamentoheader doalignment cabeçalho Local cDataExt := "" If NomeProg = "CTBR400" // ExemploExample -> SeIf it foris othe DiarioGeneral ContabilJournal dDataIni := mv_par01 dDataFim := mv_par02 cDataExt := Transform(Day(dDataIni),'99') + " de " + MesExtenso(dDataIni) + " deof " + Transform(Year(dDataIni),'9999'); + " a " + Transform(Day(dDataFim),'99') + " deof " + MesExtenso(dDataFim) + " deof " + Transform(Year(dDataFim),'9999') aCabec := { cChar + " " + "EMPRESATEST TESTECOMPANY S/A" + " " + cChar; , cChar + " " + "000.000.000-0" + " " + cChar; , cChar + " " + "LIVROGENERAL DIARIOJOURNAL" + " " + cChar; , cChar + " " + cDataExt + " " + cChar; , cChar + " " + RptFolha + TRANSFORM(oReport:Page(),'999999') } Endif Return aCabec |
| Aviso | ||
|---|---|---|
| ||
|
|