home *** CD-ROM | disk | FTP | other *** search
/ ftp.texkom.ru / ftp.texkom.ru.tar / ftp.texkom.ru / Zay100.zip / Zay100 / Progs / program4.BAK < prev    next >
Text File  |  2001-04-21  |  2KB  |  85 lines
  1. SET DELETED ON
  2. SET DATE GERMAN
  3. IF !USED ('table1')
  4.     USE "&cPach" + "\Bin\table1" SHARE IN 0
  5. ENDIF
  6. SELECT table1
  7.  
  8.  
  9. SELECT table1
  10. IF EMPTY (cPach1)
  11.     IF !USED ("Nast")
  12.         USE "&cPach" + "\Bin\Nast" SHARE IN 0
  13.     ENDIF
  14.     SELECT Nast
  15.     dNast = (Da_nast)
  16. ELSE
  17.     IF !USED ("Nast")
  18.         CD (cPach1)
  19.         IF FILE ("Nast.dbf")
  20.             IF !USED ("Nast")
  21.                 cP = ALLTRIM (cPach1) + ALLTRIM ("Nast.dbf")
  22.                 USE (cP) SHARE IN 0
  23.             ENDIF
  24.             SELECT Nast
  25.             dNast = (Da_nast)
  26.         ELSE
  27.             WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ Nast.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
  28.                 + ALLTRIM (cPach1)+"Nast.dbf"+CHR (13);
  29.                 +"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach1)+"  φσ ±≤∙σ±≥Γ≤σ≥"
  30.             IF !USED ("Nast")
  31.                 USE "&cPach" + "\Bin\Nast" SHARE IN 0
  32.             ENDIF
  33.             SELECT Nast
  34.             dNast = (Da_nast)
  35.             WAIT WINDOW "                      ╚±∩εδⁿτ≤σ≥±  ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
  36.                 + "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
  37.  
  38.         ENDIF
  39.     ENDIF
  40. ENDIF
  41.  
  42.  
  43.  
  44.  
  45.  
  46. SELECT table1
  47. IF EMPTY (cPach1)
  48.     IF !USED ("Kodi2")
  49.         USE "&cPach" + "\Bin\Kodi2" SHARE IN 0
  50.     ENDIF
  51.     SELECT Kodi2
  52.     SET FILTER TO Da_zay = (dNast)
  53.     GO TOP
  54.     SET ORDER TO nam
  55. ELSE
  56.     IF !USED ("Kodi2")
  57.         CD (cPach1)
  58.         IF FILE ("Kodi2.dbf")
  59.             IF !USED ("Kodi2")
  60.                 cP = ALLTRIM (cPach1) + ALLTRIM ("Kodi2.dbf")
  61.                 USE (cP) SHARE IN 0
  62.             ENDIF
  63.             SELECT Kodi2
  64.             SET FILTER TO Da_zay = (dNast)
  65.             GO TOP
  66.             SET ORDER TO nam
  67.         ELSE
  68.             WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ Kodi2.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
  69.                 + ALLTRIM (cPach1)+"Kodi2.dbf"+CHR (13);
  70.                 +"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach1)+"  φσ ±≤∙σ±≥Γ≤σ≥"
  71.             IF !USED ("Kodi2")
  72.                 USE "&cPach" + "\Bin\Kodi2" SHARE IN 0
  73.             ENDIF
  74.             SELECT Kodi2
  75.             SET FILTER TO Da_zay = (dNast)
  76.             GO TOP
  77.             SET ORDER TO nam
  78.             WAIT WINDOW "                       ╚±∩εδⁿτ≤σ≥±  ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
  79.                 + "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
  80.         ENDIF
  81.     ENDIF
  82. ENDIF
  83.  
  84. DO FORM "&cPach" + "\Forms\Zaku"
  85.