tab1="P5010001"
tab2="P5010101"
TPred1="&tab1"+".Pred"
TPred2="&tab2"+".Pred"
puty1="E:\temp\&tab1+.dbf"
puty2="E:\temp\&tab2+.dbf"
* Старый код с использованием Union
* Вместо него нужно вставить APPEND т.к. продолжать объединение  60  таблиц нет возможности код не исполняется в связи с его длинной
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 &Puty1, E:\Temp\New_disc.DBF Where New_disc.Pred=&TPred1;
UNION; 
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 &Puty2, E:\Temp\New_disc.DBF Where New_disc.Pred=&TPred2;
into dbf Disk_1

select PR, FAK, SPEC, KAF, BLOK, PRED, NAME, FAK_OLD, SPEC_OLD, KAF_OLD, PRED_OLD ;
  from  E:\Temp\New_disc where .f. into cursor Disk_1 && создание пустого курсора, чтобы было куда вставлять
USE Disc_1
For i =  1  to ADir(arDbfs, 'E:\temp\P5??????.dbf') *маска изменена т.к.  общее между файлами только P5
	?arDbfs[i, 1 ]
*t1=arDbfs[i, 1 ]
t1="E:\temp\"+arDbfs[i, 1 ] * здесь пытаюсь указать путь к файлу
tab1=arDbfs[i, 1 ]
TPred="&tab1"+".Pred" * так "прокатывало" с присвоением когда использовал UNION
  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 &t1, E:\Temp\New_disc where New_disc.Pred=&TPred; 
    into cursor Tmp
  select Disc_1
  Append From Tmp
Next
brow

  select Nd.PR, Nd.FAK, Nd.SPEC, Nd.KAF, Nd.BLOK, Nd.PRED, Nd.NAME, Nd.FAK_OLD, Nd.SPEC_OLD, Nd.KAF_OLD, Nd.PRED_OLD ;
    from ('E:\Temp\'+arDbfs[i, 1 ]) as t1, E:\Temp\New_disc as ND Where Nd.Pred=t1.Pred;
    into cursor Tmp

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_disk.Pred=&TPred;
    into dbf Tmp
  select Disk_1
  Append From Tmp
Next
brow