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:

Rotina	Nome Técnico
MNTA420	O.S. Corretiva

Rotina(s) envolvida(s)	Nome Técnico
MNTA231	Movimentação do Esquema de Pneus
MNTA232	Novo Esquema de Rodados Gráfico

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

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:

Nome	Tipo	Descrição
ParamIXB[1]	Caracter	Código anterior do produto, encontrado na base
ParamIXB[2]	Caracter	Código atual do produto, inserido pelo usuário
ParamIXB[3]	Caracter	Código anterior do almoxarifado, encontrado na base
ParamIXB[4]	Caracter	Código atual do almoxarifado, inserido pelo usuário
ParamIXB[5]	Caracter	Código do status do produto, definido através da movimentação

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Lógico	Retorna verdadeiro ( .T. ) caso a validação seja confirmada	X

#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

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:

Nome	Tipo	Descrição
cProdAnt	Caracter	Código anterior do produto, encontrado na base
cProdAtu	Caracter	Código atual do produto, inserido pelo usuário
cAlmoAnt	Caracter	Código anterior do almoxarifado, encontrado na base
cAlmoAtu	Caracter	Código atual do almoxarifado, inserido pelo usuário
cStatus	Caracter	Código do status do produto, definido através da movimentação

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Lógico	Retorna verdadeiro ( .T. ) caso a validação seja confirmada	X

#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

#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