Как обработать весь регистр накопления в цикле и сделать изменения по условию?

В цикле делаешь изменения по условию и все

(1)
подскажите с синтаксисом такого цикла

В документах формирующих регистр.

(0)
ПолучитьНаборЗаписей
Прочитать
Обойти - изменить по условию
Записать

Выбрать регистраторы, получить объекты, изменить, провести.

(2)
Для каждого ... из ... Цикл

  Если Условие тогда
    // Действия
  КонецЕсли;

КонецЦикла

Ставишь отбор по регистратору, считываешь записи, меняешь по условию, пишешь наборы записей в цикле

/n

Чего у меня не хватает, пишет не установлен отбор по регистратору

&НаСервере
Процедура ИзменитьНаСервере()

    й=0;
    

НаборЗаписей = РегистрыНакопления.Продажи.СоздатьНаборЗаписей();


НаборЗаписей.Прочитать();

Для Каждого Запись Из НаборЗаписей Цикл
й=й+1;
        если й=100 тогда
        прервать;
        конецесли;

                   Сообщить(Строка(Запись.АналитикаУчетаНоменклатуры) + " " + Строка(Запись.АналитикаУчетаПартийНоменклатуры) + " " +

Строка(Запись.СуммаПродажи));

    
КонецЦикла;

НаборЗаписей.Записать();
КонецПроцедуры

(9) не хватает отбора по регистратору.
НаборЗаписей.Отбор.Регистратор.Установить(МойРегистратор)

(10)
так мне по всем записям регистра надо пройтись, а не по одному регистратору

Рег = РегистрыСведений.РС;
НаборЗаписей = Рег.СоздатьНаборЗаписей();
Таб = НаборЗаписей.Выгрузить();
...
НаборЗаписей.Выгрузить(Таб);

(11) по всем нельзя, только по регистратору

Рег = РегистрыСведений.РС;
НаборЗаписей = Рег.СоздатьНаборЗаписей();
Таб = НаборЗаписей.Выгрузить();
...
НаборЗаписей.Загрузить(Таб);

Ключом строки регистра накопления является Регистратор+НомерСтроки. Поэтому надо запросом выбрать все нужные ключи. Далее нужно обойти все выбранные регистраторы и по каждому создать и прочитать набор записей и внутри набора по нужным номерам строк сделать требуемые преобразования и записать набор. При этом если строки будут удаляться, надо корректировать номера последующих строк перед обращением к ним.

Ну вот смотрите, у меня сейчас запрос и обработка. Вначале процедура с запросом выполняется, потом без запроса. Во второй процедуре пишет "Поле объекта не обнаружено (Стоимость)" в месте изменения этой стоимости. что тут не так?

+(16)

&НаСервере
Процедура ИзменитьНаСервере()

    й=0;
для каждого стр из объект.Изменения цикл
    й=й+1;
        если й=100 тогда
        прервать;
        конецесли;

НаборЗаписей = РегистрыНакопления.Продажи.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(стр.регистратор);
НаборЗаписей.Прочитать();
НаборЗаписей.Стоимость=стр.СуммаПродажи;
НаборЗаписей.Записать();
стр.стоимость2= стр.СуммаПродажи;
конеццикла;    

КонецПроцедуры

&НаКлиенте
Процедура Изменить(Команда)
    ИзменитьНаСервере();
КонецПроцедуры

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

КонецПроцедуры

&НаКлиенте
Процедура Отобрать(Команда)
    ОтобратьНаСервере();
КонецПроцедуры

(17) огонь
Продажи.СуммаПродажи < Продажи.Стоимость
 И ЕСТЬNULL(Продажи.СуммаПродажи, 0) >= 0";

(17) >>НаборЗаписей.Стоимость=стр.СуммаПродажи;
не так. НаборЗаписей это коллекция. надо так:
Для каждого Запись Из НаборЗаписей Цикл
Запись.Стоимость=стр.СуммаПродажи;
КонецЦикла;

(19)
у меня подозрение, что если отобрать только по регистратору, то там будут все строки документа. Надо еще как-то отобрать

:) Просто праздник.
(20) Надо получить 2 выборки - регистраторов и изменяемые данные. Дальше внешним циклом идёшь по регистраторам, читаешь набор записей. Дальше либо вложенный цикл по записям как в (19), либо поиск/исправление нужного как в (15). Не забыть записать движения регистратора.

вот такой вот конечный вариант. сейчас запущу на рабочей базе. у вас есть 10 минут, чтобы это остановить )


&НаСервере
Процедура ИзменитьНаСервере()

    й=-1;
для каждого стр из объект.Изменения цикл
    й=й+1;
        если й=объект.ЧислоСтрок тогда
        прервать;
        конецесли;

Набор = РегистрыНакопления. Продажи. СоздатьНаборЗаписей () ;
Набор.Отбор.Регистратор.Значение = стр.регистратор;
Набор.Прочитать();
Для Каждого движ Из Набор Цикл
    если движ.АналитикаУчетаНоменклатуры=стр.АналитикаУчетаНоменклатуры и движ.СуммаПродажи=стр.СуммаПродажи тогда
    //Сообщить(движ.СуммаПродажи);
    движ.стоимость=движ.СуммаПродажи;
    стр.стоимость2= движ.Стоимость;
    конецесли;
КонецЦикла;
Набор.Записать();

конеццикла;    

КонецПроцедуры

&НаКлиенте
Процедура Изменить(Команда)
    ИзменитьНаСервере();
КонецПроцедуры

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

КонецПроцедуры

&НаКлиенте
Процедура Отобрать(Команда)
    ОтобратьНаСервере();
КонецПроцедуры

(22) Зачем останавливать? Ничего не произойдет.

(23)
ну как же, регистр поменяется

Мир никогда уже не будет прежним, а солнце — таким же ясным, как раньше.

(24) Это вряд ли.

(24) тебе же написали: регистр меняется только по регистраторам