ÍNDICE
- Visão Geral
- Exemplo de utilização
- Tabelas utilizadas
01. VISÃO GERAL
O ponto de entrada CT010ATU é executado a partir da rotina de Cadastro de Calendário Contábil (CTBA010). Seu propósito é guardar e apresentar dados de campos criados por usuário, conhecidos como campos customizados.
Para saber detalhes a respeito de como codificar este Ponto de Entrada, veja o exemplo de utilização.
02. EXEMPLO DE UTILIZAÇÃO
User Function CT010Atu()
//o Array ParamIxb possui os elementos: {aHeader,aCols,nCont,nTipo}, onde
//aHeader - Tipo: Array. Cabeçalho da MsGetDados
//aCols - Tipo: Array. Dados da MSGetDados
//nCont - Tipo: Numérico. Nro da Linha atual do aCols
//nTipo - Tipo: Numérico. Qual é o tipo de manipulação efetuada no PE:
// 1 - Leitura de Dados - carga do aCols;
// 2 - Persistência do dado em seu relativo campo - criado por usuário.
Local aMyHeader := aClone(ParamIxb[1]) //aHeader
Local aMyCols := aClone(ParamIxb[2]) //aCols
Local nItem := ParamIxb[3] //Linha do aCols
Local nTipo := ParamIxb[4] //Tipo de manipulação de dado (1 - Carga do aCols; 2- Salvamento na tabela)
Local nPxTeste := aScan(aMyHeader,{|x| Alltrim(x[2]) == "CTG_XTESTE" })
If ( nPxTeste > 0 .And. nTipo == 2 )
Replace CTG_XTESTE With aMyCols[nItem,nPxTeste]
ElseIf (nPxTeste > 0)
aMyCols[nItem,nPxTeste] := IIf(Empty(CTG->CTG_XTESTE),space(Len(CTG->CTG_XTESTE)),CTG->CTG_XTESTE)
EndIf
//Essencial Clonar o array para o aCols (array de escopo privado)
aCols := aClone(aMyCols)
Return()
03. TABELAS UTILIZADAS
- CTG - Calendário Contábil