Прайс-заказ с картинками + выгрузка в Excel и загрузка обратно в 1С

08.12.17

Расширил стандартный функционал прайса, добавил: колонки "заказ" и "сумма", итоговую сумму в шапке, кнопку выгрузки в Excel, которая сохраняет и добавляет формулы. Сделал обработку загрузки данного прайс-заказа в реализацию.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Обработка "Прайс-заказ с картинками" .epf 72,92Kb 38	38	3 400 руб. Купить	3 SM Скачать
Обработка "Загрузка прайс-заказа" .epf 8,85Kb 15	15	3 000 руб. Купить	2 SM Скачать

Всем здрасте!

Не нашел достойного и простого решения, казалось бы, обыденной задачи: выгрузка прайс-заказа для УТ 10.3 с дальнейшей его загрузкой обратно в 1С.

Взял имеющийся у меня в закромах прайс с картинками, автора "shoa" от 10.10.2013. Не смог найти здесь этой публикации, помогите, сделаю ссылку.

Сделал картинку впереди номенклатуры, добавил колонки и выгрузку в Excel.

Функция выгрузки ниже:

//мифе 20171207
Процедура КоманднаяПанельСохранитьExcel(Кнопка)
	
	//Сообщить("Пошло сохранение ... ");
	ФайлПрайсЛиста = "";
	
	// Выбираем название файла 	
	ДиалогВыбораФайла =	Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
	
	ДиалогВыбораФайла.Фильтр = "Файл прайс-листа (*.xls)|*.xls";
	ДиалогВыбораФайла.Заголовок	= "Выберите файл прайс-листа";
	ДиалогВыбораФайла.ПредварительныйПросмотр =	Ложь;
	ДиалогВыбораФайла.Расширение = "xsl";
	ДиалогВыбораФайла.ИндексФильтра	= 0;
	ДиалогВыбораФайла.ПолноеИмяФайла = "ПрайсЛист " + Формат(ТекущаяДата(), "ДФ = ""ддММгггг""");
	ДиалогВыбораФайла.ПроверятьСуществованиеФайла =	Ложь;
	
	Если ДиалогВыбораФайла.Выбрать() Тогда
		ФайлПрайсЛиста = ДиалогВыбораФайла.ПолноеИмяФайла;
	КонецЕсли;
	
	// Записываем в excel "как есть" 	
	ЭлементыФормы.ДокументРезультат.Записать(ДиалогВыбораФайла.ПолноеИмяФайла, ТипФайлаТабличногоДокумента.XLS); 
	
	// Подставляем формулы
	ВыбФайл = Новый Файл(ФайлПрайсЛиста); 		
	НомерЛистаExcel = 1;
	xlLastCell = 11;
	
	Если НЕ ВыбФайл.Существует() Тогда
		Сообщить("Файл не существует!");
		Возврат;
	КонецЕсли;
	
	Попытка
		Excel = Новый COMОбъект("Excel.Application");
		//Excel = Новый COMОбъект("Calc.Application");
		КнигаExcel = Excel.WorkBooks.Open(ФайлПрайсЛиста);
		Состояние("Обработка файла Microsoft Excel...");
		ExcelЛист = КнигаExcel.Sheets(НомерЛистаExcel);
	Исключение
		Сообщить("Ошибка. Не удалось открыть документ.");
		Сообщить(" Подробное описание ошибки: "+ОписаниеОшибки(), СтатусСообщения.ОченьВажное);
		Возврат;		
	КонецПопытки;
		
	ActiveCell = КнигаExcel.ActiveSheet.Cells.SpecialCells(xlLastCell);
	RowCount = ActiveCell.Row;
	ColumnCount = ActiveCell.Column;
	
	// наши настройки 
	ПерваяСтрокаДанных = 11;
	КолонкаИтоговая = 6;
	КолонкаСуммаСтроки 	= 4 + мКоличествоДопПолейПосле;
	КолонкаЗаказа = КолонкаСуммаСтроки - 1;
	СтрокаСуммаБезСкидки = 5;
	СтрокаРазмерСкидки = 6;
	СтрокаСуммаСоСкидкой = 7;
	СмещениеКолонкиПоГоризонтали = мКоличествоДопПолейПосле - 2;   //количество допполей без суммы и заказа 
	СмещениеКолонкиПоВертикали = 6;
	
	// пропишем формулы в шапке
	попытка
		ЯчейкаФормулы = ExcelЛист.Cells(СтрокаСуммаБезСкидки,КолонкаИтоговая);   // Итоговая сумма
		ЯчейкаФормулы.Formula = "=SUM(R[" + СмещениеКолонкиПоВертикали +"]C[" + СмещениеКолонкиПоГоризонтали + "]:R[" + (RowCount - СмещениеКолонкиПоВертикали + 1) + "]C[" + СмещениеКолонкиПоГоризонтали + "])";
		
		ЯчейкаФормулы = ExcelЛист.Cells(СтрокаСуммаСоСкидкой,КолонкаИтоговая);   // Итоговая сумма со скидкой
		ЯчейкаФормулы.Formula = "=R[-2]C*(1-R[-1]C/100)";
	исключение
	конецпопытки;
	
	
	// пропишем формулы для каждой строки
	Для Row = ПерваяСтрокаДанных По RowCount Цикл
		ЯчейкаФормулы = ExcelЛист.Cells(Row,КолонкаСуммаСтроки);
		ЯчейкаФормулы.Formula = "=RC[-1]*RC[-2]";
		
		ЯчейкаФормулы = ExcelЛист.Cells(Row,КолонкаЗаказа);
		ЯчейкаФормулы.Formula = "0";
	КонецЦикла;

	
	// закрываем Excel
	Excel.DisplayAlerts = FALSE;
	КнигаExcel.SaveAs(ФайлПрайсЛиста,-4143);
	КнигаExcel.Close();
	
	Excel = 0; 
	
