1c 8 как из регистра накопления выбрать первые записи дающие итог больше чем Х

А чуть подробнее?

Типовое отраслевое решение
"Альфа-Авто: Автосервис+Автозапчасти, украинская версия 4.1"
Разработка: "1С-Рарус" Локализация: "АБИ Украина" (4.1.07.01)

Это корректировка проведения документа "ЗакрытиеСмены", корректируестя набор записей регистра Партии. Документ - это свёртка чеков за день. Возвраты собираются в отдельный документ. Если есть остаток на какой - либо партии, то на нё и возвращается (на последнюю). А вот если нет, тогда возвращается на специальный документ прихода, задаётся константой. Называется партия нулевых остатков.
Требуется выбрать в обратном порядке меньше момента времени текущего документа движения чтобы рапределить движение возврата на партии по которым продавалось через кассу.

Вот код из модуля:

В обработке проведения вызов, после формирования набора записей:

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

Ну и сама процедура:

// --> + Рубцов в конфу Начало, откорректируем Проведение по партиям, распределим партию отрицательных остатков на продажи по Другим закрытиям кассовой смены
Процедура ОткорректируемПроведениеПоПартиям(Отказ)
// НЗНов = РегистрыНакопления.ПартииТоваровКомпании.СоздатьтекНЗПартии();
текНЗПартии = ЭтотОбъект.Движения.ПартииТоваровКомпании;
Если текНЗПартии.Количество() = 0 Тогда
Возврат;
КонецЕсли;
ПартНулОст = Константы.ПартияТоваровОтрицательныхОстатков.Получить();
ТЗЗап = текНЗПартии.Выгрузить();
МасСтрокНеПартНулОст = Новый Массив;
МасСтрокПартНулОст = Новый Массив;
Для Каждого ТекСтрТЗЗап Из ТЗЗап Цикл
Если ТекСтрТЗЗап.Партия = ПартНулОст Тогда
МасСтрокПартНулОст.Добавить(ТекСтрТЗЗап);
Иначе
МасСтрокНеПартНулОст.Добавить(ТекСтрТЗЗап);
КонецЕсли;
КонецЦикла;
ТЗЗапНов = ТЗЗап.Скопировать(МасСтрокНеПартНулОст);
ТЗЗапНулОст = ТЗЗап.Скопировать(МасСтрокПартНулОст);
// ФункРубц.ПечатьТЗ(ТЗЗапНулОст, "ТЗЗапНулОст");
Для Каждого тсТЗЗапНулОст Из ТЗЗапНулОст Цикл
ОбработкаПрерыванияПользователя();
ТекКВоРаспределить = - тсТЗЗапНулОст.Количество;
// НачМомВрем = ТекущаяДата();
// Для ии = 1 По 5000 Цикл
ЗапрРубц = Новый Запрос;
ЗапрРубц.Текст = "ВЫБРАТЬ
//| ПартииТоваровКомпании.МоментВремени КАК МоментВремени,
//| ПартииТоваровКомпании.Регистратор,
| ПартииТоваровКомпании.Партия,
| ПартииТоваровКомпании.Количество,
| ПартииТоваровКомпании.СуммаУпр
// | ПартииТоваровКомпании.ВидДвижения
|ИЗ
| РегистрНакопления.ПартииТоваровКомпании КАК ПартииТоваровКомпании
|ГДЕ
| ПартииТоваровКомпании.Период <= &КонДата
| И ПартииТоваровКомпании.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
| И ПартииТоваровКомпании.Регистратор ССЫЛКА Документ.ЗакрытиеСмены
| И ПартииТоваровКомпании.Номенклатура = &Номенклатура
| И ПартииТоваровКомпании.Количество > 0
|
|УПОРЯДОЧИТЬ ПО
| МоментВремени УБЫВ";

// ЗапрРубц.УстановитьПараметр("НачДата",'20000101');
ЗапрРубц.УстановитьПараметр("КонДата",КонецДня(ЭтотОбъект.Дата));
ЗапрРубц.УстановитьПараметр("Номенклатура",тсТЗЗапНулОст.Номенклатура);
ВыбРубц = ЗапрРубц.Выполнить().Выбрать();
Пока ВыбРубц.Следующий() Цикл
ОбработкаПрерыванияПользователя();
Если ТекКВоРаспределить <= 0 Тогда
прервать;
КонецЕсли;
тсТЗЗапНов = ТЗЗапНов.Добавить();
ЗаполнитьЗначенияСвойств(тсТЗЗапНов, тсТЗЗапНулОст);
КвоЗап = Мин(ТекКВоРаспределить,ВыбРубц.Количество);
ТекКВоРаспределить = ТекКВоРаспределить - КвоЗап;
СумЗап = КвоЗап*ВыбРубц.СуммаУпр/ВыбРубц.Количество;
тсТЗЗапНов.Партия = ВыбРубц.Партия;
тсТЗЗапНов.Количество = -КвоЗап;
тсТЗЗапНов.Сумма = -СумЗап;
тсТЗЗапНов.СуммаУпр = -СумЗап;
тсТЗЗапНов.СуммаНДС = -СумЗап/6;
КонецЦикла;
Если ТекКВоРаспределить > 0 Тогда
Сообщить("Попытка вернуть "+тсТЗЗапНулОст.Номенклатура+" больше чем их было вообще продано!",СтатусСообщения.ОченьВажное);
Отказ = Истина;
возврат;
тсТЗЗапНов = ТЗЗапНов.Добавить();
ЗаполнитьЗначенияСвойств(тсТЗЗапНов, тсТЗЗапНулОст);
тсТЗЗапНов.Количество = -ТекКВоРаспределить;
КонецЕсли;
КонецЦикла;
// ФункРубц.ПечатьТЗ(ТЗЗапНов, "ТЗЗапНов");
текНЗПартии.Загрузить(ТЗЗапНов);
текНЗПартии.ОбменДанными.Загрузка = Истина;
текНЗПартии.Записать();
КонецПроцедуры
// --> - Рубцов в конфу Конец , откорректируем Проведение по партиям, распределим партию отрицательных остатков на продажи по Другим закрытиям кассовой смены