Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 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:MNTA420X()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada utilizado na rotina de O.S. Corretiva (MNTA420) que permite validar e customizar dados da OP/OS e é chamado após a inserção da OP relacionada à OS. 

Localização:

SIGAMNT: Em Atualizações > Controle de Oficina > Ordens de Serviço > Corretiva.

Programa Fonte:

MNTA420.prw

Função:

MNTA420X()

Parâmetros:

NomeTipoDescrição
ParamIXB[1]CaracterNúmero da OS


Retorno:

NomeTipoDescriçãoObrigatório

lRet

Lógico

Verifica se a Ordem de Produção (OP) foi inserida

X

03. DEMAIS INFORMAÇÕES

Exemplo MNTA420X()
#Include "Protheus.ch"
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA420X
Permite customizar dados da OS.
@author  NG Informática
@since   24/02/2020
@version P12
/*/
//-------------------------------------------------------------------
User Function MNTA420X()
 
    Local cOrdem  := PARAMIXB[ 1 ]
    Local cFilSC2 := xFilial("SC2")
    Local aArea   := SC2->(GetArea())
    Local lRet    := .T.
 
    If M->TJ_SITUACA == 'L' .And. (Inclui .Or. Altera)
        dbSelectArea("SC2")
        dbSetOrder(1) //C2_FILIAL+C2_NUM+C2_ITEM+C2_SEQUEN
        If !dbSeek(cFilSC2+cOrdem+"OS"+"001")
            lRet := .F.
            MsgInfo("Ordem de Produção não encontrada.")
        EndIf
    EndIf
 
    RestArea(aArea)
 
Return lRet


04. ASSUNTOS RELACIONADOS

  • Não se aplica.