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


 

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:
NomeTipoDescrição
ParamIXB[1]CaracterNú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

Nesse caso, os parâmetros são passados pelo argumento da User Function. Ao contrário do código Atual, que faz utilização do Array de parâmetros ParamIXB.

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:
NomeTipoDescrição
cNumOSCaracterNú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