Description

The entry point AF010EXC is run after selecting the Delete option and before the deletion screen opens. If it returns True, it allows deletion regularly. If it returns False, deletion is not performed.

Examples

#INCLUDE "Protheus.ch"

User Function AF010EXC()

Local lOk := .T.

If lOkAlert ("Deleting")

Else

lOk :=.F.

Alert ("Cannot delete!")

Endif

Return lOk

Language

Portuguese(Brazil)

Versions

Microsiga_Protheus10 and Microsiga_Protheus11

Operating Systems Supported

All

Compatible with the following Databases

All

Return

Logical. T or F

Call events of the Entry Point

If ExistBlock("AF010EXC")

lOk:= ExecBlock("AF010EXC",.F.,.F.)

EndIf

Source Program

ATFA010A.PRW