Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Contabilidade Gerencial

Rotina:

Rotina

Nome Técnico

CTBA105.PRW

Lançamentos Contábeis de Integração

Ponto de Entrada:CT105REV

Banco(s) de Dados:

Todos

Sistema(s) operacional(is):

Todos



Descrição:

O Ponto de Entrada CT105REV permite validar a reversão de um lançamento contábil. Ele retorna um valor lógico para que seja feita a customização da validação de reversão de um lançamento contábil.

Programa Fonte:

CTBA105.PRW

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

 

 

dDataLanc = Data dos lançamentos 
cLote = Lote dos lançamentos 
cSubLote = Sub Lote dos lançamentos 
cDoc = Número do documento dos lançamentos

 

Eventos de chamada do Ponto de Entrada

If lCt105Rev 
lRet := ExecBlock("CT105REV",.f.,.f.,{dDataLanc,cLote,cSubLote,cDoc }) 
EndIf


Variáveis

Local lCt105Rev := ExistBlock("CT105REV")

 

Retorno:

lRet == .T. - Permite o prosseguimento da reversão 
lRet == .F. - Não permite o prosseguimento da reversão

 

Exemplo:

User Function CT105REV() 

Local lRet:= .F. 

If MsgYesNo ("Deseja prosseguir com a reversão?","Reversão") 
lRet:= .T. 
Else 
lRet:= .F. 
Alert ("Reversão não permitida!") 
EndIf 

Return lRet