CTCABR4 - Personalización de encabezado -- 23526

Punto de entrada: CTCABR4 - Personalización de encabezado

Descripción:

El punto de entrada CTCABR4 permite la personalización de encabezado estándar para los informes de la versión R4.

Programa fuente

CTBXFUN.PRX

Sintaxis

CTCABR4 - Personalización de encabezado ( [ ] ) --> aCabec

Parámetros:

Devolución

aCabec

          ()

           array de retorno do cabecalho customizado

Ejemplos

User Function  CTCABR4()Local dDataIni   Local dDataFim          Local cChar         := chr(160)  // carácter dummy para alineamiento del encabezado   Local cDataExt       := ""If NomeProg = "CTBR400"  // 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(oReport:Page(),'999999') }                    Endif             Return aCabec

Variables