select PR, FAK, SPEC, KAF, BLOK, PRED, NAME, FAK_OLD, SPEC_OLD, KAF_OLD, PRED_OLD ;
  from  E:\Temp\New_disc where .f. into dbf Disk_1 && создание пустого курсора, чтобы было куда вставлять

For i =  1  to ADir(arDbfs, 'E:\temp\P5??????.dbf')
	?arDbfs[i, 1 ]
tab=arDbfs[i, 1 ]
TPred="&tab"+".Pred"

select New_disc.PR, New_disc.FAK, New_disc.SPEC, New_disc.KAF, New_disc.BLOK, New_disc.PRED, New_disc.NAME, New_disc.FAK_OLD, New_disc.SPEC_OLD, New_disc.KAF_OLD, New_disc.PRED_OLD;
  from ('E:\Temp\'+arDbfs[i, 1 ]), E:\Temp\New_disc  Where New_disc.pred= 1900 ; * "для пробы"
    into dbf Tmp
  select Disk_1
  Append From Tmp
Next
brow

select PR, FAK, SPEC, KAF, BLOK, PRED, NAME, FAK_OLD, SPEC_OLD, KAF_OLD, PRED_OLD ;
  from  E:\Temp\New_disc where .f. into dbf Disk_1 && создание пустого курсора, чтобы было куда вставлять
For i =  1  to ADir(arDbfs, 'E:\temp\P5??????.dbf')
	?arDbfs[i, 1 ]
  select New_disc.PR, New_disc.FAK, New_disc.SPEC, New_disc.KAF, New_disc.BLOK, New_disc.PRED, New_disc.NAME, New_disc.FAK_OLD, New_disc.SPEC_OLD, New_disc.KAF_OLD, New_disc.PRED_OLD;
  from ('E:\Temp\'+arDbfs[i, 1 ]) t1,  E:\Temp\New_disc  Where New_disc.pred=t1.pred;
  into DBF Tmp
  select Disk_1
  Append From Tmp
Next
brow

        locate for arDbfs[i, 1 ].name=New_tmp.name

For i =  1  to ADir(arDbfs, 'E:\temp\P5??????.dbf')
	?arDbfs[i, 1 ]
select distinct(name) as name, t1.pred, t1.SPEC from ('E:\Temp\'+arDbfs[i, 1 ]) t1 Where t1.pred> 1  into dbf tDoubleX
select tDoubleX.pred, tDoubleX.name, t1.SPEC from E:\Temp\tDoubleX.dbf, ('E:\Temp\'+arDbfs[i, 1 ]) t1 Where ((tDoubleX.name<>t1.name) and (tDoubleX.pred=t1.pred)) into dbf tmpDubl
select New_Disc.pred, New_Disc.name from E:\Temp\tmpDubl.dbf, E:\Temp\New_Disc.dbf Where ((tmpDubl.name=New_Disc.name) and (tmpDubl.SPEC=New_Disc.SPEC)) into dbf New_tmp

close databases
sele  0  && переход в свободную рабочую область
USE 'E:\Temp\'+arDbfs[i, 1 ] EXCLUSIVE
  	sele  0  && переход в свободную рабочую область
  	USE E:\Temp\New_tmp.dbf EXCLUSIVE
select arDbfs[i, 1 ]
scan  && перебор всех записей в таблица1
select New_tmp
     go top
        locate for arDbfs[i, 1 ].name=New_tmp.name
	if found()
 	sele 
 	repl pred with New_tmp.pred
	endif
endscan
Next

into dbf New_tmp

select PR, GOD, FO, FAKULT, SPEC, S_FAK, SPK, KURS, KOLST, OPLP, OPLX, KOLGR, KOLPGR, SEM, PG, NED, PPNAME, KBLOK, NBLOK, KAF, PRED, DISZIP, NKAF, LEK, LAB, PRA, IND_RUK, EKZ, ZA, KUR, KONT, GOS, H_LEK, H_LAB, H_PRA, H_IND_RUK, H_ZA, H_EKZ, H_GOS, H_KONS, H_KONTR, H_KUR, H_DIPL_RUK, H_DIPL_REZ, H_PRA_U, H_PRA_P, H_ASP_RUK, H_SOISK_RU, H_EKZV, H_RUK, H_FDP, H_OTHER, H_VSE, H_VSEP, H_VSEX, KPBLOK from E:\Temp\KAF1401.DBF;
UNION; 
select PR, GOD, FO, FAKULT, SPEC, S_FAK, SPK, KURS, KOLST, OPLP, OPLX, KOLGR, KOLPGR, SEM, PG, NED, PPNAME, KBLOK, NBLOK, KAF, PRED, DISZIP, NKAF, LEK, LAB, PRA, IND_RUK, EKZ, ZA, KUR, KONT, GOS, H_LEK, H_LAB, H_PRA, H_IND_RUK, H_ZA, H_EKZ, H_GOS, H_KONS, H_KONTR, H_KUR, H_DIPL_RUK, H_DIPL_REZ, H_PRA_U, H_PRA_P, H_ASP_RUK, H_SOISK_RU, H_EKZV, H_RUK, H_FDP, H_OTHER, H_VSE, H_VSEP, H_VSEX, KPBLOK from E:\Temp\KAF1507.DBF;
into dbf Disk