1С, Регистр накопления, добавление записей в регистр накопления, Обход записей регистра накопления, Получить обороты по регистру накопления
//Добавить запись в регистр накопления
//Регистр накопления должен быть подчинен регистратору
//Отбор можно установить только по регистратору
//Без отбора по регистратору записи в регистр накопления добавить нельзя
Набор = РегистрыНакопления.ПартииТМЦ.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Установить(НужныйСпецДокумент);
//Если редактируем а не создаем новый
Набор.Прочитать();
//Вид движения должен быть известен для регистра накопления
НоваяЗапись = Набор.ДобавитьПриход();
НоваяЗапись.Партия = НужнаяПартия;
НоваяЗапись.Количество = НужноеКоличество;
Набор.Записать();
--------------------------------------------------------------------
//Перебор записей регистра накопления в цикле
Выборка = РегистрыНакопления.Остатки.Выбрать();
Пока Выборка.Следующий() Цикл
Если СокрЛП(Выборка.Комментарий) = ЗаданнаяСтрока Тогда
//
КонецЕсли;
КонецЦикла;
--------------------------------------------------------------------
//Получить обороты по регистру накопления. На выходе получим таблицу значений
//"Номенклатура, Склад" – измерения
//"Количество" – ресурсы
Остатки = РегистрыНакопления.Остатки;
Фильтр = Новый Структура("Номенклатура","Склад");
Фильтр.Номенклатура = ВыбНоменклатура;
Фильтр.Склад = ВыбСклад;
ТабОборотов = Остатки.Обороты(ДатаНач, ДатаКон, Фильтр, "Номенклатура,Склад", "Количество");
//Регистр накопления должен быть подчинен регистратору
//Отбор можно установить только по регистратору
//Без отбора по регистратору записи в регистр накопления добавить нельзя
Набор = РегистрыНакопления.ПартииТМЦ.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Установить(НужныйСпецДокумент);
//Если редактируем а не создаем новый
Набор.Прочитать();
//Вид движения должен быть известен для регистра накопления
НоваяЗапись = Набор.ДобавитьПриход();
НоваяЗапись.Партия = НужнаяПартия;
НоваяЗапись.Количество = НужноеКоличество;
Набор.Записать();
--------------------------------------------------------------------
//Перебор записей регистра накопления в цикле
Выборка = РегистрыНакопления.Остатки.Выбрать();
Пока Выборка.Следующий() Цикл
Если СокрЛП(Выборка.Комментарий) = ЗаданнаяСтрока Тогда
//
КонецЕсли;
КонецЦикла;
--------------------------------------------------------------------
//Получить обороты по регистру накопления. На выходе получим таблицу значений
//"Номенклатура, Склад" – измерения
//"Количество" – ресурсы
Остатки = РегистрыНакопления.Остатки;
Фильтр = Новый Структура("Номенклатура","Склад");
Фильтр.Номенклатура = ВыбНоменклатура;
Фильтр.Склад = ВыбСклад;
ТабОборотов = Остатки.Обороты(ДатаНач, ДатаКон, Фильтр, "Номенклатура,Склад", "Количество");