[Odin — Одинэсник]

Вот переделанный вариант функции с использованием метода Итог() для подсчёта общей суммы по колонкам. Это позволяет убрать вложенные циклы для подсчёта общей суммы и упростить код:

1С (Код)

Функция РаспределитьПропорционально(СуммаКРаспределению, ТаблицаБаза, ИмяКолонкиБаза = "Сумма", КоличествоКолонок = 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 Тогда Если ЗначениеЗаполнено(Результат[ИндексМаксимума][ИмяКолонки]) Тогда Результат[ИндексМаксимума][ИмяКолонки] = Результат[ИндексМаксимума][ИмяКолонки] + Разница; Иначе Результат[ИндексМаксимума][ИмяКолонки] = Разница; КонецЕсли; КонецЕсли; КонецЦикла; Возврат Результат; КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116

Функция РаспределитьПропорционально(СуммаКРаспределению, ТаблицаБаза, ИмяКолонкиБаза = "Сумма", КоличествоКолонок = 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 Тогда Если ЗначениеЗаполнено(Результат[ИндексМаксимума][ИмяКолонки]) Тогда Результат[ИндексМаксимума][ИмяКолонки] = Результат[ИндексМаксимума][ИмяКолонки] + Разница; Иначе Результат[ИндексМаксимума][ИмяКолонки] = Разница; КонецЕсли; КонецЕсли; КонецЦикла; Возврат Результат; КонецФункции

Теперь метод Итог() используется для подсчёта общей суммы по каждой колонке, что упрощает и ускоряет подсчёт.

[Odin — Одинэсник]

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

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

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

1С (Код)

Функция РаспределитьПропорционально(СуммаКРаспределению, ТаблицаБаза, ИмяКолонкиБаза = "Сумма", КоличествоКолонок = 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 Тогда Если ЗначениеЗаполнено(Результат[ИндексМаксимума][ИмяКолонки]) Тогда Результат[ИндексМаксимума][ИмяКолонки] = Результат[ИндексМаксимума][ИмяКолонки] + Разница; Иначе Результат[ИндексМаксимума][ИмяКолонки] = Разница; КонецЕсли; КонецЕсли; КонецЦикла; Возврат Результат; КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 Тогда Если ЗначениеЗаполнено(Результат[ИндексМаксимума][ИмяКолонки]) Тогда Результат[ИндексМаксимума][ИмяКолонки] = Результат[ИндексМаксимума][ИмяКолонки] + Разница; Иначе Результат[ИндексМаксимума][ИмяКолонки] = Разница; КонецЕсли; КонецЕсли; КонецЦикла; Возврат Результат; КонецФункции

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

1С (Код)

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

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

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

1С (Код)

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

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

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

[Odin — Одинэсник]

Да, в 1С нет оператора «?()» как в других языках. Нужно проверять наличие значения через ПроверитьЗначение() или через условие.

Переделал функцию с учетом этого, чтобы безопасно брать значение из колонки:

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126

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

Теперь везде проверяется, заполнено ли значение в ячейке, чтобы избежать ошибок при чтении Неопределено.

[Odin — Одинэсник]

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

1С (Код)

Функция РаспределитьПропорционально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 Тогда Результат[ИндексМаксимума][ИмяКолонки] = Результат[ИндексМаксимума][ИмяКолонки] + Разница; КонецЕсли; КонецЦикла; Возврат Результат; КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 знаков.
— Корректируем погрешность округления по каждой колонке, добавляя разницу в строку с максимальной суммой по всем колонкам.

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

[Odin — Одинэсник]

Вот пример функции на 1С (BSL), которая пропорционально распределит заданную сумму по строкам таблицы значений (База) по колонке «Сумма». Итог по колонке «Сумма» в результате будет равен исходной сумме к распределению.

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

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

Как использовать:

1С (Код)

ТаблицаБаза = Новый ТаблицаЗначений; ТаблицаБаза.Колонки.Добавить("Показатель"); ТаблицаБаза.Колонки.Добавить("КодIC"); ТаблицаБаза.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15, 2))); // Заполнить ТаблицаБаза данными СуммаКРаспределению = 10000; // например РаспределеннаяТаблица = РаспределитьПропорционально(СуммаКРаспределению, ТаблицаБаза); // В РаспределеннаяТаблица сумма по колонке "Сумма" будет равна 10000

1 2 3 4 5 6 7 8 9 10 11 12

ТаблицаБаза = Новый ТаблицаЗначений; ТаблицаБаза.Колонки.Добавить("Показатель"); ТаблицаБаза.Колонки.Добавить("КодIC"); ТаблицаБаза.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15, 2)));   // Заполнить ТаблицаБаза данными   СуммаКРаспределению = 10000; // например   РаспределеннаяТаблица = РаспределитьПропорционально(СуммаКРаспределению, ТаблицаБаза);   // В РаспределеннаяТаблица сумма по колонке "Сумма" будет равна 10000

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

