Есть некая сумма. Скажем 30 000
Есть некая ТЗ с колонкой Сумма. Строк - неограниченное кол-во.
Надо выбрать строки (перебор с верху вниз) на сумму 30 000
То что выбрано - или удалить или обнулить сумму в строке
та строка которая с остатком - ну в нее вывести остаток ...

знаю - что элементарно .. но чего то пиндыр ...

перебором...

НайтиСтроки

а, не правильно понял. Перебором проще всего. Можно запрос с нарастающим итогом

процедуры ПеребратьСНизуВверхОбнулениеДоПредела в платформе точно нет

Нужен алгоритм поиска значений

Сумма = 0;
МассивСтрок = Новый Массив;
ит = Тч.количество()-1
Пока Сумма <= 30000 Цикл
МассивСтрок.Добавить(тч[ит]);
сумма = сумма = тч[ит];
ит = ит + 1;
КонецЦикла;

(0) Сумма должна быть ровно 30000 ?

или когда сумма строк будет больше 30000?

сумма = сумма + тч[ит] есессно

мля :) тч[ит].сумма;

пора домой, сложный вторнедельник

сумма = сумма + тч[ит].сумма

уху .. делаю перебором

НекаяЗакрСумма=30000;

для каждого Стр из ТаблицаЗадолженностей_Копия цикл
СуммаТЧ = Стр.Сумма;
ОстатокОтЗакрСуммы = НекаяЗакрСумма -СуммаТЧ
Стр.Сумма = 0; // обнуляем ту строку кот уже использована
Если СуммаТЧ<=0 тогда
Стр.Сумма = ОстатокОтЗакрСуммы
прервать
конецесли;



конеццикла;

(11) угу, и ит = ит - 1;

(8)
когда больше.
ровно - это идеально .. но такого редко

(14) см (7) + (10)/(11) + (13)

(15)
гы


уху

Хмм...не так всё просто. Порядок строк важен (точнее - суммы, которые в этих строках). И если нужно минимизировать остаток - вопрос о порядке подбора/отбора строк становится первоочередным и принципиальным.

(17) ТЧ.Сортировать("Сумма Убыв")?

Можно сначала выбрать бинарным поиском на меньше или равно на нужное значение до тех пор пока сумма будет меньше нужной.

Но вообще это задача рюкзака
wiki:%C7%E0%E4%E0%F7%E0_%EE_%F0%E0%ED%F6%E5

(20)
чего так сложно то ...

(21) Ну попробуй для начала 19. Это для 7 ки. Приложи его для 8 ки. (Нумерация с 0 по Количество()-1 )
Функция НайтиЗначениеПоловиннымДелением(Тз,Цена)
    
    Левое=1;
Правое=Тз.КоличествоСтрок();
Пока 1=1 Цикл

Вычитаемое=Макс(Цел((Правое-Левое)/2),1);
Середина=Правое-Вычитаемое;
РасчетнаяЦена= Тз.ПолучитьЗначение(Середина,"Цена");
if Цена<РасчетнаяЦена then
    Правое=Середина
else
    Левое=Середина;
КонецЕсли;

if Цена=РасчетнаяЦена Тогда
    Тз.ПолучитьСтрокуПоНомеру(Середина);
    возврат Середина
КонецЕсли;    

Если  (Правое-Левое)<=1 Тогда
    Прервать;
КонецЕсли;    
КонецЦикла;


Тз.ПолучитьСтрокуПоНомеру(левое);
Возврат левое;

КонецФункции // НайтиЗначениеПоловиннымДелением

22 Да там нужно сделать еще краевую проверку
Если Правое=Тз.КоличествоСтрок() Тогда
Если Тз.ПолучитьЗначение(Правое,"Цена")<=Цена Тогда
Тз.ПолучитьСтрокуПоНомеру(правое);
    возврат правое

КонецЕли;
КонецЕли;