"ленивая" переиндексация
допустим вы дописываете программу и в конце как всегда - сервисные функции - переиндексация.
у вас уже есть куча баз в которых куча cdx tag-ов
не удобно лазить каждый раз в свойства базы и смотерть инексное выражение , чтобы потом его вставлять в процедуру.
чтобы немного упростить это дело (не заменить!!!) написал небольшую прогу. выберите нужную таблицу и запустите программку, потом полученные строки вставляете в свою процедуру
НО ограничения если у вас не совсем стандартный индекс: есть фильтры
или DESCENDING и т.п. то все таки надо будет ручками эти вещи дописать в процедуру переиндексации.
********************************* begin *****************
SET text on TO 'c:_list.txt'
set cons off
text
<<'*** индексный файл '>> <
endtext
FOR nCount = 1 TO 254
IF !EMPTY(TAG(nCount))
text
<<'index on '>><
endtext
ELSE
EXIT
ENDIF
ENDFOR
set text to
set cons on
*** открываем файл компируем оттуда текст в процедуру переиндексации
********************************* end *****************
а вот содержимое того файла
*** индексный файл C:PSBNEWCREDIT.CDX
index on KODTT tag TT additiv
index on STR(KODTT,3)+ALLTRIM(NOMER) tag TNOMER additiv
index on STR(KODTT,3)+ALLTRIM(NAME_F) tag TFNAME additiv
index on STATUS tag STATUSD additiv
index on DATE1 tag DOPEN additiv
index on STR(KODTT,3)+STR(KODDOG,6) tag TTDOG additiv
index on STR(KODTT,3)+STR(STATUS,1) tag TTSTATUS additiv
Автор публикации