[Odin — Одинэсник]

Чтобы скрыть процедуру ВыполнитьЗагрузкуНаСервере() от просмотра и изменения, есть несколько вариантов:

1. Вынести логику в отдельную внешнюю обработку с закрытым модулем
— Создаёте внешнюю обработку, в модуле которой реализуете ВыполнитьЗагрузкуНаСервере() как экспортную процедуру.
— Закрываете модуль паролем.
— В основной обработке вызываете эту процедуру через ВнешниеОбработки.Подключить() и вызов экспортной процедуры.
— Код в основной обработке будет только вызывать внешний объект, а логика будет скрыта.

2. Использовать серверный общий модуль с закрытым модулем
— Перенесите процедуру в общий модуль, модуль которого закроете паролем.
— В форме вызывайте процедуру из общего модуля.
— Это защитит код от просмотра и правки в конфигураторе.

3. Компиляция модуля (файл поставки)
— Если у вас есть возможность, создайте файл поставки конфигурации с отключённым исходным кодом (без исходников модулей).
— Тогда код нельзя будет посмотреть и изменить.
— Минус — сложнее отлаживать.

4. Обфускация кода
— Используйте обфускаторы байт-кода 1С, чтобы усложнить чтение и понимание кода.
— Это не стопроцентная защита, но усложняет копирование.

—

### Пример вызова из внешней обработки

В основной обработке:

1С (Код)

&НаСервере Процедура ВыполнитьЗагрузкуНаСервере() ВнешняяОбработка = ВнешниеОбработки.Подключить("ПутьКВнешнейОбработке.epf"); ВнешняяОбработка.ВыполнитьЗагрузкуНаСервере(); КонецПроцедуры

1 2 3 4 5

&НаСервере Процедура ВыполнитьЗагрузкуНаСервере()     ВнешняяОбработка = ВнешниеОбработки.Подключить("ПутьКВнешнейОбработке.epf");     ВнешняяОбработка.ВыполнитьЗагрузкуНаСервере(); КонецПроцедуры

Внешняя обработка — модуль объекта с паролем:

1С (Код)

&НаСервере Процедура ВыполнитьЗагрузкуНаСервере() Экспорт // Ваша логика загрузки КонецПроцедуры

1 2 3 4

&НаСервере Процедура ВыполнитьЗагрузкуНаСервере() Экспорт     // Ваша логика загрузки КонецПроцедуры

—

Если нужна именно защита от просмотра и правки — самый надёжный способ — вынести в внешний объект с закрытым модулем и хранить его в базе в виде макета (двоичных данных). Тогда исходники не доступны, а вызов происходит программно.

[Odin — Одинэсник]

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

—

### 1. Вынесение ключевой логики в отдельную внешнюю обработку с закрытым модулем

— Создаёте внешнюю обработку (файл *.epf), в которой пишете все важные алгоритмы в модуле объекта (не в модуле формы!).
— В свойствах модуля объекта ставите пароль (через меню Конфигуратор → Свойства модуля → Пароль). Это закрывает исходный код от просмотра.
— В модуле объекта делаете экспортные процедуры и функции, которые будут вызываться из основной обработки. Например:

1С (Код)

Функция РассчитатьСекретноеЗначение(Параметр) Экспорт // Ваша логика Возврат Параметр * 42; // пример КонецФункции

1 2 3 4

Функция РассчитатьСекретноеЗначение(Параметр) Экспорт     // Ваша логика     Возврат Параметр * 42; // пример КонецФункции

—

### 2. Вызов внешней обработки из основной обработки

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

1С (Код)

// Путь к файлу внешней обработки (если храните как файл) ПутьКФайлу = "C:ПутьКВнешняяОбработка.epf"; // Или если храните в макете, то сначала получаете двоичные данные макета ДвоичныеДанные = ЭтотОбъект.Макеты.Получить("ИмяМакета"); // Записываете двоичные данные во временный файл ВременныйФайл = ПолучитьИмяВременногоФайла("epf"); ДвоичныеДанные.Записать(ВременныйФайл); // Получаете форму внешней обработки ФормаВнешнейОбработки = ВнешниеОбработки.ПолучитьФорму(ВременныйФайл); // Вызываете экспортную функцию Результат = ФормаВнешнейОбработки.РассчитатьСекретноеЗначение(123); // Закрываете форму, если нужно ФормаВнешнейОбработки.Закрыть();

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

// Путь к файлу внешней обработки (если храните как файл) ПутьКФайлу = "C:ПутьКВнешняяОбработка.epf";   // Или если храните в макете, то сначала получаете двоичные данные макета ДвоичныеДанные = ЭтотОбъект.Макеты.Получить("ИмяМакета");   // Записываете двоичные данные во временный файл ВременныйФайл = ПолучитьИмяВременногоФайла("epf"); ДвоичныеДанные.Записать(ВременныйФайл);   // Получаете форму внешней обработки ФормаВнешнейОбработки = ВнешниеОбработки.ПолучитьФорму(ВременныйФайл);   // Вызываете экспортную функцию Результат = ФормаВнешнейОбработки.РассчитатьСекретноеЗначение(123);   // Закрываете форму, если нужно ФормаВнешнейОбработки.Закрыть();

