User Function MNTA080E()
	Local lRet := .t.
	Local nX, nY, lIncrem := .f.
	Local aArea
	
	lIncrem := U_fWhenInc()

	nTAREF := aSCAN(oGet:aHeader,{|x| TRIM(UPPER(x[2])) == "PA1_TAREFA"})
	nINCRE := aSCAN(oGet:aHeader,{|x| TRIM(UPPER(x[2])) == "PA1_INCREM"})
	
	dbSelectArea("PA1")
	dbSetOrder(1)
	For nX:=1 To Len(oGet:aCols)
		If !oGet:aCols[nX,len(oGet:aCols[nX])] .and. (!Empty(oGet:aCols[nX,nTAREF]) .or. oGet:aCols[nX,nINCRE] <> 0)
			If Empty(oGet:aCols[nX,nTAREF])
				lRet := .f.
			ElseIf lIncrem .and. oGet:aCols[nX,nINCRE] = 0
				lRet := .f.				
			EndIf
		EndIf
	next nX
	If lRet
		fLimpaPA1(M->T9_CODBEM)
		For nY:=1 To Len(oGet:aCols)
		   	If !Dbseek(xFilial("PA1")+M->T9_CODBEM+oGet:aCols[nY,nTAREF]) .and. !oGet:aCols[nY,len(oGet:aCols[nY])] .and. !Empty(oGet:aCols[nY,nTAREF])
				RecLock("PA1",.T.)
				PA1->PA1_FILIAL := xFilial("PA1")
				PA1->PA1_CODBEM	:= M->T9_CODBEM
				PA1->PA1_TAREFA := oGet:aCols[nY,nTAREF]
				PA1->PA1_INCREM := oGet:aCols[nY,nINCRE]			
				MsUnlock("PA1")
			ElseIf Dbseek(xFilial("PA1")+M->T9_CODBEM+oGet:aCols[nY,nTAREF]) .and. oGet:aCols[nY,len(oGet:aCols[nY])]
				RecLock("PA1",.F.)
				dbDelete()
				MsUnlock("PA1")
			EndIf
		Next nY
	EndIf  
	If !lRet
		msginfo("Alguns campos obrigatórios não foram preenchidos."+chr(13)+chr(10)+"Pasta Não Numerados.","ATENÇÃO")
	EndIf

Return lRet