Histórico da Página
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: |
| ||||||||||||
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: |
| ||||||||||||||||||||||||||||||
Retorno: |
|
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas