Как переработать функцию для распределения сумм по 20 колонкам?

В этой теме 1 ответ, 2 участника, последнее обновление 22 часа, 17 минут назад сделано Odin — Одинэсник.

Просмотр 1 ветки ответов

Автор

Сообщения

24 апреля 2026 в 18:48 #36812
Odineski
Участник
Переделай функцию РаспределитьПропорционально с учетом что колонок Сума будет 20 штук. Сумма1, Сумма2, Сумма3 … Сумма20. Нужно распределить учитывая все колонки Суммы.

24 апреля 2026 в 18:48 #36813

Участник

Вот переработанный вариант функции, который распределяет одну общую сумму пропорционально сумме по 20 колонкам «Сумма1», «Сумма2», …, «Сумма20» в каждой строке таблицы. Итог по каждой из этих колонок в результате будет равен исходной сумме к распределению.

Функция РаспределитьПропорционально20(СуммаКРаспределению, ТаблицаБаза)
	
	Если ТаблицаБаза = Неопределено Или ТаблицаБаза.Количество() = 0 Тогда
		Возврат Новый ТаблицаЗначений;
	КонецЕсли;
	
	// Считаем общую сумму по всем 20 колонкам и всем строкам
	ОбщаяСумма = 0;
	Для Каждого Строка Из ТаблицаБаза Цикл
		Для НомерКолонки = 1 По 20 Цикл
			ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");
			Если ТаблицаБаза.Колонки.Найти(ИмяКолонки) <> Неопределено Тогда
				ОбщаяСумма = ОбщаяСумма + ?(Строка[ИмяКолонки], 0);
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	
	Если ОбщаяСумма = 0 Тогда
		// Если сумма базы 0, то возвращаем копию с нулями по всем колонкам
		Результат = ТаблицаБаза.Скопировать();
		Для Каждого Строка Из Результат Цикл
			Для НомерКолонки = 1 По 20 Цикл
				ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");
				Если Результат.Колонки.Найти(ИмяКолонки) <> Неопределено Тогда
					Строка[ИмяКолонки] = 0;
				КонецЕсли;
			КонецЦикла;
		КонецЦикла;
		Возврат Результат;
	КонецЕсли;
	
	// Создаем новую таблицу для результата с нужными колонками
	Результат = Новый ТаблицаЗначений;
	Результат.Колонки.Добавить("Показатель");
	Результат.Колонки.Добавить("КодIC");
	Для НомерКолонки = 1 По 20 Цикл
		Результат.Колонки.Добавить("Сумма" + Формат(НомерКолонки, "ЧГ="), Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15, 2)));
	КонецЦикла;
	
	// Найдем индекс строки с максимальной общей суммой по 20 колонкам (для компенсации погрешности)
	МаксимальноеЗначение = -1;
	ИндексМаксимума = 0;
	Для НомерСтроки = 0 По ТаблицаБаза.Количество() - 1 Цикл
		Строка = ТаблицаБаза[НомерСтроки];
		СуммаСтроки = 0;
		Для НомерКолонки = 1 По 20 Цикл
			ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");
			Если ТаблицаБаза.Колонки.Найти(ИмяКолонки) <> Неопределено Тогда
				СуммаСтроки = СуммаСтроки + ?(Строка[ИмяКолонки], 0);
			КонецЕсли;
		КонецЦикла;
		Если СуммаСтроки > МаксимальноеЗначение Тогда
			МаксимальноеЗначение = СуммаСтроки;
			ИндексМаксимума = НомерСтроки;
		КонецЕсли;
	КонецЦикла;
	
	// Распределяем сумму пропорционально сумме по 20 колонкам в каждой строке
	СуммаРаспределена = 0;
	Для НомерСтроки = 0 По ТаблицаБаза.Количество() - 1 Цикл
		Строка = ТаблицаБаза[НомерСтроки];
		НоваяСтрока = Результат.Добавить();
		НоваяСтрока.Показатель = Строка.Показатель;
		НоваяСтрока.КодIC = Строка.КодIC;
		
		// Считаем сумму по 20 колонкам для текущей строки
		СуммаСтроки = 0;
		Для НомерКолонки = 1 По 20 Цикл
			ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");
			Если ТаблицаБаза.Колонки.Найти(ИмяКолонки) <> Неопределено Тогда
				СуммаСтроки = СуммаСтроки + ?(Строка[ИмяКолонки], 0);
			КонецЕсли;
		КонецЦикла;
		
		// Распределяем пропорционально сумме строки
		Для НомерКолонки = 1 По 20 Цикл
			ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");
			Если ТаблицаБаза.Колонки.Найти(ИмяКолонки) <> Неопределено Тогда
				ИсходноеЗначение = ?(Строка[ИмяКолонки], 0);
				Если ОбщаяСумма = 0 Тогда
					РаспределенноеЗначение = 0;
				Иначе
					// Пропорция по всей базе, умножаем на исходное значение колонки
					РаспределенноеЗначение = Окр(СуммаКРаспределению * ИсходноеЗначение / ОбщаяСумма, 2, Истина);
				КонецЕсли;
				НоваяСтрока[ИмяКолонки] = РаспределенноеЗначение;
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	
	// Корректируем погрешность округления по каждой колонке, добавляя разницу в строку с максимальной суммой
	Для НомерКолонки = 1 По 20 Цикл
		ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");
		СуммаКолонки = 0;
		Для НомерСтроки = 0 По Результат.Количество() - 1 Цикл
			СуммаКолонки = СуммаКолонки + ?(Результат[НомерСтроки][ИмяКолонки], 0);
		КонецЦикла;
		Разница = 0;
		Если СуммаКолонки <> 0 Тогда
			Разница = СуммаКРаспределению - СуммаКолонки;
		Иначе
			Разница = 0;
		КонецЕсли;
		Если Разница <> 0 Тогда
			Результат[ИндексМаксимума][ИмяКолонки] = Результат[ИндексМаксимума][ИмяКолонки] + Разница;
		КонецЕсли;
	КонецЦикла;
	
	Возврат Результат;
	
