Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CT105CT2 - Executa procedimento de usuário.

 

Abrangências:TOTVS Application Server 10
Versões:Todas
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos

 

Descrição:
Ponto de entrada para executar procedimento de usuário no final da gravação do lançamento contábil, executado antes do Ponto de Entrada CTBGRV.
Programa Fonte
CTBXFUN.PRX
Sintaxe

CT105CT2 - Executa procedimento de usuário ( < __nQuantas > , < dDatalanc> , < cLote> , < cSubLote> , < cDoc> , < lCusto> , < lItem> , < lCLVL> , < nTotInf> , < lAtSldBase> , < lReproc > )

Parâmetros:

 

 Nome  Tipo  Descrição  Default  Obrigatório  Referência 
 __nQuantas  Numérico  Quantidade de Moedas.     X    
 dDatalanc  Array of Record  Data do lançamento.     X    
 cLote  Array of Record  Lote contábil.     X    
 cSubLote  Array of Record  SubLote contábil.     X    
 cDoc  Array of Record  Documento contábil.     X    
 lCusto  Array of Record  Indica se trabalha com centro de custo.     X    
 lItem  Array of Record  Indica se trabalha com item contábil.     X    
 lCLVL  Array of Record  Indica se trabalha com classe de valor.     X    
 nTotInf  Array of Record  Total informado.     X    
 lAtSldBase  Array of Record  Indica se atualizar arquivos de saldos.     X    
 lReproc  Array of Record  Indica se é reprocessamento.     X    

 

Retorno
    ()
Exemplos
User Function CT105CT2()Local nXLocal cMoedan_Quantas := aParamIxb[1]dDatalanc := aParamIxb[2]cLote := aParamIxb[3]cSubLote := aParamIxb[4]cDoc := aParamIxb[5]lCusto := aParamIxb[6]lItem := aParamIxb[7]lCLVL := aParamIxb[8]nTotInf := aParamIxb[9]lAtSldBase := aParamIxb[10]lReproc  := aParamIxb[11]For nX := 1 to n_QuantasIf StrZero(nX, 2) == CT2->CT2_MOEDLCCT2->CT2_USUHOR := TIME() // grava hora no lancamentoEndifNextReturn
Variáveis

 

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