NGMANATIV - Substitui a Validação do Bem

Ponto de Entrada que substitui a validação do bem e manutenção realizada pelo sistema, permite ao usuário realizar sua própria validação com base no exemplo retirado do sistema e tratamentos necessários. Sua chamada se dá na rotina de inclusão de Ordens de Serviço Manual, assim como também no programa para retorno de ordens de serviço de manutenção, retorno em lote, retorno simplificado e retorno modelo 2.

MNTUTIL.PRX

NGMANATIV - Substitui a Validação do Bem ( ) --> lRet

lRet(logico)
• Indica o retorno da validação.

#include "rwmake.ch"      User Function NGMANATIV()Local nSeq/*Verifica se a chamada da funcao passou por MNTA410If IsInCallStack("MNTA410")EndIf*/If Type("ParamIxb") == "A"	cCod  := ParamIXB[1]	cServ := ParamIXB[2]	Seq   := ParamIXB[3]		//----------------------------------------------	nSeq := If(ValType(Seq)="N",Str(Seq,3),Seq)		DbSelectArea("ST9")	DbSetOrder(1)	If !DbSeek(xFilial('ST9')+cCOD)	   Help(" ",1,"BEMNEXIST")	   Return .F.	Endif		If ST9->T9_SITMAN = 'I' 	   Help(" ",1,"NGMABEMINA")	   Return .F.	Endif           		DbSelectArea("STF")	DbSetOrder(1)	If DbSeek(xFilial("STF")+cCod+cServ+nSeq)	   If STF->TF_ATIVO == "N"	     Help(" ",1,"NGMANINATI")		  //Return .f.	   EndIf	   				EndIf	//----------------------------------------------	Else	Return .F.EndIf	Return .T.