Выгрузка и загрузка закупочных цен номенклатуры в формате JSON

24.08.26

Интеграция - Перенос данных 1C

+ –

Обработка позволяет выгрузить любые виды цен (розничные, закупочные и т.д.) документов Установка цен номенклатуры из 1С: Розницы 2.3 в Розницу 3.0 в формате JSON.

Файлы

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

Наименование	Скачано	Купить файл	По подписке PRO
Выгрузка и загрузка цен номенклатуры в формате JSON .epf 16,47Kb 2	2	2 500 руб. Купить	1 SM Скачать

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

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

При переходе с Розницы 2.3 на Розницу 3.0 столкнулся с тем, что в документы Установка цен номенклатуры выгружаются только цены из правил ценообразования магазинов, а закупочные цены туда не попадают.

Закупочные цены можно создать на основе поступления или оприходования товаров, но мне хотелось, чтобы были цены как в исходниках - в одном документе может быть несколько установленных видов цен номенклатуры.

Решил быстренько написать обработку для выгрузки/загрузки данных, которая выгружает цены за указанный период из документов УстановкаЦенНоменклатуры в JSON-файл. Можно выгружать любые виды цен.

Важно, чтобы уникальные идентификаторы номенклатуры в базе источнике и в базе приемнике совпадали (у нас же переход с 2.3 на 3.0).

Идентификаторы видов цен могут не совпадать. В таком случае у нас есть два варианта: либо указать идентификатор вида цены приемной базы (поле Идентификатор в приемнике табличного поля видов цен), либо включить опцию Определять вид цены по наименованию (при загрузке) и не забыть установить опцию Выгружать наименование вида цены.

Не забываем, что в Рознице 2.3 у нас товары и ответственный, а в 3.0 - запасы и автор (указывается в соответствующих полях).

В результате выгрузки создается файл в формет JSON. Пример содержимого представлен на одном из скринов.

Информация о ходе выгрузки/загрузки выводится в конце в виде оповещения пользователя.

БСП не используется. С базовыми версиями программ работает (потому и обработка).

Обработка осуществляется в основном потоке.

Перед загрузкой желательно сделать резервную копию базы.

UPD. Выложил код выгрузки/загрузки

Основная функция выгрузки данных в файл