КонецПроцедуры

Далее сделал внешнюю обработку заполнения табличной части. При регистрации необходимо добавить параметр "КолонкаЗаказ", в котором указать номер колонки, у меня "6".

Функция заполнения табчасти ниже:

Процедура Инициализировать(Объект, ИмяТабличнойЧасти = Неопределено, ТабличноеПолеОбъекта = Неопределено) Экспорт
	
	//Объект = Документы.РеализацияТоваровУслуг.СоздатьДокумент().Ссылка; //тест 	
	ФайлПрайсЛиста = "";
		
	ДиалогВыбораФайла =	Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);	
	ДиалогВыбораФайла.Фильтр =	"Файл прайс-листа (*.xls)|*.xls";
	ДиалогВыбораФайла.Заголовок	=	"Выберите файл прайс-заказа";
	ДиалогВыбораФайла.ПредварительныйПросмотр =	Ложь;
	ДиалогВыбораФайла.Расширение =	"xsl";
	ДиалогВыбораФайла.ИндексФильтра	=	0;
	ДиалогВыбораФайла.ПолноеИмяФайла =	"";
	ДиалогВыбораФайла.ПроверятьСуществованиеФайла =	Ложь;
	
	Если ДиалогВыбораФайла.Выбрать() Тогда
		ФайлПрайсЛиста = ДиалогВыбораФайла.ПолноеИмяФайла;
	КонецЕсли;
	
	ВыбФайл = Новый Файл(ФайлПрайсЛиста); 		
	НомерЛистаExcel = 1;
	xlLastCell = 11;
	
	Если НЕ ВыбФайл.Существует() Тогда
		Сообщить("Файл не существует!");
		Возврат;
	КонецЕсли;
	
	Попытка
		Excel = Новый COMОбъект("Excel.Application");
		//Excel = Новый COMОбъект("Calc.Application");
		КнигаExcel = Excel.WorkBooks.Open(ФайлПрайсЛиста);
		Состояние("Обработка файла Microsoft Excel...");
		ExcelЛист = КнигаExcel.Sheets(НомерЛистаExcel);
	Исключение
		Сообщить("Ошибка. Не удалось открыть документ.");
		Сообщить(" Подробное описание ошибки: "+ОписаниеОшибки(), СтатусСообщения.ОченьВажное);
		Возврат;		
	КонецПопытки;
		
	ActiveCell = КнигаExcel.ActiveSheet.Cells.SpecialCells(xlLastCell);
	RowCount = ActiveCell.Row;
	ColumnCount = ActiveCell.Column;
	
	// наши настройки
	КолонкаЗаказ = 0;
	попытка
		КолонкаЗаказ = ДополнительныеПараметры.КолонкаЗаказ; 
	исключение
		Сообщить("Ошибка! Необходимо указать параметр заполнения ""КолонкаЗаказ""! По умолчанию используется ""6""!");
		КолонкаЗаказ = 6;
	КонецПопытки;
	ПерваяСтрокаДанных = 11;
	КолонкаНаименование = 3;
	КолонкаСумма = КолонкаЗаказ + 1;
	КолонкаИтоговая = 6;
	СтрокаРазмерСкидки = 6;
	
	НашДокумент = Объект;//.ПолучитьОбъект();
	НашаТЧ = НашДокумент.Товары;
	
	//посмотрим скидку
	РазмерСкидки = 0;
	попытка
		РазмерСкидки = Число(ExcelЛист.Cells(СтрокаРазмерСкидки, КолонкаИтоговая).Value);
	Исключение
	КонецПопытки;
	
	Для i = ПерваяСтрокаДанных По RowCount Цикл
		попытка
			НаименованиеНоменклатуры = СокрЛП(ExcelЛист.Cells(i, КолонкаНаименование).Value);
			КоличествоНоменклатуры = Число(ExcelЛист.Cells(i, КолонкаЗаказ).Value);
			СуммаНоменклатуры = Число(ExcelЛист.Cells(i, КолонкаСумма).Value);
		исключение
			Сообщить("Ошибка! Не получается распознать значение в колонке, загрузка прекращена!");
			Сообщить("КолонкаНаименование: " + ExcelЛист.Cells(i, КолонкаНаименование).Value);
			Сообщить("КолонкаЗаказ: " + ExcelЛист.Cells(i, КолонкаЗаказ).Value);
			Сообщить("КолонкаСумма: " + ExcelЛист.Cells(i, КолонкаСумма).Value);
			Сообщить("----");
			// закрываем Excel
			Excel.DisplayAlerts = FALSE;
			КнигаExcel.Close();
			Excel = 0;
			Возврат;
		КонецПопытки;
		
		если КоличествоНоменклатуры = 0 тогда
			продолжить;
		КонецЕсли;
		НашаНоменклатура = Справочники.Номенклатура.НайтиПоНаименованию(НаименованиеНоменклатуры);
		если НашаНоменклатура <> Неопределено тогда
			НоваяСтрока = НашаТЧ.Добавить();
			НоваяСтрока.Номенклатура = НашаНоменклатура;
			НоваяСтрока.Количество = КоличествоНоменклатуры;
			НоваяСтрока.Сумма = СуммаНоменклатуры * (1 - РазмерСкидки/100);
			НоваяСтрока.ПроцентСкидкиНаценки = РазмерСкидки;
			НоваяСтрока.Цена = СуммаНоменклатуры/КоличествоНоменклатуры;
			НоваяСтрока.ЕдиницаИзмерения = НашаНоменклатура.ЕдиницаХраненияОстатков;
			НоваяСтрока.Коэффициент = 1;
			НоваяСтрока.СтавкаНДС = НашаНоменклатура.СтавкаНДС;
			НоваяСтрока.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.СоСклада;
		КонецЕсли;	  		
		//Сообщить(НаименованиеНоменклатуры);			
	КонецЦикла;
	
	// закрываем Excel
	Excel.DisplayAlerts = FALSE;
	КнигаExcel.Close();
	Excel = 0; 	
	
