*** CAMBIA DE RUTA LOS CLIENTES CUANDO DESAPARECE UNA RUTA
*** HUASNUEV.DBF CONTIENE LA CLAVE DE CLIENTE Y LA RUTA NUEVA.

Close All
Use GarcClie Share In 0
Use ..\Bonifi\Dbf\BoniCont Share In 0
Use D:\HuatNuev Share In 0 Alias Nuevos
For I=1 To 2
	Tabla=IIf(I=1,"GarcClie","BoniCont")
	Select Nuevos
	Go Top In Nuevos
	Scan
		MClavClie=AllTrim(Nuevos.Cliente)
		Select &Tabla
		Locate For AllTrim(&Tabla..ClavClie)=MClavClie
		If Found("&Tabla")
			Replace &Tabla..NumeRuta With Nuevos.Ruta
		Else
			? "No encontrado: "+MClavClie+" en: "+Tabla
		EndIf
		Select Nuevos
	EndScan
Next