&НаСервере
Функция ВыгрузитьУстановкиЦенВJSON(ПутьКФайлу, ДатаНачала, ДатаОкончания, ВидыЦен, ИдентификаторыВидовЦенПриемника)
	
	ТекущийДокументСсылка = Неопределено;
	ОписаниеДокумента = Неопределено;
	МассивСтрок = Новый Массив;
	
	МассивДанных = Новый Соответствие;
	
	Записано = 0;
	КоличествоТоваров = 0;

	ПараметрыЗаписи = Новый ПараметрыЗаписиJSON(, Символы.Таб);

	ЗаписьJSON = Новый ЗаписьJSON();
	ЗаписьJSON.ОткрытьФайл(ПутьКФайлу,,, ПараметрыЗаписи);

	// Начало массива документов
	ЗаписьJSON.ЗаписатьНачалоМассива();
	
	Если ВыгружатьАвтораДокумента Тогда
		ДопПолеОтветственный = СтрШаблон("
			|	УстановкаЦенНоменклатуры.%1 КАК %1,", ИмяРеквизитаОтветственный);
	Иначе
		ДопПолеОтветственный = "";
	КонецЕсли;
		
	Запрос = Новый Запрос;
	Запрос.Текст = СтрШаблон(
		"ВЫБРАТЬ
		|	УстановкаЦенНоменклатуры.Ссылка КАК Ссылка,
		|	УНИКАЛЬНЫЙИДЕНТИФИКАТОР(УстановкаЦенНоменклатуры.Ссылка) КАК ИдДокумента,
		|	УстановкаЦенНоменклатуры.Номер КАК Номер,
		|	УстановкаЦенНоменклатуры.Дата КАК Дата," + ДопПолеОтветственный + "
		|	ЗапросТоваров.Номенклатура КАК Номенклатура,
		|	УНИКАЛЬНЫЙИДЕНТИФИКАТОР(ЗапросТоваров.Номенклатура) КАК ИдНоменклатуры,
		|	ЗапросТоваров.Характеристика КАК Характеристика,
		|	ЗапросТоваров.ВидЦены КАК ВидЦены,
		|	УНИКАЛЬНЫЙИДЕНТИФИКАТОР(ЗапросТоваров.ВидЦены) КАК ИдВидаЦены,
		|	ЗапросТоваров.Цена КАК Цена%3
		|ИЗ
		|	Документ.%1 КАК УстановкаЦенНоменклатуры
		|		ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
		|			УстановкаЦенНоменклатурыТовары.Ссылка КАК Ссылка,
		|			УстановкаЦенНоменклатурыТовары.НомерСтроки КАК НомерСтроки,
		|			УстановкаЦенНоменклатурыТовары.Номенклатура КАК Номенклатура,
		|			УстановкаЦенНоменклатурыТовары.Характеристика КАК Характеристика,
		|			УстановкаЦенНоменклатурыТовары.ВидЦены КАК ВидЦены,
		|			УстановкаЦенНоменклатурыТовары.Цена КАК Цена%4
		|		ИЗ
		|			Документ.%1.%2 КАК УстановкаЦенНоменклатурыТовары) КАК ЗапросТоваров
		|		ПО УстановкаЦенНоменклатуры.Ссылка = ЗапросТоваров.Ссылка
		|ГДЕ
		|	УстановкаЦенНоменклатуры.Проведен = ИСТИНА И УстановкаЦенНоменклатуры.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
		|	И ЗапросТоваров.ВидЦены В(&ВидыЦен)", ИмяДокументаУстановкаЦенНоменклатуры, ИмяТаблицыТоваровДокумента, 
		?(ВыгружатьПолеЦенаИзмененаВручную, ", ЗапросТоваров.ЦенаИзмененаВручную КАК ЦенаИзмененаВручную", ""), ?(ВыгружатьПолеЦенаИзмененаВручную, ", УстановкаЦенНоменклатурыТовары.ЦенаИзмененаВручную КАК ЦенаИзмененаВручную", ""));

	Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
	Запрос.УстановитьПараметр("ДатаОкончания", ДатаОкончания);
	Запрос.УстановитьПараметр("ВидыЦен", ВидыЦен);

	Результат = Запрос.Выполнить();
	Выборка = Результат.Выбрать();
	
	Пока Выборка.Следующий() Цикл
		
		Если Выборка.Цена = 0 Тогда
			Продолжить;
		КонецЕсли;

		// Если перешли к новому документу — записываем предыдущий (если был)
		Если ТекущийДокументСсылка <> Неопределено И ТекущийДокументСсылка <> Выборка.Ссылка Тогда
			ЗаписатьДокументВJSON(ЗаписьJSON, ОписаниеДокумента, МассивСтрок, ИмяТаблицыТоваровДокумента);
			Записано = Записано + 1;
			КоличествоТоваров = КоличествоТоваров + МассивСтрок.Количество();
			МассивСтрок.Очистить();
			ТекущийДокументСсылка = Неопределено;
			ОписаниеДокумента = Неопределено;
		КонецЕсли;
			
		Если ОписаниеДокумента = Неопределено Тогда
			ОписаниеДокумента = Новый Структура;
			ОписаниеДокумента.Вставить("Документ", Строка(Выборка.ИдДокумента));
			ОписаниеДокумента.Вставить("Номер", Выборка.Номер);
			ОписаниеДокумента.Вставить("Дата", Выборка.Дата);
			Если ВыгружатьАвтораДокумента Тогда
				ОписаниеДокумента.Вставить(ИмяРеквизитаОтветственный, Строка(Выборка[ИмяРеквизитаОтветственный]));
			КонецЕсли;
			
		КонецЕсли;
		
		Если ТекущийДокументСсылка = Неопределено Тогда
			ТекущийДокументСсылка = Выборка.Ссылка;
			МассивСтрок = Новый Массив;
		КонецЕсли;

		СтрокаТЧ = Новый Структура;
		СтрокаТЧ.Вставить("Номенклатура", Строка(Выборка.ИдНоменклатуры));
		Если ВыгружатьНаименованиеНоменклатуры Тогда
			СтрокаТЧ.Вставить("НаименованиеНоменклатуры", Строка(Выборка.Номенклатура));
		КонецЕсли;
		
		ИдВидаЦены = ИдентификаторыВидовЦенПриемника[Выборка.ВидЦены];
		Если Не ЗначениеЗаполнено(ИдВидаЦены) Тогда
			ИдВидаЦены = Строка(Выборка.ИдВидаЦены);
		КонецЕсли;
		СтрокаТЧ.Вставить("ВидЦены", ИдВидаЦены);
		Если ВыгружатьНаименованиеВидаЦены Тогда
			СтрокаТЧ.Вставить("НаименованиеВидаЦены", Строка(Выборка.ВидЦены));
		КонецЕсли;
		СтрокаТЧ.Вставить("Цена", Выборка.Цена);
		Если ВыгружатьПолеЦенаИзмененаВручную Тогда
			СтрокаТЧ.Вставить("ЦенаИзмененаВручную", Выборка.ЦенаИзмененаВручную);
		КонецЕсли;
		
		МассивСтрок.Добавить(СтрокаТЧ);

	КонецЦикла;

	// Записываем последний документ
	Если ТекущийДокументСсылка <> Неопределено Тогда
		ЗаписатьДокументВJSON(ЗаписьJSON, ОписаниеДокумента, МассивСтрок, ИмяТаблицыТоваровДокумента);
		Записано = Записано + 1;
		КоличествоТоваров = КоличествоТоваров + МассивСтрок.Количество();
	КонецЕсли;

	// Конец массива документов
	ЗаписьJSON.ЗаписатьКонецМассива();
	ЗаписьJSON.Закрыть();
	
	Результат = Новый Структура;
	Результат.Вставить("ИмяФайла", ПутьКФайлу);
	Результат.Вставить("Записано", Записано);
	Результат.Вставить("КоличествоТоваров", КоличествоТоваров);

	Возврат Результат;