КонецПроцедуры

Работоспособность проверена на ут 10.3.45.1 и Excel 2007.

Вроде все, всем спасибо за внимание!

Вступайте в нашу телеграмм-группу Инфостарт

Прайс-заказ с картинками загрузка заказов в 1С прайс-лист

+11 –

См. также

Пакет обновлений и продолжение поддержки для 1С:УТ 10.3

Оптовая торговля Розничная торговля НДС 22% 1С 8.3 1С:Управление торговлей 10 Россия Платные (руб)

Пакет обновлений и продолжения поддержки Управление торговлей, редакция 10.3.- обновление которое предоставляет пользователям новые функции, исправления ошибок и т.д.

14640 руб.

19.12.2025 5768 60 33

Обмен 1С с системой ЦРПТ (Универсальная конфигурация ХамелеонЦРПТ + маркировка табака, обуви, одежды, лекарств, фото, молока, духов(парфюма), питьевой воды, велосипедов и шин)

Оптовая торговля Розничная торговля Обмен с ГосИС Программист Бухгалтер Пользователь 1С:Предприятие 8 1C:Бухгалтерия Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Россия Бухгалтерский учет Управленческий учет Платные (руб)

Решение создано для помощи разработчикам, интеграторам и другим заинтересованным лицам по настройке системы маркировки обуви, одежды, лекарств, табака, фото, молока, духов(парфюма), питьевой воды, велосипедов и шин. Задавайте вопросы по работе с ЦРПТ, GS1, ЭДО, Национальным каталогом, накоплен опыт и знания по данным темам.

