Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:

MNTI5001()

País:Brasil


02. DESCRIÇÃO

DescriçãoPonto 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.
Programa Fonte:MNTI005.prx
Localização:Portal de Solicitação: Fazer Login / Incluir uma Solicitação.

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

03. DEMAIS INFORMAÇÕES

Exemplo 1 MNTI5001()
#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 MNTI5001()
#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


04. ASSUNTOS RELACIONADOS

  • Não se aplica.