Исправление резервов. Сверка остатков с резервами. Проверка на зависшие резервы. Заполнение документа списком кодов товаров. 1С 7.7

Процедура ОбработкаПроведения()
	Если ПустоеЗначение(СторнируемыйДокумент) = 1 Тогда
		глНеПроводить(Контекст, "Не выбран сторнируемый документ.");
		Возврат;
	КонецЕсли;
	ВыбДата = НачМесяца(ТекущаяДата());//Резервы зависшие ранее
	ВыбДокумент = СторнируемыйДокумент;
	Если СторнироватьТолькоЗависшийРезервНаДатуСторно=1 Тогда
		Запрос = СоздатьОбъект("Запрос");
		ТекстЗапроса = 
		"НомКод = Регистр.РезервыТМЦ.Номенклатура.Код;
		|Штрихкод = Регистр.РезервыТМЦ.Номенклатура.ОсновнаяЕдиница.Штрихкод;
		|Номенклатура = Регистр.РезервыТМЦ.Номенклатура;
		|ЗаявкаПокупателя = Регистр.РезервыТМЦ.ЗаявкаПокупателя;
		|Количество = Регистр.РезервыТМЦ.Количество;
		|Функция КонОстКоличество = КонОст(Количество);
		|Группировка ЗаявкаПокупателя;
		|Группировка Номенклатура без групп;
		|Условие(ЗаявкаПокупателя В (ВыбДокумент));";
		Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
			СтатусВозврата(0);
			Возврат;
		КонецЕсли;
		ТЗ = СоздатьОбъект("ТаблицаЗначений");
		Запрос.Выгрузить(ТЗ,3,0);
		Если ТЗ.КоличествоСтрок()=0 Тогда
			Возврат;
		Иначе
			ТЗ.ВыбратьСтроки();
			Пока ТЗ.ПолучитьСтроку()=1 Цикл
				Если СокрЛП(ТЗ.Номенклатура.ОсновнаяЕдиница.Штрихкод)="" Тогда
				    Сообщить("Нет ШК основной единицы товара "+СторнируемыйДокумент.Номенклатура.Код+" "+СторнируемыйДокумент.Номенклатура.Наименование);
					ТЗ.Штрихкод = "";
				Иначе
					ТЗ.Штрихкод = СокрЛП(ТЗ.Номенклатура.ОсновнаяЕдиница.Штрихкод);
				КонецЕсли;
			КонецЦикла;
			ТЗ.УдалитьКолонку("ЗаявкаПокупателя_2");
			ТЗ.УдалитьКолонку("Номенклатура_1");
			ТЗ.УдалитьКолонку("Количество");
			глПечатьТаблицы(ТЗ,"Не списано по "+СокрЛП(ВыбДокумент));
		КонецЕсли;
	КонецЕсли;
	// Проверка сторнированности документа.
	Объект = СоздатьОбъект("Документ");
	Объект.ВыбратьПодчиненныеДокументы(,, СторнируемыйДокумент);
	Пока Объект.ПолучитьДокумент() = 1 Цикл
		Если (Объект.Вид() = "СторноЗаявокРезервов") И (Объект.Проведен() = 1) И (Объект.ТекущийДокумент() <> ТекущийДокумент()) Тогда
			глНеПроводить(Контекст, "Сторнируемый документ уже сторнирован документом № "+Объект.НомерДок+" от "+Объект.ДатаДок);
			Возврат;
		КонецЕсли;
	КонецЦикла;                                      
	Если Метаданные.Документ(СторнируемыйДокумент.Вид()).ОперативныйУчет = 1 Тогда
		Для Сч = 1 По Метаданные.Регистр() Цикл
			Рег = СоздатьОбъект("Регистр." + Метаданные.Регистр(Сч).Идентификатор);
			РегСторно = Регистр.ПолучитьАтрибут(Метаданные.Регистр(Сч).Идентификатор);
			Если не((РегСторно.Вид()="Заявки") или (РегСторно.Вид()="РезервыТМЦ") или (РегСторно.Вид()="ВыполненыеЗаказы")) Тогда
				продолжить;
			КонецЕсли;                   
			Если Рег.ВыбратьДвиженияДокумента(СторнируемыйДокумент)=1 Тогда
				Пока Рег.ПолучитьДвижение()=1 Цикл 
					Если СторнироватьТолькоЗависшийРезервНаДатуСторно=1 Тогда
						НомСтр = 0;
						ТЗ.НайтиЗначение(Рег.Номенклатура.ТекущийЭлемент(),НомСтр,"Номенклатура");
						Если НомСтр = 0 Тогда
						    Продолжить;
						КонецЕсли;
						КоличествоСпишем = ТЗ.ПолучитьЗначение(НомСтр,"КонОстКоличество");
						//добавить строку в заявку
						МДОперация = ?(Рег.Приход=1,"Приход","Расход");
						// заполняем измерения
						Для Сч2 = 1 По  Метаданные.Регистр(Сч).Измерение() Цикл                     
							РегСторно.УстановитьАтрибут(Метаданные.Регистр(Сч).Измерение(Сч2).Идентификатор, Рег.ПолучитьАтрибут(Метаданные.Регистр(Сч).Измерение(Сч2).Идентификатор));
						КонецЦикла;
						// заполняем реквизиты
						Для Сч2 = 1 По  Метаданные.Регистр(Сч).Реквизит() Цикл                     
								ЗначениеРеквизита = - КоличествоСпишем;
							РегСторно.УстановитьАтрибут(Метаданные.Регистр(Сч).Реквизит(Сч2).Идентификатор, ЗначениеРеквизита);
						КонецЦикла;
						// Номер строки документа-основания
						РегСторно.ПривязыватьСтроку(Рег.НомерСтроки());   
						// заполняем ресурсы
						Для Сч2 = 1 По  Метаданные.Регистр(Сч).Ресурс() Цикл                     
						    РегСторно.УстановитьАтрибут(Метаданные.Регистр(Сч).Ресурс(Сч2).Идентификатор, -КоличествоСпишем);
						КонецЦикла; 
						Если Рег.Приход = 1	Тогда					
							РегСторно.ДвижениеПриходВыполнить();
						Иначе
							РегСторно.ДвижениеРасходВыполнить();
						КонецЕсли;	 
					Иначе	
						...	
					КонецЕсли;
				КонецЦикла;
			КонецЕсли;
		КонецЦикла;	
	КонецЕсли;
КонецПроцедуры // ОбработкаПроведения()