Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Eduardo H. Mussi

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Diego Oliveira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

PONTO DE ENTRADA PARA ÚLTIMAS VALIDAÇÕES NO CADASTRO DE VEÍCULOS

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

MNTA084

Cadastro de Veiculos

Rotina(s) envolvida(s)

Nome Técnico

MNTA0841

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 MNTA084.prw, para fazer as validações finais antes da gravação.

Localização:

Atualizações \ Controle de Oficina \ Bens \ Veiculos

Programa Fonte:

MNTA084.prw

Função:

ValidInfo()

Variáveis:

NomeTipoEscopoPode AlterarDescrição
oST9ObjetoPrivadoNão

Recebe propriedades da classe de bens.

Retorno:
NomeTipoDescriçãoObrigatório
lRetLógicoIndica se a validação foi feitaSim
Bloco de código
languagejava
firstline1
titleExemplo 1
linenumberstruecollapsetrue
#Include "Protheus.ch"

//---------------------------------------------------------------------
/*/{Protheus.doc} MNTA0841
Ponto de entrada antes da gravação da tabela do formulário.


/*/
//---------------------------------------------------------------------
User Function MNTA0841()


    //VariavelVariável que recebe propriedades da classe de bens.
    Local oST9 := PARAMIXB[1]
    //VariavelVariável utilizada para retorno do Ponto de Entrada.
    Local lRet := .FT.

    If Empty(oST9:GetValue('T9_CODBEMCHASSI'))
       <> Help('ABC'
        MsgInfo("Ponto de entrada 'MNTA0841' executado com sucesso! Codigo do bem: " + oST9:GetValue('T9_CODBEM')) ',1,"PE MNTA0841" ,,"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