Свет мой, 1С, скажи, наращение покажи…

В типовой 1С:Бухгалтерия 8 на начальной странице есть различные информационные панели: «Задачи организации»,  «Покупатели», «Продажи» и т.д. На этом фоне выделяется панель «Продажи», которая показывает текущие показатели по продажам и индикаторы (больше/меньше) в сравнение с показателями аналогичного периода прошлого года. Вроде бы всё хорошо и это правда, но что-то подсказывает, что это не совсем правда.

Не будем углубляться в финансовую математику, скажем только про зависимость стоимости денежных средств от времени. Теперь очень просто: 100 руб. год назад не равны по своей покупательской способности 100 руб. на текущий момент (инфляция и всё такое). И тут на ум приходят понятия «дисконтирование» (определение стоимости денежного потока путём приведения стоимости всех выплат к определённому моменту времени) и «наращение» (приведение стоимости денежных средств к моменту в будущем). Наращение ещё называют компаундированием. Более подробно об этом можно прочитать, например, здесь. После недолгих размышлений приходим к мысли, что нам необходимо именно наращение, как приведение прошлогодних денежных показателей к будущему (то есть к настоящему времени). В общем, назад в будущее.

Для реализации сравнения «реальных» денежных показателей с текущим моментом можно воспользоваться механизмом создания расширения и в захваченную процедуру «ДанныеПродажи» (общий модуль «МониторРуководителя») вставить алгоритм пересчета прошлых показателей с учетом наращения. Например, вот так:

&Вместо("ДанныеПродажи")
Функция Наращение_ДанныеПродажи(Параметры)

	Данные = Новый Структура;
	Данные.Вставить("ТекущийМесяц", 0);
	Данные.Вставить("ТекущийМесяцОтклонение", 0);
	Данные.Вставить("ТекущийМесяцСНачалаГода", 0);
	Данные.Вставить("ТекущийМесяцСНачалаГодаОтклонение", 0);
	Данные.Вставить("ПрошлыйМесяц", 0);
	Данные.Вставить("ПрошлыйМесяцОтклонение", 0);
	Данные.Вставить("ПрошлыйМесяцСНачалаГода", 0);
	Данные.Вставить("ПрошлыйМесяцСНачалаГодаОтклонение", 0);

	РазделыМонитора = Новый Массив;
	РазделыМонитора.Добавить(Перечисления.РазделыМонитораРуководителя.ПродажиПоКонтрагентам);

	ДанныеРазделовМонитора = ПолучитьДанныеРазделовМонитора(
	Параметры.Организация, РазделыМонитора, Параметры.ВариантОкругления, Параметры.ПоказыватьСравнениеСПрошлымГодом);

	Если ДанныеРазделовМонитора = Неопределено Тогда
		Возврат Данные;
	КонецЕсли;
	
	//дельта стало теперь 2020-11-20 НАЧАЛО
	Если Параметры.СУчетомНаращения Тогда
		//1 - Необходимо прошлые периды пересчитать с учетом коэффициента наращения
		
		//формула для нахождения коэффициента наращения
		//КоэффициентНаращения = Pow((1 + ПроцентнаяСтавка),НомерПериода);
		
		//в качестве коэффициента наращения можно, например, использовать уровень инфляции за прошлый год
		ПроцентнаяСтавка = Параметры.ПроцентнаяСтавка / 100;
		
		//Номер периода - 1, т.к. смотрим на 1 год назад
		НомерПериода = 1;
		
		КоэффициентНаращения = Pow((1 + ПроцентнаяСтавка), НомерПериода);
		
		Для Каждого ТекСтрока Из ДанныеРазделовМонитора Цикл 
			//приведенная сумма
			ТекСтрока.СуммаПрошлыйПериод = ТекСтрока.СуммаПрошлыйПериод * КоэффициентНаращения; 
			
			//приведенное отклонение
			ТекСтрока.Отклонение = Окр((ТекСтрока.Сумма/ТекСтрока.СуммаПрошлыйПериод - 1)*100,2);
			
		КонецЦикла;
		//2 - Необходимо пересчитать отклонение
	КонецЕсли;
	//дельта стало теперь 2020-11-20 КОНЕЦ

	ДанныеРазделовМонитора.Индексы.Добавить("РазделМонитора, Порядок");

	Отбор = Новый Структура;
	Отбор.Вставить("РазделМонитора", Перечисления.РазделыМонитораРуководителя.ПродажиПоКонтрагентам);
	Отбор.Вставить("Порядок", 0);

	// Текущий месяц
	Отбор.Порядок = Отчеты.Продажи.ПорядокТекущегоМесяца();
	НайденныеСтроки = ДанныеРазделовМонитора.НайтиСтроки(Отбор);
	Если НайденныеСтроки.Количество() > 0 Тогда
		Данные.Вставить("ТекущийМесяц", НайденныеСтроки[0].Сумма);
		Данные.Вставить("ТекущийМесяцОтклонение", НайденныеСтроки[0].Отклонение);
	КонецЕсли;

	// С начала года
	Отбор.Вставить("Порядок", Отчеты.Продажи.ПорядокТекущегоМесяцаСНачалаГода());
	НайденныеСтроки = ДанныеРазделовМонитора.НайтиСтроки(Отбор);
	Если НайденныеСтроки.Количество() > 0 Тогда
		Данные.Вставить("ТекущийМесяцСНачалаГода", НайденныеСтроки[0].Сумма);
		Данные.Вставить("ТекущийМесяцСНачалаГодаОтклонение", НайденныеСтроки[0].Отклонение);
	КонецЕсли;

	// Прошлый месяц
	Отбор.Порядок = Отчеты.Продажи.ПорядокПрошлогоМесяца();
	НайденныеСтроки = ДанныеРазделовМонитора.НайтиСтроки(Отбор);
	Если НайденныеСтроки.Количество() > 0 Тогда
		Данные.Вставить("ПрошлыйМесяц", НайденныеСтроки[0].Сумма);
		Данные.Вставить("ПрошлыйМесяцОтклонение", НайденныеСтроки[0].Отклонение);
	КонецЕсли;

	// С начала года по конец прошлого месяца
	Отбор.Порядок = Отчеты.Продажи.ПорядокПрошлогоМесяцаСНачалаГода();
	НайденныеСтроки = ДанныеРазделовМонитора.НайтиСтроки(Отбор);
	Если НайденныеСтроки.Количество() > 0 Тогда
		Данные.Вставить("ПрошлыйМесяцСНачалаГода", НайденныеСтроки[0].Сумма);
		Данные.Вставить("ПрошлыйМесяцСНачалаГодаОтклонение", НайденныеСтроки[0].Отклонение);
	КонецЕсли;

	Возврат Данные;

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

Пример такой доработки (вместе с возможностью динамически пересчитывать показатели при изменении) приложен к публикации в виде расширения. Разработка и тестирование осуществлялись на базе типовой «1С: Бухгалтерия предприятия, редакция 3.0 (3.0.83.37)» и платформе 1С:Предприятие 8.3 (8.3.16.1063).