Histórico da Página
PONTO DE ENTRADA PARA ÚLTIMAS VALIDAÇÕES
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 MNTA080.prx, para fazer as validações finais antes da gravação. | ||||||||||
Localização: | Atualizações \ Controle de Oficina \ Bens \ Bens | ||||||||||
Programa Fonte: | MNTA080.prx | ||||||||||
Função: | ValidInfo() | ||||||||||
Variáveis: |
| ||||||||||
Retorno: |
|
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#Include "Protheus.ch" //--------------------------------------------------------------------- /*/{Protheus.doc} MNTA080K Ponto de entrada antes da gravação da tabela do formulário. /*/ //--------------------------------------------------------------------- User Function MNTA080K() //Variavel que recebe propriedades da classe de bens. Local oST9 := PARAMIXB[1] //Variavel utilizada para retorno do Ponto de Entrada. Local lRet := .F. If Empty(oST9:GetValue('T9_CODBEMCHASSI') <> 'ABC' MsgInfo("Ponto de entrada 'MNTA080K' executado com sucesso! Codigo do bem: " + oST9:GetValue('T9_CODBEM'))) Help(' ',1,"PE MNTA080K" ,,"Campo" +Space(1)+ "T9_CHASSI"+ Space(1) + "não foi preenchido e é obrigatório.",2; ,0,,,,,, {"Preencha o campo T9_CHASSI"}) lRet := .TF. EndIf Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas