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

//------------------------------------------------------------------------------
/*/{Protheus.doc} MNTA055
User Function MNTA055, para chamada dos pontos de entrada padrões do MVC.

@author Guilherme Freudenburg
@since 27/03/2018
@version P12

@return xRet  - Valor de retorno do ponto de entrada.
/*/
//------------------------------------------------------------------------------
User Function MNTA055() // Função responsável pela chamda dos pontos de entrada da rotina MNTA055 - Localizações.

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 nOpera   := 0  // Receberá o valor da operação selecionada.
Local cCodLoc  := '' // Receberá o código da localização.
Local cNomeLoc := '' // Receberá o nome da localização.

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 == 'MODELCOMMITNTTS' // Após a gravação total do modelo e fora da transação.

        nOpera := oObj:GetOperation() // Receberá a operação selecionada.

        If nOpera == MODEL_OPERATION_INSERT .Or.; // Caso seja Inclusão.
           nOpera == MODEL_OPERATION_UPDATE .Or.; // Caso seja Alteração.
           nOpera == MODEL_OPERATION_DELETE // Caso seja Exclusão.

            // Recebe o valor dos campos de Código e Nome.
            cCodLoc := oObj:GetValue( "MNTA055_TPS" , "TPS_CODLOC" )
            cNomeLoc := oObj:GetValue( "MNTA055_TPS" , "TPS_NOME" )

        EndIf

        xRet := .T.
    
    EndIf

EndIf

Return xRet //Retorno do ponto de entrada.