Вигружаю ДБФ из реализации все оки , а загрузити не виходить.А конкретніше, загрузка виходить тільки в кожний документ воно ліпить тільки 1-ну позицію, а якщо в документі є 2-ві і більше позицій не виходить як загрузити всі позиції?
Процедура КнопкаВыполнитьНажатие(Кнопка)
БД = Новый XBase;
БД.ОткрытьФайл("C:\Tovaru.dbf");
Орг = Справочники.Организации.НайтиПоКоду("000000001");
КонтАг = Контр123;
ДогКонт = ДогКонт123;
сч = 0;
НомерДок = БД.DATA;
Пока БД.Следующая() Цикл
док=Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
док.Контрагент = КонтАг;
док.Организация = Орг;
док.ДоговорКонтрагента = ДогКонт123;
док.Дата = БД.DATA;
сч = сч +1;
Сообщить(сч);
ТабЧасТов = док.Товары.Добавить();
ТабЧасТов.Номенклатура = БД.Nom;
ТабЧасТов.Количество = БД.Kol;
ТабЧасТов.Цена = БД.Price;
док.Комментарий =БД.Koment;
док.Записать();
сч = сч + 1;
Сообщить(сч);
КонецЦикла;
БД.ЗакрытьФайл();
Сообщить("---------------------------------------------------------------------");
Сообщить("Кількість завантажених документів " + сч);
КонецПроцедуры
! | Правила, п.5 |