Histórico da Página
Aviso | ||
---|---|---|
| ||
Após a liberação da data XX/XX/XXXX o ponto de entrada deverá ser alterado conforme o exemplo Ponto de Entrada MVC. |
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: |
|
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. 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 |