—

### 3. Хранение внешней обработки в базе в виде двоичных данных (макетов)

— В конфигураторе в вашей основной конфигурации создаёте макет (например, «ВнешняяОбработка.epf»).
— В макет загружаете файл внешней обработки (через свойства макета → загрузить из файла).
— Таким образом, файл внешней обработки хранится внутри базы в виде двоичных данных, и его нельзя просто так взять с диска.
— При необходимости запускаете внешнюю обработку, выгружая макет во временный файл (как в примере выше).

—

### 4. Почему это защищает?

— Код внешней обработки закрыт паролем, его нельзя посмотреть в конфигураторе.
— Внешняя обработка не лежит в открытом виде на диске, а хранится в базе в виде двоичных данных.
— Вызов происходит программно, пользователь не может просто открыть файл и посмотреть код.
— Если дополнительно скомпилировать модуль объекта внешней обработки (через создание файла поставки без исходников), то декомпиляция становится невозможной.

—

### 5. Дополнительные советы

— Для повышения защиты создайте пустую конфигурацию, встроите туда внешнюю обработку, снимите флаг «Включать исходный текст модулей» и создайте файл поставки. После этого модуль будет скомпилированным и закрытым.
— В основной конфигурации используйте вызов из двоичных данных, чтобы не хранить файл на диске.
— Если нужно обновлять внешнюю обработку — обновляйте макет с новым файлом.

—

### Пример кода для вызова из макета

1С (Код)

Функция ВызватьВнешнююОбработку() ДвоичныеДанные = ЭтотОбъект.Макеты.Получить("ВнешняяОбработка.epf"); ВременныйФайл = ПолучитьИмяВременногоФайла("epf"); ДвоичныеДанные.Записать(ВременныйФайл); Форма = ВнешниеОбработки.ПолучитьФорму(ВременныйФайл); Результат = Форма.РассчитатьСекретноеЗначение(100); Форма.Закрыть(); Возврат Результат; КонецФункции

1 2 3 4 5 6 7 8 9 10 11

Функция ВызватьВнешнююОбработку()     ДвоичныеДанные = ЭтотОбъект.Макеты.Получить("ВнешняяОбработка.epf");     ВременныйФайл = ПолучитьИмяВременногоФайла("epf");     ДвоичныеДанные.Записать(ВременныйФайл);          Форма = ВнешниеОбработки.ПолучитьФорму(ВременныйФайл);     Результат = Форма.РассчитатьСекретноеЗначение(100);     Форма.Закрыть();          Возврат Результат; КонецФункции

—

Если нужна помощь с конкретным кодом или настройкой — могу помочь.

[Odin — Одинэсник]

Защита интеллектуальной собственности в 1С, особенно кода в обработках, — задача комплексная. Вот конкретные способы и рекомендации, как это сделать:

1. Закрытие модулей паролем
— В свойствах модуля обработки можно поставить пароль на модуль. Это базовая защита от просмотра исходного кода.
— Минус: пароль можно подобрать или обойти, а функционал при этом не блокируется.

2. Вынесение ключевой логики в внешние обработки с закрытыми модулями
— Вынесите важные алгоритмы в отдельные внешние обработки, модули которых запаролены.
— В основной обработке вызывайте эти внешние обработки.
— Можно хранить внешние обработки в базе в виде двоичных данных (макетов), чтобы не было простого доступа к файлам.

3. Обфускация кода (байт-кода)
— Используйте обфускаторы байт-кода 1С (есть коммерческие и самописные решения).
— Они меняют байт-код модулей, затрудняя декомпиляцию и понимание логики.
— Обфускация не идеальна, но значительно усложняет взлом.

4. Привязка к оборудованию (аппаратная привязка)
— В коде реализуйте проверку уникального идентификатора компьютера (HID) — например, по процессору, MAC-адресу, серийному номеру диска.
— Если HID не совпадает с сохранённым, обработка не запускается.
— Это усложняет нелегальное копирование.

5. Временные ограничения и активация
— В коде можно реализовать проверку срока действия лицензии.
— При истечении срока обработка блокируется.
— Можно сделать онлайн-активацию или обновление ключей.

6. Использование внешних компонентов для защиты
— Можно использовать внешние компоненты, которые хранят и проверяют лицензию, шифруют данные.
— Минус — необходимость установки дополнительного ПО.

7. Юридическая защита
— Оформляйте авторские права на конфигурацию и обработки.
— Заключайте договоры с заказчиками, где прописаны права на код и ответственность за его использование.
— Это не техническая, но важная часть защиты.

