Árvore de páginas

Bloqueia a Exclusão das Linhas de Lançamento Contábil On-line

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGACTB

Rotina:

Rotina

Nome Técnico

CTBA105

 

Lançamentos de Integração

ParâmetrosTMP->CT2_FLAG = Indica se a linha está deletada ou não.

Ponto de Entrada:

C105VLIN()

País(es):

Brasil

Banco(s) de Dados:

Todas

Sistema(s) Operacional(is):

Todos

Descrição

O Ponto de Entrada C105VLIN() bloqueia a exclusão das linhas de lançamentos contábeis on-line.

Ponto de Entrada

Descrição:

Este ponto de entrada é utilizado para bloquear a exclusão das linhas de lançamentos contábeis on-line.

Eventos:If lC105Vlin
Return ExecBlock("C105VLIN", .F., .F.,{TMP->CT2_FLAG})
Else
Return .T.
EndIf
Variáveis:Local lC105Vlin := ExistBlock( "C105VLIN" )

Programa Fonte:

CTBA105

Retorno:

Lógico

 

Exemplo:

User Function C105VLIN()
 
Local lTeste
 
If MsgYesNo("A linha não pode ser deletada deseja que ela seja restaurada ?","Teste")
TMP->CT2_FLAG := .F.
lTeste:=.T.
Else
lTeste:=.F.
Endif
Return lTeste