Ponto-de-Entrada: CTCABR3 - Customização de cabeçalho
Abrangências: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Descrição:
O ponto de entrada CTCABR3 permite a customização do cabeçalho padrão para os relatórios da versão R3.
Programa Fonte
CTBXFUN.PRX
Sintaxe
CTCABR3 - Customização de cabeçalho ( [ ] ) --> aCabec
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
Array of Record |
Retorno
-
aCabec()
- Array do cabecalho customizado.
Exemplos
User Function CTCABR3()Local dDataIni Local dDataFim Local cChar := chr(160) // caracter dummy para alinhamento do cabeçalho Local cDataExt := ""If NomeProg = "CTBR110" // Exemplo -> Se for o Diario Contabil 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 TESTE S/A" + " " + cChar; , cChar + " " + "000.000.000-0" + " " + cChar; , cChar + " " + "LIVRO DIARIO" + " " + cChar; , cChar + " " + cDataExt + " " + cChar; , cChar + " " + RptFolha + TRANSFORM(m_pag,'999999')} Endif Return aCabec
Variáveis
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas