Description

CTB030VLD - Validates confirmation of addition and change

Examples

#include 'totvs.ch'

User Function CTB030VLD()

Local lRet := .T.

Local nOpc := paramixb

If nOpc == 3

lRet := MsgYesNo("Do you want to Add?")

ElseIf nOpc == 4

lRet := MsgYesNo("Do you want to Change?")

EndIf

Return lRet

Language

Portuguese(Brazil)

Versions

Microsiga Protheus 10 and Microsiga Protheus 11

Operating Systems Supported

All

Compatible with the following Databases

All

Parameters

nOpc

Return

lRet

Call events of the Entry Point

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

Variables

lRet, nOpc

Source Program

CTBA030