Приветик! Ребята, что - то затупила:( пытаюсь загрузить данные из дбф файла, но он создают кучу документов, а не создает один и уже в тч добавляет строки...
где косяк?:(

```1c
    Процедура КнопкаВыполнитьНажатие(Кнопка)
    ИмяФайла = "D:\kl41101.DBF";
    БД = Новый xBase;
    БД.Кодировка = КодировкаXBase.OEM;
    БД.ОткрытьФайл(ИмяФайла);
    Сообщить("Файл открыт " + ИмяФайла,СтатусСообщения.Важное);

    СчетчикЗаписей = 0;

    Бд.Первая();

    Пока Истина Цикл
    Документ = Документы.ПоступленияНаСклад1Кладовая411Цеха.Выбрать();
    Пока Документ.Следующий() Цикл
    Док = Документы.ПоступленияНаСклад1Кладовая411Цеха.СоздатьДокумент();
    НовСтр = Док.Товары.Добавить();
    НовСтр.НоменклатурныйНомер = СокрЛП(БД.Nom);
    НовСтр.Количество = СокрЛП(бд.kol);
    НовСтр.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду(бд.ed).Ссылка;
    док.Дата = ТекущаяДата();
    док.Записать();
    КонецЦикла;
    СчетчикЗаписей = СчетчикЗаписей + 1;
    Сообщить(СчетчикЗаписей);

    Если Не БД.Следующая() Тогда
    Прервать;
    КонецЕсли;

    КонецЦикла;

    БД.ЗакрытьФайл();
    Сообщить("Файл закрыт",СтатусСообщения.Важное);
    Сообщить("Загружено записей "+ СчетчикЗаписей,СтатусСообщения.ОченьВажное);

    КонецПроцедуры
```
---
```1c
    Процедура КнопкаВыполнитьНажатие(Кнопка)

    ИмяФайла = "D:\kl41101.DBF";

    БД = Новый xBase;
    БД.Кодировка = КодировкаXBase.OEM;
    БД.ОткрытьФайл(ИмяФайла);
    Сообщить("Файл открыт " + ИмяФайла,СтатусСообщения.Важное);

    СчетчикЗаписей = 0;

    Бд.Первая();

    Док = Документы.ПоступленияНаСклад1Кладовая411Цеха.СоздатьДокумент();
    Док.Дата = ТекущаяДата();

    Пока НЕ БД.ВКонце() Цикл
    НовСтр = Док.Товары.Добавить();
    НовСтр.НоменклатурныйНомер = СокрЛП(БД.Nom);
    НовСтр.Количество = СокрЛП(бд.kol);
    НовСтр.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду(бд.ed).Ссылка;
    БД.Следующая();
    КонецЦикла;

    Док.Записать();

    БД.ЗакрытьФайл();

    Сообщить("Файл закрыт",СтатусСообщения.Важное);
    Сообщить("Загружено записей "+ СчетчикЗаписей,СтатусСообщения.ОченьВажное);

    КонецПроцедуры
```
---
Зачем документы выбирать? и создавать на каждую запись БД?
---
поэтому и спрашиваю, потому что не знаю, что исправить конкретно нужно :)
---
```1c
    Док = Документы.ПоступленияНаСклад1Кладовая411Цеха.СоздатьДокумент();
    Пока Истина Цикл
    Пока Документ.Следующий() Цикл
    // НовСтр = Док.Товары.Добавить();
    НовСтр.НоменклатурныйНомер = СокрЛП(БД.Nom);
    НовСтр.Количество = СокрЛП(бд.kol);
    НовСтр.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду(бд.ed).Ссылка;
    док.Дата = ТекущаяДата();
    док.Записать();
    // КонецЦикла;
```
---
ничего, к сожалению, не происходит :(
---
```1c
    Процедура КнопкаВыполнитьНажатие(Кнопка)

    ИмяФайла = "D:\kl41101.DBF";

    БД = Новый xBase;
    БД.Кодировка = КодировкаXBase.OEM;
    БД.ОткрытьФайл(ИмяФайла);
    Сообщить("Файл открыт " + ИмяФайла,СтатусСообщения.Важное);

    СчетчикЗаписей = 0;

    Бд.Первая();

    Док = Документы.ПоступленияНаСклад1Кладовая411Цеха.СоздатьДокумент();
    Док.Дата = ТекущаяДата();

    Пока НЕ БД.ВКонце() Цикл
    НовСтр = Док.Товары.Добавить();
    НовСтр.НоменклатурныйНомер = СокрЛП(БД.Nom);
    НовСтр.Количество = СокрЛП(бд.kol);
    НовСтр.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду(бд.ed).Ссылка;
    БД.Следующая();
    КонецЦикла;

    Док.Записать();

    БД.ЗакрытьФайл();

    Сообщить("Файл закрыт",СтатусСообщения.Важное);
    Сообщить("Загружено записей "+ СчетчикЗаписей,СтатусСообщения.ОченьВажное);

    КонецПроцедуры
```
---
Спасибо большое за вашу помощь!