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

(0) удаляй просто обратным циклом, от 4000 до 1

(0) Так всё верно у тебя написано, удалятся нужные строки.

+(2) только вот цикл по удалению надо вынести за рамки первого цикла. А он у тебя зачем-то внутри.

(2) Когда удаляются строки из табличной части нумерация сдвигается и удаляться могут не те строки

(3) В смысле...хотя я понял можно номера строк загнать в массив и потом обратным перебором грохнуть строки..только вспомнит как с конца начать перебор

(4) Первым циклом ты отбираешь все строки для удаления в массив строк. А уже потом (а не внутри этого цикла, как у тебя) ты удаляешь эти строки.

(5) Не номера строк. Метод НайтиСтроки вернут тебе Массив самих строки. И при удалении уже пофиг на изменение номера - удалятся только отобранные строки.

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

(7) Я это понял тут и застопорился

(8) Для начала скажи, что такое у тебя СтрокиВДокументах и что такое ТН?

(8) Так не сработает, ты удалишь только строки по последнему значению СтрокаТН.

(10) СтрокиВДокументах - таблица номеров строк документа ТН Это документ требования накладня

(11) Вот и я о томже тогда может лучше в первом цикле строки загнать в массив точнее номера а потом массив загнать в НайтиСтрои и удалить

(13) вот номера точно не нужно загонять. Сами строки загони.

(12) Тогда делай как-то так:
МассивДляУдаления = Новый Массив;
для каждого СтрокаДляУдаления из СтрокиВДокументах цикл

Если ЗначениеЗаполнено(СтрокаДляУдаления.СтрокаТН) Тогда
СтрокаДляУдаления = ТН.Материалы.Найти(СтрокаДляУдаления.СтрокаТН,"НомерСтроки");
Если СтрокаДляУдаления <> Неопределено Тогда
МассивДляУдаления.Добавить(СтрокаДляУдаления);
КонецЕсли;
КонецЕсли;

ОбъектДок = ТН.ПолучитьОбъект();
Для каждого Строка Из МассивДляУдаленияЦикл
    ОбъектДок.Материалы.Удалить(Строка);
исключение

+(15) Забыл конецЦикла перед получитьОбъект. И вместо исключения тоже конецЦикла.

А получать объект в цикле это нехорошо, раз у тебя всего один документ.

(14) (15) (16) Спасибо я к этому тоже уже пришел
ЗначениеЗаполнено(СтрокаДляУдаления.СтрокаТН) главное чтобы хорошо сработал с пустым строковым значением
(17) Знаю просто уже заработался

(13) погоди шашкой махать, Вот это работа внутри ОДНОГО документа

ОбъектДок = ТН.ПолучитьОбъект(); - получили ОБЪЕКТ ТН, т.е. сам документ
ТабличнаяЧастьДок = ОбъектДок.Материалы;

Вот ТУТ Перебирай циклом свои условия удаления
Для каждого текУсловие из МассивУсловийОчистки цикл

  СтруктураДляПоиска = Новый Структура("НомерСтроки", !!!Условие!!!!); - настроили поиск
  МассивПустыхСтрок = ТабличнаяЧастьДок.НайтиСтроки(СтруктураДляПоиска); - получил выборку СТРОК, не омеров!!!

  Для каждого СтрокаТЧ Из МассивПустыхСтрок Цикл
    Сообщить("удалена строка " + СтрокаТЧ.????); , например, СтрокаТЧ.Номенклатура
    ТабличнаяЧастьДок.Удалить(СтрокаТЧ);
   КонецЦикла;
КонецЦикла;


(19) Все номера загоняем в МассивУсловийОчистки получается и потом его перебираем
"СтруктураДляПоиска = Новый Структура("НомерСтроки", !!!Условие!!!!); - настроили поиск
  МассивПустыхСтрок = ТабличнаяЧастьДок.НайтиСтроки(СтруктураДляПоиска); - получил выборку СТРОК, не омеров!!!
"
Тут мы ищем одну строку по номеру и загоняем ее в массив и получается массив обновляется а не добавляется и я так думаю придем к удалению только последней строки

(19)  СтруктураДляПоиска = Новый Структура("НомерСтроки", !!!Условие!!!!); - настроили поиск После удаления номер строки поменяется и мы получается найдем следующую строку...
Остальное все мне понятно

(19) Для каждого текУсловие из МассивУсловийОчистки цикл

  СтруктураДляПоиска = Новый Структура("НомерСтроки", !!!Условие!!!!); - настроили поиск
  МассивПустыхСтрок = ТабличнаяЧастьДок.НайтиСтроки(СтруктураДляПоиска); - получил выборку СТРОК, не омеров!!!

КонецЦикла;

  Для каждого СтрокаТЧ Из МассивПустыхСтрок Цикл
    Сообщить("удалена строка " + СтрокаТЧ.????); , например, СтрокаТЧ.Номенклатура
    ТабличнаяЧастьДок.Удалить(СтрокаТЧ);
   КонецЦикла;

(20) Погоди, это кусок твоего кода я не знаю ни количества условий, ни их состава.
НайтиСтроки гонять для поиска по номеру одной строки для удаления как-то жирно

В (15) тебе предложили перебрать ТЧ, каждую (!!!) строку проверить на Все (!!!) нужные тебе условия и сформировать массив СтрокДляУдаления.

Дальше скопом просто удаляем выбранные строки

Так более эффективно, чем гонять НайтиСтроки

(15) Не взлетело

Готовое решение (проверил, работает):

