Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada padrão MVC

As rotinas relacionadas a este ponto de entrada passaram recentemente por uma reestruturação para o padrão de desenvolvimento MVC, desta forma o exemplo de código apresentado neste documento pode não ser mais efetivo. Recomendamos que consulte o novo documento que apresenta os novos exemplos para o funcionamento correto deste ponto de entrada: Novo padrão para os pontos de entrada MNTA7652 e MNTA7661

Validação na inclusão de Multas/Notificações

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

Registro de Multas

Rotina(s) envolvida(s)

Nome Técnico

MNTA765

Registro de Multas 

MNTA766

Notificações

Issues Relacionadas


País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos



Ponto de Entrada

Descrição:

Ponto de entrada que possibilita a validação dos campos referente a inclusão de uma multa/notificação. É executado ao confirmar a tela de multa/notificação.

Localização:

SIGAMNT: Atualizações/Gestão de Riscos/Multas/Multas.

SIGAMNT: Atualizações/Gestão de Riscos/Multas/Notificações.

Eventos:

Registro de Multas (MNTA765)

Notificações (MNTA766)

Programa Fonte:

MNTA765.prx

Função:

MNTA7652()

Retorno:
NomeTipoDescriçãoObrigatório
lRetLógicoConteúdo indica se existe alguma inconsistência, caso exista não irá permitir salvar.Sim

 

Exemplo
#Include 'Protheus.ch'

//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA7652
Verifica a existencia de uma multa em base.

@author  NGInformática
@since   18/06/2018
@version P12
/*/
//-------------------------------------------------------------------
User Function MNTA7652()

    Local aArea  := GetArea()
    Local lRet   := .T.

    If Inclui
        dbSelectArea("TRX")
        dbSetOrder(1)
        If !Empty( dbSeek( xFilial("TRX") + M->TRX_MULTA ) )
            If AllTrim(TRX_TPMULTA) $ "TRANSITO/PRODUTO PERIGOSO"
                MsgInfo("Já existe uma multa cadastrada com esse número! ", "Atenção")
                lRet := .F.
            EndIf
        EndIf
    EndIf

    RestArea(aArea)

Return lRet