Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Marjorie Yuri Taki

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Daniela Rodrigues Monstans Ferreira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
paramixb  3  4  Preview

Descrição

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

Observações

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

Veja também

Idioma

Português(Brasil)

Versões

Microsiga _Protheus10_Protheus 10 e _ Microsiga _Protheus11Protheus 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

TodasUpdates

Parâmetros

nOpc

Retorno

lRet

Eventos de chamada do Ponto de Entrada

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

 

If !lCTB030AUT // SE NAO FOR ROTINA AUTOMATICA
nOpca := AxAltera(cAlias,nReg,nOpc,,,,,"Ct030TudOk(4)")
Else
nOpca := AxAltera(cAlias,nReg,nOpc,/aAcho/,/cFunc/ ,/aCpos/,,"Ct030TudOk(4)",/lF3/, , ,/aParam/,aAutoCab ,/lVirtual/,/lMaximized/)
EndIf

Variáveis

lRet, nOpc

Programa Fonte

CTBA030