#Include "Protheus.ch"
#Include "Fwmvcdef.CH"

//---------------------------------------------------------------------
/*/{Protheus.doc} MNTA083
Ponto de entrada após a gravação da tabela do formulário.

/*/
//---------------------------------------------------------------------
User Function MNTA083() //Função responsável pela chamada dos pontos de entrada da rotina MNTA083 - Pneus.

Local aParam   := PARAMIXB //Parâmetros passados pelo ponto de entrada.
Local xRet         := .T.// Retorno da função.
Local oObj         := '' // Objeto que receberá o modelo.
Local cIdPonto  := '' // Identificador da chamada do ponto de entrada.
Local cIdModel  := '' // Identificador do modelo utilizado.
Local cModel     := '' // Identifica o modelo utilizado e receberá o seu identificador.

If aParam <> NIL // Identifica que foram enviado os parâmetros.
    oObj     := aParam[1] // Modelo ativado.
    cIdPonto := aParam[2] // Determina o ponto de chamada.
    cIdModel := aParam[3] // Identificador do modelo.

    If cIdPonto == 'MODELCOMMITTTS' // Após a gravação total do modelo e dentro da transação.
        If !Empty(oObj:GetValue('T9_CODBEM'))
            MsgInfo("Ponto de entrada 'MNTA080' executado com sucesso! Codigo do bem: " + oObj:GetValue('T9_CODBEM'))
            xRet := .T.
        EndIf
    EndIf
EndIf

Return xRet //Retorno do ponto de entrada.