как бы вы переписали этот код?

[John_Connor]

                //*_*  в цикле перебирает ТЗ и по условию удаляет строки из ТЗ               

      УслугиГПМ=Справочники.СтатьиЗатрат.НайтиПоКоду("000000092") ;
      ТекущеееСодержаниеПодъездныхПутей =Справочники.СтатьиЗатрат.НайтиПоКоду("000011422") ;
      УслугиАвтотранспорта=Справочники.СтатьиЗатрат.НайтиПоКоду("000000088") ;
      ОперациНаЖД= Справочники.СтатьиЗатрат.НайтиПоКоду("000011409") ;
      ПРР=Справочники.СтатьиЗатрат.НайтиПоКоду("000011411") ;   
      ИндексЭлемента=0;
      числоСтрок=  ДанныеНаборовЗаписей.Хозрасчетный.количество();
      Пока ИндексЭлемента<числоСтрок Цикл
         Если  ДанныеНаборовЗаписей.Хозрасчетный[ИндексЭлемента].СчетКт= ПланыСчетов.Хозрасчетный.НайтиПоКоду("44.08")    ИЛИ
            ДанныеНаборовЗаписей.Хозрасчетный[ИндексЭлемента].СубконтоКт1= УслугиГПМ ИЛИ
            ДанныеНаборовЗаписей.Хозрасчетный[ИндексЭлемента].СубконтоКт1=ТекущеееСодержаниеПодъездныхПутей  ИЛИ
            ДанныеНаборовЗаписей.Хозрасчетный[ИндексЭлемента].СубконтоКт1= УслугиАвтотранспорта ИЛИ
            ДанныеНаборовЗаписей.Хозрасчетный[ИндексЭлемента].СубконтоКт1=ОперациНаЖД   ИЛИ
            ДанныеНаборовЗаписей.Хозрасчетный[ИндексЭлемента].СубконтоКт1=ПРР      // А вот это - самая фееричная строка
            Тогда
            ДанныеНаборовЗаписей.Хозрасчетный.Удалить(ИндексЭлемента);
            Если  ИндексЭлемента = 0 Тогда
               числоСтрок=числоСтрок-1;
               Продолжить
            иначе
               числоСтрок=числоСтрок-1;
               ИндексЭлемента=ИндексЭлемента-1;
            КонецЕсли;
            Продолжить;
         КонецЕсли;   
         ИндексЭлемента=ИндексЭлемента+1;
      КонецЦикла;
   

[KrivosheevEV]

[О] Красный
[1] Жёлтый
[2] Жёлтый
[3] Зелёный

Задача: Удалить строки, где "Жёлтый".
Метод: Перебор по индексу "сверху".

1.
[О] Красный
[1] Жёлтый  <- Индекс = 1, строка совпала - удаляем.
[2] Жёлтый
[3] Зелёный

2.
[О] Красный
[1] Жёлтый
[2] Зелёный <- Индекс = 2, Строка не совпала.

[pavl_vs]

John_Connor, проблема-то в чем?
Приведенный цикл работать не будет, или сработает неправильно, т.к. возврат по "продолжить" идет на строку "Если", как бы Вы не переопределяли параметр цикла числоСтрок в самом цикле.
Перепишите его на обход снизу.

[vitasw]

Интуитивно понимаю, что можно все решить в одном цикле. Я в таких ситуация просто нужные строки копирую в ТЗ, а затем результат загружаю в набор = очень упрощает логику.

[John_Connor]

John_Connor, проблема-то в чем?
Приведенный цикл работать не будет, или сработает неправильно, т.к. возврат по "продолжить" идет на строку "Если", как бы Вы не переопределяли параметр цикла числоСтрок в самом цикле.
Перепишите его на обход снизу.

проблема в том что код какой то не оптимизированный, да он  работает, но хочется оптимизации

Добавлено: 02 сен 2015, 11:42

Интуитивно понимаю, что можно все решить в одном цикле. Я в таких ситуация просто нужные строки копирую в ТЗ, а затем результат загружаю в набор = очень упрощает логику.

что за набор?

[vitasw]

ДанныеНаборовЗаписей.Хозрасчетный

[Klyacksa]

Перебирайте с конца набора, совпало - удаляем. В таком случае не нужно будет менять руками текущий индекс элемента.

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

Пока Счетчик = 1 по КолвоСтрок цикл
    Если ДанныеНаборовЗаписей.Хозрасчетный[КолвоСтрок - Счетчик].СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("44.08")    ИЛИ  ... тогда
        ДанныеНаборовЗаписей.Хозрасчетный.Удалить(КолвоСтрок - Счетчик);
    КонецЕсли;
КонецЦикла;

[Дмитрий@]

Можно использовать метод "НайтиСтроки(Отбор)". Получаем массив строк, который нужно удалить.

[vitasw]

Можно использовать метод "НайтиСтроки(Отбор)". Получаем массив строк, который нужно удалить.

Интересно как вы через отбор укажите условие "ИЛИ"?

[TreeDogNight]

Перебирайте с конца набора, совпало - удаляем. В таком случае не нужно будет менять руками текущий индекс элемента.

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

Пока Счетчик = 1 по КолвоСтрок цикл
    Если ДанныеНаборовЗаписей.Хозрасчетный[КолвоСтрок - Счетчик].СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("44.08")    ИЛИ  ... тогда
        ДанныеНаборовЗаписей.Хозрасчетный.Удалить(КолвоСтрок - Счетчик);
    КонецЕсли;
КонецЦикла;

Не

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

Пока, а

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

Для=)