Есть файл DBF в котором проиндексирован файл MOL. Для каждого МОЛ есть номенклатура ну три или 10 записей из этого файла надо создать документ Ввод остатков делаю так:

ДокВвОст=СоздатьОбъект("Документ.ВводОстатковТМЦ");
Файл=СоздатьОбъект("XBASE");
Файл.ОткрытьФайл("d:\Work1C\Partii2.DBF","d:\Work1C\Partii2.CDX");
Если Файл.Открыта()=0 Тогда
    Сообщить ("Не удалось открыть файл");
КонецЕсли;
Файл.КодоваяСтраница(1);
Файл.Первая();
Индекс=Файл.ТекущийИндекс("IDMOL");
Пока Файл.ВКонце()=0 Цикл
   Если Файл.MOL=Индекс Тогда
       Сообщить(Файл.MOL);
   КонецЕсли;
   Сообщить(""+Файл.NOMEN+" "+Файл.KOL+" "+Файл.SUMMARUB);
КонецЦикла;
Файл.ЗакрытьФайл();

Что неправильно?

а что неправильно?

Такое чувство что виснет. Несколько записей выведет и все

А где Следующая() ?

Как для определенного индекса сделать выгрузку в ТЗ
На ум кроме цикла в цикле ни чего не приходит

(4) забить на xbase, написать прямой запрос к файлу через фоксовый провайдер, в нём - сделать что угодно и как угодно.

С индексами не работал. Всегда загружаю из ДБФ в ТЗ, потом с ТЗ делац что хочешь - сортируй, фильтруй, сворачивай...

(1) вот это неправильно:
Индекс=Файл.ТекущийИндекс("IDMOL");
Пока Файл.ВКонце()=0 Цикл
   Если Файл.MOL=Индекс Тогда

(5) Ну куда ему еще и прямые запросы...

Согласен что это неправильно
Как мне для ндекса получить список номенклатуры

зависает, потому что в цикле нет Файл.Следующая()

ДБФЗАР=СоздатьОбъект("XBase");
....
   Для СчЗаписейЗар=1 По ДБФЗАР.КоличествоЗаписей() Цикл
       ДБФЗАР.Перейти(СчЗаписейЗар);
       ТЗН.НоваяСтрока();
   ТЗН.Номенкл=ДБФЗАР.ПолучитьЗначениеПоля("Nomenkl");
.....
   КонецЦикла;      
   ДБФЗАР.ЗакрытьФайл();

(9)у тебя индекс с фильтром?

Без индекса

Без фильтра

Файл.Первая();
Индекс=Файл.ТекущийИндекс("IDMOL");

гы
переставить попробуй

(14)тогда опиши просто словами алгоритм что и как ты хочешь получить от использования индекса?

(16) Похоже, ты задал самый сложный вопрос в этой ветке ;-)

Для каждого склада надо необходимо определить номенклатуру

(11) 1986?
(15) А почти без разницы. Ему все равно позиционироваться надо. А индекс сработает при первом позиционировании.

(18) Ну и иди по индексу, да собирай номенклатуру, пока индексное поле не изменяется...

(19) "1986? " - не понял

Как сравнить значения первой и второй строки
Тоесть Если например МОЛ 1 строки <> МоЛ 2 строки то то то

(22) использовать условный оператор Если и операторы не равно (<>)

Для НС=1 По ТЗ.КоличествоСтрок()Цикл
   ТЗ.ПолучитьСтрокуПоНомеру(НС);
   Вот как на языке будет правильно
   Если ТЗ.МОЛ<>ТЗ.МОЛИзследующейстроки Тогд
   конецЕсли
КонецЦикла

(24) ПолучитьЗначение(номерстроки,номерколонки)
или ид колонки, сматри параметры метода в СП

Спасибо я че то пока теряюсь в этом СП

Для НС=1 По ТЗ.КоличествоСтрок()Цикл
   ТЗ.ПолучитьСтрокуПоНомеру(НС);
   Если ТЗ.ПолучитьЗначение(НС,2)<>ТЗ.ПолучитьЗначение(НС+1,2) Тогда
       Сообщить(ТЗ.МОЛ);
   КонецЕсли;
   

КонецЦикла

КонецПроцедуры

Вот но что делать с последней строкой

Если ТЗ.ПолучитьЗначение(НС,2)<>ТЗ.ПолучитьЗначение(НС+1,2) Тогда
{D:\WORK1C\5677.ERT(32)}: Номер за пределами значения!

