Ценовая власть. Второй сезон

08.04.24

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

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

Первый сезон смотрите здесь.

А второй будет сниматься здесь

и здесь

Мы уже знаем, где смотреть сценарий.

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

Реализация, форма документа, при изменении номенклатуры

	Если (ИспользоватьСоглашенияСКлиентами И ЗначениеЗаполнено(Объект.Соглашение)) 
		Или (Не ИспользоватьСоглашенияСКлиентами И ИспользуетсяЦенообразование25) Тогда
		СтруктураДействий.Вставить("ЗаполнитьУсловияПродаж", ОбработкаТабличнойЧастиКлиентСервер.ПолучитьСтруктуруЗаполненияУсловийПродажВСтрокеТЧ(Объект));
	Иначе
		СтруктураДействий.Вставить("ЗаполнитьЦенуПродажи", ОбработкаТабличнойЧастиКлиентСервер.ПараметрыЗаполненияЦеныВСтрокеТЧ(Объект));
	КонецЕсли;

Вот так сразу - развилка. Либо заполняем цену, либо заполняем условия продаж (и уже потом, или в процессе), как-то цену.

Посмотрим сначала ветку с условиями продаж.

... а вот и нет. Порядок на посмотреть здесь определен до нас.

ОбработкаТабличнойЧастиКлиент.ОбработатьСтрокуТЧ(ТекущаяСтрока, СтруктураДействий, КэшированныеЗначения);
///  ...
Выполнить Метод + "(Параметры[0], Параметры[1], Параметры[2])"; // это уже на сервере

Соглашения здесь - это СправочникСсылка.СоглашенияСКлиентами

***

Хороший (большой) запрос. Всё как мы любим? Нет! Мы очень не любим, когда текст запроса формируется конструкцией СтрЗаменить. Складывается впечатление, что некоторые программисты просто не умеют в условия в самом запросе. Как они сами работают с ним в конструкторе - ответа на эту загадку я не знаю. Они должны тратить на это всё сэкономленное время + еще маленькую тележку, нет?