8. Пример простейшей проверки в коде (привязка по дате)

1С (Код)

Функция ПроверитьЛицензию() Если ТекущаяДата() > Дата(2026, 12, 31) Тогда ВызватьИсключение "Срок действия лицензии истёк"; КонецЕсли; Возврат Истина; КонецФункции

1 2 3 4 5 6

Функция ПроверитьЛицензию()     Если ТекущаяДата() > Дата(2026, 12, 31) Тогда         ВызватьИсключение "Срок действия лицензии истёк";     КонецЕсли;     Возврат Истина; КонецФункции

9. Пример получения HID для привязки

1С (Код)

Функция ПолучитьHID() СистемнаяИнформация = Новый СистемнаяИнформация; Хеш = Новый ХешированиеДанных(ХешФункция.MD5); Хеш.Добавить(СистемнаяИнформация.Процессор); Хеш.Добавить(СистемнаяИнформация.ИмяКомпьютера); Возврат ФорматироватьСтроку(Хеш.ХешСумма, "Х"); КонецФункции

1 2 3 4 5 6 7

Функция ПолучитьHID()     СистемнаяИнформация = Новый СистемнаяИнформация;     Хеш = Новый ХешированиеДанных(ХешФункция.MD5);     Хеш.Добавить(СистемнаяИнформация.Процессор);     Хеш.Добавить(СистемнаяИнформация.ИмяКомпьютера);     Возврат ФорматироватьСтроку(Хеш.ХешСумма, "Х"); КонецФункции

10. Рекомендации по реализации
— Вынесите проверку лицензии и ключевые алгоритмы в серверные модули — их сложнее получить и изменить.
— Минимизируйте логику в формах и клиентских модулях.
— Используйте шифрование строк и данных, если обфускатор не шифрует их автоматически.

Рекомендую посмотреть подробный разбор защиты кода 1С с обфускацией и аппаратной привязкой здесь:
https://infostart.ru/1c/articles/2621315/

И про базовые методы защиты и юридические аспекты:
https://infostart.ru/1c/articles/57362/
https://infostart.ru/1c/articles/1246885/

Если нужна конкретика по коду или настройке — могу помочь.

[Odin — Одинэсник]

Если будут вопросы по 1С — обращайтесь, помогу!

[Odin — Одинэсник]

В этом чате у меня нет доступа к истории ваших прошлых сообщений. Каждый сеанс общения с вами начинается с чистого листа, и я не сохраняю переписку. Если хотите, можете прислать повторно ваши вопросы или информацию, и я помогу по ним.

[Odin — Одинэсник]

Судя по сообщению, у вас в MS SQL Server при выполнении задачи «Перестроение индекса» (Rebuild Index) на таблицах с именами типа _AccumRgXXXX возникает ошибка, и выполнение прерывается с сообщением «Не удалось выполнить … Шаг завершился с ошибкой».

Причины и рекомендации:

1. Права пользователя
Задача выполняется от имени пользователя NT ServiceSQLSERVERAGENT.... Убедитесь, что у этого пользователя есть достаточные права на выполнение операций ALTER INDEX в базе kdl_spid. Обычно для перестроения индексов нужны права db_owner или ALTER на соответствующие таблицы.

2. Занятость таблиц/индексов
Если в момент перестроения индексов идут активные транзакции или блокировки на таблицах, операция может не выполниться. Проверьте наличие блокировок и активных транзакций, которые могут мешать перестроению.

3. Ресурсы сервера
Перестроение индексов — ресурсоёмкая операция. Проверьте, хватает ли памяти, CPU, дискового пространства для выполнения задачи. Особенно если база большая.

4. Версия и параметры SQL Server
Убедитесь, что версия SQL Server поддерживает онлайн перестроение индексов (если оно используется). В некоторых случаях стоит переключить режим перестроения на офлайн.

5. Логи ошибок SQL Server
Посмотрите подробные логи ошибок SQL Server в момент выполнения задачи. Там будет точная причина сбоя.

6. Проверка целостности базы
Выполните DBCC CHECKDB для базы kdl_spid, чтобы исключить повреждения данных, которые могут мешать перестроению индексов.

7. Настройка задачи перестроения индексов
Если задача настроена через SQL Server Agent, проверьте скрипты и параметры. Возможно, стоит разбить перестроение на части, перестраивать индексы поочерёдно, а не все сразу.

8. Проверка индексов
Возможно, некоторые индексы повреждены или имеют нестандартные параметры. Попробуйте перестроить проблемные индексы вручную через SSMS.

9. Проверка имени базы
В сообщении несколько раз встречается USE [kdl_spid]. Убедитесь, что база существует и доступна.

—

Практические шаги:

— В SSMS выполните:

MySQL

USE [kdl_spid]; GO DBCC CHECKDB WITH NO_INFOMSGS, ALL_ERRORMSGS; GO

1 2 3 4

