home *** CD-ROM | disk | FTP | other *** search
/ ftp.texkom.ru / ftp.texkom.ru.tar / ftp.texkom.ru / Zay100.zip / Zay100 / Progs / perindx.BAK next >
Text File  |  2002-07-08  |  1KB  |  61 lines
  1. IF MESSAGEBOX (" ╙Σε±≥εΓσ≡≥σ±ⁿ, ≈≥ε Γ±σ ∩εδⁿτεΓα≥σδΦ Γ√°δΦ Φτ ∩≡επ≡α∞∞√." + CHR (13) +;
  2.             "                  ╧≡Φ±≥≤∩Φ≥ⁿ Ω ∩σ≡σΦφΣσΩ±α÷ΦΦ?", 36 , "╧σ≡σΦφΣσΩ±α÷Φ ") = 6
  3. CLOSE TABLE ALL
  4. USE "&cPach" + "\Bin\Table1" IN 0 EXCL
  5. CD (cPach1)
  6. DELETE FILE *.CDX
  7.  
  8. USE ALLTRIM(Table1.cPach1) + "Fio" IN 0 EXCL
  9. SELECT fio
  10. INDEX ON ALLTRIM (UPPER (nname1)) TAG fio
  11. SELECT fio
  12. PACK
  13. USE
  14.  
  15. USE ALLTRIM(Table1.cPach1) + "Kodi" IN 0 EXCL
  16. SELECT kodi
  17. INDEX ON ALLTRIM (UPPER (NAME))TAG Nam
  18. INDEX ON ALLTRIM (kodtov)  TAG kodtov
  19. INDEX ON ALLTRIM (UPPER (artikul))  TAG artikul
  20. INDEX ON DTOC (data) + ALLTRIM (UPPER (NAME))  TAG da
  21. INDEX ON data TAG da1
  22. INDEX ON ALLTRIM (UPPE (MEMBER)) TAG MEMBER
  23. SELECT kodi
  24. PACK
  25. USE
  26.  
  27.  
  28. USE "&cPach" + "Bin\Kodi" IN 0 EXCL
  29. SELECT kodi
  30. INDEX ON ALLTRIM (UPPER (NAME))TAG Nam
  31. INDEX ON ALLTRIM (kodtov)  TAG kodtov
  32. INDEX ON ALLTRIM (UPPER (artikul))  TAG artikul
  33. INDEX ON DTOC (data) + ALLTRIM (UPPER (NAME))  TAG da
  34. INDEX ON data TAG da1
  35. INDEX ON ALLTRIM (UPPE (MEMBER)) TAG MEMBER
  36. SELECT kodi
  37. PACK
  38. USE
  39.  
  40.  
  41.  
  42.  
  43. USE ALLTRIM(Table1.cPach1) + "Kodi2" IN 0 EXCL
  44. SELECT kodi2
  45. INDEX ON ALLTRIM (UPPER (NAME))TAG Nam
  46. SELECT kodi2
  47. PACK
  48. USE
  49.  
  50. USE ALLTRIM(Table1.cPach2) + "Za" IN 0 EXCL
  51. SELECT Za
  52. INDEX ON ALLTRIM (UPPE (NAME)) TAG Nam
  53. INDEX ON ALLTRIM (kodtov) TAG kodtov
  54. INDEX ON ALLTRIM (UPPER (artikul)) TAG artikul
  55. INDEX ON kolvo TAG kol
  56. SELEC Za
  57. PACK
  58. USE
  59. SELECT Table1
  60. USE
  61. ENDIF