Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

MNTA125

Ocorrências

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

  1. Entrar no modulo de Manutenção de Ativos e Gestão de Frotas(SIGAMNT).
  2. 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:

Nome

Tipo

Descrição

Obrigatório

 xRet

Lógico

Determina a continuidade do processo.

Sim

 

Exemplo Ponto de Entrada Padrão MVC
#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