MNTA6561 - Carregar Variaveis

MNTA6561 – Carregar Variaveis

 

Olá, Seja Bem-vindo!!!

Um colega "Cássio Winkler" pediu ajuda no PE MNTA6561 para validar se está validando.

Vou mostrar abaixo como conseguimos validar o modo de operação nesse PE.

O mesmo não passa por parâmetro o modo de operação => nOPC / nOpcx.

Foi usado a variável private cCadastro para comparação.

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
User Function MNTA6561()
 
If "VISUAL" $ cCadastro
 
	MsgAlert('Visualizando','UniversoADVPL')
 
Else
 
	If INCLUI
 
		MsgAlert('Incluindo','UniversoADVPL')
 
	Endif
 
	If ALTERA
 
		MsgAlert('Alterando','UniversoADVPL')
 
	Endif
 
Endif
 
Return( Nil )

 

Deixe seu comentário abaixo, assine nossa lista de e-mail e inscreva-se no nosso canal.

Um abraço!!!

 

2 respostas

Deixe uma resposta

Want to join the discussion?
Feel free to contribute!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *