Ponto de entrada rotina de Ocorrências da Manutenção
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||
Rotina: |
| ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Tabelas Utilizadas: | ST8 - Ocorrências TUS - Família Ocorrência TQ5 - Relac Prob x Causa x Solução | ||||
Sistema(s) Operacional(is): | Windows e Linux |
Descrição
Realizado conversão da rotina para o modelo de desenvolvimento MVC, por este motivo a chamada e utilização de pontos de entrada devem ser alterados para o novo modelo.
Procedimento para Utilização
- Entrar no modulo de Manutenção de Ativos e Gestão de Frotas(SIGAMNT).
- Em Atualizações > Controle de Oficina > Manutenção > Ocorrências. Confirmar a tela e verificar que será chamada ponto de entrada.
Ponto de Entrada
Descrição: | Ponto de entrada chamada na confirmação da tela, possibilitando a verificação e alteração de dados. | ||||||||
Localização: | Atualizações > Controle de Oficina > Manutenção > Ocorrências. | ||||||||
Eventos: | Ocorrências (MNTA125) | ||||||||
Programa Fonte: | MNTA125.prx | ||||||||
Função: | MNTA125() | ||||||||
Retorno: |
|
#INCLUDE "PROTHEUS.CH" #INCLUDE "FWMVCDEF.CH" User Function MNTA125() Local aParam := PARAMIXB Local xRet := .T. Local oObj := '' Local cIdPonto := '' Local cIdModel := '' Local nOperacao := 0 If aParam <> NIL oObj := aParam[1] //Modelo de dados. cIdPonto := aParam[2] //Identificador do ponto de chamada. cIdModel := aParam[3] //Idificador do Modelo de dados. If cIdPonto == 'MODELPOS' //Chamada após a Confirmação da rotina. nOperacao := oObj:GetOperation() //Busca a opção selecionada (3=Inclusão, 4= Alteração ou 5=Exclusão) If nOperacao == 3 //OPÇÃO DE INCLUSÃO. If !Empty(oObj:GetValue('MNTA125_ST8','T8_CODOCOR')) //Verifica se o campo foi preenchido. xRet := .T. EndIf ElseIf == 4 //OPÇÃO DE ALTERARÇÃO. If !Empty(oObj:GetValue('MNTA125_ST8','T8_CODOCOR')) //Verifica se o campo foi preenchido. xRet := .T. EndIf Else //OPÇÃO DE EXCLUSÃO. If !Empty(oObj:GetValue('MNTA125_ST8','T8_CODOCOR')) //Verifica se o campo foi preenchido. xRet := .T. EndIf EndIf EndIf EndIf Return xRet