Histórico da Página
Pontos de entrada MNTA055 - Localizações
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | Manutenção de Ativos | ||||
Rotina: |
| ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Tabelas Utilizadas: | TPS - Localização | ||||
Sistema(s) Operacional(is): | Windows e Linux |
Ponto de Entrada
Descrição: | Permite alimentar outras tabelas com os dados inseridos, executados ao confirmar a inclusão, visualização, alteração ou exclusão dos registros. |
Localização: | Atualizações > Controle de Oficina > Bens > Localizações. |
Eventos: | Localizações (MNTA055) |
Programa Fonte: | MNTA055.prx |
Função: | U_MNTA055 |
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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. |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas