Запись данных в регистр накопления

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

	РезультатЗапроса = Запрос.Выполнить();
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Если строка.Количество > ВыборкаДетальныеЗаписи.Количество Тогда
			Запись = НаборЗаписей.Добавить();
			Запись.ВидДвижения = ВидДвиженияНакопления.Приход;
			Запись.Период = ТекущаяДата();
			Запись.Номенклатура = строка.Номенклатура;
			Запись.Характеристика = строка.Характеристика;   
			Запись.Количество = строка.Количество - ВыборкаДетальныеЗаписи.Количество;
			Запись.Цена = строка.Цена;
			Запись.Сумма = строка.Сумма;
			Запись.ЕдИз = строка.Номенклатура.ЕдиницаИзмерения; 
			Запись.Склад = СсылкаДокумента.Склад;
			Запись.Регистратор = СсылкаДокумента; 			
		КонецЕсли;                                	
		Если строка.Количество < ВыборкаДетальныеЗаписи.Количество Тогда   			
			Запись = НаборЗаписей.Добавить();
			Запись.ВидДвижения = ВидДвиженияНакопления.Расход;
			Запись.Период = ТекущаяДата();
			Запись.Номенклатура = строка.Номенклатура;
			Запись.Характеристика = строка.Характеристика;
			Запись.Количество = ВыборкаДетальныеЗаписи.Количество - строка.Количество;
			Запись.Цена = строка.Цена;
			Запись.Сумма = строка.Сумма;
			Запись.ЕдИз = строка.Номенклатура.ЕдиницаИзмерения; 
			Запись.Склад = СсылкаДокумента.Склад;
			Запись.Регистратор = СсылкаДокумента; 				
		КонецЕсли;		
	КонецЦикла;			
	КонецЦикла; 
	НаборЗаписей.Записать();
    КонецЦикла;