Linha Microsiga Protheus

Page tree

Pontos de entrada da rotina MNTA100 - Áreas 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

MNTA100

Áreas de Manutenção

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

STD - Areá de Manutenção

Sistema(s) Operacional(is):

Windows e Linux

Ponto de Entrada

Descrição:

O ponto de entrada MNTA100 é chamado após a gravação da área de manutenção, para trabalhar com campos específicos do usuário.

Localização:

SIGAMNT: Em Atualizações > Controle de Oficina > Manutenção > Áreas Manutenção. 

Eventos:

Áreas Manutenção (MNTA100)

Programa Fonte:

MNTA100.prx

Função:

MNTA100()

 

Exemplo Ponto de Entrada
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"

User Function MNTA100() //Função responsável pela chamda dos pontos de entrada da rotina MNTA100 - Áreas de Manutenção.

Local aParam   := PARAMIXB // Parâmetros passados pelo ponto de entrada.
Local xRet     := .T.// Retorno da função.
Local oObj     := '' // Objeto que receberá o modelo.
Local cIdPonto := '' // Identificador da chamada do ponto de entrada.
Local cIdModel := '' // Identificador do modelo utilizado.
Local cModel   := '' // Identifica o modelo utilizado e receberá o seu identificador.
Local cCodArea := ''

If aParam <> NIL // Identifica que foram enviado os parâmetros.
    oObj     := aParam[1] // Modelo ativado.
    cIdPonto := aParam[2] // Determina o ponto de chamada.
    cIdModel := aParam[3] // Identificador do modelo.

    If cIdPonto == 'MODELCOMMITTTS' // Após a gravação total do modelo e dentro da transação.

        cCodArea := oObj:GetValue( "MNTA100_STD" , "TD_CODAREA" ) //Código da área.
        cNome    := oObj:GetValue( "MNTA100_STD" , "TD_NOME" ) //Nome da área.

        xRet := .T. //Retorno da função. 
    
    EndIf
EndIf

Return xRet //Retorno do ponto de entrada.