Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite validar e customizar dados após a inclusão da OP relacionada à OS (MNTA420)

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

MNTA420X

Ponto de Entrada

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

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: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

Programa Fonte:

MNTA420.prx

Função:

MNTA420X()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]CaracterNúmero da OS

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

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

X

 

Exemplo do Ponto de Entrada 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