AF010EXC - Exclui Ativos

Descrição

O ponto de entrada AF010EXC é executado após selecionar a opção excluir e antes da abertura da tela de exclusão. Caso retornar Verdadeiro, permite a exclusão normalmente, se retornar Falso, a exclusão não é realizada.

Exemplos

#INCLUDE "Protheus.ch"

User Function AF010EXC()

Local lOk := .T.

If lOk
Alert ("Excluindo")
Else
lOk :=.F.
Alert ("Não será possível excluir!")
Endif

Return lOk

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10 e Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

Lógico. T ou F

Eventos de chamada do Ponto de Entrada

If ExistBlock("AF010EXC")
lOk:= ExecBlock("AF010EXC",.F.,.F.)
EndIf

Programa Fonte

ATFA010A.PRW