ДокОбъект = ТН.ПолучитьОбъект();
инд = ДокОбъект.Материалы.Количество();
Пока инд > 0 Цикл
  СтруктураДляПоиска = Новый Структура("СтрокаТН", инд);
  Отбор = СтрокиВДокументах.НайтиСтроки(СтруктураДляПоиска);
  Если Отбор.Количество() > 0 Тогда
    СтрокаДляУдаления = ТН.Материалы.Найти(инд, "НомерСтроки");
    Если СтрокаДляУдаления <> Неопределено Тогда
        ДокОбъект.Материалы.Удалить(СтрокаДляУдаления);
    КонецЕсли;
  КонецЕсли;
  инд = инд - 1;    
КонецЦикла;
    
ДокОбъект.Записать();

(23) 15 не взлетел..строки остались как стояли

Думаю, теперь взлетит.

(25) Я тоже думаю так как передала практически таккже с индексами

(28) проверяй и скажи результат.

(26) Так после удаления надо документ записать.

(25) (29) Я его ткрываю для просмотра без записи и записываю после проверки...
Сейчас попробую

(30) ДокОбъект.Записать();
ФормаДок = ДокОбъект.ПолучитьФорму("ФормаДокумента");
ФормаДок.Открыть();

(32) было 3162 строки и осталось

(25) 3162 строки было и остались....ничего не понимаю

(34) Посмотри в отладчике, может, у тебя строки для удаления не ищутся.

34 ответа жесть.
второй список с номерами для удаления отсортируй по номерам.
проходишь по этому списку от большего к меньшему удаляешь строку по номеру. все!

(35) ок

(34) Я проверил этот код. Работает. И сортировать ничего не надо.
Покажи свой код полностью.

(36) Мы тут не ищем лёгких путей, а ты пришёл и всё упростил :))

ДокОбъект = ТН.ПолучитьОбъект();
инд = ДокОбъект.Материалы.Количество();
Пока инд > 0 Цикл
  СтруктураДляПоиска = Новый Структура("СтрокаТН", инд);
  Отбор = СтрокиВДокументах.НайтиСтроки(СтруктураДляПоиска);
  Если Отбор.Количество() > 0 Тогда
    СтрокаДляУдаления = ТН.Материалы.Найти(инд, "НомерСтроки");
    Если СтрокаДляУдаления <> Неопределено Тогда
        ДокОбъект.Материалы.Удалить(СтрокаДляУдаления);
    КонецЕсли;
  КонецЕсли;
  инд = инд - 1;    
КонецЦикла;
//ФормаДок = ДокОбъект.ПолучитьФорму("ФормаДокумента");
//ФормаДок.Открыть();
    
ДокОбъект.Записать();
ФормаДок = ДокОбъект.ПолучитьФорму("ФормаДокумента");
ФормаДок.Открыть(); (38)

ТН должна содержать ссылку на документ. Это так?

(41) Да само собой

(42) только что повторил. Все работает, форма открывается с уже удаленными строками.

Стоп!
Замени СтрокаДляУдаления = ТН.Материалы.Найти(инд, "НомерСтроки");
на строку СтрокаДляУдаления = ДокОбъект.Найти(инд, "НомерСтроки");

на строку СтрокаДляУдаления = ДокОбъект.Материалы.Найти(инд, "НомерСтроки");

(45) правильно.

(42) Как там результат?

(47) Похоже я понял в чем причина...неразрывный пробел в номере похоже и тут и косячит..

(48) но строку переправь на эту: СтрокаДляУдаления = ДокОбъект.Материалы.Найти(инд, "НомерСтроки");
значения в таблице с номерами строк должны быть числовые.

(47) Стоп а СтрокаТН Как попадает в структуру...мы похоже цикл забыли по табличной части где указаны номера строк

(48) Номер строки должен быть числом.

для каждого СтрокаДляУдаления из СтрокиВДокументах цикл
        если СтрокаДляУдаления.СтрокаТН = "" тогда
            продолжить
        КонецЕсли;
Конеццикла
Я этот кусок же вставлял чтобы он у меня проходил по строкам где есть зополнен номерСтрокиТН

(51) Да понял я

(48) Напиши проверку для таблицы номеров:
Для Каждого Стр из СтрокиВДокументах Цикл
   Стр.СтрокаТН = СтрЗаменить(Стр.СтрокаТН, Символы.НПП, "");
   Стр.СтрокаТН = Число(Стр.СтрокаТН);
КонецЦикла;
Уберутся пробелы в номерах и превратятся в числа.

(54) Я переделал все норм теперь числа на в (49) у тебя в инд попадает не тот номер строки и таб части а тот индекса цикла из перебора

ну а теперь работает?

(55) да, но по инд я ищу номер строки в таблице с номерами строк. и если он есть, то удаляю строку в документе по этому номеру.

(56) В инд не попадают мои строки

(58) С чего вдруг они не попадут?
Они не попадут только в одном случае: если номер строки в таблице больше количества строк в документе.

(58) ну а теперь взлетело?

Предлагаю еще один вариант (попроще):

СтрокиВДокументах.Сортировать("СтрокаТН Убыв");

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

этот вариант вообще без инд

Вы где?

(63) тут проверяю

(63) взлетело...у менгя табчасть изначально не видел..через док.табчасть..все норм смотрим..

(62) Спасибо большое..общими трудами свояли...

(65) так в моих примерах везде док.табчасть написано.

(0) Запомни! Копирование быстрее удаления! В 99% случаев.

Короче создаешь новый документ и переносишь туда только нужные строки ))

(68) отчасти соглашусь..и этим пользуюусь..такой механизм у меня есть..просто не есть хорошо плодить документы

(69) Это трындец товарищи присяжные заседатели.

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

тут, документ записать


т.е. просто пройти через временную таблицу значений не вариант?

(70) еще один вариант решения вопроса...сколько программеров столько мнений