user function ValidaFunc
	Local aLinhas := {}
	Local nI 
	Local aLin := {}
	 dbSelectArea("ZTR") 
	 dbSetOrder(5)
	 if dbSeek(M->ZTR_FILIA+M->ZTR_MAT)
	 	while !EOF() .AND. M->ZTR_FILIA+M->ZTR_MAT == ZTR->ZTR_FILIA+ZTR->ZTR_MAT
			AADD(aLinhas, ALLtrim(ZTR->ZTR_CELEMP)) 
			ZTR->(dbSkip())
		enddo
		for nI := 1 to len(aLinhas)
			AADD(aLin ,aLinhas[nI])
		next
		if MsgYesNo("Colaborador já cadastrado. Linhas cadastradas: "+ aLin +", gostaria de amarrar mesmo assim? ", '')
			return .t.
		else
			return .F.
		endif
	endif
return .T.