GERMAN
table1
USE "&cPach" + "\Bin\table1" SHARE IN 0
USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0
Kodi.dbf0
Kodi.dbf
if PachNet = "&cPach" + "\Bin\"
USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0 again alias Kodi
KodiO
KodiOO
USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0 
select * from KodiOO where not deleted() order by Name into table "&cPach" + "\Bin\Kodi" 
USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0 
select * from KodiO where not deleted() order by Name into table "&cPach" + "\Bin\Kodi"
 Kodi.dbf 
Kodi.dbf
USE "&cPach" + "\Bin\Kodi" SHARE IN 0
                      
USE "&cPach" + "\Bin\FIO" SHARE IN 0
FIO.dbf0
FIO.dbf
 FIO.dbf 
FIO.dbf
USE "&cPach" + "\Bin\FIO" SHARE IN 0
                      
USE "&cPach" + "\Bin\Za" SHARE IN 0
Za.dbf0
Za.dbf
 Za.dbf 
Za.dbf
USE "&cPach" + "\Bin\Za" SHARE IN 0
                      
USE "&cPach" + "\Bin\Nast" SHARE IN 0
Nast.dbf0
Nast.dbf
 Nast.dbf 
Nast.dbf
USE "&cPach" + "\Bin\Nast" SHARE IN 0
                      
Kodi2
USE "&cPach" + "\Bin\Kodi2" SHARE IN 0
Kodi2
Kodi2.dbf0
Kodi2
Kodi2.dbf
 Kodi2.dbf 
Kodi2.dbf
Kodi2
USE "&cPach" + "\Bin\Kodi2" SHARE IN 0
                       
use "&cPach" + "\Bin\Pre" excl in 0
DO FORM "&cPach" + "\Forms\Z_1"
GERMAN
TABLE1
CPACH1
KODIO
PACHNET
KODIOO
KODTOV
ARTIKUL
MEMBER
CPACH2
DA_NAK
DNAST
DA_NAST
KODI2
s:\skl\newzay\zay100\progs\
program2.fxp
s:\skl\newzay\zay100\progs\program2.prg