Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Cristiano Kair

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Cristiano Kair

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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


 


Deck of Cards
startHiddenfalse
effectDuration0.5
historyfalse
idsamples
effectTypefade
Card
id1
labelAntes do Release 12.1.33da [DATA_EXPEDIÇÃO]

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:
NomeTipo
cNumOSCaracter

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

Bloco de código
titleExemplo 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
Card
defaulttrue
id2
labelApós o Release 12.1.33a [DATA_EXPEDIÇÃO]

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:
NomeTipo
ParamIXB[1]Caracter

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

Bloco de código
titleExemplo 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