USE [kdl_spid]; GO DBCC CHECKDB WITH NO_INFOMSGS, ALL_ERRORMSGS; GO

— Попробуйте вручную перестроить один из индексов, например:

MySQL

ALTER INDEX [_AccumRg4030_3] ON [dbo].[_AccumRg4030] REBUILD WITH (ONLINE = ON);

1	ALTER INDEX [_AccumRg4030_3] ON [dbo].[_AccumRg4030] REBUILD WITH (ONLINE = ON);

— Проверьте права пользователя SQLSERVERAGENT:

MySQL

SELECT dp.name, dp.type_desc, perm.permission_name, perm.state_desc FROM sys.database_principals dp LEFT JOIN sys.database_permissions perm ON perm.grantee_principal_id = dp.principal_id WHERE dp.name = 'NT ServiceSQLSERVERAGENT...';

1 2 3 4

SELECT dp.name, dp.type_desc, perm.permission_name, perm.state_desc FROM sys.database_principals dp LEFT JOIN sys.database_permissions perm ON perm.grantee_principal_id = dp.principal_id WHERE dp.name = 'NT ServiceSQLSERVERAGENT...';

— Посмотрите логи SQL Server на ошибки в момент запуска задачи.

—

Если ошибка не ясна, приложите полный текст ошибки из журнала SQL Server или из агента, чтобы точнее диагностировать проблему.

—

Рекомендую посмотреть здесь, где подробно описаны проблемы с перестроением индексов и их решение:
https://infostart.ru/public/2255283/
https://infostart.ru/1c/articles/administrirovanie_bd/instrumenty_administratora_bd/

И по ошибкам SQL Server:
https://infostart.ru/1c/articles/administrirovanie_bd/tehnicheskie_oshibki_i_ikh_reshenie/

[Odin — Одинэсник]

Если в 1С:Бухгалтерия 4.0 не проводится документ «Заказ клиента», то причины могут быть разные. Вот пошаговый алгоритм, что проверить и как исправить:

1. Проверка заполнения обязательных реквизитов
— Проверьте, что заполнены все обязательные поля документа: контрагент, организация, склад (если есть), дата, валюта и т.п.
— Особое внимание уделите табличной части — должны быть заполнены номенклатура, количество, цена.

2. Проверка даты документа
— Дата документа не должна выходить за пределы периода, открытого для проведения.
— Проверьте, что дата документа не меньше даты начала работы базы и не больше текущей даты.

3. Проверка настроек прав пользователя
— У пользователя должны быть права на проведение документов данного типа.
— Проверьте роли и права в разделе «Администрирование» — «Пользователи» — «Роли».

4. Проверка блокировок и ограничений
— В настройках может быть установлен запрет на проведение документов с определёнными условиями (например, запрет на проведение в закрытом периоде).
— Проверьте, не стоит ли дата запрета изменения данных (в «Администрирование» — «Настройки» — «Дата запрета изменения данных»).

5. Проверка ошибок при проведении
— При попытке проведения должен появляться текст ошибки.
— Если ошибка не отображается, попробуйте провести документ через режим отладки или посмотрите журнал регистрации (Администрирование — Журнал регистрации) на наличие ошибок.

6. Проверка бизнес-логики и обработчиков
— Возможно, в базе есть доработки или расширения, которые блокируют проведение.
— Проверьте обработчики событий документа (например, «ПередЗаписью», «ПередПроведением») на наличие кода, который может отменять проведение.

7. Проверка остатков и резервов
— Если в заказе есть резервирование товаров, проверьте, что на складе достаточно остатков.
— Иногда проведение блокируется из-за отсутствия товара или превышения лимитов.

8. Проверка корректности справочников
— Проверьте, что все используемые в документе справочники (контрагенты, номенклатура, договоры) не удалены и не заблокированы.

9. Обновление конфигурации
— Убедитесь, что у вас установлена последняя версия конфигурации 4.0 с актуальными исправлениями.

Если после всех проверок проблема не решилась, то для точного определения причины нужно посмотреть конкретное сообщение об ошибке при проведении или логи.

Если есть возможность, приложите скриншот ошибки или текст сообщения — это поможет дать более точный совет.

Рекомендую посмотреть здесь, там есть похожие случаи и решения:
https://infostart.ru/public/1743445/ (настройки обмена и проведения)
https://infostart.ru/public/1722218/ (как быстро менять результат проведения)

[Odin — Одинэсник]

Для получения списка чатов (включая группы) в GreenAPI-MAX используется метод API:

GET /waInstance{IDInstance}/getChats/{apiTokenInstance}

—

### Пример процедуры на 1С для получения списка чатов через GreenAPI-MAX:

1С (Код)

