Histórico da Página
Aviso | ||
---|---|---|
| ||
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: |
| ||||||||||
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 | :Nulo | Parâmetros: |
Verifica se valida quando for notificação ou multas. | Não
|
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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. Local lNotif := PARAMIXB[1]// Opicional If Inclui .And. lNotif 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 |