Histórico da Página

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

País(es):

Banco(s) de Dados:

Todos

Tabelas utilizadas:

Sistema(s) operacional(is):

Todos

entrada que ao usuário O ponto de entrada retorna CT105REV onde o usuário realiza 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 lRetParâmetros

Descrição:

O Ponto de

Entrada CT105REV permite

validar a reversão de um lançamento contábil.

Observações

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.

Exemplos

Preview

Veja também

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Programa Fonte:

CTBA105.PRW

Parâmetros:

Nome	Tipo	Descrição	Obrigatório

dDataLanc = Data dos

lançamentos

lançamentos
cLote = Lote dos

lançamentos

lançamentos
cSubLote = Sub Lote dos

lançamentos

lançamentos
cDoc = Número do documento dos lançamentos

Retorno

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

Eventos de chamada do Ponto de Entrada

If lCt105Rev 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")

...

Programa Fonte

...

lRet:= .T.
Else
lRet:= .F.
Alert ("Reversão não permitida!")
EndIf

Return lRet

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave