Linha Microsiga Protheus

Árvore de páginas

  • Este ponto de entrada está disponível somente a partir da versão 12.1.17!

Ponto de entrada para realizar filtros e validações na geração do plano de manutençã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

MNTA330

Plano de Manutenção

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada chamado ao gerar OS's para realizar filtros e validações na geração do plano de manutenção. Pode ainda criar campos de usuário para representação do DE/ATE.

Localização:

SIGAMNT: Atualizações / Controle de Oficina / Plano de manutenção / Plano

Eventos:

Plano de manutenção (MNTA330)

Programa:

MNTA330.prx

Função:

A330GRAVA()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]CarácterAlias das tabela temporária contendo os registros para a geração do plano.
ParamIXB[2]Array
NomeTipoDescrição
Array[1]CarácterContém o nome do campo da tabela
Array[2]CarácterContém o tipo do campo da tabela. Pode ser: "C" (Caractere), "N" (Numérico), "L" (Lógico), "D" (Data) ou "M" (Memo).
Array[3]NuméricoContém o tamanho do campo.
Array[4]NuméricoContém a quantidade de casas decimais que o campo pode armazenar, desde que o campo seja do tipo "N". Para os demais tipos, esta informação retorna sempre com 0 (zero).
Retorno:

.T. (Verdadeiro) → Desconsidera a manutenção para a geração das ordens de serviço do plano.

.F. (Falso) → Considera a manutenção gerando uma ordem para o plano.

 

Exemplo ponto de entrada MNTA3308
#include "Protheus.ch"
User Function MNTA3308()
  
    Local lReturn := .F.
    Local cTable  := ParamIXB[1]
    Local aFields := ParamIXB[2]
      
    //Filtro com base nos campos já existentes.
    If (cTable)->TF_SEQRELA == '1  '
        lReturn := .T.
    EndIf
    
    /*-----------------------------------------------------+
    | Filtro com base em campos de usuario na tabela STI.  |
    | M->TI_NOTCALE campo criado manualmente no dicionario.|
    +-----------------------------------------------------*/
    If (cTable)->TF_CALENDA == M->TI_NOTCALE
        lReturn := .T.
    EndIf
  
Return lReturn