AF010EXC - Borra activos

Descripción

El punto de entrada AF010EXC se ejecuta después de seleccionar la opción borrar y antes de la apertura de la pantalla de borrado. Si devuelve Verdadero, permite el borrado normalmente, si devuelve Falso, el borrado no se realiza.

Ejemplos

#INCLUDE "Protheus.ch"

User Function AF010EXC()

Local lOk := .T.

If lOk
Alert ("Borrando")
Else
lOk :=.F.
Alert ("¡No es posible borrar!")
Endif

Return lOk

Idioma

Portugués(Brasil)

Versiones

Microsiga_Protheus10 y Microsiga_Protheus11

Sistemas operativos compatibles

Todos

Compatible con las bases de datos

Todas

Devolución

Lógica. T o F

Eventos de activación del Punto de entrada

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

Programa fuente

ATFA010A.PRW