Histórico da Página
Ponto de entrada para validações de alteração de data e presença de insumos realizados na rotina de Programação de O.S. (
MNTA9990MNTA990)
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||||||
Segmento: | Manufatura. | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas. | ||||||||
Rotina: |
| ||||||||
País(es): | Todos. | ||||||||
Banco(s) de Dados: | Todos. | ||||||||
Sistema(s) Operacional(is): | Todos. |
Ponto de Entrada
Descrição: | Ponto de Entrada chamado na rotina de Programação de O.S. (MNTA990), ao alterar a data prevista da O.S. ou acionar o botão "Excluir"/"Excluir Todos", para validar a alteração de data e a presença de insumos realizados na O.S. | ||||||||||||||||
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Programação de O.S. | ||||||||||||||||
Programa Fonte: | MNTA990.prx | ||||||||||||||||
Função: | MNTA990D() | ||||||||||||||||
Parâmetros: |
| ||||||||||||||||
Retorno: |
|
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#Include 'Totvs.ch' User Function MNTA990D() Local dDtPrev := ParamIXB[2] Local cOrdem := ParamIXB[1] Local cReal := '' Local lRet := .T. // Verifica se existe o terceiro parametro If Type( 'ParamIXB[3]' ) != 'U' cReal := ParamIXB[3] // Verifica se o insumo está realizado If cReal > '0' MsgInfo( 'Existem insumos realizados', 'Atenção') lRet := .F. EndIf EndIf // Verifica se a data prevista é menor que a data base If lRet .AND. dDtPrev < dDataBase MsgInfo(" A data não pode ser alterada ", 'Atenção') lRet := .F. EndIf Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas