Á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 MNTA0831 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 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:

Rotina

Nome Técnico

MNTA083

Cadastro de Pneus

Rotina(s) envolvida(s)

Nome Técnico

MNTA0831

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

Localização:

SIGAMNT: Atualizações \ /Controle de Oficina \ Bens \ VeiculosPneus/Pneus/Pneus.

Programa Fonte:

MNTA083.prw

Função:

ValidInfo()

VariáveisParâmetros:

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
languagejavasql
firstline1
titleExemplo 1
linenumberstruecollapsetrue
#Include "Protheus.ch"

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


/*/
//---------------------------------------------------------------------
User Function MNTA0831()


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


    If Empty(oST9:GetValue('T9_CODBEMBARCODE')) <> 'ABC'
        MsgInfo("Ponto de entrada 'MNTA080K' executado com sucesso! Codigo do bem: " + oST9:GetValue('T9_CODBEM')
        Help(' ',1,"PE MNTA0831" ,,"Campo" +Space(1)+ "T9_BARCODE"+ Space(1) + "não foi preenchido e é obrigatório.",2;
            ,0,,,,,, {"Preencha o campo T9_BARCODE"})
        lRet := .TF.
    EndIf

Return lRet