Ценовая власть-4. Алгоритм обновления цен, формулы и схемы СКД в ВидыЦен

08.04.24

Разработка - Механизмы типовых конфигураций

Результат исследования алгоритма обновления цен 2.5 в целях повышения квалификации и поиска возможностей предложить пользователям что-нибудь полезное.

Что полезного тут можно предложить пользователю? Очевидно, у вендора гораздо большая мощность для внедрения всяческих полезных фенечек, чем у одиночки-любителя.

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

Очевидно (автору очевидно, кто не согласен - пусть подумает, почему в любой торговле продажники "приносят деньги", а 1сники их только хотят), функционал ценообразования - один из важнейших в любой коммерческой фирме. Ключевой. Что надо сделать, какое чудо сотворить, чтобы снизить себестоимость товара (продукции, услуги) хотя бы на 10% ? А в "ценовой стратегии" +10% к цене - это рядовой, рабочий результат.

Если на фирме с продажными ценами работают, и работают серьезно, то вот вам пожалуйста - узкое место.

Хорошо бы, конечно, для этого плотное сотрудничество с заинтересованным клиентом. Но кто знает, кто знает... Вот завтра вдруг найдется такой, - "Хочу в ценовую стратегию!" - а и нечего ему предложить, кроме мануалов по типовому функционалу.

***

Процесс исследования представлен тремя предыдущими публикациями цикла:

Представление результата исследования:

УстановкаЦенСервер.ВыполнитьОбновлениеЦен(ВидыЦен, ПараметрыОбновленияЦен)

Из видов цен выбираются со способом задания "ЗагружаетсяИзЯндексМаркет" и "ЗагружаетсяСOzon", в цикле по ним с сайтов загружаются цены.

Создается технологическая структура

	
СтруктураФормы.Вставить("Дата", КонецДня(ТекущаяДатаСеанса()));
СтруктураФормы.Вставить("Модифицированность", Ложь);
СтруктураФормы.Вставить("Объект", ИнициализироватьОбъект());
	СтруктураОбъекта.Вставить("ВидыЦен", Новый ТаблицаЗначений());
	СтруктураОбъекта.Вставить("ДокументОснование");
	СтруктураОбъекта.ВидыЦен.Колонки.Добавить("ВидЦены", Новый ОписаниеТипов("СправочникСсылка.ВидыЦен"));
	СтруктураОбъекта.ВидыЦен.Колонки.Добавить("НастройкиКомпоновкиДанных", Новый ОписаниеТипов("ХранилищеЗначения"));
