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

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Док = Документы.ИнвентаризацияТоваровНаСкладе.Выбрать();
   Пока Док.Следующий() Цикл
       Объект = Док.ПолучитьОбъект();
       Для Каждого стрТовары из Объект.Товары Цикл
           Выбсклад = Справочники.Склады.НайтиПоКоду("000000004");
           склад = стрТовары.МестоХранения.Склад.Код;                                        
           Если Выбсклад.Код = склад Тогда
               ОбработкаПрерыванияПользователя();
               Сообщить("В " + Док + ";Позиция: " + стрТовары.Номенклатура + ";находится на складе: " + стрТовары.МестоХранения.Склад + ";");
               Объект.Товары.Удалить(стрТовары);
           КонецЕсли;
       КонецЦикла;
       Объект.Записать();
   КонецЦикла;
КонецПроцедуры

косяк в алгоритме, используй НайтиСтроки

Перепиши удалений только снизу вверх

внутри вложенного цикла:

Справочники.Склады.НайтиПоКоду("000000004");

просто красаучег

Баян. Когда ты удаляешь текущую строку, ты перескакиваешь на следующую автоматом и возвращаешься в начало цикла где идешь на следующую строку. То есть, при удалении строки, ты перескакиваешь через 1 строку.

(3) )))

"            Выбсклад = Справочники.Склады.НайтиПоКоду("000000004");
           склад = стрТовары.МестоХранения.Склад.Код;                                        
           Если Выбсклад.Код = склад Тогда
"

Вот это номер...

(6) ну, работает же :)

(6) Ахахххааа)))

(0) Выбсклад.Код всегда равно "000000004"

поэтому пиши проще

      Для Каждого стрТовары из Объект.Товары Цикл
           склад = стрТовары.МестоХранения.Склад.Код;                                        
           Если "000000004" = склад Тогда

(10) ага, а завтра захотят по другому складу удалить строки.
(11) Для Каждого стрТовары из Объект.Товары Цикл
        Если Склад = ВыбранныйПользователемСклад Тогда

Цикл для каждого не подойдет наверное в моем случае ...

Вроде не пятница еще!;)

(12) правильный ответ дали в первом посте

(12) ну тогда зачем ты его написал, если он тебе не подойдет?

так я только сейчас сообразил, что буде перескакивать через строчку (((

(16) во-во, см.вар.(2) для перебора снизу вверх.

(17) в (1) проще...

Для Счетчик=1-Коллекция.Количество() По 0 Цикл
  ЭлементКоллекции=Коллекция[-Счетчик];
КонецЦикла;

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

Изобретатели, мля. Поторюсь, правильный ответ был дан ещё в (1)

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Док = Документы.ИнвентаризацияТоваровНаСкладе.Выбрать();
   Пока Док.Следующий() Цикл
       Объект = Док.ПолучитьОбъект();
       НайденныеСтроки = Объект.Товары.НайтиСтроки(Новый Структура("Склад", Справочники.Склады.НайтиПоКоду("000000004")));
       Для Каждого СтрокаКУдалению из НайденныеСтроки Цикл
           Объект.Товары.Удалить(СтрокаКУдалению);
       КонецЦикла;
       Объект.Записать();
   КонецЦикла;
КонецПроцедуры

(21) Это неспортивно )

Такое удаление еще в ЗИКе было, ничего не изобретаю.
В Типовой 1с 8 Бух код (Справочник Типовые операции) пжл:
Для Сч = -НачИндекс По -1 Цикл

           Кол = Таб.Колонки[-Сч];

           Если ВладелецФормы.ПолучитьТипыКолонки(Таб, , Кол.Имя) <> Неопределено Тогда
               Таб.ТекущаяКолонка = Кол;
               Прервать;
           КонецЕсли;

       КонецЦикла;

Еще вариант использовать цикл "Пока". При удалении не увеличивать Переменную "номер удаляемой строки". Вообщем вариантов масса.

можно вообще без цикла, цикл -зло

предлагаю суперспособ: сериализовать в XDTO, выгрузить в XML, обработать его как обычный текст — удалить куски, завернуть опять в XDTO и десериализовать.

(25) эээ... просвети. Рекурсию тоже будем считать циклом в данном случае

(26)+ причем, каждое действие реализовать отдельным веб-сервисом

Приведите пример без цикла пжл)

Еще вариант, Запросом получить ТЧ без нужных строк, потом загрузить результат в ТЧ.)

(29) собрать запросом нужные строки, выгрузить через ТЗ в ТЧ

(30) (31) да, вариант без цикла. не поспоришь