Функция ПолучитьСписокЧатов(ИДИнстанса, Токен) Экспорт АдресAPI = "https://api.green-api.com"; ПутьЗапроса = "/waInstance" + ИДИнстанса + "/getChats/" + Токен; Соединение = Новый HTTPСоединение("api.green-api.com", 443, , , , , Новый ЗащищенноеСоединениеOpenSSL()); Запрос = Новый HTTPЗапрос(ПутьЗапроса); Запрос.Заголовки.Вставить("Content-Type", "application/json"); Попытка Ответ = Соединение.Получить(Запрос); Исключение ВызватьИсключение "Ошибка при получении списка чатов: " + ОписаниеОшибки(); КонецПопытки; Если Ответ.КодСостояния <> 200 Тогда ВызватьИсключение "Ошибка сервера при получении списка чатов. Код: " + Ответ.КодСостояния; КонецЕсли; ТекстОтвета = Ответ.ПолучитьТелоКакСтроку(); // Преобразуем JSON в структуру 1С ЧтениеJSON = Новый ЧтениеJSON; ЧтениеJSON.УстановитьСтроку(ТекстОтвета); Результат = ПрочитатьJSON(ЧтениеJSON); ЧтениеJSON.Закрыть(); // Результат - массив объектов с chatId и другими данными Возврат Результат; КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Функция ПолучитьСписокЧатов(ИДИнстанса, Токен) Экспорт     АдресAPI = "https://api.green-api.com";     ПутьЗапроса = "/waInstance" + ИДИнстанса + "/getChats/" + Токен;       Соединение = Новый HTTPСоединение("api.green-api.com", 443, , , , , Новый ЗащищенноеСоединениеOpenSSL());     Запрос = Новый HTTPЗапрос(ПутьЗапроса);     Запрос.Заголовки.Вставить("Content-Type", "application/json");       Попытка         Ответ = Соединение.Получить(Запрос);     Исключение         ВызватьИсключение "Ошибка при получении списка чатов: " + ОписаниеОшибки();     КонецПопытки;       Если Ответ.КодСостояния <> 200 Тогда         ВызватьИсключение "Ошибка сервера при получении списка чатов. Код: " + Ответ.КодСостояния;     КонецЕсли;       ТекстОтвета = Ответ.ПолучитьТелоКакСтроку();       // Преобразуем JSON в структуру 1С     ЧтениеJSON = Новый ЧтениеJSON;     ЧтениеJSON.УстановитьСтроку(ТекстОтвета);     Результат = ПрочитатьJSON(ЧтениеJSON);     ЧтениеJSON.Закрыть();       // Результат - массив объектов с chatId и другими данными     Возврат Результат; КонецФункции

—

### Как использовать:

1С (Код)

ИДИнстанса = "3100584661"; // Ваш ID инстанса Токен = "7de86b53ca0a451ca407183cf1ba3dac8404c29237094d16bf"; // Ваш API Token СписокЧатов = ПолучитьСписокЧатов(ИДИнстанса, Токен); Для Каждого Чат Из СписокЧатов Цикл Сообщить("chatId: " + Чат.chatId); // Можно фильтровать по chatId, например, группы заканчиваются на @g.us КонецЦикла;

1 2 3 4 5 6 7 8 9

ИДИнстанса = "3100584661"; // Ваш ID инстанса Токен = "7de86b53ca0a451ca407183cf1ba3dac8404c29237094d16bf"; // Ваш API Token   СписокЧатов = ПолучитьСписокЧатов(ИДИнстанса, Токен);   Для Каждого Чат Из СписокЧатов Цикл     Сообщить("chatId: " + Чат.chatId);     // Можно фильтровать по chatId, например, группы заканчиваются на @g.us КонецЦикла;

—

### Важные моменты:

— В ответе будет массив объектов с полем chatId — это идентификатор чата или группы.
— Для групп chatId заканчивается на @g.us.
— Для личных чатов — на @c.us.
— Используйте полученный chatId для отправки сообщений в нужный чат или группу.

—

Если нужно, могу помочь с примером отправки сообщения в группу, используя полученный chatId.

[Odin — Одинэсник]

Для УТ 11.5 интеграция с GreenAPI-MAX через внешнюю обработку или внешний модуль — это классический сценарий расширения функционала 1С для автоматической отправки уведомлений клиентам, например, при изменении статуса заказа покупателя.

### Как это сделать подробно с примерами

—

## 1. Подключение обработки GreenAPI-MAX к УТ 11.5

— В режиме предприятия загрузите обработку GreenAPI-MAX (*.epf).
— Настройте параметры подключения (ID аккаунта, токен) в обработке.
— Убедитесь, что обработка работает и может отправлять сообщения вручную.

—

## 2. Создание внешнего модуля для вызова функций GreenAPI-MAX

В УТ 11.5 можно создать внешний общий модуль (например, GreenAPIИнтеграция), который будет содержать процедуры и функции для отправки сообщений через GreenAPI-MAX.

### Пример кода внешнего общего модуля GreenAPIИнтеграция:

1С (Код)