5000 руб.

18.03.2019 120796 77 115

200

ЕГАИС++. Опт, производство, импорт

Оптовая торговля Розничная торговля Обмен с ГосИС Бухгалтер 1С:Предприятие 8 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Бухгалтерский учет Управленческий учет Акцизы Платные (руб)

Автоматизация учета ЕГАИС в 1С для оптовой торговли, производства и импорта алкогольной продукции. Получение и отправка ТТН, отправка акта о постановке на баланс и акта о списании. Получение остатков. Загрузка и сопоставление номенклатуры и контрагентов. Оправка в ЕГАИС отчетов о производстве и импорте.

15.12.2015 181751 1226 biz-intel 374

416

Расширенная форма списка Номенклатура и Корзина для 1С:УТ11, ERP и КА

Рабочее место Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Ценообразование, анализ цен Бухгалтер Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Расширение для работы с номенклатурой: отображение остатков, цен, изображений, аналитики по каждой позиции, подбор товаров в документы через корзину и оптимизация интерфейса.

17284 руб.

26.04.2016 673658 1432 642

689

Автоматический заказ поставщику в 1С: загрузка прайсов и анализ цен

Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Анализ продаж Пользователь 1С:Предприятие 7.7 1С:Предприятие 8 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 1.х 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 10 1С:Управление торговлей 11 1С:Розница 2 1С:Розница 3.0 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Беларусь Украина Россия Казахстан Управленческий учет Платные (руб)

Автоматизация заказа поставщику через 1С. Загрузка прайсов, анализ цен, управление заказами в УТ 10.3, УТ 11, КА2, УНФ, УПП, ERP, Розница 2

39141 руб.

21.04.2017 109065 187 44

250

SALE! 15%

Из Excel в 1С "одним нажатием"

Загрузка и выгрузка в Excel Оптовая торговля Бухгалтер Пользователь 1С:Предприятие 8 1С:Бухгалтерия 2.0 1С:Бухгалтерия 3.0 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление холдингом 1С:Комплексная автоматизация 1.х 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 10 1С:Управление торговлей 11 1С:Розница 2 1С:Розница 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная обработка для загрузки документов из Excel в 1С. Забудьте о ручном вводе: загружайте документы из Excel в 1С за секунды! Не требует указания параметров (номера колонок, номер первой строки таблицы и т.д.) и предварительной настройки. Просто выбираете файл эксель, документ 1С и нажимаете кнопку "Загрузить"

8000 руб.

09.11.2016 270715 1195 955

1109

Загрузка номенклатуры в 1С:УТ11, КА 2, ERP 2, Розница 2 из Excel. Дополнительные реквизиты и сведения, характеристики, картинки, цены, остатки

Загрузка и выгрузка в Excel Розничная торговля Логистика, склад и ТМЦ Ценообразование, анализ цен Прайсы Системный администратор Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Управленческий учет Платные (руб)

Загрузка номенклатуры из файлов Excel (xls, xlsx, ods, csv, mxl) в УТ11, КА 2, ERP 2, Розница 2. Задействованы все возможности конфигурации - заполнение реквизитов номенклатуры, дополнительных реквизитов и сведений, характеристики, доп.реквизиты и сведения характеристик. Дополнительные обработки для расширения возможностей.

