Linha Microsiga Protheus

Árvore de páginas

Aviso

A partir da release 12.1.17 este ponto de entrada não será mais utilizado, favor utilizar o novo padrão Clique aqui.

PONTO DE ENTRADA PARA VALIDAÇÕES COMPLEMENTARES NO CADASTRO DE BENS (MNTA080)

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

MNTA080

Cadastro de Bens

Rotina(s) envolvida(s)

Nome Técnico

MNTA080K

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

Localização:

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

Programa Fonte:

MNTA080.prx

Função:

ValidInfo()

Variáveis:

NomeTipoPode AlterarDescrição
oST9ObjetoNão

Recebe propriedades da classe de bens.

Retorno:
NomeTipoDescriçãoObrigatório
lRetLógicoIndica se a validação foi feitaSim
Exemplo 1
#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 := .T.

    If Empty(oST9:GetValue('T9_BARCODE'))
        Help(' ',1,"PE MNTA080K" ,,"Campo" +Space(1)+ "T9_BARCODE"+ Space(1) + "não foi preenchido e é obrigatório.",2;
            ,0,,,,,, {"Preencha o campo T9_BARCODE"})
        lRet := .F.
    EndIf

Return lRet