home *** CD-ROM | disk | FTP | other *** search
/ ftp.texkom.ru / ftp.texkom.ru.tar / ftp.texkom.ru / Zay100.zip / Zay100 / Progs / program3.prg < prev    next >
Text File  |  2001-04-21  |  1KB  |  56 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. SELECT table1
  9. IF EMPTY (cPach2)
  10.     IF !USED ("Za")
  11.         USE "&cPach" + "\Bin\Za" SHARE IN 0
  12.     ENDIF
  13.     SELECT Za
  14.     SET ORDER TO nam
  15.     REPLACE lPk WITH .T. FOR Da_nak # DATE ()
  16.     GO TOP
  17.     SET ORDER TO nam
  18.     SET FILTER TO lPk = .F.
  19.     GO TOP
  20. ELSE
  21.     IF !USED ("Za")
  22.         CD (cPach2)
  23.         IF FILE ("Za.dbf")
  24.             IF !USED ("Za")
  25.                 cP = ALLTRIM (cPach2) + ALLTRIM ("Za.dbf")
  26.                 USE (cP) SHARE IN 0
  27.             ENDIF
  28.             SELECT Za
  29.             SET ORDER TO nam
  30.             REPLACE lPk WITH .T. FOR Da_nak # DATE ()
  31.             GO TOP
  32.             SET ORDER TO nam
  33.             SET FILTER TO lPk = .F.
  34.             GO TOP
  35.         ELSE
  36.             WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ Za.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
  37.                 + ALLTRIM (cPach2)+"Za.dbf"+CHR (13);
  38.                 +"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach2)+"  φσ ±≤∙σ±≥Γ≤σ≥"
  39.             IF !USED ("Za")
  40.                 USE "&cPach" + "\Bin\Za" SHARE IN 0
  41.             ENDIF
  42.             SELECT Za
  43.             SET ORDER TO nam
  44.             REPLACE lPk WITH .T. FOR Da_nak # DATE ()
  45.             GO TOP
  46.             SET ORDER TO nam
  47.             SET FILTER TO lPk = .F.
  48.             GO TOP
  49.             WAIT WINDOW "                      ╚±∩εδⁿτ≤σ≥±  ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
  50.                 + "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
  51.         ENDIF
  52.     ENDIF
  53. ENDIF
  54.  
  55. DO FORM "&cPach" + "\Forms\Z_2"
  56.