Árvore de páginas

Descrição

CTB030VLD - Valida confirmação de inserção e alteração

Exemplos

#include 'totvs.ch'

User Function CTB030VLD()

Local lRet := .T.

Local nOpc := paramixb

If nOpc == 3

lRet := MsgYesNo("Deseja Incluir?")

ElseIf nOpc == 4

lRet := MsgYesNo("Deseja Alterar?")

EndIf

Return lRet

Idioma

Português(Brasil)

Versões

Microsiga Protheus 10 e Microsiga Protheus 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

nOpc

Retorno

lRet

Eventos de chamada do Ponto de Entrada

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

Variáveis

lRet, nOpc

Programa Fonte

CTBA030
  • Sem rótulos