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

08.12.17

Задачи пользователя - Прайсы

+11 –

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

Файлы

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

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

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

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

Не нашел достойного и простого решения, казалось бы, обыденной задачи: выгрузка прайс-заказа для УТ 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С: загрузка прайсов и анализ цен

Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Анализ продаж Пользователь 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 113468 212 44

257

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

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

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

20900 руб.

18.03.2019 128322 111 115

211

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

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

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

1091 руб.

15.12.2015 188354 1403 374

421

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

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

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

17284 руб.

26.04.2016 688064 1572 669

737

Перенос данных и обмен из УТ 10.3 в УТ 11 / КА 2 / ERP 2. Переносятся документы, справочники и остатки

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

Можно проверить до покупки, оставьте заявку! Воспользовались более 268 компаний! Перенос данных из УТ 10.3 в УТ 11 | из УТ 10.3 в КА 2 | из УТ 10.3 в ERP. Решение для перехода с УТ 10.3. Можно перенести начальные остатки, нормативно-справочную информацию и все возможные документы. При выгрузке можно установить отбор по периоду, организациям и складам.

50200 руб.

24.04.2015 211486 186 254

303

Маркетплейсный загрузчик для 12+ маркетплейсов в 1С:БП 3.0, 1С:УТ 11, 1С:Комплексная, 1C:ERP, 1C:УНФ

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

Реальный помощник, с помощью которого Вы преобразуете необходимые документы для Wildberries, OZON, ЯндексМаркет, ЛаМода, Мегамаркет, Aliexpress, Детский мир, Магнит Маркет (быв.МагнитЭкспресс), Лемана про, ЭНФАНТА (Акушерство), Летуаль, Твой дом, Золотое Яблоко, Каспи, Авито, Аптеки+, М.Видео,Тинькоф в документы "Отчет комиссионера (агента) о продажах" и другие. Работает в 1С:БП 3.0, 1С:БП 3.0 КОРП, 1С:УТ 11, 1С:УНФ, 1С:ERP.

5490 руб.

12.08.2021 48441 654 71

230

Загрузка данных о продажах 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

6000 руб.

11.12.2019 68033 1163 3

335

Обмен с системой Меркурий через Web + Ветис.API для любых конфигураций (универсальная конфигурация Хамелеон Меркурий)

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

Универсальная конфигурация Хамелеон Меркурий для взаимодействия с системой Меркурий (тестовый+рабочий+демо контур) может использоваться для интеграции в любую конфигурацию на базе 1С, версии ПРОФ и выше. Основное отличие от других решений - работа через веб-интерфейс и API 2.0(API 2.1). Для удобства реализован общий интерфейс в виде обработки, схожей с интерфейсом Меркурий, но возможностей гораздо больше, т.к. при интеграции в Вашу учетную систему, можно на основании Ваших справочников и документов, создавать соответствующие документы и справочники в системе Меркурий и наоборот.

11000 руб.

08.11.2017 132025 293 153

409

Комментарии

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

Свернуть все

1. d.zhukov 1675 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

Статистика:

Просмотры 22910

Загрузки 53

Рейтинг 11

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

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

Код открыт Да

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

Кому Разработчик ,
Пользователь

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

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

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

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

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

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

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

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

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

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

Файлы

См. также

Журнал

База знаний

Лаборатория

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

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

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

Обучение

Маркетплейс

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

Мероприятия

Видеозаписи

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

Форум

Мерч

О компании