Процедура ЗаполнитьУсловияПродажВСтрокеТЧ2_5(ТекущаяСтрока, СтруктураДействий, КэшированныеЗначения) Экспорт

		Запрос = Новый Запрос("ВЫБРАТЬ
		|	ВЫРАЗИТЬ(&ВидЦены КАК Справочник.ВидыЦен) КАК ВидЦены,
		|	ВЫРАЗИТЬ(&Номенклатура КАК Справочник.Номенклатура) КАК Номенклатура,
		|	ВЫРАЗИТЬ(&Характеристика КАК Справочник.ХарактеристикиНоменклатуры) КАК Характеристика,
		|	ВЫРАЗИТЬ(&Серия КАК Справочник.СерииНоменклатуры) КАК Серия,
		|	ВЫРАЗИТЬ(&Упаковка КАК Справочник.УпаковкиЕдиницыИзмерения) КАК Упаковка
		|ПОМЕСТИТЬ ТаблицаТовары
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	ТаблицаТовары.ВидЦены КАК ВидЦены,
		|	ТаблицаТовары.Номенклатура КАК Номенклатура,
		|	ВЫБОР
		|		КОГДА
		|			ВидыНоменклатуры.НастройкиКлючаЦенПоХарактеристике = ЗНАЧЕНИЕ(Перечисление.ВариантОтбораДляКлючаЦен.НеИспользовать)
		|			ТОГДА ЗНАЧЕНИЕ(Справочник.ХарактеристикиНоменклатурыДляЦенообразования.ПустаяСсылка)
		|		ИНАЧЕ ТаблицаТовары.Характеристика.ХарактеристикаНоменклатурыДляЦенообразования
		|	КОНЕЦ КАК ХарактеристикаЦО,
		|	ЕСТЬNULL(ВЫБОР
		|		КОГДА ВидыНоменклатуры.НастройкиКлючаЦенПоСерии = ЗНАЧЕНИЕ(Перечисление.ВариантОтбораДляКлючаЦен.НеИспользовать)
		|			ТОГДА ЗНАЧЕНИЕ(Справочник.СерииНоменклатурыДляЦенообразования.ПустаяСсылка)
		|		ИНАЧЕ ТаблицаТовары.Серия.СерияНоменклатурыДляЦенообразования
		|	КОНЕЦ, ЗНАЧЕНИЕ(Справочник.СерииНоменклатурыДляЦенообразования.ПустаяСсылка)) КАК СерияЦО,
		|	ВЫБОР
		|		КОГДА ВидыНоменклатуры.НастройкиКлючаЦенПоУпаковке = ЗНАЧЕНИЕ(Перечисление.ВариантОтбораДляКлючаЦен.НеИспользовать)
		|			ТОГДА ЗНАЧЕНИЕ(Справочник.УпаковкиЕдиницыИзмерения.ПустаяСсылка)
		|		ИНАЧЕ ТаблицаТовары.Упаковка
		|	КОНЕЦ КАК УпаковкаЦО
		|ПОМЕСТИТЬ ТаблицаТоварыДоп
		|ИЗ
		|	ТаблицаТовары КАК ТаблицаТовары
		|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыНоменклатуры КАК ВидыНоменклатуры
		|		ПО ВидыНоменклатуры.Ссылка = ТаблицаТовары.Номенклатура.ВидНоменклатуры
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	ТаблицаОтбора.Номенклатура КАК Номенклатура,
		|	ТаблицаОтбора.ХарактеристикаЦО КАК ХарактеристикаЦО,
		|	ТаблицаОтбора.СерияЦО КАК СерияЦО,
		|	ТаблицаОтбора.УпаковкаЦО КАК УпаковкаЦО,
		|	&ЗначениеВидаЦенПоИсточнику КАК ВидЦены,
		|	МИНИМУМ(ВременнаяТаблицаВидыЦен.Приоритет) КАК Приоритет
		|ПОМЕСТИТЬ ТаблицаОтбора
		|ИЗ
		|	ТаблицаТоварыДоп КАК ТаблицаОтбора
		|		ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
		|			ВложенныйЗапрос.ВидЦены КАК ВидЦены,
		|			МИНИМУМ(ВложенныйЗапрос.Приоритет) КАК Приоритет
		|		ИЗ
		|			&ТекстЗапросаИсточникаУсловияПродаж КАК ВложенныйЗапрос
		|		СГРУППИРОВАТЬ ПО
		|			ВложенныйЗапрос.ВидЦены) КАК ВременнаяТаблицаВидыЦен
		|		ПО ИСТИНА
		|СГРУППИРОВАТЬ ПО
		|	ТаблицаОтбора.Номенклатура,
		|	ТаблицаОтбора.ХарактеристикаЦО,
		|	ТаблицаОтбора.СерияЦО,
		|	ТаблицаОтбора.УпаковкаЦО,
		|	&ЗначениеВидаЦенПоИсточнику
		|
		|ИНДЕКСИРОВАТЬ ПО
		|	Номенклатура,
		|	ХарактеристикаЦО,
		|	СерияЦО,
		|	УпаковкаЦО,
		|	ВидЦены
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	ЕСТЬNULL(&ТекстЗапросаКоэффициентУпаковки1, 1) * ЕСТЬNULL(ЦеныНоменклатурыСрезПоследних.Цена, 0) /
		|		ЕСТЬNULL(&ТекстЗапросаКоэффициентУпаковки2, 1) * ВЫБОР
		|		КОГДА &Валюта <> ЦеныНоменклатурыСрезПоследних.Валюта
		|			ТОГДА ВЫБОР
		|				КОГДА ЕСТЬNULL(КурсыВалютыЦены.КурсЗнаменатель, 0) > 0
		|				И ЕСТЬNULL(КурсыВалютыЦены.КурсЧислитель, 0) > 0
		|				И ЕСТЬNULL(КурсыВалюты.КурсЗнаменатель, 0) > 0
		|				И ЕСТЬNULL(КурсыВалюты.КурсЧислитель, 0) > 0
		|					ТОГДА КурсыВалютыЦены.КурсЧислитель * КурсыВалюты.КурсЗнаменатель / (КурсыВалюты.КурсЧислитель *
		|						КурсыВалютыЦены.КурсЗнаменатель)
		|				ИНАЧЕ 0
		|			КОНЕЦ
		|		ИНАЧЕ 1
		|	КОНЕЦ КАК Цена,
		|	ЦеныНоменклатурыСрезПоследних.ВидЦены КАК ВидЦены,
		|	ЦеныНоменклатурыСрезПоследних.Номенклатура КАК Номенклатура,
		|	ЦеныНоменклатурыСрезПоследних.ХарактеристикаЦО КАК ХарактеристикаЦО,
		|	ЦеныНоменклатурыСрезПоследних.СерияЦО КАК СерияЦО,
		|	ЦеныНоменклатурыСрезПоследних.УпаковкаЦО КАК УпаковкаЦО,
		|	ТаблицаОтбора.Приоритет КАК Приоритет
		|ПОМЕСТИТЬ ТаблицаРезультата
		|ИЗ
		|	РегистрСведений.ЦеныНоменклатуры25.СрезПоследних(КОНЕЦПЕРИОДА(&Дата, ДЕНЬ), (Номенклатура, ХарактеристикаЦО, СерияЦО,
		|		УпаковкаЦО, ВидЦены) В
		|		(ВЫБРАТЬ
		|			Т.Номенклатура,
		|			Т.ХарактеристикаЦО,
		|			Т.СерияЦО,
		|			Т.УпаковкаЦО,
		|			Т.ВидЦены
		|		ИЗ
		|			ТаблицаОтбора КАК Т)) КАК ЦеныНоменклатурыСрезПоследних
		|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ОтносительныеКурсыВалют.СрезПоследних(&Дата, БазоваяВалюта = &БазоваяВалюта) КАК
		|			КурсыВалютыЦены
		|		ПО ЦеныНоменклатурыСрезПоследних.Валюта = КурсыВалютыЦены.Валюта
		|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ОтносительныеКурсыВалют.СрезПоследних(&Дата, Валюта = &Валюта
		|		И БазоваяВалюта = &БазоваяВалюта) КАК КурсыВалюты
		|		ПО ИСТИНА
		|		ЛЕВОЕ СОЕДИНЕНИЕ ТаблицаОтбора КАК ТаблицаОтбора
		|		ПО ЦеныНоменклатурыСрезПоследних.Номенклатура = ТаблицаОтбора.Номенклатура
		|		И ЦеныНоменклатурыСрезПоследних.ХарактеристикаЦО = ТаблицаОтбора.ХарактеристикаЦО
		|		И ЦеныНоменклатурыСрезПоследних.СерияЦО = ТаблицаОтбора.СерияЦО
		|		И ЦеныНоменклатурыСрезПоследних.УпаковкаЦО = ТаблицаОтбора.УпаковкаЦО
		|		И ЦеныНоменклатурыСрезПоследних.ВидЦены = ТаблицаОтбора.ВидЦены
		|
		|ИНДЕКСИРОВАТЬ ПО
		|	Номенклатура,
		|	ХарактеристикаЦО,
		|	СерияЦО,
		|	УпаковкаЦО,
		|	ВидЦены
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	ТаблицаРезультата.ВидЦены КАК ВидЦены,
		|	ТаблицаРезультата.Цена КАК Цена
		|ИЗ
		|	(ВЫБРАТЬ
		|		ТаблицаРезультата.Номенклатура КАК Номенклатура,
		|		ТаблицаРезультата.ХарактеристикаЦО КАК ХарактеристикаЦО,
		|		ТаблицаРезультата.СерияЦО КАК СерияЦО,
		|		ТаблицаРезультата.УпаковкаЦО КАК УпаковкаЦО,
		|		МИНИМУМ(ТаблицаРезультата.Приоритет) КАК Приоритет
		|	ИЗ
		|		ТаблицаРезультата КАК ТаблицаРезультата
		|	СГРУППИРОВАТЬ ПО
		|		ТаблицаРезультата.Номенклатура,
		|		ТаблицаРезультата.ХарактеристикаЦО,
		|		ТаблицаРезультата.СерияЦО,
		|		ТаблицаРезультата.УпаковкаЦО) КАК ВложенныйЗапрос
		|		ЛЕВОЕ СОЕДИНЕНИЕ ТаблицаРезультата КАК ТаблицаРезультата
		|		ПО ВложенныйЗапрос.Номенклатура = ТаблицаРезультата.Номенклатура
		|		И ВложенныйЗапрос.ХарактеристикаЦО = ТаблицаРезультата.ХарактеристикаЦО
		|		И ВложенныйЗапрос.СерияЦО = ТаблицаРезультата.СерияЦО
		|		И ВложенныйЗапрос.УпаковкаЦО = ТаблицаРезультата.УпаковкаЦО
		|		И ВложенныйЗапрос.Приоритет = ТаблицаРезультата.Приоритет");
			
		Запрос.Текст = СтрЗаменить(Запрос.Текст,
		"&ТекстЗапросаКоэффициентУпаковки1",
		Справочники.УпаковкиЕдиницыИзмерения.ТекстЗапросаКоэффициентаУпаковки(
		"ВЫРАЗИТЬ(&Упаковка КАК Справочник.УпаковкиЕдиницыИзмерения)",
		"ВЫРАЗИТЬ(&Номенклатура КАК Справочник.Номенклатура)"));
		
		Запрос.Текст = СтрЗаменить(Запрос.Текст,
		"&ТекстЗапросаКоэффициентУпаковки2",
		Справочники.УпаковкиЕдиницыИзмерения.ТекстЗапросаКоэффициентаУпаковки(
		"ЦеныНоменклатурыСрезПоследних.Упаковка",
		"ЦеныНоменклатурыСрезПоследних.Номенклатура"));
		
		Запрос.Текст = СтрЗаменить(Запрос.Текст,
		"&ТекстЗапросаИсточникаУсловияПродаж",
		ТекстЗапросаИсточникаУсловияПродаж(ЗаполнятьПоСоглашению));
		
		Если ЗаполнятьПоСоглашению Тогда
			Запрос.УстановитьПараметр("Соглашение"      , СтруктураПараметровДействия.Соглашение);
			Запрос.Текст = СтрЗаменить(Запрос.Текст,
			"&ЗначениеВидаЦенПоИсточнику",
			"ВременнаяТаблицаВидыЦен.ВидЦены");
		Иначе	
			Запрос.УстановитьПараметр("Партнер"         , СтруктураПараметровДействия.Партнер);
		
			Запрос.Текст = СтрЗаменить(Запрос.Текст,
			"&ЗначениеВидаЦенПоИсточнику",
			"ВЫБОР
			|		КОГДА ВременнаяТаблицаВидыЦен.ВидЦены = ЗНАЧЕНИЕ(Справочник.ВидыЦен.ПустаяСсылка)
			|			ТОГДА ТаблицаОтбора.ВидЦены
			|		ИНАЧЕ ВременнаяТаблицаВидыЦен.ВидЦены
			|	КОНЕЦ");
		КонецЕсли;
		Запрос.УстановитьПараметр("Дата"            , СтруктураПараметровДействия.Дата);
		Запрос.УстановитьПараметр("Номенклатура"    , ТекущаяСтрока.Номенклатура);
		Запрос.УстановитьПараметр("Характеристика"  , ТекущаяСтрока.Характеристика);
		Если СтруктураДействий.Свойство("ЗаполнитьУсловияПродаж") Тогда
			Если Не ТекущаяСтрока.Свойство("Серия") 
				Или ТипЗнч(ТекущаяСтрока.Серия) <> Тип("Справочникссылка.СерииНоменклатуры") Тогда
				Запрос.УстановитьПараметр("Серия"   , Справочники.СерииНоменклатуры.ПустаяСсылка());
			Иначе	
				Запрос.УстановитьПараметр("Серия"   , ТекущаяСтрока.Серия);
			КонецЕсли;
			Запрос.УстановитьПараметр("Упаковка"    , ТекущаяСтрока.Упаковка);
		Иначе	
			Запрос.УстановитьПараметр("Серия"       , Справочники.СерииНоменклатуры.ПустаяСсылка());
			Запрос.УстановитьПараметр("Упаковка"    , Справочники.УпаковкиЕдиницыИзмерения.ПустаяСсылка());
		КонецЕсли;
		Запрос.УстановитьПараметр("Валюта"          , СтруктураПараметровДействия.Валюта);
		Запрос.УстановитьПараметр("БазоваяВалюта", ЗначениеНастроекПовтИсп.БазоваяВалютаПоУмолчанию());
		ВидЦеныДляЗаполнения = Неопределено;
		Если ТекущаяСтрока.Свойство("ВидЦены", ВидЦеныДляЗаполнения) И ВидЦеныДляЗаполнения <> Неопределено Тогда
			Запрос.УстановитьПараметр("ВидЦены"         , ВидЦеныДляЗаполнения);
		Иначе
			Запрос.УстановитьПараметр("ВидЦены"         , Справочники.ВидыЦен.ПустаяСсылка());
		КонецЕсли;
		
		Выборка = Запрос.Выполнить().Выбрать();
		
		Если Выборка.Следующий() Тогда
		
			ТекущаяСтрока.Цена = Окр(Выборка.Цена, 2);
			
			Если ТекущаяСтрока.Свойство("ВидЦены") Тогда
				
				Если ЗначениеЗаполнено(Выборка.ВидЦены) Тогда
					ТекущаяСтрока.ВидЦены = Выборка.ВидЦены;
				Иначе
					ТекущаяСтрока.ВидЦены = Справочники.ВидыЦен.ПустаяСсылка();
				КонецЕсли;
				
			КонецЕсли;
			
		Иначе
			
			ТекущаяСтрока.Цена = 0;
			Если ЗаполнятьПоСоглашению И ТекущаяСтрока.Свойство("ВидЦены") Тогда
				ТекущаяСтрока.ВидЦены = Справочники.ВидыЦен.ПустаяСсылка();
			КонецЕсли;
		КонецЕсли;

Я белый, не надменный. Я приятный в общении... Да? Несомненно. Поэтому я не стану спрашивать, кто здесь индексирует таблицу (две!), состоящую из одной строки. Не потому, что хороший. Потому, что я умный и знаю - кто.

Но у нас есть цель. Нам надо увидеть, как работают скидки/наценки и бонусы.

Поэтому оставим запрос к регистру цен его программистам.

Нам нужны не действия по вытаскиванию цены, хотя к соглашению мы, наверное, еще вернемся. Нам нужны следующие действия при изменении Номенклатуры

	СтруктураДействий.Вставить("ПересчитатьСуммуСУчетомРучнойСкидки", Новый Структура("Очищать", Истина));
	СтруктураДействий.Вставить("ПересчитатьСуммуСУчетомАвтоматическойСкидки", Новый Структура("Очищать", Истина));
	СтруктураДействий.Вставить("ПересчитатьСуммуСУчетомСкидкиБонуснымиБаллами", СтруктураЗаполненияБонусныхБаллов);

Однако ложечку дегтя оставим. При изменении номенклатуры в таблице товаров документа реализации, установленная ранее ручная скидка сбрасывается. Я не смотрел этого по коду, но в режиме "предприятие" именно так у меня и получается (в тестовой базе). И у кого мне спросить, что делает "ПересчитатьСуммуСУчетомРучнойСкидки" в действиях при изменении Номенклатуры?

Риторический вопрос. Ничего, кроме минуса в карму. С другой стороны, вдруг это попадется на глаза какому-нибудь молодому гению, и он не станет так писать в своих нетленках. Тогда это все было не зря.

... Не удержался, проверил. Процент ручной скидки в строке сброшен при выполнении

ОбработкаТабличнойЧастиКлиент.ОбработатьСтрокуТЧ(ТекущаяСтрока, СтруктураДействий, КэшированныеЗначения);

Управление торговлей (11.5.12.256).

+2 –

См. также

Замена поиска по первым символам на поиск по подстроке

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

В типовых решениях типа УТ, КА, ERP при вводе строк в поля ввода осуществляется поиск по первым символам. С помощью небольшой доработки (делается через расширение) можно организовать поиск по вхождению.

02.06.2025 496 lkey 0

Открытие нетиповых форм при начале работы системы в 1С:ERP 2.5

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

В этой статье я расскажу, как в конфигурации 1С:ERP 2.5 при начале работы системы настроить открытие своих нетиповых форм (в том числе и из внешних обработок). Данную методику можно использовать как на тонком клиенте, так и на мобильном или веб-клиенте, а также в мобильном приложении.

12.05.2025 2159 PROSTO-1C 1