| Producto: | |
|---|---|
| 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
|
|