Histórico da Página
PONTO DE ENTRADA PARA VALIDAÇÕES PÓS GRAVAÇÃO DE DADOS CADASTRO DE VEÍCULOS (MNTA084)
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 MNTA084.prw, após a gravação da tabela do formulário. | ||||||||
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Bens/Veículos. | ||||||||
Programa Fonte: | MNTA084.prw | ||||||||
Função: | ValidInfo() | ||||||||
Variáveis: |
| ||||||||
Retorno: |
|
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#Include "Protheus.ch" #Include "Fwmvcdef.CH" //--------------------------------------------------------------------- /*/{Protheus.doc} MNTA0842MNTA084 Ponto de entrada após a gravação da tabela do formulário. /*/ //--------------------------------------------------------------------- User Function MNTA0842MNTA084() //Função responsável pela chamda dos pontos de entrada da rotina MNTA084 - Veículos. Local aParam := PARAMIXB // Parâmetros passados pelo ponto de entrada. Local xRet := .T.// Retorno da função. Local oObj := '' //Variavel Objeto que recebe propriedades da classe receberá o modelo. Local cIdPonto := '' // Identificador da chamada do ponto de bensentrada. Local cIdModel := '' // Identificador do modelo utilizado. Local oST9 cModel := '' // Identifica o modelo utilizado e receberá o seu identificador. If aParam <> NIL // Identifica que foram enviado os parâmetros. oObj := PARAMIXBaParam[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. If !Empty(oObj:GetValue('T9_CODBEM')) MsgInfo("Ponto de entrada 'MNTA0842MNTA084' executado com sucesso! Codigo do bem: " + oST9oObj: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