КонецФункции

100

101

102

103

104

105

106

107

108

109

110

111

Функция РаспределитьПропорционально20(СуммаКРаспределению, ТаблицаБаза)

Если ТаблицаБаза = Неопределено Или ТаблицаБаза.Количество() = 0 Тогда

Возврат Новый ТаблицаЗначений;

КонецЕсли;

// Считаем общую сумму по всем 20 колонкам и всем строкам

ОбщаяСумма = 0;

Для Каждого Строка Из ТаблицаБаза Цикл

Для НомерКолонки = 1 По 20 Цикл

ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");

Если ТаблицаБаза.Колонки.Найти(ИмяКолонки) <> Неопределено Тогда

ОбщаяСумма = ОбщаяСумма + ?(Строка[ИмяКолонки], 0);

КонецЕсли;

КонецЦикла;

Если ОбщаяСумма = 0 Тогда

// Если сумма базы 0, то возвращаем копию с нулями по всем колонкам

Результат = ТаблицаБаза.Скопировать();

Для Каждого Строка Из Результат Цикл

Для НомерКолонки = 1 По 20 Цикл

ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");

Если Результат.Колонки.Найти(ИмяКолонки) <> Неопределено Тогда

Строка[ИмяКолонки] = 0;

КонецЕсли;

КонецЦикла;

Возврат Результат;

КонецЕсли;

// Создаем новую таблицу для результата с нужными колонками

Результат = Новый ТаблицаЗначений;

Результат.Колонки.Добавить("Показатель");

Результат.Колонки.Добавить("КодIC");

Для НомерКолонки = 1 По 20 Цикл

Результат.Колонки.Добавить("Сумма" + Формат(НомерКолонки, "ЧГ="), Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15, 2)));

КонецЦикла;

// Найдем индекс строки с максимальной общей суммой по 20 колонкам (для компенсации погрешности)

МаксимальноеЗначение = -1;

ИндексМаксимума = 0;