КонецФункции

Загрузка данных из файла

&НаСервере
Функция ЗагрузитьУстановкиЦенИзJSON(ПутьКФайлу)
	
	УровеньМассива = 0;
	
	КоличествоДокументов = 0;
	КоличествоНайденныхДокументов = 0;
	КоличествоПроблемных = 0;
	КоличествоТоваров = 0;
	Добавлено = 0;
	ОбщееКоличествоОшибок = 0;
	
	ОписаниеДокумента = Новый Структура;

	ИмяТабличнойЧасти = "";
	
	СоответствиеНоменклатуры = Новый Соответствие;
	СоответствиеВидаЦен = Новый Соответствие;
	
	ЧтениеJSON = Новый ЧтениеJSON;
	ЧтениеJSON.ОткрытьФайл(ПутьКФайлу);
	
	Пока ЧтениеJSON.Прочитать() Цикл
		
		НачалоМассива = Ложь;

		TипJSON = ЧтениеJSON.ТипТекущегоЗначения;
		Если TипJSON = ТипЗначенияJSON.ИмяСвойства Тогда
		    ИмяСвойства = ЧтениеJSON.ТекущееЗначение;
			Значение = Неопределено;
		ИначеЕсли TипJSON = ТипЗначенияJSON.Число ИЛИ TипJSON = ТипЗначенияJSON.Строка ИЛИ TипJSON = ТипЗначенияJSON.Булево ИЛИ TипJSON = ТипЗначенияJSON.Null Тогда
		    Значение = ЧтениеJSON.ТекущееЗначение;
		ИначеЕсли TипJSON = ТипЗначенияJSON.Комментарий Тогда
		    Комментарий = ЧтениеJSON.ТекущееЗначение;
		КонецЕсли;

		Если TипJSON = ТипЗначенияJSON.НачалоМассива Тогда
			НачалоМассива = Истина;
			УровеньМассива = УровеньМассива + 1;
		КонецЕсли;

		Если УровеньМассива = 1 Тогда
			
			// Массив документов
			Если TипJSON = ТипЗначенияJSON.НачалоОбъекта Тогда
				ОписаниеДокумента.Очистить();
		        //СтрокаТовара = Док.ТабличнаяЧасть.Добавить();
			ИначеЕсли TипJSON = ТипЗначенияJSON.КонецОбъекта Тогда
				// Все данные собраны, можно приступать к обработке документа:
				
				ДанныеДокумента = Неопределено;
				ОписаниеДокумента.Свойство(ИмяТабличнойЧасти, ДанныеДокумента);
				КоличествоДокументов = КоличествоДокументов + 1;
				КоличествоТоваров = КоличествоТоваров + ДанныеДокумента.Количество();
				КоличествоОшибок = 0;
				
				РезультатОбработкиДокумента = СкорректироватьДокументУстановкаЦен(ОписаниеДокумента, ДанныеДокумента, СоответствиеНоменклатуры, СоответствиеВидаЦен,
					ИмяДокументаУстановкаЦенНоменклатуры, ИмяТаблицыТоваровДокумента, ОпределятьВидЦеныПоНаименованию);
				Если РезультатОбработкиДокумента <> Неопределено Тогда
					КоличествоНайденныхДокументов = КоличествоНайденныхДокументов + 1;
					Добавлено = Добавлено + РезультатОбработкиДокумента.Добавлено;
					КоличествоОшибок = РезультатОбработкиДокумента.КоличествоОшибок;
				КонецЕсли;
				Если РезультатОбработкиДокумента = Неопределено Или КоличествоОшибок > 0 Тогда
					КоличествоПроблемных = КоличествоПроблемных + 1;
				КонецЕсли;
				
				ОбщееКоличествоОшибок = ОбщееКоличествоОшибок + КоличествоОшибок;
				
			ИначеЕсли ЗначениеЗаполнено(ИмяСвойства) И ЗначениеЗаполнено(Значение) Тогда
				ОписаниеДокумента.Вставить(ИмяСвойства, Значение);
			КонецЕсли;
	
		ИначеЕсли УровеньМассива = 2 Тогда
			// Массив элементов документа
			Если TипJSON = ТипЗначенияJSON.НачалоМассива Тогда
				ДанныеДокумента = Новый Массив;
				ИмяТабличнойЧасти = ИмяСвойства;
				
			ИначеЕсли TипJSON = ТипЗначенияJSON.НачалоОбъекта Тогда
				ДанныеСтроки = Новый Структура;
				
			ИначеЕсли TипJSON = ТипЗначенияJSON.КонецОбъекта Тогда
				// Данные документа готовы к дальнейшей обработке
				ДанныеДокумента.Добавить(ДанныеСтроки);
				
			ИначеЕсли TипJSON = ТипЗначенияJSON.КонецМассива Тогда
				ОписаниеДокумента.Вставить(ИмяТабличнойЧасти, ДанныеДокумента);
								
			ИначеЕсли ЗначениеЗаполнено(ИмяСвойства) И ЗначениеЗаполнено(Значение) Тогда
				ДанныеСтроки.Вставить(ИмяСвойства, Значение);
			КонецЕсли;
			
		КонецЕсли;

		Если TипJSON = ТипЗначенияJSON.КонецМассива Тогда
		    УровеньМассива = УровеньМассива - 1;
		КонецЕсли;

	КонецЦикла;

	ЧтениеJSON.Закрыть();
	
	Результат = Новый Структура;
	Результат.Вставить("ИмяФайла", ПутьКФайлу);
	Результат.Вставить("КоличествоДокументов", КоличествоДокументов);
	Результат.Вставить("КоличествоТоваров", КоличествоТоваров);
	Результат.Вставить("КоличествоНайденныхДокументов", КоличествоНайденныхДокументов);
	Результат.Вставить("КоличествоПроблемных", КоличествоПроблемных);
	Результат.Вставить("Добавлено", Добавлено);
	Результат.Вставить("КоличествоОшибок", ОбщееКоличествоОшибок);
	Возврат Результат;

