PONTO DE ENTRADA CADASTRO DE PNEUS (MNTA083)

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
MNTA083	Cadastro de Pneus

Rotina(s) envolvida(s)	Nome Técnico
MNTA083	Ponto de Entrada

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 MNTA083.prw, após a gravação da tabela do formulário.

Localização:

SIGAMNT: Atualizações/Controle de Pneus/Pneus/Pneus.

Programa Fonte:

MNTA083.prw

Função:

MNTA083()

Variáveis:

Nome	Tipo	Pode Alterar	Descrição
oObj	Objeto	Não	Recebe o objeto modelo, que contêm todos os valores informados.
cIdPonto	Caracter	Não	Identificador do ponto de chamada.
cIdModel	Caracter	Não	Identificado do modelo.

Retorno:

Nome	Tipo	Descrição	Obrigatório
xRet	Lógico	Retorna o conteúdo da verificação.	Sim

Exemplo 1

#Include "Protheus.ch"
#Include "Fwmvcdef.CH"

//---------------------------------------------------------------------
/*/{Protheus.doc} MNTA083
Ponto de entrada MNTA083
/*/
//---------------------------------------------------------------------
User Function MNTA083() //Função responsável pela chamada dos pontos de entrada da rotina MNTA083 - Pneus.

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.

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 == 'MODELPOS' //Novo modelo de chamada do ponto de entrada MNTA0831.

        oST9 := MntPneu():New // Inicializa classe
        oST9:ModelToClass( oObj ) // Carrega a classe com modelo de dados
        xRet := oST9:Valid() // Executa validação final
        oST9:ShowHelp() // Se houver, apresenta erro

    ElseIf cIdPonto == 'MODELCOMMITTTS' // Novo modelo do ponto de entrada MNTA0832.

        If !Empty(oObj:GetValue('T9_CODBEM'))
            MsgInfo("Ponto de entrada 'MNTA080' executado com sucesso! Codigo do bem: " + oObj:GetValue('T9_CODBEM'))
            xRet := .T.
        EndIf

    EndIf
EndIf

Return xRet //Retorno do ponto de entrada.

Page tree

DT PE MNTA083 Ponto de entrada

PONTO DE ENTRADA CADASTRO DE PNEUS (MNTA083)

Características do Requisito

Ponto de Entrada