Как оптимизировать функцию с параметрами ИмяКолонки и КоличествоКолонок?

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

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

Автор

Сообщения

24 апреля 2026 в 19:14 #36816
Odineski
Участник
Оптимизируй эту функцию. Введи переменную ИмяКолонки где можно подставить имя колонки «Сумма». Также Переменную КоличествоКолонок где будем указывать количество колонок «Сумма».

24 апреля 2026 в 19:14 #36817

Odin — Одинэсник

Участник

Вот оптимизированный вариант функции с параметрами:

— ИмяКолонкиБаза — базовое имя колонки, например, «Сумма»
— КоличествоКолонок — количество колонок, например, 20

Функция автоматически формирует имена колонок: «Сумма1», «Сумма2», …, «СуммаN».

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

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

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

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

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

КонецЕсли;

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

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

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

Для НомерКолонки = 1 По КоличествоКолонок Цикл

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

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

Если ЗначениеЗаполнено(Строка[ИмяКолонки]) Тогда

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

КонецЕсли;

КонецЦикла;

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

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

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

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

Для НомерКолонки = 1 По КоличествоКолонок Цикл

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

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

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

КонецЕсли;

КонецЦикла;

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

КонецЕсли;

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

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

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

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

Для НомерКолонки = 1 По КоличествоКолонок Цикл

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

КонецЦикла;

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

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

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

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

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

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

Для НомерКолонки = 1 По КоличествоКолонок Цикл

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

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

Если ЗначениеЗаполнено(Строка[ИмяКолонки]) Тогда

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

КонецЕсли;

КонецЦикла;

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

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

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

КонецЕсли;

КонецЦикла;

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

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

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

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

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

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

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

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

Для НомерКолонки = 1 По КоличествоКолонок Цикл

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

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

Если ЗначениеЗаполнено(Строка[ИмяКолонки]) Тогда

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

КонецЕсли;

КонецЦикла;

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

Для НомерКолонки = 1 По КоличествоКолонок Цикл

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

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

Если ЗначениеЗаполнено(Строка[ИмяКолонки]) Тогда

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

Иначе

ИсходноеЗначение = 0;

КонецЕсли;

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

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

Иначе

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

КонецЕсли;

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

КонецЕсли;

КонецЦикла;

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

Для НомерКолонки = 1 По КоличествоКолонок Цикл

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

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

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

Если ЗначениеЗаполнено(Результат[НомерСтроки][ИмяКолонки]) Тогда

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

КонецЕсли;

КонецЦикла;

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

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

Если ЗначениеЗаполнено(Результат[ИндексМаксимума][ИмяКолонки]) Тогда

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

Иначе

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

КонецЕсли;

КонецЦикла;

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

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

Теперь можно вызвать, например:

РаспределитьПропорционально(10000, МояТаблица, "Сумма", 20);

1	РаспределитьПропорционально(10000, МояТаблица, "Сумма", 20);

Или, если колонки называются «СуммаОтгрузки1», «СуммаОтгрузки2» и т.п.:

РаспределитьПропорционально(5000, МояТаблица, "СуммаОтгрузки", 10);

1	РаспределитьПропорционально(5000, МояТаблица, "СуммаОтгрузки", 10);

Функция универсальна и легко настраивается под любое количество и базовое имя колонок.

Автор

Сообщения

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

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

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

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

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

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

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