Резерв товара по складу и организации?

Процедура КонтрольРезервовТоваровПоОрганизации(СтруктураШапкиДокумента, Отказ, Заголовок) Экспорт

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

	Выборка = Запрос.Выполнить().Выбрать();
	
	Пока Выборка.Следующий() Цикл

		//КоличествоКПередачеПоДокументу = 0;//?(Выборка.ОстатокКПередачеПоДокументу = NULL, 0, Выборка.ОстатокКПередачеПоДокументу);

		СтрокаСообщения = "Остатка по организации: " + СтруктураШапкиДокумента.Организация +
		" по складу: " + Выборка.Склад +
		" товара " +  
		УправлениеЗапасами.ПредставлениеНоменклатуры(Выборка.Номенклатура)  +
		" недостаточно для установки в резерв. <<КОНТРОЛЬ РЕЗЕРВА НЕ ПРОЙДЕН>>";
		
		СвободныйОстаток = Выборка.СвободныйОстаток;

		УправлениеЗапасами.ОшибкаНетОстатка(
			СтрокаСообщения, 
			СвободныйОстаток, 
			Выборка.Количество,
			Выборка.ЕдиницаИзмерения, 
			Отказ, 
			Заголовок);
		
	КонецЦикла;

	

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