#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"

User Function MNTA100() //Função responsável pela chamda dos pontos de entrada da rotina MNTA100 - Áreas de Manutenção.

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.
Local cCodArea := ''

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.

        cCodArea := oObj:GetValue( "MNTA100_STD" , "TD_CODAREA" ) //Código da área.
        cNome    := oObj:GetValue( "MNTA100_STD" , "TD_NOME" ) //Nome da área.

        xRet := .T. //Retorno da função. 
    
    EndIf
EndIf

Return xRet //Retorno do ponto de entrada.