// Внешний общий модуль GreenAPIИнтеграция // Процедура отправки текстового сообщения через GreenAPI-MAX Процедура ОтправитьСообщение(НомерТелефона, ТекстСообщения) Экспорт // Создаем объект обработки GreenAPI-MAX ОбработкаGreenAPI = ПолучитьОбработку("ПутьКGreenAPI-MAX.epf"); Если ОбработкаGreenAPI = Неопределено Тогда Сообщить("Не удалось загрузить обработку GreenAPI-MAX"); Возврат; КонецЕсли; // Устанавливаем параметры подключения (пример, заменить на реальные) ОбработкаGreenAPI.IDАккаунта = "ВАШ_ID_АККАУНТА"; ОбработкаGreenAPI.Токен = "ВАШ_ТОКЕН"; // Формируем и отправляем сообщение Результат = ОбработкаGreenAPI.ОтправитьСообщение(НомерТелефона, ТекстСообщения); Если Результат = Истина Тогда Сообщить("Сообщение успешно отправлено клиенту " + НомерТелефона); Иначе Сообщить("Ошибка при отправке сообщения клиенту " + НомерТелефона); КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

// Внешний общий модуль GreenAPIИнтеграция   // Процедура отправки текстового сообщения через GreenAPI-MAX Процедура ОтправитьСообщение(НомерТелефона, ТекстСообщения) Экспорт     // Создаем объект обработки GreenAPI-MAX     ОбработкаGreenAPI = ПолучитьОбработку("ПутьКGreenAPI-MAX.epf");          Если ОбработкаGreenAPI = Неопределено Тогда         Сообщить("Не удалось загрузить обработку GreenAPI-MAX");         Возврат;     КонецЕсли;          // Устанавливаем параметры подключения (пример, заменить на реальные)     ОбработкаGreenAPI.IDАккаунта = "ВАШ_ID_АККАУНТА";     ОбработкаGreenAPI.Токен = "ВАШ_ТОКЕН";          // Формируем и отправляем сообщение     Результат = ОбработкаGreenAPI.ОтправитьСообщение(НомерТелефона, ТекстСообщения);          Если Результат = Истина Тогда         Сообщить("Сообщение успешно отправлено клиенту " + НомерТелефона);     Иначе         Сообщить("Ошибка при отправке сообщения клиенту " + НомерТелефона);     КонецЕсли; КонецПроцедуры

> Важно:
> — ПолучитьОбработку() — это пример функции, которая должна загрузить обработку GreenAPI-MAX в память. В 1С нет встроенной функции с таким именем, нужно реализовать загрузку обработки через ВнешниеОбработки или через COM-соединение, либо использовать вызов процедур обработки через COM или COM-соединение.
> — В зависимости от реализации GreenAPI-MAX, возможно, придется вызывать процедуры через COM или через вызов внешней обработки с параметрами.

—

## 3. Вызов из бизнес-процесса УТ 11.5 — например, при изменении статуса заказа покупателя

В УТ 11.5 есть документ «Заказ покупателя». Можно расширить обработку события изменения статуса заказа, чтобы при смене статуса отправлять уведомление клиенту.

### Пример расширения обработки документа ЗаказПокупателя (в расширении или в общем модуле):

1С (Код)

&НаСервере Процедура ПриИзмененииСтатусаЗаказа(Объект) // Получаем номер телефона клиента из реквизитов или из контрагента НомерТелефона = ПолучитьТелефонКлиента(Объект.Контрагент); Если НомерТелефона = "" Тогда Возврат; // Телефон не указан, отправка невозможна КонецЕсли; // Формируем текст уведомления ТекстСообщения = "Уважаемый клиент! Статус вашего заказа №" + Объект.Номер + " изменен на " + Объект.СтатусЗаказа.Наименование; // Вызываем процедуру отправки сообщения из внешнего модуля GreenAPIИнтеграция.ОтправитьСообщение(НомерТелефона, ТекстСообщения); КонецПроцедуры // Вспомогательная функция для получения телефона клиента Функция ПолучитьТелефонКлиента(Контрагент) Экспорт Если Контрагент = Неопределено Тогда Возврат ""; КонецЕсли; // Предположим, что телефон хранится в реквизите "Телефон" Возврат Контрагент.Телефон; КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

&НаСервере Процедура ПриИзмененииСтатусаЗаказа(Объект)     // Получаем номер телефона клиента из реквизитов или из контрагента     НомерТелефона = ПолучитьТелефонКлиента(Объект.Контрагент);          Если НомерТелефона = "" Тогда         Возврат; // Телефон не указан, отправка невозможна     КонецЕсли;          // Формируем текст уведомления     ТекстСообщения = "Уважаемый клиент! Статус вашего заказа №" + Объект.Номер + " изменен на " + Объект.СтатусЗаказа.Наименование;          // Вызываем процедуру отправки сообщения из внешнего модуля     GreenAPIИнтеграция.ОтправитьСообщение(НомерТелефона, ТекстСообщения); КонецПроцедуры   // Вспомогательная функция для получения телефона клиента Функция ПолучитьТелефонКлиента(Контрагент) Экспорт     Если Контрагент = Неопределено Тогда         Возврат "";     КонецЕсли;          // Предположим, что телефон хранится в реквизите "Телефон"     Возврат Контрагент.Телефон; КонецФункции

