#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