```1c
    &НаСервере
    Процедура ОбратныйВызов(ВводимоеЧисло, ДопПар) Экспорт

    Перем СуммаКРаспределению;

    СуммаОбщая = 0;
    СуммаБазы = 0;
    СуммаНДС = 0;

    Для Каждого СтрокаТЧ из Объект.Товары Цикл
    СуммаБазы = СуммаБазы + СтрокаТЧ.СуммаСНДС;
    КонецЦикла;

    СуммаДокумента = Этот Объект.СуммаЗаказаноСЗалоговойТарой;
    Если ВводимоеЧисло = Неопределено Тогда
    Сообщить(«Ничего не введено!»);

    Иначе

    К = ВводимоеЧисло/СуммаБазы;

    Для Каждого СтрокаТЧ Из Объект.Товары Цикл

    СуммаКРаспределению =Окр( СтрокаТЧ.СуммаСНДС * К-0.007, 2, 0);
    СтрокаТЧ.СуммаСНДС = СтрокаТЧ.СуммаСНДС + СуммаКРаспределению;
    СуммаОбщая = СуммаОбщая + СтрокаТЧ.СуммаСНДС;
    СтрокаТЧ.СуммаНДС = СтрокаТЧ.СуммаСНДС – СтрокаТЧ.Сумма;
    СуммаНДС = СуммаНДС + СтрокаТЧ.СуммаНДС;
    КонецЦикла;
    КонецЕсли;

    ЭтотОбъект.СуммаНДСЗаказано = СуммаНДС;
    ЭтотОбъект.СуммаЗаказаноСЗалоговойТарой = СуммаОбщая;

    КонецПроцедуры
```

Нужно переделать округление, а я не понимаю как это сделать. Например разделить 0.11 на две одинаковые позиции
Сейчас окгугляет до тысячной, но это неправильно и говорят переделать
---
при таком методе распределения теряются копейки
не понял суть задачи %))
если нужно распределить 0.11 пропорционально к сумме с ндс между всеми строками, то вот рабочий код

```1c
    Для Каждого СтрокаТЧ Из Объект.Товары Цикл
    СуммаКРаспределению = Окр(СтрокаТЧ.СуммаСНДС * ВводимоеЧисло / СуммаБазы, 2, 0);
    СуммаБазы = СуммаБазы - СтрокаТЧ.СуммаСНДС;
    ВводимоеЧисло = ВводимоеЧисло - СуммаКРаспределению;
    СтрокаТЧ.СуммаСНДС = СтрокаТЧ.СуммаСНДС + СуммаКРаспределению;
    КонецЦикла;
```
---
при таком методе распределения теряются копейки
не понял суть задачи %))
если нужно распределить 0.11 пропорционально к сумме с ндс между всеми строками, то вот рабочий код

```1c
    Для Каждого СтрокаТЧ Из Объект.Товары Цикл
    СуммаКРаспределению = Окр(СтрокаТЧ.СуммаСНДС * ВводимоеЧисло / СуммаБазы, 2, 0);
    СуммаБазы = СуммаБазы - СтрокаТЧ.СуммаСНДС;
    ВводимоеЧисло = ВводимоеЧисло - СуммаКРаспределению;
    СтрокаТЧ.СуммаСНДС = СтрокаТЧ.СуммаСНДС + СуммаКРаспределению;
    КонецЦикла;
```
---
от тебя хотят добиться что бы ты или сам пришел с вопросом куда мне деть копейку которая не делится. или сам показал что вот есть копейка я её закидываю на большую сумму
---
Посмотрите тут:

```1c
    // Выполняет пропорциональное распределение суммы в соответствии
    // с заданными коэффициентами распределения.
    //
    // Параметры:
    // РаспределяемаяСумма - Число - сумма, которую надо распределить, если сумма равна 0 - то возвращается Неопределено;
    // Если передана отрицательная - расчет по модулю и после инверсия знаков результата.
    // Коэффициенты - Массив - коэффициенты распределения, должны быть положительны или отрицательными одновременно
    // Точность - Число - точность округления при распределении. Необязателен.
    //
    // Возвращаемое значение:
    // Массив - массив размерностью равный массиву коэффициентов, содержит
    // суммы в соответствии с весом коэффициента (из массива коэффициентов).
    // В случае, если распределить невозможно (кол-во коэффициентов = 0
    // есть коэффициенты с отрицательным значением или суммарный вес коэффициентов = 0),
    // тогда будет возвращено Неопределено.
    //
    // Пример:
    //
    // Коэффициенты = Новый Массив;
    // Коэффициенты.Добавить(1);
    // Коэффициенты.Добавить(2);
    // Результат = ОбщегоНазначенияКлиентСервер.РаспределитьСуммуПропорциональноКоэффициентам(1, Коэффициенты);
    // // Результат = [0.33, 0.67]
    //
    Функция РаспределитьСуммуПропорциональноКоэффициентам(Знач РаспределяемаяСумма, Знач Коэффициенты, Знач Точность = 2) Экспорт
```