Histórico da Página

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