СтруктураФормы.Вставить("КодФормы", "ОбработкаЗаполненияЦен_тест");
СтруктураФормы.Вставить("ВыбранныеЦены", ИнициализироватьТаблицуВыбранныеЦены());
	ТаблицаВыбранныеЦены.Колонки.Добавить("Ссылка",				Новый ОписаниеТипов("СправочникСсылка.ВидыЦен"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("СпособЗаданияЦены",	Новый ОписаниеТипов("ПеречислениеСсылка.СпособыЗаданияЦен"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Выбрана", 			Новый ОписаниеТипов("Булево"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Редактировать", 		Новый ОписаниеТипов("Булево"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Зависит",			Новый ОписаниеТипов("Булево"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Влияет", 			Новый ОписаниеТипов("Булево"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Формула",			Новый ОписаниеТипов("Строка"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ФормулаРедактируется", Новый ОписаниеТипов("Булево"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Валюта",				Новый ОписаниеТипов("СправочникСсылка.Валюты"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Идентификатор",		Новый ОписаниеТипов("Строка"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ИмяКолонки",			Новый ОписаниеТипов("Строка"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Наименование",		Новый ОписаниеТипов("Строка"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ВариантОкругления",	Новый ОписаниеТипов("ПеречислениеСсылка.ВариантыОкругления"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ПорогСрабатывания",	Новый ОписаниеТипов(Метаданные.ОпределяемыеТипы.ДенежнаяСуммаНеотрицательная.Тип));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Уровень",			Новый ОписаниеТипов("Число"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ЗапрещенныйВидЦены",	Новый ОписаниеТипов("Булево"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("БазовыйВидЦены",		Новый ОписаниеТипов("Строка"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Наценка",			Новый ОписаниеТипов("Число"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ПометкаУдаления",	Новый ОписаниеТипов("Булево"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Параметры",			Новый ОписаниеТипов("Строка"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ВлияющиеВидыЦен",	Новый ОписаниеТипов("ТаблицаЗначений"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ВлияющиеЦены",		Новый ОписаниеТипов("СписокЗначений"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ЗависимыеЦены",		Новый ОписаниеТипов("СписокЗначений"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("УстанавливатьЦенуПриВводеНаОсновании",	Новый ОписаниеТипов("Булево"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ПорогСрабатыванияПриУменьшении",			Новый ОписаниеТипов("Число"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("РеквизитДопУпорядочивания",				Новый ОписаниеТипов("Число"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ДатаПоследнейУстановкиЦены",				Новый ОписаниеТипов("Дата"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("АдресСхемыКомпоновкиДанных",				Новый ОписаниеТипов("Строка"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("АдресНастроекСхемыКомпоновкиДанных",		Новый ОписаниеТипов("Строка"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("АдресНастроекСхемыКомпоновкиДанныхОтбораПоНоменклатуре",		Новый ОписаниеТипов("Строка"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("НайденыОбязательныеПараметры",			Новый ОписаниеТипов("Булево"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ПорогиСрабатывания",						Новый ОписаниеТипов("ТаблицаЗначений"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ПравилаОкругленияЦены",					Новый ОписаниеТипов("ТаблицаЗначений"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ЦеновыеГруппы",							Новый ОписаниеТипов("ТаблицаЗначений"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("Валюты",									Новый ОписаниеТипов("ТаблицаЗначений"));
	ТаблицаВыбранныеЦены.Колонки.Добавить("ЗапретитьРедактированиеЦеныЗаПределамиОтбора", Новый ОписаниеТипов("Булево"));
СтруктураФормы.Вставить("ДеревоЦен", Новый ДеревоЗначений());
СтруктураФормы.Вставить("ИспользоватьЦеновыеГруппы", ПолучитьФункциональнуюОпцию("ИспользоватьЦеновыеГруппы"));
СтруктураФормы.Вставить("ИспользоватьХарактеристикиНоменклатуры", ПолучитьФункциональнуюОпцию("ИспользоватьХарактеристикиНоменклатуры"));
СтруктураФормы.Вставить("ИспользоватьУпаковкиНоменклатуры", ПолучитьФункциональнуюОпцию("ИспользоватьУпаковкиНоменклатуры"));
СтруктураФормы.Вставить("ИспользоватьСерииНоменклатуры", ПолучитьФункциональнуюОпцию("ИспользоватьСерииНоменклатуры"));
СтруктураФормы.Вставить("ИспользоватьНесколькоВидовЦен", ПолучитьФункциональнуюОпцию("ИспользоватьНесколькоВидовЦен"));
СтруктураФормы.Вставить("ИспользуетсяЦенообразование25", ЦенообразованиеВызовСервера.ИспользуетсяЦенообразование25(КонецДня(ТекущаяДатаСеанса())));
СтруктураФормы.Вставить("АдресХранилищаКэшаДанных", "");
СтруктураФормы.Вставить("ВариантГруппировки", Неопределено);
СтруктураФормы.Вставить("ВыбранныеЦеныИзменены", Ложь);
СтруктураФормы.Вставить("РассчитыватьАвтоматически", Истина);
СтруктураФормы.Вставить("УникальныйИдентификатор", Новый УникальныйИдентификатор());
СтруктураФормы.Вставить("АдресХранилищаПараметровСхемКомпоновкиПоВидамЦен", "");
СтруктураФормы.Вставить("АдресХранилищаНастройкиКомпоновкиДанных", "");
СтруктураФормы.Вставить("ТаблицаНастройкиКомпоновкиДанных");

довесочек в структуру

	СтруктураФормы.Объект.Вставить("Товары", ДокументУстановкиЦен.Товары);
	СтруктураФормы.Объект.Вставить("Товары2_5", ДокументУстановкиЦен.Товары2_5);

В цикле по справочнику ВидыЦен заполняет ВыбранныеЦены в СтруктураФормы и получает настройку компоновки данных

	УстановкаЦенСервер.ИнициализироватьВыбранныеЦены(СтруктураФормы);
	СтруктураФормы.ТаблицаНастройкиКомпоновкиДанных = ПолучитьИзВременногоХранилища(СтруктураФормы.АдресХранилищаНастройкиКомпоновкиДанных);

еще довесочек

СтруктураФормы.ВыбранныеЦены.Колонки.Добавить("СхемаКомпоновкиДанных");

Строки выбранных цен заполняются схемой компоновки по адресу в этой же строке

Виды цен в структуре приводятся в соответствие с ПараметрыОбновленияЦен.ВариантОбновленияЦен

Следующий шаг, получение дерева (это уже в третьей публикации)

УстановкаЦенСервер.ПостроитьДеревоЦен(СтруктураФормы);

И завершение процедуры-обработчика, переходящее в УстановитьЦены (А нельзя здесь было просто очистить строки и адрес, а потом дважды вызвать УстановитьЦены для обновления и обнуления? Ну, это голимая риторика... Даже неловко почему-то)

	Для Индекс = 1 По 2 Цикл
		СтруктураФормы.ДеревоЦен.Строки.Очистить();
		СтруктураФормы.АдресХранилищаКэшаДанных = "";
		УстановитьЦены(МассивВидовЦен, СтруктураФормы, ?(Индекс = 1, "Обновление", "Обнуление"));
	КонецЦикла;

УстановитьЦены(Знач МассивВидовЦен, Знач СтруктураФормы, Знач ВидОбновленияЦен = "Обновление")

		УстановкаЦенСервер.ДобавитьТоварыПоОтборамСКД(СтруктураФормы, Истина);
	
		//	рассчитать цены
		ПараметрыРасчета = Новый Структура();
		ПараметрыРасчета.Вставить("ВидыЦен",				МассивВидовЦен);
		ПараметрыРасчета.Вставить("ТолькоВыделенныеСтроки",	Ложь);
		ПараметрыРасчета.Вставить("ТолькоНезаполненные",	Ложь);
		ПараметрыРасчета.Вставить("ЗагрузкаСтарыхЦен",		Ложь);
		ПараметрыРасчета.Вставить("ОкруглениеРучныхЦен",	Ложь);
		ПараметрыРасчета.Вставить("РасчетПоФормулам",		Истина);
	
		УстановкаЦенСервер.РассчитатьЦены(СтруктураФормы, ПараметрыРасчета);

Завершение:

Документы.УстановкаЦенНоменклатуры.ЗаписатьИзмененияЦенНаСервере(СтруктураФормы, ТекстКомментария, 1);

УстановкаЦенСервер.РассчитатьЦены(СтруктураФормы, ПараметрыРасчета);

Собирается Номенклатура:

ТаблицаНоменклатуры = СоздатьТаблицуНоменклатурыПоДеревуЦен(Форма, Ложь);

Здесь важны следующие две вызываемые процедуры:

ВычислитьЦеныПоДаннымИБ - работаем по схемам СКД, вызывается ВычислитьЗначенияЦеныПоДаннымИБ2_5:

ДанныеОтчета = Новый ТаблицаЗначений();
ПроцессорВывода.УстановитьОбъект(ДанныеОтчета);
ДанныеОтчета = ПроцессорВывода.Вывести(ПроцессорКомпоновки);
///
ЗагрузитьЦеныИзТаблицыЗначений(
	Форма,
	ДанныеОтчета,
	ТаблицаКоэффициентовУпаковокНоменклатуры,
	КэшДанных,
	СтрокаВидЦены,
	СтруктураПараметров);

РассчитатьВычисляемыеЦены


// Осуществляет расчет вычисляемых цен
// Параметры:
//  Форма - см. ПостроитьДеревоЦен.Форма
//  ТаблицаНоменклатуры - ДанныеФормыКоллекция - Таблица, в которой осуществляется расчет цен
//  КэшДанных - см. ИнициализироватьСтруктуруКэшаДанных
//  ВидыЦен - Массив из СправочникСсылка.ВидыЦен -
//          - Массив из СправочникСсылка.ВидыЦенПоставщиков -  
//  ТолькоНезаполненные - Булево - Указывает на необходимость расчета ранее заполненных цен
//  ИзмененноеПоле - Строка - Наименование измененного поля
//  МассивФормул - Массив - Данные по формулам
 ЗначениеЦены = ОбщегоНазначения.ВычислитьВБезопасномРежиме(Формула, ПараметрыДляВычисления);
//  где
 Возврат Вычислить(Выражение);

***

Это было краткое изложение алгоритма обновления цен.

В нем задействованы схемы компоновки СКД и формулы. Рассмотрим, что это такое, и нельзя ли что-нибудь с ними сделать так, чтобы весь алгоритм осуществить в одном запросе. Кроме обращения к сторонним сайтам, разумеется. Связь с интернетом надо вообще выделять в обособленный от регламентных процедур процесс. Пока интернет думает, отвечать на наш запрос или не отвечать, процедура стоит.

***

Вот здесь находится все, что надо:

Вот сюда надо поместить результат:

Делать это надо, например, когда изменяется базовая цена, например, загрузили из яндекса/озона, она и поменялась. И надо пересчитать по формуле или СКД все зависимые от базы. И сделать это быстро. Без запросов в цикле.

А заказчик, ну что заказчик. Было бы что предложить, а заказчик найдется.

Ценообразование управление ценами

+2 –2

См. также

Как устроен изнутри расчет себестоимости в типовых конфигурациях

Механизмы типовых конфигураций Программист Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Расчет себестоимости в типовых конфигурациях 1С – для многих «черный ящик», работающий по жестко зашитым в него алгоритмам. Реализация этого «черного ящика» может меняться в зависимости от конкретной конфигурации – УПП, БП 3.0, ERP. Но принцип работы везде одинаковый. Расскажем о том, как устроен расчет себестоимости, как его дорабатывать, и какие методы могут быть эффективны и без доработок.

27.12.2024 10367 Begemoth80 32

Простой способ переноса заимствованных в расширении форм в основную конфигурацию

Механизмы типовых конфигураций Программист Платформа 1С v8.3 Россия Бесплатно (free)

Как быстро преобразовать расширение в конфигурацию для дальнейшего переноса форм в основную конфигурацию.

20.12.2024 1271 rambomax 3

Данная база данных содержит описание методов Зарплата и кадры 3.1

Механизмы типовых конфигураций Программист Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Россия Налоговый учет Управленческий учет Абонемент ($m)

База данных содержит примеры и описание методов Зарплата и кадры 3.1.

3 стартмани

25.10.2024 1086 20 plm 0

Данная база данных содержит описание методов Бухгалтерии предприятия, редакция 3.0

Механизмы типовых конфигураций Программист Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Абонемент ($m)

База данных содержит примеры и описание методов Бухгалтерия предприятия, редакция 3.0.

3 стартмани

14.10.2024 746 12 plm 4

Механизм представлений в типовых конфигурациях 1С: Зарплата и управление персоналом, редакция 3.1

СКД Механизмы типовых конфигураций Запросы Программист Платформа 1С v8.3 1С:Зарплата и кадры государственного учреждения 3 1С:Зарплата и Управление Персоналом 3.x Россия Бесплатно (free)

Работая с типовыми отчетами в конфигурациях «Зарплата и управление персоналом, редакция 3», «Зарплата и кадры государственного учреждения, редакция 3» и подобных, в схемах компоновки данных можно встретить конструкции запросов, которые обращаются к некоторым виртуальным таблицам.

20.08.2024 2229 PROSTO-1C 0

Для объекта метаданных не существует идентификатор в регистре сведений "Идентификаторы объектов версий расширений"

Механизмы типовых конфигураций Программист Платформа 1С v8.3 1С:Комплексная автоматизация 2.х Россия Бесплатно (free)

Эта ошибка была обнаружена мной в типовой конфигурации 1С:Комплексная автоматизация 2 (2.5.16.115), БСП версия 3.1.9.302. Возникает она после того, как вы добавляете в расширение бизнес-процесс или задачу, выполняете обновление идентификаторов метаданных расширений, но ошибка при записи любого элемента справочника "Профили групп доступа" всё равно остаётся.

01.07.2024 2322 Vidz 0

Нетиповые предопределенным значениям

Механизмы типовых конфигураций Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Бесплатно (free)

Очень часто в написании кода требуется обращаться к предопределённым значениям. Если идёт обращение к типовым предопределённым значениям, то проблем не возникает.

24.06.2024 1341 olja-ljaaa 0