Изменения количества

ТекущиеДанные = ЭлементыФормы.Товары.ТекущиеДанные;
	Данные=ЭлементыФормы.Товары.ТекущиеДанные.Количество;
	Отбор = Новый Структура("ИдентификаторСтроки", ТекущиеДанные.ИдентификаторСтроки);
	МассивСтрок = ПервоначальныеДанные.НайтиСтроки(Отбор);
	Если МассивСтрок.Количество() > 0 И МассивСтрок[0].Количество <> ТекущиеДанные.Количество Тогда
		Форма = ПолучитьФорму("РегистрСведений.ЛогРедактированияДокументов.Форма.Реализация", , ЭлементыФормы.Товары);
		Форма.КлючУникальности = ТекущиеДанные.ИдентификаторСтроки;
		Форма.Номенклатура = ТекущиеДанные.Номенклатура;
		Форма.КоличествоБыло = МассивСтрок[0].Количество;
		Форма.КоличествоСтало = ТекущиеДанные.Количество;
		СтрокиИзменений = ИзмененияКоличества.НайтиСтроки(Отбор);	
	КонецЕсли;
	Форма.ОткрытьМодально();
	
	ТекстВопроса = "Данные будут записаны в регистр сведений.Продолжить??";
			Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да, );
			Если Ответ = КодВозвратаДиалога.Да Тогда

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