v8: Изменение записи регистра накопления

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

Набор.Отбор.<НазваниеОтбора>.Установить(<ЗначениеОтбора>);

Набор.Прочитать();



Для Каждого ТекДвижение Из  Набор Цикл

....

//Делаете то что вам хочется

КонецЦикла;





Набор.Записать();   

 Процедура МодификацияЗаписейРегистраНакопления()

 

    ВыбДок = Документы.ПоступлениеТоваровУслуг.Выбрать();

    Если ВыбДок.Следующий() Тогда

        Набор =

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

        Набор.Отбор.Регистратор.Установить(ВыбДок.Ссылка);

        Набор.Прочитать();

 

        // изменение существующих записей

        Для Каждого Движение Из Набор Цикл

            Движение.НДС = 0;

        КонецЦикла;

 

        // добавление новых записей

        Движение = Набор.ДобавитьРасход();

        Движение.НДС = 100;

        Движение.Период = ТекущаяДата();

 

        Движение = Набор.Добавить();

        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

        Движение.НДС = 300;

        Движение.Период = ТекущаяДата();

 

        // удаление существующих записей

        Набор.Удалить(0);

 

        Набор.Записать(Истина);

    КонецЕсли;

 

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

   

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



    Запрос=Новый Запрос;

    Запрос.Текст=

      "ВЫБРАТЬ

     |    ТоварыНаСкладах.Период как Период,

     |    ТоварыНаСкладах.Регистратор как Регистратор,

     |    ТоварыНаСкладах.Количество как Количество

     |ИЗ

     |    РегистрНакопления.ТоварыНаСкладах КАК ТоварыНаСкладах

     | ГДЕ 

     | ТоварыНаСкладах.Период МЕЖДУ &ДатаНачала И &ДатаОкончания

     |И  ТоварыНаСкладах.Регистратор ССЫЛКА Документ.РеализацияТоваровУслуг ";

     

     Запрос.УстановитьПараметр("ДатаНачала", НачПериода);

     Запрос.УстановитьПараметр("ДатаОкончания", КонПериода);

     

     Результат=Запрос.Выполнить();

     Выборка=Результат.Выбрать();

     Пока Выборка.Следующий() Цикл

           НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

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

          Для каждого движ из НаборЗаписей Цикл

            Движ.Количество=5;

          КонецЦикла;

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

     КонецЦикла;