Процедура СозданиеИндексногоФайла(ЛокФайл,Кодировка,ЛокМассивИндексов) Экспорт ЛокБаза = Новый XBase(ЛокФайл); ЛокБаза.Первая(); ЛокБаза.Кодировка = Кодировка; // индекс CODE + TRIM(NAME) Для каждого ЛокИндекс Из ЛокМассивИндексов Цикл ЛокБаза.Индексы.Добавить(ЛокИндекс.Имя,ЛокИндекс.Выражение,ЛокИндекс.Уникальность); КонецЦикла; ЛокБаза.СоздатьИндексныйФайл(Лев(ЛокФайл,СтрДлина(ЛокФайл)-3)+"cdx"); ЛокБаза.Записать(); ЛокБаза.ЗакрытьФайл(); КонецПроцедуры
