Ponto de entrada que permite adicionar validações após inclusão de insumo previsto na rotina de 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

MNTA420E

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 após a inclusão de um insumo previsto

Localização:

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

Programa Fonte:

MNTA420.prx

Função:

MNTA420E()

Retorno:

.T.
#INCLUDE 'PROTHEUS.CH'

User Function MNTA420E()  

	Local i 
	
	For i:= 1 to Len(aGetIns)     
		
		DbSelectArea("STL")    
		DbSetOrder(1)    
		If DbSeek( xFilial("STL") + cOSAtu + "000000" + "0     " + aGETINS[i][nTIP] + aGETINS[i][nCOD] )	
			RecLock("STL",.F.)	
			STL->TL_NUMRMS := SZA->ZA_NUM	
			MsUnlock("STL")    
		EndIf
	Next i	
	
Return .T.