КонецФункции

Проверено на следующих конфигурациях и релизах:

Розница, редакция 2.3, релизы 2.3.25.23
Розница, редакция 3.0, релизы 3.0.14.108

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

обработка выгрузка загрузка Установка цен номенклатуры JSON Розница торговля перенос данных

+ –

См. также

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

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

Перенос документов, начальных остатков и справочной информации из УПП 1.3 в ERP 2 | из УПП 1.3 в УТ 11 | из УПП в КА 2 | Правила конвертации (КД 2) | Более 360 предприятий выполнили переход с использованием этого продукта! | Сэкономьте время - используйте готовое решение для перехода! | Позволяет перенести из УПП 1.3 в ERP / УТ 11 / КА 2 всю возможную информацию | В переносе есть фильтр по организации и множество других опциональных параметров выгрузки | Есть несколько алгоритмов выгрузки остатков на выбор

58000 руб.

04.08.2015 194961 479 310

474

SALE! 10%

ED для ERP 2, КА 2, УТ 11, БП 3.0, Розница, УНФ. Новые

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Разработчик 1С:Предприятие 8 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, ERP 2.6, КА 2.5, КА 2.6, УТ 11.5, УТ 11.6, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27633 руб.

12.06.2017 165222 1009 329

493

SALE! 10%

