Histórico da Página
Ponto de entrada que permite adicionar validações nas rotinas de Movimentação de Rodados (MNTA231/MNTA232)
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||
Segmento: | Manufatura | ||||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||||
Rotina: |
| ||||||||||
País(es): | Todos | ||||||||||
Banco(s) de Dados: | Todos | ||||||||||
Sistema(s) Operacional(is): | Todos |
Deck of Cards | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
Bloco de código | ||
---|---|---|
| ||
#INCLUDE 'TOTVS.CH'
User Function MNTA231V()
// Retorno da validação deve ser .T. ou .F.
Local lRet := .F.
Local cProdAnt := ParamIXB[1]
Local cProdAtu := ParamIXB[2]
Local cAlmoAnt := ParamIXB[3]
Local cAlmoAtu := ParamIXB[4]
Local cStatus := ParamIXB[5]
// Chamada da validação
If MsgYesNo("Produto Anterior: "+cProdAnt+Chr(13)+;
"Produto Atual: "+cProdAtu+Chr(13)+Chr(13)+;
"--------------------"+Chr(13)+Chr(13)+;
"Almoxarifado Anterior: "+cAlmoAnt+Chr(13)+;
"Almoxarifado Atual: "+cAlmoAtu+Chr(13)+Chr(13)+;
"--------------------"+Chr(13)+Chr(13)+;
"Status: "+cStatus,;
"MNTA231V")
lRet := .T.
Else
lRet := .F.
EndIf
Return lRet |