Добавление записи в регистр накопления

AccumulationReg1Захотелось мне добавить записи в регистр накопления из обработки, т.е. не из документа-регистратора. Вот пример как это у меня получилось:

Запрос = Новый Запрос;
 Запрос.Текст = 
"ВЫБРАТЬ
| ПередачаМатериаловВЭксплуатациюМатериалы.ФизЛицо,
| ПередачаМатериаловВЭксплуатациюМатериалы.Количество,
| ПередачаМатериаловВЭксплуатациюМатериалы.Номенклатура,
| ПередачаМатериаловВЭксплуатациюМатериалы.СерияНоменклатуры,
| ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Ссылка КАК док,
| ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Дата
|ИЗ
| Документ.ПередачаМатериаловВЭксплуатацию.Материалы КАК ПередачаМатериаловВЭксплуатациюМатериалы
|ГДЕ
| ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Проведен = ИСТИНА";

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

Комментарии:

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *