Добавление записи в регистр накопления
Захотелось мне добавить записи в регистр накопления из обработки, т.е. не из документа-регистратора. Вот пример как это у меня получилось:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ПередачаМатериаловВЭксплуатациюМатериалы.ФизЛицо, | ПередачаМатериаловВЭксплуатациюМатериалы.Количество, | ПередачаМатериаловВЭксплуатациюМатериалы.Номенклатура, | ПередачаМатериаловВЭксплуатациюМатериалы.СерияНоменклатуры, | ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Ссылка КАК док, | ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Дата |ИЗ | Документ.ПередачаМатериаловВЭксплуатацию.Материалы КАК ПередачаМатериаловВЭксплуатациюМатериалы |ГДЕ | ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Проведен = ИСТИНА"; //Запрос.УстановитьПараметр("Дата1", НачалоГода(текущаядата())); //Запрос.УстановитьПараметр("Дата2", КонецМесяца(текущаядата())); Результат = Запрос.Выполнить().Выбрать(); //РегистрыНакопления.ГрРасчетПотребностей.Записывать = Истина; //РегистрыНакопления.ГрРасчетПотребностей.Очистить(); пока Результат.Следующий() цикл Набор = РегистрыНакопления.ГрВыданнаяСпецодежда.СоздатьНаборЗаписей(); Набор.Отбор.Регистратор.Установить(Результат.Док); НоваяЗапись = Набор.ДобавитьПриход(); НоваяЗапись.Номенклатура = Результат.Номенклатура; НоваяЗапись.ДатаВыдачи = Результат.Дата; НоваяЗапись.Период = Результат.Дата; НоваяЗапись.Количество = Результат.Количество; НоваяЗапись.Серия = Результат.СерияНоменклатуры; НоваяЗапись.ФизЛицо = Результат.ФизЛицо; Набор.Записать(); конеццикла; |