Привет всем, изучаю 1С и прошу помочь с решением задачи.

Есть заполняемая по команде таблица:

&НаКлиенте
Процедура ЗаполнитьТаблицу(Команда)
    
    ГСЧ = Новый ГенераторСлучайныхЧисел;
    Для Инд = 1 По 100 Цикл
        СтрТЧ = Объект.СписокТоваров.Добавить();
        СтрТЧ.Номенклатура = "Номенклатура"+Инд;
        СтрТЧ.Услуга = ГСЧ.СлучайноеЧисло(0,1);
    КонецЦикла;
КонецПроцедуры

и  команда на удаление "услуг"

&НаКлиенте
Процедура УдалитьУслуги(Команда)
        Для Каждого СтрТЧ Из Объект.СписокТоваров

    Цикл
        Если СтрТЧ.Услуга = Истина Тогда
            Объект.СписокТоваров.Удалить(СтрТЧ);
        КонецЕсли;         
    КонецЦикла;
КонецПроцедуры


Но по видимому из-за смещения строк при удалении происходит сбой и удаляется только часть значений. Никак не доходит, как решить данную проблему.

(0) Обходи ТЧ при удалении с конца. Или сначала загоняй строки для удаления в массив, а потом удаляй.

&НаКлиенте
Процедура УдалитьУслуги(Команда)
        КолВоСтрок = Объект.СписокТоваров.Количество(); Сч = 0;
        Пока Сч < КолВоСтрок Цикл
            СтрТч = Объект.СписокТоваров[Сч];
            Если СтрТЧ.Услуга Тогда
                Объект.СписокТоваров.Удалить(СтрТЧ);
                КолВоСтрок = Объект.СписокТоваров.Количество();
            Иначе
                Сч = Сч + 1;
            КонецЕсли;        
    КонецЦикла;
КонецПроцедуры

i = 0;
Пока i < Таб.Количество() Цикл
    Если <?"Условие"> Тогда
      Таб.Удалить(i)
    Иначе
      i = i +1
    КонецЕсли;
КонецЦикла;

КолвоЭлементовКоллекции = Строки.Количество();
        Для ОбратныйИндекс = 1 По КолвоЭлементовКоллекции Цикл
            ЭлементКоллекции = Строки[КолвоЭлементовКоллекции - ОбратныйИндекс];
            Если ЭлементКоллекции.Номенклатура.Услуга Тогда
                Строки.Удалить(ЭлементКоллекции);
            КонецЕсли;
        КонецЦикла;

Благодарю за столь быстрые ответы.

М = НайтиСтроки (Новый Структура("Услуга", Истина)
Для Каждого Строка Из М
Удалить(Строка)

Вот так и пишутся дипломы по 1С...