Histórico da Página
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: |
| ||||||||
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: |
| ||||||||||||||||
Retorno: |
|
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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 chamda 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. |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas