Не удаляется элемент табличной части

[Andy_NTG]

Пытаюсь через обработку удалить позицию табличной части. Ошибки нет, но позиция не удаляется почему-то. Через сообщение видно, что условие, которое передаёт управление в код удаления, отрабатывает правильно

Скриншот и база во вложении.

Код обработки:

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



&НаСервереБезКонтекста
Процедура ЗапуститьУдалениеНаСервере()
Приход=Документы.Приход.Выбрать();

Пока Приход.Следующий() Цикл
Индекс=0;

ПрихОбъект=Приход.ПолучитьОбъект();

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

Индекс=Индекс+1;
КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура ЗапуститьУдаление(Команда)
ОчиститьСообщения();
ЗапуститьУдалениеНаСервере();
КонецПроцедуры


[sertak]

Примерно такой вариант должен работать:

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


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


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

Удаление может работать не только по индексу, почему попробуйте еще такой вариант:

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


Для Каждого Позиция из ПрихОбъект.Номенклатура Цикл
            Если НЕ Позиция.Доступность Тогда
                Сообщить("Удаляется номенклатура: "+Позиция.Наименование);
                ПрихОбъект.Номенклатура.Удалить(Позиция);
            КонецЕсли;
        КонецЦикла;


[Andy_NTG]

Спасибо за подсказку с индексами. Но дело в том, что если бы хотя бы один элемент удалялся, а затем выходили ошибки с индексами, тогда было бы ясно. А сейчас вообще не происходит удаление.

Удаление позиции по ссылке на сам объект тоже пробовал и такой код почему-то тоже не работает. Конфигуратор 8.3.11

[oleg-x]

Спасибо за подсказку с индексами. Но дело в том, что если бы хотя бы один элемент удалялся, а затем выходили ошибки с индексами, тогда было бы ясно. А сейчас вообще не происходит удаление.

Удаление позиции по ссылке на сам объект тоже пробовал и такой код почему-то тоже не работает. Конфигуратор 8.3.11

Если делать удаление циклом, то только таким:

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

Пока Условие Цикл
КонецЦикла

Обход для каждого использовать нельзя.

[sertak]

Да, действительно, через Для Каждого не прокатывает.

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

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


НачальныйИндекс = -1 * (ПрихОбъект.Номенклатура.Количество() - 1);
Для Индекс = НачальныйИндекс По 0 Цикл
ПрихОбъект.Номенклатура.Удалить(-1 * Индекс);
КонецЦикла;


[AIFrame]

Строки для удаления положить в массив. Через НайтиСтроки(). Условие у тебя простое, тупо булево.
А еще ты меняешь объект, но не записываешь.

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

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

        // Вот так удаляются строки по простому отбору.
        // Еще быстрее - только выгрузить в запрос, фильтрануть и вгрузить обратно.
        МассивНайденныхСтрок = ТЧ.НайтиСтроки(СтруктураПоиска);
       
        Для каждого СтрокаНайденных Из МассивНайденныхСтрок Цикл
            ТЧ.Удалить(СтрокаНайденных);
        КонецЦикла;

        // И вот это ты не сделал
        Проведен = ПрихОбъект.Проведен;
        Если Проведен Тогда
            ПрихОбъект.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неопреативный);
        Иначе
            ПрихОбъект.Записать(РежимЗаписиДокумента.Запись);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура ЗапуститьУдаление(Команда)
    ОчиститьСообщения();
    ЗапуститьУдалениеНаСервере();
КонецПроцедуры

[Andy_NTG]

А, точно. Нужно ведь сохранять изменения ещё. Спасибо, всё заработало. И с критерием поиска лаконичнее.