Ponto de entrada que verifica o número da Ordem de Serviço gerada pelo Plano Manutenção (MNTA330)

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
MNTA330	Processamento do Plano de Manutenção

Rotina(s) envolvida(s)	Nome Técnico
MNTA330V	Ponto de Entrada

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 à 31/05/2021 do fonte MNTA330.PRX

Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Processamento de Plano de Manutenção (MNTA330) que verifica o número da Ordem de Serviço. É executado quando o Plano é salvo.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Plano

Programa Fonte:

MNTA330.prx

Função:

MNTA330V()

Parâmetros:

Nome	Tipo	Descrição
ParamIXB[1]	Caracter	Número da O.S. que será verificada

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Lógico	Se O.S. já existe retorna verdadeiro ( .T. ), se não existe e pode ser gerada retorna falso ( .F. )	X

#INCLUDE "PROTHEUS.CH"

User Function MNTA330V()

	// Retorna .T. - O.S. ja existe
	// Retorna .F. - O.S. nao existe e pode ser gerada
	Local lRet := .F.
	Local cNumOS := ParamIXB[1]
	
	// Verificao
	dbSelectArea("STJ")
	dbSetOrder(1)
	If dbSeek(xFilial("STJ")+cNumOS)
		lRet := .T.
	Else
		lRet := .F.
	EndIf
	
Return lRet

Os detalhes abaixo aplicam-se às versões anteriores à 31/05/2021 do fonte MNTA330.PRX

Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Processamento de Plano de Manutenção (MNTA330) que verifica o número da Ordem de Serviço

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Plano

Programa Fonte:

MNTA330.prx

Função:

MNTA330V()

Parâmetros:

Nome	Tipo	Descrição
cNumOS	Caracter	Número da O.S. que será verificada

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Lógico	Se O.S. já existe retorna verdadeiro ( .T. ), se não existe e pode ser gerada retorna falso ( .F. )	X

#INCLUDE "PROTHEUS.CH"

User Function MNTA330V(cNumOS)

	// Retorna .T. - O.S. ja existe
	// Retorna .F. - O.S. nao existe e pode ser gerada
	Local lRet := .F.
	
	// Verificao
	dbSelectArea("STJ")
	dbSetOrder(1)
	If dbSeek(xFilial("STJ")+cNumOS)
		lRet := .T.
	Else
		lRet := .F.
	EndIf
	
Return lRet