Для НомерСтроки = 0 По ТаблицаБаза.Количество() - 1 Цикл

Строка = ТаблицаБаза[НомерСтроки];

СуммаСтроки = 0;

Для НомерКолонки = 1 По 20 Цикл

ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");

Если ТаблицаБаза.Колонки.Найти(ИмяКолонки) <> Неопределено Тогда

СуммаСтроки = СуммаСтроки + ?(Строка[ИмяКолонки], 0);

КонецЕсли;

КонецЦикла;

Если СуммаСтроки > МаксимальноеЗначение Тогда

МаксимальноеЗначение = СуммаСтроки;

ИндексМаксимума = НомерСтроки;

КонецЕсли;

КонецЦикла;

// Распределяем сумму пропорционально сумме по 20 колонкам в каждой строке

СуммаРаспределена = 0;

Для НомерСтроки = 0 По ТаблицаБаза.Количество() - 1 Цикл

Строка = ТаблицаБаза[НомерСтроки];

НоваяСтрока = Результат.Добавить();

НоваяСтрока.Показатель = Строка.Показатель;

НоваяСтрока.КодIC = Строка.КодIC;

// Считаем сумму по 20 колонкам для текущей строки

СуммаСтроки = 0;

Для НомерКолонки = 1 По 20 Цикл

ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");

Если ТаблицаБаза.Колонки.Найти(ИмяКолонки) <> Неопределено Тогда

СуммаСтроки = СуммаСтроки + ?(Строка[ИмяКолонки], 0);

КонецЕсли;

КонецЦикла;

// Распределяем пропорционально сумме строки

Для НомерКолонки = 1 По 20 Цикл

ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");

Если ТаблицаБаза.Колонки.Найти(ИмяКолонки) <> Неопределено Тогда

ИсходноеЗначение = ?(Строка[ИмяКолонки], 0);

Если ОбщаяСумма = 0 Тогда

РаспределенноеЗначение = 0;

Иначе

// Пропорция по всей базе, умножаем на исходное значение колонки

РаспределенноеЗначение = Окр(СуммаКРаспределению * ИсходноеЗначение / ОбщаяСумма, 2, Истина);

КонецЕсли;

НоваяСтрока[ИмяКолонки] = РаспределенноеЗначение;

КонецЕсли;

КонецЦикла;

// Корректируем погрешность округления по каждой колонке, добавляя разницу в строку с максимальной суммой

Для НомерКолонки = 1 По 20 Цикл

ИмяКолонки = "Сумма" + Формат(НомерКолонки, "ЧГ=");

СуммаКолонки = 0;

Для НомерСтроки = 0 По Результат.Количество() - 1 Цикл

СуммаКолонки = СуммаКолонки + ?(Результат[НомерСтроки][ИмяКолонки], 0);

КонецЦикла;

Разница = 0;

Если СуммаКолонки <> 0 Тогда

Разница = СуммаКРаспределению - СуммаКолонки;

Иначе

Разница = 0;

КонецЕсли;

Если Разница <> 0 Тогда

Результат[ИндексМаксимума][ИмяКолонки] = Результат[ИндексМаксимума][ИмяКолонки] + Разница;

КонецЕсли;

КонецЦикла;

Возврат Результат;

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

Кратко:

— Считаем сумму по всем 20 колонкам и всем строкам.
— Распределяем пропорционально каждой ячейке в колонках «Сумма1″… «Сумма20» от общей суммы.
— Округляем до 2 знаков.
— Корректируем погрешность округления по каждой колонке, добавляя разницу в строку с максимальной суммой по всем колонкам.

Если нужно, могу помочь с примером вызова.

Автор

Сообщения

Просмотр 1 ветки ответов

Для ответа в этой теме необходимо авторизоваться.

Вы пропустили

Новый курс «Администратор 1С v4.1»

Автономный сервер 1С — публикация ИБ

Установка PostgreSQL 17 для 1С на Windows server 2022

Как запустить «Сервер 1С» на Ubuntu 24.04 LTS ?