Необходимо произвести пропорциональное распределение суммы вносимой оплаты между предметами платежа

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Выборка = Документы.ЧекНаОплату.Выбрать();
   Пока Выборка.Следующий() Цикл
      Объект = Выборка.ПолучитьОбъект();
      Документы.ЧекНаОплату.ПроизвестиРаспределениеСуммыОплаты(Объект.СуммаДокумента, Объект.Товары);
      
      ОшибкаОкругления = Объект.СуммаДокумента - Объект.Товары.Итог("СуммаОплаты");

      Если ОшибкаОкругления <> 0 Тогда
         Товары = Объект.Товары;
         НомерСтроки = 0;
         НаибольшаяСуммаВсего = 0;
         
         Для Каждого Строка ИЗ Товары Цикл
            Если Строка.СуммаВсего > НаибольшаяСуммаВсего Тогда
               НаибольшаяСуммаВсего = Строка.СуммаВсего;
               НомерСтроки = Строка.НомерСтроки;
            КонецЕсли;
         КонецЦикла;
         
         Если НомерСтроки > 0 Тогда
            ОшибкаОкругления = Объект.СуммаДокумента - Товары.Итог("СуммаОплаты");
            СтрокаТаблицы = Товары.Найти(НомерСтроки, "НомерСтроки");
            СтрокаТаблицы.СуммаОплаты = СтрокаТаблицы.СуммаОплаты + ОшибкаОкругления;
         КонецЕсли;
         
      КонецЕсли;
      
      //Объект.ТипСпособаРасчетаККТ = Перечисления.ТипыСпособаРасчетаККТ.Предоплата;
      Объект.Записать(РежимЗаписиДокумента.Запись);
      
      
      
      
   КонецЦикла;
КонецПроцедуры