Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 13 minutos


01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

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:
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

03. DEMAIS INFORMAÇÕES

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

04. ASSUNTOS RELACIONADOS

  • Não se aplica.