12444 руб.

29.10.2014 230520 742 530

494

Загрузка данных о продажах WildBerries из API Статистики и Отчетов в формате *.xlsx в 1С документ «Отчет комиссионера»

Загрузка и выгрузка в Excel Маркетплейсы Программист Бухгалтер Пользователь 1С:Предприятие 8 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Бухгалтерский учет Платные (руб)

Обработки загрузки данных о продажах WildBerries предназначены для следующих конфигураций: Бухгалтерия предприятия, редакция 3.0; Управление нашей фирмой, редакция 3.0; Розница, редакция 3.0; Управление торговлей, редакция 11; Управление торговлей, редакция 10.3

6100 руб.

11.12.2019 64853 1103 3

307

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. d.zhukov 1620 09.12.17 07:21 Сейчас в теме

Не нашел достойного и простого решения, казалось бы, обыденной задачи

Значит плохо искали)

2. ogre2007 305 09.12.17 13:16 Сейчас в теме

(1) Просветите - буду благодарен.

3. dimmat 12.12.17 03:02 Сейчас в теме

Здравствуйте!
1. Есть ли возможность выгружать в excel только имеющиеся в наличии?
2. Интересует возможность выгрузки без цен?
3. Есть ли возможность добавить колонку остаток?
4. Можно ли разбить корневые группы товаров по листам книги excel?

4. ogre2007 305 12.12.17 14:53 Сейчас в теме

(3)

1. Есть ли возможность выгружать в excel только имеющиеся в наличии?

Конечно, это стандартный функционал прайса, который был взят за основу.

2. Интересует возможность выгрузки без цен?

Вообще это прайс, что значит без цен?! Создайте тип цен "без цен" и выгружайте прайс по этому типу цен. Как вариант.

3. Есть ли возможность добавить колонку остаток?

Конечно, это стандартный функционал прайса, который был взят за основу.

4. Можно ли разбить корневые группы товаров по листам книги excel?

Нет, такой функции нет. Но ее можно допилить. Только это задача не на 5 минут.

5. user794003 06.04.18 11:14 Сейчас в теме

Какая вероятность, что встанет на Розницу 2.0?

7. ogre2007 305 30.04.18 11:52 Сейчас в теме

(5)Нулевая, это обычные формы, а не управляемые

6. markettv 27.04.18 05:58 Сейчас в теме

День добрый. Не выводит картинку хотя она есть, выводит только ее описание. ???

8. ogre2007 305 30.04.18 11:53 Сейчас в теме

(6)В настройке не правильно выставлены поля. Скорее всего. Посмотрите скриншоты.

9. Algisdv 05.10.18 13:05 Сейчас в теме

Если вывести прайс без картинок то ваша формула смещается на столбец и уже не работают расчет в шапке

10. DenisNv 21.05.20 18:02 Сейчас в теме

Здравствуйте, как мне сделать такой прайс в 1с 8.3.10.2505? Нужно чтобы выгружался с картинками.

Для отправки сообщения требуется регистрация/авторизация

Автор:

Владимир Батурин (ogre2007)

Рейтинг: 305

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 713282

Создание 08.12.17 18:31

Обновление 08.12.17 18:31

Статистика:

Просмотры 22346

Загрузки 53

Рейтинг 11

Комментарии 10

Характеристики:

Код открыт Да

Рубрики Прайсы Загрузка и выгрузка в Excel Оптовая торговля

Кому Программист ,
Пользователь

Тип файла Внешняя обработка (ert,epf)

Платформа 1С:Предприятие 8

Конфигурация 1С:Управление торговлей 10

Операционная система Не имеет значения

Страна Россия

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Управленческий учет

Доступ к файлу Абонемент ($m)

Прайс-заказ с картинками + выгрузка в Excel и загрузка обратно в 1С

Файлы

См. также

Журнал

База знаний

Лаборатория

Анализ & Управление

Сопровождение 1С

Корпоративные решения

Обучение

Маркетплейс

Проектный офис

Мероприятия

Видеозаписи

Биржа заказов

Форум

Мерч

О компании