Удаление значений ТЧ

[ab30ru]

Здравствуйте. Есть ТЧ ВыданныеКниги. В ней 2 реквизита Книга и Статус. Нужно удалить те строки, где статус книги На руках. Помогите пожалуйста с кодом

[alex0402]

Код Выделить Развернуть

Количество = ВыданныеКниги.Количество();
Пока Количество > 0 Цикл
    Количество = Количество - 1;
    Если ВыданныеКниги[Количество].Статус = НаРуках Тогда
        ВыданныеКниги.Удалить(Количество);
    КонецЕсли;
КонецЦикла;

[Izzy]

Код Выделить Развернуть


Для каждого Стр Из ВыданныеКниги Цикл
    Если Стр.Статус = "НаРуках" Тогда
        ВыданныеКниги.Удалить(ВыданныеКниги.Индекс(Стр));
    КонецЕсли;
КонецЦикла;


[Kironten]

Код Выделить Развернуть


Для каждого Стр Из ВыданныеКниги Цикл
    Если Стр.Статус = "НаРуках" Тогда
        ВыданныеКниги.Удалить(ВыданныеКниги.Индекс(Стр));
    КонецЕсли;
КонецЦикла;


Плохая идея удалять строки из ТЧ обходя её по прямому порядку.
Не забывайте, что при удалении строки из тч, строки под удаляемой "смещаются вверх", и соответственно будут строки выпадающие из проверки.

[Izzy]

Верное замечание, спасибо!
Если подряд будут две строки с одинаковым статусом, то вторая не будет удалена.

[ab30ru]

Верное замечание, спасибо!
Если подряд будут две строки с одинаковым статусом, то вторая не будет удалена.

А как это сделать? Как обойти?

[alex0402]

А как это сделать? Как обойти?

а « Ответ #1: 02 Авг 2017, 21:42 » чем не устраивает.

[Sandi]

а я бы сделала как-то так:

Код Выделить Развернуть


Отбор=Новый Структура("Статус",НаРуках);

МассивСтрок = ВыданныеКниги.НайтиСтроки(Отбор);

Для Каждого СтрокаМассива из МассивСтрок Цикл
ВыданныеКниги.Удалить(СтрокаМассива);
КонецЦикла


[MuI_I_Ika]

Еще вот так можно сделать. Адаптируйте алгоритм для своего случая:

Код Выделить Развернуть

КоличествоСтрок = ДокументОбъект.Товары.Количество();
Для к = 1 по КоличествоСтрок Цикл

ТекСтрока = КоличествоСтрок - к;
ТекЭлемент = ДокументОбъект.Товары[ТекСтрока];

Если ТекЭлемент.Цена = 0 Тогда
ДокументОбъект.Товары.Удалить(ТекЭлемент);
КонецЕсли;

КонецЦикла;