Árvore de páginas

Valida a Exclusão da Conta Contábil

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGACTB

Rotina:

Rotina

Nome Técnico

CTBA020

 

Cadastro de Plano de Contas

ParâmetrosnOpc

Ponto de Entrada:

CT020EXC

País(es):

Brasil

Banco(s) de Dados:

Todas

Sistema(s) Operacional(is):

Todos

Descrição

O objetivo deste ponto de entrada é validar a exclusão da conta contábil. Caso seu retorno seja .T.(verdadeiro), a conta contábil será excluída; se o retorno for .F.(falso), a conta contábil não será excluída.

Ponto de Entrada

Descrição:

O ponto de entrada CT020EXC é utilizado para validar a exclusão da conta contábil.

Eventos:If lRet .And. lCT020Exc
lRet:= ExecBlock("CT020EXC",.F.,.F.,nOpc)
Endif

Programa Fonte:

CTBA020

Retorno:

Lógico


Exemplo: 

User Function CT020EXC()

Local lRet := .F.

If MsgYesNo ("Confirma Exclusão?")
lRet:= .T.
MsgAlert("Exclusão Confirmada")
Else
MsgAlert("Exclusão Cancelada")
Endif

Return lRet