home *** CD-ROM | disk | FTP | other *** search
/ ftp.texkom.ru / ftp.texkom.ru.tar / ftp.texkom.ru / Zay100.zip / Zay100 / Progs / program2.BAK < prev    next >
Text File  |  2002-07-05  |  7KB  |  292 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. IF EMPTY (ALLTRIM(cPach1))
  9.     IF !USED ("Kodi")
  10.         USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0
  11.     ENDIF
  12.     SELECT Kodi
  13.     SET ORDER TO nam
  14. ELSE
  15.     IF !USED ("Kodi")
  16.         CD (cPach1)
  17.         IF FILE ("Kodi.dbf")
  18.             IF !USED ("Kodi")
  19.                 cP = ALLTRIM (cPach1) + ALLTRIM ("Kodi.dbf")
  20.                 USE (cP) SHARE IN 0 ALIAS KodiO
  21.             ENDIF
  22. * set step on
  23. SELECT table1
  24. PachNet = alltrim((cPach1))    
  25.   if PachNet = "&cPach" + "\Bin\"
  26.     IF !USED ("Kodi")
  27.         USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0 again alias Kodi
  28.     ENDIF
  29.             SELECT KodiO
  30.             select *;
  31.             from KodiO;
  32.             where not deleted();
  33.             order by Name;
  34.             into cursor KodiOO
  35.             
  36.             select KodiO
  37.             use
  38.             select kodi
  39.             use    
  40. USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0 
  41. select Kodi
  42. zap
  43.  
  44.             SELECT KodiOO
  45.             select *;
  46.             from KodiOO;
  47.             where not deleted();
  48.             order by Name;
  49.             into table "&cPach" + "\Bin\Kodi" 
  50.             select KodiOO
  51.             use
  52.             select Kodi
  53.             
  54. INDEX ON ALLTRIM (UPPER (NAME))TAG Nam
  55. INDEX ON ALLTRIM (kodtov)  TAG kodtov
  56. INDEX ON ALLTRIM (UPPER (artikul))  TAG artikul
  57. INDEX ON DTOC (da_zay) + ALLTRIM (UPPER (NAME))  TAG da
  58. INDEX ON da_zay TAG da1
  59. INDEX ON ALLTRIM (UPPE (MEMBER)) TAG MEMBER
  60. SELECT kodi
  61.             
  62.             SET ORDER TO nam            
  63.      else
  64.     IF !USED ("Kodi")
  65.         USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0 
  66.     ENDIF
  67.        
  68. *    set step on
  69.     SELECT Kodi
  70.     zap
  71.             
  72.             
  73.             SELECT KodiO
  74.             select *;
  75.             from KodiO;
  76.             where not deleted();
  77.             order by Name;
  78.             into table "&cPach" + "\Bin\Kodi"
  79.             select kodiO
  80.             use
  81.             select kodi
  82.             
  83.             
  84. INDEX ON ALLTRIM (UPPER (NAME))TAG Nam
  85. INDEX ON ALLTRIM (kodtov)  TAG kodtov
  86. INDEX ON ALLTRIM (UPPER (artikul))  TAG artikul
  87. INDEX ON DTOC (da_zay) + ALLTRIM (UPPER (NAME))  TAG da
  88. INDEX ON da_zay TAG da1
  89. INDEX ON ALLTRIM (UPPE (MEMBER)) TAG MEMBER
  90. SELECT kodi
  91.             
  92.             SET ORDER TO nam
  93.   endif
  94.         ELSE
  95.  
  96.             WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ Kodi.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
  97.                 + ALLTRIM (cPach1)+"Kodi.dbf"+CHR (13);
  98.                 +"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach1)+"  φσ ±≤∙σ±≥Γ≤σ≥"
  99.  
  100.             IF !USED ("Kodi")
  101.                 USE "&cPach" + "\Bin\Kodi" SHARE IN 0
  102.             ENDIF
  103.             SELECT Kodi
  104.             SET ORDER TO nam
  105.  
  106.             WAIT WINDOW "                      ╚±∩εδⁿτ≤σ≥±  ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
  107.                 + "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
  108.  
  109.         ENDIF
  110.     ENDIF
  111. ENDIF
  112.  
  113. SELECT table1
  114. IF EMPTY (cPach1)
  115.     IF !USED ("FIO")
  116.         USE "&cPach" + "\Bin\FIO" SHARE IN 0
  117.     ENDIF
  118.     SELECT FIO
  119.     SET ORDER TO FIO
  120. ELSE
  121.     IF !USED ("FIO")
  122.         CD (cPach1)
  123.         IF FILE ("FIO.dbf")
  124.             cP = ALLTRIM (cPach1) + ALLTRIM ("FIO.dbf")
  125.             IF !USED ("FIO")
  126.                 USE (cP) SHARE IN 0
  127.             ENDIF
  128.             SELECT FIO
  129.             SET ORDER TO FIO
  130.         ELSE
  131.             WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ FIO.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
  132.                 + ALLTRIM (cPach1)+"FIO.dbf"+CHR (13);
  133.                 +"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach1)+"  φσ ±≤∙σ±≥Γ≤σ≥"
  134.             IF !USED ("FIO")
  135.                 USE "&cPach" + "\Bin\FIO" SHARE IN 0
  136.             ENDIF
  137.             SELECT FIO
  138.             SET ORDER TO FIO
  139.  
  140.             WAIT WINDOW "                      ╚±∩εδⁿτ≤σ≥±  ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
  141.                 + "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
  142.  
  143.         ENDIF
  144.     ENDIF
  145. ENDIF
  146.  
  147.  
  148.  
  149.  
  150.  
  151. SELECT table1
  152. IF EMPTY (cPach2)
  153.     IF !USED ("Za")
  154.         USE "&cPach" + "\Bin\Za" SHARE IN 0
  155.     ENDIF
  156.     SELECT Za
  157.     SET ORDER TO nam
  158.     REPLACE lPk WITH .T. FOR Da_nak # DATE ()
  159.     GO TOP
  160.     SET ORDER TO nam
  161.     SET FILTER TO lPk = .F.
  162.     GO TOP
  163. ELSE
  164.     IF !USED ("Za")
  165.         CD (cPach2)
  166.         IF FILE ("Za.dbf")
  167.             IF !USED ("Za")
  168.                 cP = ALLTRIM (cPach2) + ALLTRIM ("Za.dbf")
  169.                 USE (cP) SHARE IN 0
  170.             ENDIF
  171.             SELECT Za
  172.             SET ORDER TO nam
  173.             REPLACE lPk WITH .T. FOR Da_nak # DATE ()
  174.             GO TOP
  175.             SET ORDER TO nam
  176.             SET FILTER TO lPk = .F.
  177.             GO TOP
  178.         ELSE
  179.             WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ Za.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
  180.                 + ALLTRIM (cPach2)+"Za.dbf"+CHR (13);
  181.                 +"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach2)+"  φσ ±≤∙σ±≥Γ≤σ≥"
  182.             IF !USED ("Za")
  183.                 USE "&cPach" + "\Bin\Za" SHARE IN 0
  184.             ENDIF
  185.             SELECT Za
  186.             SET ORDER TO nam
  187.             REPLACE lPk WITH .T. FOR Da_nak # DATE ()
  188.             GO TOP
  189.             SET ORDER TO nam
  190.             SET FILTER TO lPk = .F.
  191.             GO TOP
  192.             WAIT WINDOW "                      ╚±∩εδⁿτ≤σ≥±  ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
  193.                 + "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
  194.         ENDIF
  195.     ENDIF
  196. ENDIF
  197.  
  198.  
  199. SELECT table1
  200. IF EMPTY (cPach1)
  201.     IF !USED ("Nast")
  202.         USE "&cPach" + "\Bin\Nast" SHARE IN 0
  203.     ENDIF
  204.     SELECT Nast
  205.     dNast = (Da_nast)
  206. ELSE
  207.     IF !USED ("Nast")
  208.         CD (cPach1)
  209.         IF FILE ("Nast.dbf")
  210.             IF !USED ("Nast")
  211.                 cP = ALLTRIM (cPach1) + ALLTRIM ("Nast.dbf")
  212.                 USE (cP) SHARE IN 0
  213.             ENDIF
  214.             SELECT Nast
  215.             dNast = (Da_nast)
  216.         ELSE
  217.             WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ Nast.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
  218.                 + ALLTRIM (cPach1)+"Nast.dbf"+CHR (13);
  219.                 +"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach1)+"  φσ ±≤∙σ±≥Γ≤σ≥"
  220.             IF !USED ("Nast")
  221.                 USE "&cPach" + "\Bin\Nast" SHARE IN 0
  222.             ENDIF
  223.             SELECT Nast
  224.             dNast = (Da_nast)
  225.             WAIT WINDOW "                      ╚±∩εδⁿτ≤σ≥±  ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
  226.                 + "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
  227.  
  228.         ENDIF
  229.     ENDIF
  230. ENDIF
  231.  
  232.  
  233.  
  234. SELECT table1
  235. IF EMPTY (cPach1)
  236.     IF !USED ("Kodi2")
  237.         USE "&cPach" + "\Bin\Kodi2" SHARE IN 0
  238.     ENDIF
  239.     SELECT Kodi2
  240.     SET FILTER TO Da_zay = (dNast)
  241.     GO TOP
  242.     SET ORDER TO nam
  243. ELSE
  244.     IF !USED ("Kodi2")
  245.         CD (cPach1)
  246.         IF FILE ("Kodi2.dbf")
  247.             IF !USED ("Kodi2")
  248.                 cP = ALLTRIM (cPach1) + ALLTRIM ("Kodi2.dbf")
  249.                 USE (cP)  IN 0 SHARE
  250.             ENDIF
  251.             SELECT Kodi2
  252.             SET FILTER TO Da_zay = (dNast)
  253.             GO TOP
  254.             SET ORDER TO nam
  255.         ELSE
  256.             WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ Kodi2.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
  257.                 + ALLTRIM (cPach1)+"Kodi2.dbf"+CHR (13);
  258.                 +"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach1)+"  φσ ±≤∙σ±≥Γ≤σ≥"
  259.             IF !USED ("Kodi2")
  260.                 USE "&cPach" + "\Bin\Kodi2" SHARE IN 0
  261.             ENDIF
  262.             SELECT Kodi2
  263.             SET FILTER TO Da_zay = (dNast)
  264.             GO TOP
  265.             SET ORDER TO nam
  266.             WAIT WINDOW "                       ╚±∩εδⁿτ≤σ≥±  ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
  267.                 + "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
  268.         ENDIF
  269.     ENDIF
  270. ENDIF
  271.  
  272. if !used ('Pre')
  273.     use "&cPach" + "\Bin\Pre" excl in 0
  274. endif
  275. select Pre
  276.  
  277. *!*    SELECT table1
  278. *!*    CD (cPach1)
  279. *!*    IF FILE ("Kodi.dbf")
  280.     SELECT Kodi
  281.     DO FORM "&cPach" + "\Forms\Z_1"
  282. *!*    ELSE
  283. *!*        IF !USED ("Kodi")
  284. *!*            USE "&cPach" + "\Bin\Kodi" SHARE IN 0
  285. *!*        ENDIF
  286. *!*        WAIT WINDOW "                         ╚±∩εδⁿτ≤■≥±  ≥αßδΦ÷√ ΣΦ±≥≡Φßⁿ■≥ΦΓα!!!"+CHR(13);
  287. *!*            + "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφφ√⌡ ∩≤≥σΘ φσ ±≤∙σ±≥Γ≤σ≥"
  288. *!*        SELECT Kodi
  289. *!*        DO FORM "&cPach" + "\Forms\Z_1"
  290. *!*    ENDIF
  291.  
  292.