Linha Microsiga Protheus

Árvore de páginas

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

    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:
    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
    Exemplo do Ponto de Entrada MNTA231V() 
    #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:
    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
    Exemplo do Ponto de Entrada MNTA231V() 
    #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