CTCABR3 - Personalización de encabezado -- 23525

Punto de entrada: CTCABR3 - Personalización de encabezado

Descripción:

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

Programa fuente

CTBXFUN.PRX

Sintaxis

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

Parámetros:

Devolución
            aCabec()

            Array del encabezado personalizado.

Ejemplos

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
Variables