Удалить строку из ТЧ

[Дринкинс]

ТЗ = Выборка.Услуги.Выгрузить();
ДокументРеализация.Услуги.Загрузить(ТЗ);
Для каждого ТС из ДокументРеализация.Услуги Цикл
   Если ТС.Количество = 0 Тогда
      ДокументРеализация.Услуги.Удалить(ТС);
   КонецЕсли;
КонецЦикла;
      


Подскажите почему не удаляет строк?

[MuI_I_Ika]

Скорее всего программа просто теряет итератор. У вас цикл для каждого для используются строки для обходя цикла, а вы в момент обхода пытаетесь их удалять. Вот в какой то из моментов программа и ошибается.

Попробуйте использовать Цикл для к = 0 по ДокументРеализация.Услуги.Количество()-1 Цикл

[Дринкинс]

Для Стр=0 По КоличествоСтрок Цикл
    ДанныеОбхода = ДокументРеализация.Услуги.Получить(стр);
    Если ДанныеОбхода.Количество = 0 Тогда                
        ДокументРеализация.Услуги.Удалить(Стр);
    КонецЕсли;
КонецЦикла;

Так выходит за пределы

Добавлено: 12 июл 2013, 12:01

Для Стр=0 По КоличествоСтрок Цикл
    ДанныеОбхода = ДокументРеализация.Услуги.Получить(стр);
    Если ДанныеОбхода.Количество = 0 Тогда               
        ДокументРеализация.Услуги.Удалить(Стр);
    КонецЕсли;
КонецЦикла;
Значение индекса выходит за границы диапазона

[Dethmontt]

Для Стр=0 По КоличествоСтрок-1 Цикл

[MuI_I_Ika]

начение индекса выходит за границы диапазона

Я не спроста указал -1. Если нумерация коллекции начинается с 0, то индекс последнего элемента колеекции будет на 1 меньше, чем количество элементов в коллекции.

[Дринкинс]

КоличествоСтрок = ДокументРеализация.Услуги.Количество()-1;
Для Стр=0 По КоличествоСтрок Цикл
    ДанныеОбхода = ДокументРеализация.Услуги.Получить(стр);
    Если ДанныеОбхода.Количество = 0 Тогда               
        ДокументРеализация.Услуги.Удалить(Стр);
    КонецЕсли;
КонецЦикла;
Значение индекса выходит за границы диапазона

Добавлено: 12 июл 2013, 12:15

Я так понимаю раз строка удаляется то нужно количество индексов и счетчик уменьшить на один, но и при таком варианте все равно такая же ошибка.

[Dethmontt]

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

КоличествоСтрок = ДокументРеализация.Услуги.Количество()-1;
Для к=0 По КоличествоСтрок Цикл
   Если ДокументРеализация.Услуги[КоличествоСтрок-к].Количество = 0 Тогда
      ДокументРеализация.Услуги.Удалить(КоличествоСтрок-к);
   КонецЕсли;
КонецЦикла; 

[Дринкинс]

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

КоличествоСтрок = ДокументРеализация.Услуги.Количество()-1;
Для к=0 По КоличествоСтрок Цикл
   Если ДокументРеализация.Услуги[КоличествоСтрок-к].Количество = 0 Тогда
      ДокументРеализация.Услуги.Удалить(КоличествоСтрок-к);
   КонецЕсли;
КонецЦикла; 

Спасибо большое чтото сразу так не догадался сделать.