(24) а запоминать предыдущие значение и сравнивать, не?

(26) поставиь условие на граничные условия вестимо, либо через если, либо через Макс

можно так:
Для НС=1 По ТЗ.КоличествоСтрок()-1 Цикл
   ТЗ.ПолучитьСтрокуПоНомеру(НС);
   Если ТЗ.ПолучитьЗначение(НС,2)<>ТЗ.ПолучитьЗначение(НС+1,2) Тогда
       Сообщить(ТЗ.МОЛ);
   КонецЕсли;
   

КонецЦикла

можно и так:
Для НС=2 По ТЗ.КоличествоСтрок() Цикл
   ТЗ.ПолучитьСтрокуПоНомеру(НС);
   Если ТЗ.ПолучитьЗначение(НС-1,2)<>ТЗ.ПолучитьЗначение(НС,2) Тогда
       Сообщить(ТЗ.МОЛ);
   КонецЕсли;
   

КонецЦикла

(28) да у него банально:
По ТЗ.КоличествоСтрок() и ТЗ.ПолучитьЗначение(НС+1,2)

(24)тебе же уже сказали:
отсортируй по МОЛ'у (или как ты хотел индекс у хэ-базы), получи значение из первой строки (записи), типа эталон и сравнивай со следущими. Как поменялось - меняй эталон и т.д. пока не кончаться данные.

(0) это продолжение Свертка базы ТИС ?
зачем тебе этот дбф вообще?

В старой базе делаешь ТЗ (тока ссылки туда не пихай) и ЗначениеВфайл
В новой базе ЗначениеИзФайла, Сортировать ("МОЛ") + обход ТЗ и запись...

делов на 30 минут

(31) ты что?! Это же еще про целый метод читать в СП придётся!
Как отсортировать ТЗ..

помогите еще пожалуйста как сделать чтобы все выполнялось логически

Суть в чем как только мы узнаем что в следующей строке у нас изменится МОЛ то мы записываем документ.

Для НС=1 По ТЗ.КоличествоСтрок()Цикл
   ДокВвОст.Новый();
   ТЗ.ПолучитьСтрокуПоНомеру(НС);
   ДокВвОст.Номенклатура=СпрНом.НайтиПоНаименованию(ТЗ.Номенклатура);
   ДокВвОст.Количество=Тз.Количество;
   Если ТЗ.ПолучитьЗначение(НС,2)<>ТЗ.ПолучитьЗначение(НС+1,2) Тогда
       ДокВвОст.Записать();
   КонецЕсли;
   

КонецЦикла;

Как раскидать

Ну добавь, если условие выполнится, после
ДокВвОст.Записать();
ДокВвОст.Новый();

Еще проверить после выхода из цикла, если надо - записать.

А вообще условие Если ТЗ.ПолучитьЗначение(НС,2)<>ТЗ.ПолучитьЗначение(НС+1,2)
должно всегда выдавать ошибку на последней строке, что-то_там_не_входит_в_границы.

+ для неотсортированной таблицы можешь получить несколько доков для одного МОЛ'а...
В общем - не зачет.

ТЗ отсартирована Что сделать чтобы ошибку ту не выдавало

(38)
Пример алгоритма
Дано ТЗ: Клиент,Товар,К-во


ТекущийКлиент="";
ТЗ.Сортировать("Клиент");
ТЗ.ВыбратьСтроки();
Док=СоздатьОбъект("Документ");
Пока ТЗ.ПолучитьСтроку()=1 Цикл
   Если ТЗ.Клиент<>ТекущийКлиент тогда
       Если Док.КоличествоСтрок()>0 тогда Док.записать(); КонецЕсли;
       Док.Новый();
       Док.ДатаДок=Рабочаядата();
       ....
       ТекущийКлиент=ТЗ.Клиент;
   КонецЕсли;
   Док.НоваяСтрока()
   Док.Товар=ТЗ.Товар;
   Док.Кво=ТЗ.Кво;
КонецЦикла;
Если Док.КоличествоСтрок()>0 тогда Док.записать(); КонецЕсли;

Почему при записи Дока из обработки в журнале не отображается его цена пока не зайдешь в сам документ и не нажмешь кнопку записать

(40) не выбран ТипЦен в шапке дока или, не заполнен еще какой реквизит.

Нету такого реквизита в ТИС

(42) да ну ? всю жизь был в реквизите шапки, в 8 редакции мот и не был - там категории цен были, а вот в 9 редакции всегда был.