Perguntas Ponto de Entrada A415TDOK

User Function A415TDOK()

Local lRet 		:= .T.                     
Local nReg 		:= 0
Local aArea		:= GetArea()
Local cBlqVal 	:= {}

DbSelectArea("TMP1")
Count To nReg
TMP1->(DbGoTop())
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Validacao do bloqueio de preco, verifica todos os itens³
//³do orçamento caso exija bloqueio de preco.             ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
 
While TMP1->(!Eof())	
	AADD( cBlqVal, TMP1->CK_V_BLPRE)
	TMP1->(DbSkip())
EndDo 


DbSelectArea("SCJ")
DbSetOrder(1)
If DbSeek(xFilial("SCJ") + SCJ->CJ_NUM + SCJ->CJ_CLIENTE + SCJ->CJ_LOJA)
	If	ASCAN(cBlqVal,"1") > 0 		
		RecLock("SCJ", .F.)
			SCJ->CJ_V_BLPRE := "1"
		MsUnlock() 		  
	Else	
		RecLock("SCJ", .F.)
			SCJ->CJ_V_BLPRE := "2"
		MsUnlock()  		 
	EndIf
Else
	MsgAlert("Não foi possivel Gravar o Registro!","Erro")
	lRet := .F.
EndIf

DbCloseArea("SCJ") :( 
DbCloseArea("TMP1")	
RestArea(aArea)
Return (lRet)