PONTO DE ENTRADA PARA VALIDAÇÕES DE ALTERAÇÃO DE DATA E PRESENÇA DE INSUMOS REALIZADOS DE UMA O.S. NA ROTINA DE PROGRAMAÇÃO DE O.S.

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
MNTA990	Programação de O.S.

Rotina(s) envolvida(s)	Nome Técnico
MNTA990D	Ponto de Entrada

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), para validar a alteração de data e presença de insumos realizados de uma 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:

Nome	Tipo	Pode Alterar	Descrição
cOrdem	Caracter	Sim	Ordem da O.S.
dDtPrev	Data	Sim	Data Prevista.
cReal	Caracter	Sim	Insumos Realizados.

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Lógico	Indica se a validação foi feita	Sim

User Function MNTA990D()


Local dDtPrev := ParamIXB[2]
Local cOrdem := ParamIXB[1]
Local cReal := ''
Local lRet := .T.

If Type( 'ParamIXB[3]' ) <> 'U'
	cReal := ParamIXB[3]
	If cReal > '0'
		MsgInfo('Existem insumos realizados')
		lRet := .F.
	EndIf
EndIf

If lRet .AND. dDtPrev < dDataBase
	MsgInfo(" A data não pode ser alterada ")
	lRet := .F.
EndIf

Return lRet