Producto: |
TOTVS Backoffice
|
---|---|
Línea de producto: | Línea Protheus |
Segmento: | Servicios |
Módulo: | TOTVS Backoffice (Línea Protheus) - Contabilidad de gestión (SIGACTB)
|
Función: | CTBXREL |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46829 |
El punto de entrada CTCABR3 permite la personalización del encabezado estándar de los informes en la versión R3. Con este punto de entrada, es posible definir y adaptar informaciones específicas que deben aparecer en el encabezado, personalizando la presentación de acuerdo con los requisitos del informe o las preferencias del usuario.
aCabec := ExecBlock("CTCABR3",.F.,.F.)
User Function CTCABR3() Local dDataIni Local dDataFim Local cChar := chr(160) // carácter dummy para alineamiento del encabezado Local cDataExt := "" If NomeProg = "CTBR110" // Ejemplo -> Si fuera el Diario contable dDataIni := mv_par01 dDataFim := mv_par02 cDataExt := Transform(Day(dDataIni),'99') + " de " + MesExtenso(dDataIni) + " de " + Transform(Year(dDataIni),'9999'); + " a " + Transform(Day(dDataFim),'99') + " de " + MesExtenso(dDataFim) + " de " + Transform(Year(dDataFim),'9999') aCabec := { cChar + " " + "EMPRESA PRUEBA S/A" + " " + cChar; , cChar + " " + "000.000.000-0" + " " + cChar; , cChar + " " + "LIBRO DIARIO" + " " + cChar; , cChar + " " + cDataExt + " " + cChar; , cChar + " " + RptFolha + TRANSFORM(m_pag,'999999')} EndIf Return aCabec
¡Importante!