—

## 4. Автоматизация вызова

— Можно подписаться на событие изменения документа ЗаказПокупателя (например, через расширение, подписку на событие или через обработчик в модуле объекта).
— При изменении статуса вызывается процедура ПриИзмененииСтатусаЗаказа, которая отправляет уведомление.

—

## 5. Важные моменты

— Передача параметров в обработку GreenAPI-MAX: если обработка не предоставляет прямого API для вызова из кода, можно доработать её, добавив экспортные процедуры, которые принимают параметры (номер, текст) и отправляют сообщение.
— Асинхронность: отправка сообщений может занимать время, лучше делать это в регламентных заданиях или фоновых обработках, чтобы не блокировать пользователя.
— Логирование: добавьте логирование успешных и неуспешных попыток отправки сообщений для отладки и контроля.
— Безопасность: храните токены и ID аккаунта в защищённых настройках, не хардкодьте в коде.

—

## Итог

— Создаёте внешний модуль с процедурами отправки сообщений через GreenAPI-MAX.
— Расширяете бизнес-процессы УТ 11.5, чтобы при нужных событиях (например, смена статуса заказа) вызывать эти процедуры.
— Настраиваете автоматизацию и логирование.

—

Если нужна помощь с конкретным кодом вызова из обработки GreenAPI-MAX (например, как именно вызвать её методы из 1С), пришлите код обработки или опишите, как она реализована (внешняя обработка, COM, HTTP-запросы), помогу адаптировать.

[Odin — Одинэсник]

Обработка GreenAPI-MAX — это внешняя обработка для 1С, которая позволяет интегрировать 1С с сервисом GreenAPI (API для работы с WhatsApp, Telegram и другими мессенджерами через WhatsApp Business API). На практике она используется для автоматизации отправки и получения сообщений, управления чатами, рассылок и обработки входящих сообщений прямо из 1С.

Как использовать GreenAPI-MAX на практике:

1. Подключение обработки к базе 1С
— Скачайте обработку GreenAPI-MAX (обычно это файл *.epf).
— В конфигураторе или в режиме предприятия откройте обработку через меню «Файл» → «Открыть».
— Настройте параметры подключения к вашему аккаунту GreenAPI: укажите ID аккаунта, токен (API key), которые вы получите в личном кабинете GreenAPI.

2. Настройка параметров
— В обработке укажите настройки отправки сообщений: номер телефона отправителя, шаблоны сообщений, типы сообщений (текст, медиа, документы).
— Настройте обработку входящих сообщений: можно задать правила обработки, фильтры, автоматические ответы.

3. Отправка сообщений из 1С
— В интерфейсе обработки выберите контакт или введите номер телефона получателя.
— Введите текст сообщения или выберите файл для отправки (изображение, документ, аудио).
— Нажмите кнопку «Отправить». Обработка сформирует запрос к API GreenAPI и отправит сообщение.

4. Получение и обработка входящих сообщений
— Обработка может периодически опрашивать API GreenAPI на предмет новых сообщений (через регламентное задание или вручную).
— Входящие сообщения отображаются в интерфейсе обработки, можно настроить автоматическую обработку (например, создание задач, уведомлений, ответов).

5. Автоматизация через регламентные задания
— Для регулярной отправки уведомлений, рассылок или обработки входящих сообщений настройте регламентные задания в 1С, которые будут вызывать процедуры обработки GreenAPI-MAX.
— Это позволяет полностью автоматизировать обмен сообщениями без участия пользователя.

6. Интеграция с бизнес-процессами 1С
— Можно доработать обработку или написать внешние модули, которые будут вызывать функции GreenAPI-MAX из других частей 1С (например, при изменении статуса заказа отправлять уведомление клиенту).
— Используйте API обработки для интеграции с CRM, складом, бухгалтерией и другими подсистемами.

7. Логирование и мониторинг
— В обработке обычно есть журнал отправленных и полученных сообщений, ошибки и статусы доставки.
— Следите за логами для контроля работы интеграции.

—

Кратко:
— Подключаете обработку к базе 1С.
— Настраиваете параметры API GreenAPI (ID, токен).
— Отправляете и получаете сообщения через интерфейс обработки или регламентные задания.
— Интегрируете с бизнес-процессами для автоматизации коммуникаций.

—

Если нужна конкретика по настройке или примеры кода для вызова функций обработки — уточните версию 1С и конфигурацию, могу помочь с примером.

Рекомендую посмотреть здесь:
https://infostart.ru/public/ (поиск по GreenAPI-MAX)
https://github.com/green-api/ (официальные примеры и документация)

[Автор]

Сообщения