Не создает новый документ что с кодом не так

Док=СоздатьОбъект("Документ.ПоступлениеТоваров");  
ДБФ = создатьОбъект("XBASE");
ДБФ.ОткрытьФайл("D:\catalog.dbf");
Док=СоздатьОбъект("Документ.ПоступлениеТоваров");
ДБФ.Первая();


 Пока ДБФ.ВКонце()=0 Цикл
     
     
      Ценаа=ДБФ.Sum;


   


Док.Новый();
// Док.МестоХранения=ДБФ.Cklad;
  //Док.Контрагент=ДБФ.Postov;
  //Док.Договор=ДБФ.Dogovor;
  //Док.НомерДок=ДБФ.Homerdok;
  //Док.ДатаДок=ДБФ.DataDok;
 
Док.НоваяСтрока();
 // Док.Товар=ДБФ.Tovar;
 // Док.Количество= ДБФ.kol;
  Док.Цена=Ценаа;//ДБФ.Sum;

   
       ДБФ.Следующая();
       Док.Записать();
        Док.Провести();
КонецЦикла;
   
   
   


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

дык в цикл не заходит и привет

Док=СоздатьОбъект("Документ.ПоступлениеТоваров");  - для надежности два раза?

Ёпрст4 что в цикл не фходит

ДБФ.Следующая(); - в эту строчку внимательно вкурись в СП
(2) входит в цикл ;)

Ваще четкий код)))

Док.Новый();
Док.НоваяСтрока();
Док.Записать();

Ты точно уверен, что на КАЖДУЮ запись из dbf тебе надо создавать ОТДЕЛЬНЫЙ док. Поступления с ОДНОЙ строкой?))

(6) читай код выше - там в ДБФ у него поставщики и склады.. если чо..

Вот так попробуй:
КолЗаписей=ДБФ.КоличествоЗаписей();
Для НомЗаписи=1 По КолЗаписей Цикл
   ДБФ.Перейти(НомЗаписи);
КонецЦикла;

или так:
ДБФ.Первая();
Пока ДБФ.Следующая()=1 Цикл
   Док.....
КонецЦикла;
(7) И? в конкретном примере цикл один, так что насоздается много доков с одной строкой.
Если всё сидит в одной dbf (Поставщики, доки, товар), без индекса тут не обойтись

зачем? ну надо ему кучу доков с одной строкой - пусть лепит..

(8) да не там у него ошибка..