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

08.12.17

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

Файлы

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

Наименование	Скачано	Купить файл (только для физ. лиц)	По подписке PRO
Обработка "Прайс-заказ с картинками" .epf 72,92Kb 38	38	2 450 руб. Купить	3 SM Скачать
Обработка "Загрузка прайс-заказа" .epf 8,85Kb 15	15	2 150 руб. Купить	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С v8.3 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Бухгалтерский учет Управленческий учет Акцизы Платные (руб)

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

828 руб.

15.12.2015 174848 1086 372

409

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

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

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

34500 руб.

21.04.2017 102126 151 44

230

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

Загрузка и выгрузка в Excel Маркетплейсы Программист Бухгалтер Пользователь 1С v8.3 Бухгалтерский учет 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С:КА 2, 1С:ERP Управление предприятием.

5400 руб.

12.08.2021 40132 458 69

190

Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2/3.0

Загрузка и выгрузка в Excel Логистика, склад и ТМЦ Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Бухгалтер Пользователь 1С v8.3 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Эволюция не стоит на месте - новая удобная версия функциональной обработки для Вашего бизнеса! Что же Вы получаете? Удобный и интуитивно понятный интерфейс с 3-мя этапами работы. 2 режима - автоматический и ручной. Чтение XLSX, XLSM, CSV, XML/YML форматов без офиса, на любом сервере! Визуальное связывание колонок файла и реквизитов простым перетаскиванием колонок. Создание или обновление номенклатуры с иерархией, характеристик, доп. реквизитов, упаковок, загрузка практически неограниченного количества картинок на одну номенклатуру (с возможностью загрузки в несколько потоков одновременно), с хранением в томах или в базе. Загрузка номенклатуры поставщиков или поиск по их данным номенклатуры. Загрузка доп. реквизитов в характеристики. Загрузка штрихкодов с генерацией новых. Создание элементов справочников и ПВХ "на лету" для выбранных реквизитов. (Обновление от 13.05.2025, версия 9.11 - 1010)

18000 руб.

20.11.2015 163388 406 386

532

SALE! 10%

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

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

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

8000 руб.

09.11.2016 251932 1130 935

1067

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

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

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

14000 руб.

26.04.2016 658911 1305 618

655

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

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

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

6000 руб.

26.11.2020 43865 762 4

242

SALE! 10%

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

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

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

~~55778~~ 50200 руб.

24.04.2015 199914 163 247

289

Комментарии

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

Свернуть все

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

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

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

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

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

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

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

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

(3)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

8. ogre2007 303 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? Нужно чтобы выгружался с картинками.

Оставьте свое сообщение

E-mail:

Автор:

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

Рейтинг: 303

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

Публикация:

№ 713282

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

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

Статистика:

Просмотры 21417

Загрузки 53

Рейтинг 11

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

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

Код открыт Да

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

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

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

Платформа Оперативный учет

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

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

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

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

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

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

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