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.
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 )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima