Descripción

CTB030VLD - Valida confirmación de inclusión y modificación

Ejemplos

#include 'totvs.ch'

User Function CTB030VLD()

Local lRet := .T.

Local nOpc := paramixb

If nOpc == 3

lRet := MsgYesNo("¿Desea incluir?")

ElseIf nOpc == 4

lRet := MsgYesNo("¿Desea modificar?")

EndIf

Return lRet

Idioma

Portugués(Brasil)

Versiones

Microsiga Protheus 10 y Microsiga Protheus 11

Sistemas operativos compatibles

Todos

Compatible con las bases de datos

Todas

Parámetros

nOpc

Devolución

lRet

Eventos de activación del Punto de entrada

If lCtb030Vld
If !ExecBlock("CTB030VLD", .F., .F.,nOpc)
Return
EndIf
EndIf

Variables

lRet, nOpc

Programa fuente

CTBA030

  • Sem rótulos