Перенос данных 1С из УПП 1.3 в Бухгалтерию 3.0

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Разработчик 1С:Предприятие 8 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Переносите справочную информацию, остатки и документы из УПП 1.3 в Бухгалтерию 3.0 с помощью готовых правил. Переносится более 50 видов документов. Простой интерфейс и понятные настройки.

~~42000~~ 37800 руб.

15.12.2021 37214 270 68

204

SALE! 10%

Перенос данных из 1С:УПП 1.3 в ERP 2.6, КА 2.6. Переносятся документы (обороты за период), справочная информация и остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Разработчик 1С:Предприятие 8 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 Бухгалтерский учет Управленческий учет Платные (руб)

Переносите справочную информацию, остатки и документы из УПП 1.3 в ERP 2.6 и КА 2.6 с помощью готовых правил. Переносится более 60 видов документов. Простой интерфейс и понятные настройки.

~~42000~~ 37800 руб.

24.06.2020 73286 108 35

114

Переход и перенос данных из Камин 3.0, 4.0, 5.0 в ЗУП 3.х

Перенос данных 1C Разработчик Бухгалтер 1С:Предприятие 8 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет НДФЛ ФОМС, ЕФС Платные (руб)

Обработки для быстрого перехода с конфигураций «КАМИН:Расчет заработной платы 3.0», «КАМИН:Зарплата для бизнеса 4.0» и «КАМИН:Зарплата 5.0» на конфигурацию «Зарплата и управление персоналом» версии 3.1.

20740 руб.

25.09.2016 93451 429 268

356

ED для УПП, КА 1.1, УТ 10.3

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

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 3, УНФ 3 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

27572 руб.

18.02.2016 209412 686 559

566

Перенос данных из Парус 10 в ЗГУ ред.3

Внешние источники данных Кадровый учет Файловый обмен (TXT, XML, DBF), FTP Перенос данных 1C Разработчик 1С:Предприятие 8 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактическим удержаниям, НДФЛ, вычетам, страховым взносам из базы Парус 10 учреждений (далее Парус) в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (далее 1С) и начать с ней работать с любого месяца года.

85400 руб.

05.10.2022 14600 17 8

SALE! 10%

Перенос данных из КА 1.1 в БП 3.0. Переносятся документы (обороты за период), справочная информация и остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Разработчик 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 3.0 Россия Платные (руб)

Перенос данных из 1С:Комплексной автоматизации 1.1 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях КА 1.1 (1.1.115.1) и БП 3.0 (3.0.210.x). Правила подходят для версии ПРОФ и КОРП.

~~40000~~ 36000 руб.

11.07.2019 30993 129 32

Комментарии

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

Свернуть все

1. Tarlich 89 06.08.26 11:49 Сейчас в теме

1 Если задача разовая то В УНФ и Рознице есть штатый механизм загрузки цен . можно из вида цен , можно из Док.УстановкаЦенноменклатуры остается из базы источника получить необходимую таблицу - есть универсальный отчет, консоль запросов , регистр список сохранить ... без цен характеристик ?
2 Вроде штатный механизм перехода с 2 на 3 цены переносит
3 посмотрел - обработка ВыгрузкаЗагрузкаEnterpriseData умеет выгружать "Установка цен"

Прикрепленные файлы:

2. begemotoff35 06.08.26 12:03 Сейчас в теме

(1)

обработка ВыгрузкаЗагрузкаEnterpriseData умеет выгружать "Установка цен"

Спасибо за отклик. У меня в документах УстановкаЦенНоменклатуры закупочные цены не выгружаются, только цены, которые прописаны в правилах ценообразования магазинов (а добавить в эти правила закупочную цену я не смог), поэтому сделал свой инструмент.