Обработка Загрузка DBF 8.2
Пример Загрузки товара из DBF файла в 1С.
Легко дорабатывается для печати списка товаров из нужного документа, либо под иные задачи.
При возникновении задач доработки, пишите, возможна доработка.
Текст обработки :
///////////////////////////////////////////////////////////////////////////////////////////////
Процедура ФайлНачалоВыбора(Элемент, СтандартнаяОбработка)
ДиалогФыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогФыбораФайла.Заголовок = “Выберите файл для загрузки данных”;
ДиалогФыбораФайла.ПредварительныйПросмотр = Ложь;
ДиалогФыбораФайла.ПолноеИмяФайла = Элемент.Значение;
Если ДиалогФыбораФайла.Выбрать() Тогда
Элемент.Значение = СокрЛП(ДиалогФыбораФайла.ПолноеИмяФайла);
КонецЕсли;
КонецПроцедуры
Процедура ЗагрузитьНажатие(Элемент)
ФайлДБФ = Новый XBase;
ФайлДБФ.ОткрытьФайл(Файл); //только для чтения
ФайлДБФ.Первая();
ТЗДокумент = Новый ТаблицаЗначений;
ТЗДокумент.Колонки.Добавить(“Артикул”);
ТЗДокумент.Колонки.Добавить(“Проба”);
ТЗДокумент.Колонки.Добавить(“Наименование”);
ТЗДокумент.Колонки.Добавить(“Количество”);
ТЗДокумент.Колонки.Добавить(“Код”);
ТЗДокумент.Колонки.Добавить(“Цена”);
ТЗДокумент.Колонки.Добавить(“Сумма”);
ТЗДокумент.Колонки.Добавить(“СуммаНДС”);
Пока НЕ ФайлДБФ.ВКонце() Цикл
Нов = ТЗДокумент.Добавить();
Нов.Артикул = СОКРЛП(ФайлДБФ.PROD_ART);
Нов.Наименование = СокрЛП(ФайлДБФ.PROD_NAME);
Нов.Количество = ФайлДБФ.KOL;
Нов.Код = СОКРЛП(ФайлДБФ.BARCODE);
Нов.Цена = ФайлДБФ.PRICE;
Нов.Сумма = ФайлДБФ.SUMM;
Нов.СуммаНДС = ФайлДБФ.SUMM_NDS;
ФайлДБФ.Следующая();
КонецЦикла;
ФайлДБФ.ЗакрытьФайл();
ДокПриход = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
ДокПриход.Организация = Организация;
ДокПриход.СкладОрдер = Склад;
ДокПриход.Контрагент = Контрагент;
ДокПриход.ДоговорКонтрагента = Договор;
Товары = ДокПриход.Товары;
Для Каждого СтрокаТовара ИЗ ТЗДокумент Цикл
Номенклатура = Справочники.Номенклатура.НайтиПоКоду(СтрокаТовара.Код);
НовСтрока = Товары.Добавить();
НовСтрока.Количество = СтрокаТовара.Количество;
НовСтрока.Количество = СтрокаТовара.Количество;
НовСтрока.Цена = СтрокаТовара.Цена;
НовСтрока.Сумма = СтрокаТовара.Сумма;
НовСтрока.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;
НовСтрока.СуммаНДС = СтрокаТовара.СуммаНДС;
КонецЦикла;
ФормаДока = ДокПриход.ПолучитьФорму();
ФормаДока.Открыть();
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////////////////////////
Цифровой товар продается на условии “КАК ЕСТЬ”. Обмену и возврату не подлежит.
Представленные здесь обработки при покупке можно править сходный код, он открыт и могут вноситься любые изменения и дополнения.
Публикация без разрешения владельца запрещена.
Отзывы
Отзывов пока нет.