Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Aviso
titleNovo Modelo de Ponto de entrada.

Está disponível um novo modelo de desenvolvimento do ponto de entrada MNTA0841 o qual deve ser utilizado, por favor verifique a documentação a seguir: Clique aqui.

PONTO DE ENTRADA PARA

ÚLTIMAS VALIDAÇÕES

VALIDAÇÕES COMPLEMENTARES NO 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:

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:

SIGAMNT: Atualizações \ /Controle de Oficina \ Bens \ Veiculos/Bens/Veículos.

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
collapse
languagejavasql
firstline1
titleExemplo 1
linenumberstruetrue
#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') <> 'ABC'
        MsgInfo("Ponto de entrada 'MNTA0841' executado com sucesso! Codigo do bem: " + oST9:GetValue('T9_CODBEM')))
        Help(' ',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