Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Guilherme Fre

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Guilherme Fre

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

PONTO DE ENTRADA ROTINAS DE MULTAS E INCONSISTÊNCIAS

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

MNTA765

Multas

MNTA845Inconsistências

Cadastros Iniciais:

MNTA084 - Veículos. 

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

ST9 - Bens 

Sistema(s) Operacional(is):

Windows e Linux

Pacote:Informe o [linkdopacote]

Descrição

Realizado conversão das rotinas MNTA765 - Multas e MNTA845 - Inconsistências  para o modelo padrão 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 > Gestão de Riscos > Multas > Multas.
  3. Em Atualizações > Gestão de Riscos > Multas > Inconsistências. 


Ponto de Entrada

Descrição:

Ponto de entrada no padrão MVC. 

Localização:

Em Atualizações > Gestão de Riscos > Multas > Multas.

Em Atualizações > Gestão de Riscos > Multas > Inconsistências. 

Eventos:

Multas (MNTA765)

Inconsistências (MNTA845)

Programa Fonte:

MNTA765.prx

MNTA845.prx

Função:

MNTA765()

MNTA845()

Retorno:

Nome

Tipo

Descrição

Obrigatório

 xRet

Indefinido

Determina o retorno o parâmetro

Sim. 

 

Bloco de código
languagejava
titleExemplo Ponto de Entrada Padrão MVC
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"


User Function MNTA125MNTA765()

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.	
			dbSelectArea("TRX")
                xRet := .T.	dbSetOrder(1)
       		If !Empty( dbSeek( xFilial("TRX")  EndIf
        ElseIf == 4 //OPÇÃO DE ALTERARÇÃO.+ oObj:GetValue('MULTAS','TRX_MULTA') )
            	If !EmptyAllTrim(oObj:GetValue('MNTA125_ST8MULTAS','T8TRX_CODOCORTPMULTA')) //Verifica se o campo foi preenchido.$ "TRANSITO/PRODUTO PERIGOSO"
                xRet := .T.
            EndIf	MsgInfo("Já existe uma multa cadastrada com esse número! ", "Atenção")
        Else //OPÇÃO DE EXCLUSÃO.
            If !Empty(oObj:GetValue('MNTA125_ST8','T8_CODOCOR')) //Verifica se o campo foi preenchido	xRet := .F.
                xRet := .T.	EndIf
            	EndIf

        EndIf

    EndIf

EndIf

Return xRet