(27) ТЧ.Загрузить(ТЧ.Выгрузить(Отбор));

(31)я уже догодался) типа табличная модель..

(33) ТЧ.Выгрузить(Отбор) ?

сам понял что написал?

(33) гы-гы, полет фантазии?

(35) да

(35) что тебя удивляет ?

(37) Скажи, дружок, какие параметры у метода Табличной части - Выгрузить

Табличная часть (Tabular section)
Выгрузить (Unload)
Вариант синтаксиса: Выгрузить колонки

Синтаксис:

Выгрузить(<Строки>, <Колонки>)
Параметры:

<Строки> (необязательный)

Тип: Массив.
Массив строк для выгрузки. Если не указан, выгружаются все строки табличной части.
<Колонки> (необязательный)

Тип: Строка.
Список колонок для копирования в формате: "Колонка1, Колонка2...". Если список не задан, то будут скопированы все колонки.

(40) там есть второй вариант, но он тоже не взлетит

(40) а ниже что написано?

(41) почему не взлетит?

(42) как ты собрался делать отбор по условию НЕ?

(43) Ты хочешь оставить только удаляемые строки что ли?

(44) а все понял о чем речь. да, согласен :-))

(45) я думал там надо удалить все кроме заданных

Док1 = Док.ПолучитьОбъект();
   ТЧ =  Док1.Товары;
       Запрос = Новый Запрос("ВЫБРАТЬ
                         |    *
                         |Поместить Результат
                         |ИЗ
                         |    &ТЧ КАК ТЧ;
                         |Выбрать * из результат");
                         Запрос.УстановитьПараметр("ТЧ",ТЧ);


   ТЧ.Загрузить(Запрос.Выполнить().Выгрузить());                      
   Док1.Записать();

(21) Можно еще вопрос по структуре, у меня в Товары нет поля склад, есть только поле МестоХранения и следовательно в структуре должно быть местоХранения, у которого склад = "000000004". Как быть?

(49) Вообще, Отбор лучше один раз сделать. примерно так:

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Док = Документы.ИнвентаризацияТоваровНаСкладе.Выбрать();
   Отбор = Новый Структура("МестоХранения", Справочники.Склады.НайтиПоКоду("000000004"));
   Документы.ИнвентаризацияТоваровНаСкладе.Выбрать();
   Пока Док.Следующий() Цикл
       Объект = Док.ПолучитьОбъект();
       НайденныеСтроки = Объект.Товары.НайтиСтроки(Отбор);
       Для Каждого СтрокаКУдалению из НайденныеСтроки Цикл
           Объект.Товары.Удалить(СтрокаКУдалению);
       КонецЦикла;
       Объект.Записать();
   КонецЦикла;
КонецПроцедуры

(50) Да я так пробовал, при таком условии вообще в цикл не входит
Для Каждого СтрокаКУдалению из НайденныеСтроки Цикл

(51) в переменной Отбор всё нормально? Склад твой находит?

так, стоп. У тебя много мест хранения с этим складом?

много поэтому и обработку пишу, чтобы удалить.
Склад находится.
http://s1.ipicture.ru/uploads/20130711/K4zRonid.jpg
http://s1.ipicture.ru/uploads/20130711/2CZPScHs.jpg

(54) Тогда тебе отбор не поможет. На сколько помню в структуре нужно указать только одно значение, а у тебя их несколько д.б.

Может так попробовать?

 Выбсклад = Справочники.Склады.НайтиПоКоду("000000004");
   Док = Документы.ИнвентаризацияТоваровНаСкладе.Выбрать();
   Пока Док.Следующий() Цикл
       Объект = Док.ПолучитьОбъект();
       КолСтрок = Объект.Товары.Количество();
       Для Сч=1 По КолСтрок Цикл
           НомерСтроки = КолСтрок - Сч;
           ЛСтр = Док.Товары[НомерСтроки];
           Склад = ЛСтр.МестоХранения.Склад.Код;
           Если "000000004" = склад Тогда
               ОбработкаПрерыванияПользователя();
               Сообщить("В " + Док + ";Позиция: " + ЛСтр.Номенклатура + ";находится на складе: " + ЛСтр.МестоХранения.Склад + ";");
               //Док.Товары.Удалить(НомерСтроки);
               КонецЕсли;
           КонецЦикла;                            
           Объект.Записать();
       КонецЦикла;

См пост 20, правильно удалять с конца.

Вроде твой код должен прокатить...

Только переменную номерстроки использовать не советую, во всяком случае в моем коде значение не присваивается ей.