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 |
Os detalhes abaixo aplicam-se às versões posteriores ou igual à do fonte MNTA231.PRX
Ponto de Entrada
Descrição: |
Ponto de entrada executado nas rotinas de Movimentação do Esquema de Pneus (MNTA231) e Novo Esquema de Rodados Gráfico (MNTA232), chamadas pela rotina de O.S. Corretiva (MNTA420), que permite adicionar validações do código de produto. |
||||||||||||||||||
Localização: |
SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva. Outras Ações: Rodados |
||||||||||||||||||
Programa Fonte: |
MNTA420.prx |
||||||||||||||||||
Função: |
MNTA231V() |
||||||||||||||||||
Parâmetros: |
|
||||||||||||||||||
Retorno: |
|
#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
Os detalhes abaixo aplicam-se às versões anteriores à do fonte MNTA231.PRX
Ponto de Entrada
Descrição: |
Ponto de entrada executado nas rotinas de Movimentação do Esquema de Pneus (MNTA231) e Novo Esquema de Rodados Gráfico (MNTA232), chamadas pela rotina de O.S. Corretiva (MNTA420), que permite adicionar validações do código de produto. |
||||||||||||||||||
Localização: |
SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva. Outras Ações: Rodados |
||||||||||||||||||
Programa Fonte: |
MNTA420.prx |
||||||||||||||||||
Função: |
MNTA231V() |
||||||||||||||||||
Parâmetros: |
|
||||||||||||||||||
Retorno: |
|
#INCLUDE 'PROTHEUS.CH' User Function MNTA231V( cProdAnt, cProdAtu, cAlmoAnt, cAlmoAtu, cStatus ) // Retorno da validação deve ser .T. ou .F. Local lRet := .F. // 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