Ponto de entrada que permite adicionar validações anteriores à exclusão de uma O.S. Corretiva (MNTA420)

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
MNTA420	Corretiva

Rotina(s) envolvida(s)	Nome Técnico
MNTA420F	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 executado na rotina de O.S. Corretiva (MNTA420) que permite adicionar validações antes da exclusão da Ordem de Serviço

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

Programa Fonte:

MNTA420.prx

Função:

MNTA420F()

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Lógico	Retorna array com as novas opções do menu	X

#INCLUDE 'PROTHEUS.CH'

User Function MNTA420F()

	Local lRet := .T.

	DbSelectArea("SZA")
	DbSetOrder(4)
	If DbSeek(xFilial("SZA")+STJ->TJ_ORDEM+STJ->TJ_PLANO)  
		While !Eof() .And. SZA->ZA_FILIAL == xFilial("SZA") .And. SZA->ZA_OS == STJ->TJ_ORDEM .And. SZA->ZA_PLANO == STJ->TJ_PLANO     
			If SZA->ZA_STATUS == "L" .And. SZA->ZA_LIBOK == "L"       
				MsgStop("O.S. não poderá ser excluida pois existe RMS liberada.","ATENÇÃO")       
				lRet := .F.    
			EndIf    
			DbSelectArea("SZA")    
			DbSkip()  
		End	
	EndIf		
	
Return lRet