Выдает ошибку типа индекс не найден

Процедура ЗаполнитьТочки()
   СпТочки.УдалитьВсе();
   файл = папкаОбмена + "\ManOrgs.dbf";
   файлинд = папкаОбмена + "\ManOrgs.cdx";
   ДБФ = СоздатьОбъект("XBase");
   Если ФС.СуществуетФайл(файл) = 0 Тогда
       ДБФ.ДобавитьИндекс("IndMan","IDDMan",0,0,"");
       ДБФ.ДобавитьПоле("IDDMan",   "S", 40, 0);
       ДБФ.ДобавитьПоле("IDDOrg",   "S", 40, 0);
       
       ДБФ.СоздатьФайл(файл,файлинд);
       //ДБФ.СоздатьИндексныйФайл(файлинд);
       ДБФ.Переиндексировать();
   Иначе
       ДБФ.ОткрытьФайл(файл,файлинд,1);
       Если ПустоеЗначение(СпМенеджеры.ТекущаяСтрока())=0 Тогда
           Идент=ЗначениеВСтрокуВнутр(СпМенеджеры.ПолучитьЗначение(СпМенеджеры.ТекущаяСтрока()));
           
           
           
           ДБФ.ТекущийИндекс("IndMan");
           ДБФ.Ключ.IDDMan=СокрЛП(Идент);
           Если ДБФ.НайтиПоКлючу(0)=1 Тогда
               Пока ДБФ.ВКонце()=0 Цикл
                   Точ=ЗначениеИзСтрокиВнутр(СокрЛП(ДБФ.IDDOrg));
                   СпТочки.ДобавитьЗначение(Точ,ВернутьПолнНазвТочки(Точ));
                   ДБФ.Следующая();
               КонецЦикла;
           КонецЕсли;
           
           
       КонецЕсли;
       ДБФ.ЗакрытьФайл();
       
   КонецЕсли;
   
КонецПроцедуры

?

А индексировать, кто будет?

+ После переиндексации разве не надо закрыть файл?

ДБФ.Переиндексировать();

(3) Закрыл и толку 0

И записал и переиндексировал

ДБФ.ДобавитьИндекс("IndMan","IDDMan",0,0,"");
       ДБФ.ДобавитьПоле("IDDMan",   "S", 40, 0);
       ДБФ.ДобавитьПоле("IDDOrg",   "S", 40, 0);
       
       ДБФ.СоздатьФайл(файл,файлинд);
       //ДБФ.СоздатьИндексныйФайл(файлинд);
       ДБФ.Переиндексировать();
       ДБФ.Записать();
       ДБФ.ЗакрытьФайл();

Индексы они такие, их так просто не возьмешь - Индексы не сдаются !

Ну а как их победить то?

ДБФ.КоличествоИндексов() = 0

на какой строчке выдаёт ошибку? полный текст ошибки?

(0)
//ДБФ.ДобавитьИндекс("IndMan","IDDMan",0,0,"");
ДБФ.ДобавитьПоле("IDDMan",   "S", 40, 0);
ДБФ.ДобавитьИндекс("IndMan","IDDMan",0,0,"");
ДБФ.ДобавитьПоле("IDDOrg",   "S", 40, 0);

и жалко, что XBase не ругается матом.. я б послал за создание индекса не у существующего поля.

(13) кстати, да, интересно, почему в данном случае не генерится ошибка