Linha Microsiga Protheus

Árvore de páginas

PONTO DE ENTRADA PARA VALIDAÇÃO DE EXISTÊNCIA DE SOLICITAÇÕES/ ORDENS DE SERVIÇO

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

MNTI005

Portal de SS - Programa Inicial

Rotina(s) envolvida(s)

Nome Técnico

MNTI5002

Ponto de Entrada

MNTI5003Ponto de Entrada
MNTW0251Ponto de Entrada

Chamados Relacionados

INOVBANCO-13390     

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada chamado no programa MNTI005.PRW, na função que faz a consistência do campo Bem/Localização. Esta função é acessada diretamente pelo Portal de Inclusão, no momento em que o campo Bem/Localização é preenchido e perde seu foco.

Localização:

Portal de Solicitação: Fazer Login / Incluir uma Solicitação.


Eventos:

MNTI005.prw

Programa Fonte:

MNTI005.prw

MNTI5001.prw

Função:

MNTI5001()

Variáveis:

NomeTipoEscopoPode AlterarDescrição
cPECodBemCaracterPrivadoNãoCódigo do Bem sendo incluso
cPETipoOSCaracterPrivadoNãoTipo da SS/OS que sera realizado a busca
lPERet
LógicoPrivadoSimIndica validação
cPEMsgCaracterPrivadoSimMensagem Mostrada na Tela
cPETpMsg
CaracterPrivadoSimTipo da Mensagem
Retorno:
NomeTipoDescriçãoObrigatório
lPERetLógicoIndica se a validação foi feitaSim
Exemplo 1 
#include "rwmake.ch"
//-------------------------------------------------------------------
/*/{Protheus.doc} MNTI5001
Realizando uma validação especifica e seu retorno boolean indica
se a SS deva ser incluída ou não.
@author  NG Informática
@since   24/06/2012
/*/
//-------------------------------------------------------------------
User Function MNTI5001()
	//Exemplo que busca se existe Ordens de Serviço para o Bem
    
    dbSelectArea("STJ")
    dbSetOrder(2)
    If dbSeek(xFilial("STJ")+cPETipoOS+cPECodBem)
        lPERet := .F.
        cPEMsg := "Existe OS em aberto para este Bem!"
        cPETpMsg := "C"
    EndIf
        
Return
Exemplo 2 
#include "rwmake.ch"
//-------------------------------------------------------------------
 /*/{Protheus.doc} MNTI5001 
Realizando uma validação especifica e seu retorno boolean indica se a SS deva ser incluída ou não. 
@author NG Informática 
@since 10/11/2017 
@version P12 
/*/ 
//-------------------------------------------------------------------
 User Function MNTI5001()
	//Exemplo para busca se existem Solicitações de Serviços em Aberto ou Distribuídas para o bem. 
	
	Local cAliasQuery := GetNextAlias() 
	
	BeginSQL Alias cAliasQuery 
	SELECT COUNT(TQB.TQB_SOLICI) CNTSOL FROM %table:TQB% TQB 
			WHERE TQB.TQB_FILIAL = %xFilial:TQB% 
				AND TQB.TQB_TIPOSS = %Exp:cPETipoOS% 
				AND TQB.TQB_CODBEM = %Exp:cPECodBem% 
				AND (TQB.TQB_SOLUCA = 'A' 
				OR TQB.TQB_SOLUCA = 'D') 
				AND TQB.%NotDel% 
	EndSQL 


	If (cAliasQuery)->CNTSOL > 0 
		lPERet := .F. 
		cPEMsg := "Existe Solicitações em aberto ou distribuídas para este Bem!" 
		cPETpMsg := "C" 
	EndIf 
Return