home *** CD-ROM | disk | FTP | other *** search
/ ftp.texkom.ru / ftp.texkom.ru.tar / ftp.texkom.ru / Zay100.zip / Zay100 / Progs / program2.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  2002-07-05  |  5KB  |  70 lines
  1. GERMAN
  2. table1
  3. USE "&cPach" + "\Bin\table1" SHARE IN 0
  4. USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0
  5. Kodi.dbf0
  6. Kodi.dbf
  7. if PachNet = "&cPach" + "\Bin\"
  8. USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0 again alias Kodi
  9. KodiO
  10. KodiOO
  11. USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0 
  12. select * from KodiOO where not deleted() order by Name into table "&cPach" + "\Bin\Kodi" 
  13. USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0 
  14. select * from KodiO where not deleted() order by Name into table "&cPach" + "\Bin\Kodi"
  15.  Kodi.dbf 
  16. Kodi.dbf
  17. USE "&cPach" + "\Bin\Kodi" SHARE IN 0
  18.                       
  19. USE "&cPach" + "\Bin\FIO" SHARE IN 0
  20. FIO.dbf0
  21. FIO.dbf
  22.  FIO.dbf 
  23. FIO.dbf
  24. USE "&cPach" + "\Bin\FIO" SHARE IN 0
  25.                       
  26. USE "&cPach" + "\Bin\Za" SHARE IN 0
  27. Za.dbf0
  28. Za.dbf
  29.  Za.dbf 
  30. Za.dbf
  31. USE "&cPach" + "\Bin\Za" SHARE IN 0
  32.                       
  33. USE "&cPach" + "\Bin\Nast" SHARE IN 0
  34. Nast.dbf0
  35. Nast.dbf
  36.  Nast.dbf 
  37. Nast.dbf
  38. USE "&cPach" + "\Bin\Nast" SHARE IN 0
  39.                       
  40. Kodi2
  41. USE "&cPach" + "\Bin\Kodi2" SHARE IN 0
  42. Kodi2
  43. Kodi2.dbf0
  44. Kodi2
  45. Kodi2.dbf
  46.  Kodi2.dbf 
  47. Kodi2.dbf
  48. Kodi2
  49. USE "&cPach" + "\Bin\Kodi2" SHARE IN 0
  50.                        
  51. use "&cPach" + "\Bin\Pre" excl in 0
  52. DO FORM "&cPach" + "\Forms\Z_1"
  53. GERMAN
  54. TABLE1
  55. CPACH1
  56. KODIO
  57. PACHNET
  58. KODIOO
  59. KODTOV
  60. ARTIKUL
  61. MEMBER
  62. CPACH2
  63. DA_NAK
  64. DNAST
  65. DA_NAST
  66. KODI2
  67. s:\skl\newzay\zay100\progs\
  68. program2.fxp
  69. s:\skl\newzay\zay100\progs\program2.prg
  70.