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