Универсальный запрос по табличным частям разных документов для их проверки

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

Процедура ОбработкаПроведения(Отказ, РежимПроведения)

	// Дерево значений, содержащее имена необходимых полей в запросе по шапке.
	Перем ДеревоПолейЗапросаПоШапке;
	
	Если мУдалятьДвижения Тогда
		ОбщегоНазначения.УдалитьДвиженияРегистратора(ЭтотОбъект, Отказ, Истина, РежимПроведения);
	КонецЕсли;
	
	//	+МУР Контроль остатков
	Если Отказ = Ложь Тогда
		ДатаДок = ЭтотОбъект.Дата;
		ТоварыСписком = ЭтотОбъект.Товары;
		СкладОтправитель = ЭтотОбъект.СкладОтправитель;
		Отказ = МУР_ОбщегоНазначенияВызовСервера.ПроверкаТоваровВРезервеИСвободныхОстатках(ДатаДок, СкладОтправитель, ТоварыСписком, Отказ);
	КонецЕсли;
	//	-МУР
............................

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

	Возврат Отказ;
	
КонецФункции