01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:MNTA231V()
País:Brasil

02. DESCRIÇÃO

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:
NomeTipoDescrição
ParamIXB[1]CaracterCódigo anterior do produto, encontrado na base
ParamIXB[2]CaracterCódigo atual do produto, inserido pelo usuário
ParamIXB[3]CaracterCódigo anterior do almoxarifado, encontrado na base
ParamIXB[4]CaracterCódigo atual do almoxarifado, inserido pelo usuário
ParamIXB[5]CaracterCó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

03. DEMAIS INFORMAÇÕES

#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

02. DESCRIÇÃO

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:
NomeTipoDescrição
cProdAntCaracterCódigo anterior do produto, encontrado na base
cProdAtuCaracterCódigo atual do produto, inserido pelo usuário
cAlmoAntCaracterCódigo anterior do almoxarifado, encontrado na base
cAlmoAtuCaracterCódigo atual do almoxarifado, inserido pelo usuário
cStatusCaracterCó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

03. DEMAIS INFORMAÇÕES

#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

04. ASSUNTOS RELACIONADOS