Уважаемые программисты, подскажите пожалуйста правильно ли я удаляю запись из регистра хоз Бухгалтерии. Представленный код отрабатывает уже более часа, по оборотке по счету 10.11 вижу что записи то удаляются то снова появляются, прыгают суммы.


Запрос = Новый Запрос;
     Запрос.Текст = "ВЫБРАТЬ
                    |    ХозрасчетныйОстатки.Счет,
                    |    ХозрасчетныйОстатки.Субконто1,
                    |    ХозрасчетныйОстатки.Субконто2,
                    |    ХозрасчетныйОстатки.Субконто3,
                    |    ХозрасчетныйОстатки.Организация КАК Организация,
                    |    ХозрасчетныйОстатки.СуммаОстаток КАК СуммаОстаток,
                    |    ХозрасчетныйОстатки.КоличествоОстаток
                    |ИЗ
                    |    РегистрБухгалтерии.Хозрасчетный.Остатки КАК ХозрасчетныйОстатки
                    |ГДЕ
                    |    ХозрасчетныйОстатки.Счет = &Счет
                    |    И ХозрасчетныйОстатки.СуммаОстаток = 0
                    |    И ХозрасчетныйОстатки.КоличествоОстаток < 0
                    |    И ХозрасчетныйОстатки.Организация = &Организация
                    |ИТОГИ ПО
                    |    Организация";
     Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.СпецоснасткаИСпецодеждаВЭксплуатации);
     Запрос.УстановитьПараметр("Организация", Орг);
     ВыборкаЗапроса = Запрос.Выполнить().Выбрать();
    
     Набор = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
     Набор.Отбор.Регистратор.Установить(Сылка);
     Набор.Прочитать();
     Пока ВыборкаЗапроса.Следующий() Цикл
    // изменение существующих записей
         Для Каждого Движение Из Набор Цикл
            Если ВыборкаЗапроса.Субконто1 = Движение.СубконтоКт.Номенклатура Тогда
                Набор.Прочитать();
                Набор.Удалить(0);
                  Набор.Записать();
                Сообщить("Удалено");
            КонецЕсли;
         КонецЦикла;

     КонецЦикла;

моя цель удалять конкретные записи

Вот ты выбрал остатки по всегму регистру, а удаляешь записи только у
      Набор.Отбор.Регистратор.Установить(Сылка);
только из проводок конкретного документа, причем по много много раз, короче смысла нет в коде

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

(0) Сравниваешь текущую запись набора, а удаляешь всегда запись с индексом 0 - и будет у тебя это продолжаться до тех пор, пока нужная запись не станет первой. Шикарно!
Ну и запись/чтение после каждого удаления - это ой.

(5) подскажи как определить точный индекс?

(0) Посмотрел приведенный код. Ушел плакать кровью.

Набор.Прочитать();
                Набор.Удалить(0);
                  Набор.Записать();
кто сказал что удаляешь нужную строку? удаляешь первую всегдв...

Это вот Набор.Прочитать(); возможно даже превращает цикл в бесконечный...

я тоже иногда плачу от того что пишу )))

(6) Что удалить то хочешь? Все движения по определенной номенклатуре?

(10) Может пора остановиться?

(12) На ошибках учатся, пусть движется )

(7) представленный тобой код не плох имеет шанс на успех, но Набор.Удалить(ЗаписьДляУдаления); так нельзя удалять, в виде аргумента требуется индекс строки

(14) Ты неправ. Либо индекс, либо ссылку на запись.

я пробовал
{Форма.Форма.Форма(44)}: Ошибка при вызове метода контекста (Удалить)
          Набор.Удалить(ЗаписДляУдаления);
по причине:
Недопустимое значение параметра (параметр номер '1')

(18) Тип значения не тот, значит.

Вариант синтаксиса: По объекту записи
Синтаксис:
Удалить(<Запись>)
Параметры:
<Запись> (обязательный)
Тип: >>>>>>>>>>>>> РегистрБухгалтерииЗапись.
Удаляемая запись.

Запрос = Новый Запрос;
     Запрос.Текст = "ВЫБРАТЬ
                    |    ХозрасчетныйОстатки.Счет,
                    |    ХозрасчетныйОстатки.Субконто1,
                    |    ХозрасчетныйОстатки.Субконто2,
                    |    ХозрасчетныйОстатки.Субконто3,
                    |    ХозрасчетныйОстатки.Организация КАК Организация,
                    |    ХозрасчетныйОстатки.СуммаОстаток КАК СуммаОстаток,
                    |    ХозрасчетныйОстатки.КоличествоОстаток
                    |ИЗ
                    |    РегистрБухгалтерии.Хозрасчетный.Остатки КАК ХозрасчетныйОстатки
                    |ГДЕ
                    |    ХозрасчетныйОстатки.Счет = &Счет
                    |    И ХозрасчетныйОстатки.СуммаОстаток = 0
                    |    И ХозрасчетныйОстатки.КоличествоОстаток < 0
                    |    И ХозрасчетныйОстатки.Организация = &Организация
                    |ИТОГИ ПО
                    |    Организация";
     Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.СпецоснасткаИСпецодеждаВЭксплуатации);
     Запрос.УстановитьПараметр("Организация", Орг);
     ВыборкаЗапроса = Запрос.Выполнить().Выбрать();
    
     Набор = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
     Набор.Отбор.Регистратор.Установить(Сылка);
     Набор.Прочитать();
     МассивДляУдаления = Новый Массив;
    
     Пока ВыборкаЗапроса.Следующий() Цикл
    // изменение существующих записей


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

     КонецЦикла;
    
     Для Каждого ЗаписДляУдаления Из МассивдляУдаления  Цикл
          Набор.Удалить(ЗаписДляУдаления);
     КонецЦикла;
    
     Набор.Записать();

спасибо всем