Linha Microsiga Protheus

Árvore de páginas

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 à  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
    Exemplo do Ponto de Entrada MNTA330V() 
    #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 à  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
    Exemplo do Ponto de Entrada MNTA330V() 
    #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