home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.texkom.ru
/
ftp.texkom.ru.tar
/
ftp.texkom.ru
/
Zay100.zip
/
Zay100
/
Progs
/
perindx.prg
< prev
next >
Wrap
Text File
|
2002-07-08
|
1KB
|
61 lines
IF MESSAGEBOX (" ╙Σε±≥εΓσ≡≥σ±ⁿ, ≈≥ε Γ±σ ∩εδⁿτεΓα≥σδΦ Γ√°δΦ Φτ ∩≡επ≡α∞∞√." + CHR (13) +;
" ╧≡Φ±≥≤∩Φ≥ⁿ Ω ∩σ≡σΦφΣσΩ±α÷ΦΦ?", 36 , "╧σ≡σΦφΣσΩ±α÷Φ ") = 6
CLOSE TABLE ALL
USE "&cPach" + "\Bin\Table1" IN 0 EXCL
CD (cPach1)
DELETE FILE *.CDX
USE ALLTRIM(Table1.cPach1) + "Fio" IN 0 EXCL
SELECT fio
INDEX ON ALLTRIM (UPPER (nname1)) TAG fio
SELECT fio
PACK
USE
USE ALLTRIM(Table1.cPach1) + "Kodi" IN 0 EXCL
SELECT kodi
INDEX ON ALLTRIM (UPPER (NAME))TAG Nam
INDEX ON ALLTRIM (kodtov) TAG kodtov
INDEX ON ALLTRIM (UPPER (artikul)) TAG artikul
INDEX ON DTOC (data) + ALLTRIM (UPPER (NAME)) TAG da
INDEX ON data TAG da1
INDEX ON ALLTRIM (UPPE (MEMBER)) TAG MEMBER
SELECT kodi
PACK
USE
USE "&cPach" + "\Bin\Kodi" IN 0 EXCL
SELECT kodi
INDEX ON ALLTRIM (UPPER (NAME))TAG Nam
INDEX ON ALLTRIM (kodtov) TAG kodtov
INDEX ON ALLTRIM (UPPER (artikul)) TAG artikul
INDEX ON DTOC (data) + ALLTRIM (UPPER (NAME)) TAG da
INDEX ON data TAG da1
INDEX ON ALLTRIM (UPPE (MEMBER)) TAG MEMBER
SELECT kodi
PACK
USE
USE ALLTRIM(Table1.cPach1) + "Kodi2" IN 0 EXCL
SELECT kodi2
INDEX ON ALLTRIM (UPPER (NAME))TAG Nam
SELECT kodi2
PACK
USE
USE ALLTRIM(Table1.cPach2) + "Za" IN 0 EXCL
SELECT Za
INDEX ON ALLTRIM (UPPE (NAME)) TAG Nam
INDEX ON ALLTRIM (kodtov) TAG kodtov
INDEX ON ALLTRIM (UPPER (artikul)) TAG artikul
INDEX ON kolvo TAG kol
SELEC Za
PACK
USE
SELECT Table1
USE
ENDIF