import.css=/download/attachments/327912/newLayout.css

Ponto-de-Entrada: CTCABR4 - Customização do cabeçalho

 

Abrangências:Microsiga Protheus 8.11 , Microsiga Protheus 10, Microsiga Protheus 11
Versões:Microsiga Protheus 8.11 , Microsiga Protheus 10, Microsiga Protheus 11
Compatível Países:Todos
Compatível às Bases de Dados:Todos

 

Descrição:
O ponto de entrada CTCABR4 permite a customização do cabeçalho padrão para os relatórios da versão R4.
Programa Fonte
CTBXFUN.PRX
Sintaxe

CTCABR4 - Customização do cabeçalho ( [ ] ) --> aCabec

Parâmetros:

 

 Nome  Tipo  Descrição  Default  Obrigatório  Referência 
    Array of Record             

 

Retorno
aCabec
    ()
  • array de retorno do cabecalho customizado
Exemplos
User Function  CTCABR4()Local dDataIni	  Local dDataFim	   Local cChar		:= chr(160)  // caracter dummy para alinhamento do cabeçalho   Local cDataExt	:= ""If NomeProg = "CTBR400"  // 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(oReport:Page(),'999999') }        	      Endif             Return aCabec
Variáveis

 

 Nome  Tipo  Escopo  Pode Alterar  descrição 
    Array of Record  Global  Não