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