Контроль остатков при отмене проведения?

Перем мПериод          Экспорт; // Период движений
Перем мТаблицаДвижений Экспорт; // Таблица движений
// Переменные, используемые в процедурах контроля остатков
Перем МетаданныеДокумента, МетаданныеТабЧасти, ИмяДокумента, ИмяТабличнойЧасти, ИмяТаблицы, Заголовок, СтруктураШапкиДокумента, Отказ; 
Перем ИспользоватьУказаниеСерийНоменклатурыПриРезервировании;

//Z+ 20120303
// таблица движений из базы до записи набора
Перем мТаблицаДвиженийПередЗаписью Экспорт; 
Перем мРегистратор Экспорт; 
Перем мТипЗнчРегистратор Экспорт; 
//Z- 20120303

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

КонецПроцедуры

Процедура ПриЗаписи(Отказ, Замещение)
	
	//Z+ 20120303
	Если ОбменДанными.Загрузка  Тогда
		Возврат;
	КонецЕсли;		
	
	НаборЗаписей = ЭтотОбъект;
	
	мТаблицаДвиженийПриЗаписи = ЭтотОбъект.Выгрузить();	
	мТаблицаДвиженийПередЗаписьюПриЗаписи = мТаблицаДвиженийПриЗаписи.Скопировать();		
	УправлениеПланированием.ДополнитьТаблицу(мТаблицаДвиженийПередЗаписьюПриЗаписи, мТаблицаДвиженийПередЗаписью);		
	
	мТаблицаДвиженийСклад 						= мТаблицаДвиженийПередЗаписьюПриЗаписи.Скопировать();
	мТаблицаДвиженийСклад.Свернуть("Склад");
	
	мТаблицаДвиженийНоменклатура 				= мТаблицаДвиженийПередЗаписьюПриЗаписи.Скопировать();
	мТаблицаДвиженийНоменклатура.Свернуть("Номенклатура");	
	
	мТаблицаДвиженийХарактеристикаНоменклатуры 	= мТаблицаДвиженийПередЗаписьюПриЗаписи.Скопировать();
	мТаблицаДвиженийХарактеристикаНоменклатуры.Свернуть("ХарактеристикаНоменклатуры");		
	
	мТаблицаДвиженийСерияНоменклатуры 			= мТаблицаДвиженийПередЗаписьюПриЗаписи.Скопировать();
	мТаблицаДвиженийСерияНоменклатуры.Свернуть("СерияНоменклатуры");	
	
	мТаблицаДвиженийКачество 					= мТаблицаДвиженийПередЗаписьюПриЗаписи.Скопировать();
	мТаблицаДвиженийКачество.Свернуть("Качество");		
	
	ПериодСтарый = Неопределено;
	ПериодНовый = Неопределено;	
	
	Для каждого ТекСтрока Из мТаблицаДвиженийПередЗаписью Цикл
		ПериодСтарый = ТекСтрока.Период;
	КонецЦикла;
	
	Для каждого ТекСтрока Из мТаблицаДвиженийПриЗаписи Цикл
		ПериодНовый = ТекСтрока.Период;	
	КонецЦикла;
	
	//сравним старый момент времени движений и новый
	Если ПериодСтарый = Неопределено Тогда
		//старый момент времени отсутствует			
		Если ПериодНовый = Неопределено Тогда
			//новый момент времени тоже отсутствует
			Возврат;
		Иначе 
			ПериодДвижений = ПериодНовый;				
		КонецЕсли;
	Иначе	
		Если ПериодНовый = Неопределено Тогда
			//есть только старый момент времени
			ПериодДвижений = ПериодСтарый;				
		Иначе 
			//сравним периоды
			Если ПериодСтарый < ПериодНовый Тогда
				ПериодДвижений = ПериодСтарый;
			Иначе
				ПериодДвижений = ПериодНовый;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	
	Запрос = Новый Запрос;		
	Запрос.Текст = "ВЫБРАТЬ
	|	ТоварыНаСкладахОстаткиИОбороты.Регистратор КАК Регистратор,
	|	ТоварыНаСкладахОстаткиИОбороты.Склад КАК Склад,
	|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура.Код КАК Код,	
	|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура.Артикул КАК Артикул,
	|	ТоварыНаСкладахОстаткиИОбороты.Номенклатура КАК Номенклатура,
	|	ТоварыНаСкладахОстаткиИОбороты.Качество КАК Качество,
	|	ТоварыНаСкладахОстаткиИОбороты.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
	|	ТоварыНаСкладахОстаткиИОбороты.СерияНоменклатуры КАК СерияНоменклатуры,
	|	ТоварыНаСкладахОстаткиИОбороты.КоличествоКонечныйОстаток КАК КоличествоКонечныйОстаток
	|ИЗ
	|	РегистрНакопления.ТоварыНаСкладах.ОстаткиИОбороты(
	|			&ДатаНач,
	|			,
	|			Регистратор,
	|			Движения,
	|			Склад В (&ТаблицаСклад)
	|				И Номенклатура В (&ТаблицаНоменклатура)
	|				И Качество В (&ТаблицаКачество)
	|				И ХарактеристикаНоменклатуры В (&ТаблицаХарактеристикаНоменклатуры)
	|				И СерияНоменклатуры В (&ТаблицаСерияНоменклатуры)) КАК ТоварыНаСкладахОстаткиИОбороты
	|ГДЕ
	|	ТоварыНаСкладахОстаткиИОбороты.КоличествоКонечныйОстаток < 0
	|
	|УПОРЯДОЧИТЬ ПО
	|	Регистратор";						   
	
	Запрос.УстановитьПараметр("ТаблицаСклад", мТаблицаДвиженийСклад.ВыгрузитьКолонку("Склад"));
	Запрос.УстановитьПараметр("ТаблицаНоменклатура", мТаблицаДвиженийНоменклатура.ВыгрузитьКолонку("Номенклатура"));
	Запрос.УстановитьПараметр("ТаблицаХарактеристикаНоменклатуры", мТаблицаДвиженийХарактеристикаНоменклатуры.ВыгрузитьКолонку("ХарактеристикаНоменклатуры"));
	Запрос.УстановитьПараметр("ТаблицаСерияНоменклатуры", мТаблицаДвиженийСерияНоменклатуры.ВыгрузитьКолонку("СерияНоменклатуры"));
	Запрос.УстановитьПараметр("ТаблицаКачество", мТаблицаДвиженийКачество.ВыгрузитьКолонку("Качество"));
	Запрос.УстановитьПараметр("ДатаНач", Новый Граница(ПериодДвижений, ВидГраницы.Включая));
	
	ТаблицаМинусовыхОстатков = Запрос.Выполнить().Выгрузить();
	
	ОстанавливатьПроведение = Истина;
	
	//Если РольДоступна("ПолныеПраваРасширенные")	ИЛИ мТипЗнчРегистратор = Тип("ДокументСсылка.ОтчетОРозничныхПродажах") Тогда
	//	//для полных прав и "Отчета РП" не запрещаем проведение
	//	ОстанавливатьПроведение = Ложь;
	//КонецЕсли;
	
	Для каждого ТекСтрока Из ТаблицаМинусовыхОстатков Цикл
		Заголовок = "Регистр ""ТоварыНаСкладах"". Отрицательный остаток по документу " + ТекСтрока.Регистратор;
		ТекстСообщения = "" + ТекСтрока.КоличествоКонечныйОстаток + " Склад: " + ТекСтрока.Склад + ", Код: " + ТекСтрока.Код+ ", Артикул: " + ТекСтрока.Артикул + ", Номенклатура: " + ТекСтрока.Номенклатура +  ", Характеристика: " + ТекСтрока.ХарактеристикаНоменклатуры + ", Серия: " + ТекСтрока.СерияНоменклатуры + ", Качество: " + ТекСтрока.Качество + ";";
		ОтборСтрок = Новый Структура();
		ОтборСтрок.Вставить("ВидДвижения",ВидДвиженияНакопления.Приход);
		ОтборСтрок.Вставить("Склад",ТекСтрока.Склад);
		ОтборСтрок.Вставить("Номенклатура",ТекСтрока.Номенклатура);
		ОтборСтрок.Вставить("Качество",ТекСтрока.Качество);
		ОтборСтрок.Вставить("ХарактеристикаНоменклатуры",ТекСтрока.ХарактеристикаНоменклатуры);
		ОтборСтрок.Вставить("СерияНоменклатуры",ТекСтрока.СерияНоменклатуры);
		
		Строки = мТаблицаДвиженийПриЗаписи.НайтиСтроки(ОтборСтрок);
		
		ВидДвиженияНакопленияПриход = Ложь;
		Если Строки.Количество() > 0 Тогда
			ВидДвиженияНакопленияПриход = Истина;
		КонецЕсли;
		Если ОстанавливатьПроведение И НЕ ВидДвиженияНакопленияПриход Тогда	
			ОбщегоНазначения.СообщитьОбОшибке(ТекстСообщения, Отказ, Заголовок); 	
		Иначе
			ОбщегоНазначения.СообщитьИнформациюПользователю(Заголовок + Символы.ПС 
			+ ТекстСообщения);
		КонецЕсли;
	КонецЦикла; 
	//Z- 20120303
	
КонецПроцедуры