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