Descrição

Ponto de entrada que permite validar a exclusão da conta contábil. Caso seu retorno seja .T.(verdadeiro), a conta contábil é excluída, se seu retorno for .F.(falso), a conta contábil não é excluída.

Exemplos

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

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10_e_Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

nOpc

Retorno

Lógico

Eventos de chamada do Ponto de Entrada

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

Programa Fonte

CTBA020.PRW