v8.2 УП: Меняется необходимый запрос в СКД

 ВЫБРАТЬ

	РеализацияТоваровУслуг.Ссылка КАК Реализация,

	СведенияОПриходеДокументовСрезПоследних.ПризнакВозвратаДокумента КАК ПризнакВозвратаДокумента,

	СведенияОПриходеДокументовСрезПоследних.ПричинаНевозвратаДокумента КАК ПричинаНевозвратаДокумента,

	СведенияОПриходеДокументовСрезПоследних.МаршрутныйЛист КАК МаршрутныйЛист,

	СведенияОПриходеДокументовСрезПоследних.Заявка КАК Заявка,

	РеализацияТоваровУслуг.Контрагент КАК Контрагент

{ВЫБРАТЬ

	Реализация.*,

	ПризнакВозвратаДокумента,

	ПричинаНевозвратаДокумента.*,

	МаршрутныйЛист.*,

	Заявка.*,

	Контрагент.*}

ИЗ

	РегистрСведений.СведенияОПриходеДокументов.СрезПоследних(, ) КАК СведенияОПриходеДокументовСрезПоследних

		ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг

		ПО СведенияОПриходеДокументовСрезПоследних.Заявка = РеализацияТоваровУслуг.Сделка

{ГДЕ

	РеализацияТоваровУслуг.Ссылка.* КАК Реализация,

	СведенияОПриходеДокументовСрезПоследних.Заявка.*,

	СведенияОПриходеДокументовСрезПоследних.МаршрутныйЛист.*,

	РеализацияТоваровУслуг.Контрагент.*,

	СведенияОПриходеДокументовСрезПоследних.ПризнакВозвратаДокумента,

	СведенияОПриходеДокументовСрезПоследних.ПричинаНевозвратаДокумента.*}   

 ВЫБРАТЬ

	СведенияОПриходеДокументовСрезПоследних.ПризнакВозвратаДокумента КАК ПризнакВозвратаДокумента,

	СведенияОПриходеДокументовСрезПоследних.ПричинаНевозвратаДокумента КАК ПричинаНевозвратаДокумента,

	ПРЕДСТАВЛЕНИЕССЫЛКИ(СведенияОПриходеДокументовСрезПоследних.ПричинаНевозвратаДокумента) КАК ПричинаНевозвратаДокументаПредставление

ИЗ

	РегистрСведений.СведенияОПриходеДокументов.СрезПоследних(&П, ) КАК СведенияОПриходеДокументовСрезПоследних

		ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг

		ПО СведенияОПриходеДокументовСрезПоследних.Заявка = РеализацияТоваровУслуг.Сделка   

 // Получаем Таблицу значений по документам Реализация товаров, у которых нет документов по установленным отборам

//

&НаСервере

Функция ОбновитьПереченьДокументов()



	 Запрос    = ПолучитьДляПеречняДокументовЗапросСКД(АдресСхемыКомпоновкиДанных, 

												Объект.Компоновщик, Объект.ДатаОкончания);

	 Результат = Запрос.Выполнить();

	 

	 Если Результат.Пустой() Тогда

	 	ОбщегоНазначенияКлиентСервер.ВывестиСообщение("Нет данных, удовлетворяющих отбору.");

	 КонецЕсли; 

	 

	 Объект.НеВозвращенныеДокументы.Очистить();

	 

	 Выборка = Результат.Выбрать();

	 

	 Пока Выборка.Следующий() Цикл

	 

	 	НоваяСтрока = Объект.НеВозвращенныеДокументы.Добавить();

		ЗаполнитьЗначенияСвойств(НоваяСтрока,Выборка);

										  

  	КонецЦикла;

	

КонецФункции // ОбновитьПереченьДокументов()





&НаСервере

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

		

	//Инициализация схемы компановки данных

	АдресСхемыКомпоновкиДанных = ПолучитьДляПеречняДокументовАдресСКД(Объект.Компоновщик);

	

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





&НаСервере

// Функция получает запрос схемы компановки данных для перечня документов на оплату

//

Функция ПолучитьДляПеречняДокументовЗапросСКД(АдресСКД, Компоновщик, ПериодРасхода) Экспорт

	

	СхемаКомпоновкиДанных = ПолучитьИзВременногоХранилища(АдресСКД);



	//Выполняем компановку макета МакетСКД

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

	КомпоновщикМакетаКомпоновкиДанных = Новый КомпоновщикМакетаКомпоновкиДанных;

	МакетСКД = КомпоновщикМакетаКомпоновкиДанных.Выполнить(СхемаКомпоновкиДанных, Компоновщик.ПолучитьНастройки());

	

	//Заполняем параметры макета компановки данных

	//МакетСКД.ЗначенияПараметров.ДатаНачала.Значение    = ПериодРасхода.ДатаНачала;

	//МакетСКД.ЗначенияПараметров.ДатаОкончания.Значение = Объект.ДатаОкончания;

	//МакетСКД.ЗначенияПараметров.ПустаяДата.Значение    = Дата('00010101');           

	

	//Получаем запрос макета компановки данных

	Запрос = Новый Запрос(МакетСКД.НаборыДанных.НаборДанных1.Запрос);

	

	//Устанавливаем параметры запроса

	ОписаниеПараметровЗапроса = Запрос.НайтиПараметры();

	Для каждого ОписаниеПараметраЗапроса из ОписаниеПараметровЗапроса Цикл

		Запрос.УстановитьПараметр(ОписаниеПараметраЗапроса.Имя, МакетСКД.ЗначенияПараметров[ОписаниеПараметраЗапроса.Имя].Значение);

	КонецЦикла;

	

	Возврат Запрос;

	

КонецФункции // ПолучитьДляПеречняДокументовЗапросСКД()



&НаСервере

// Функция инициализирует схему компановки данных для перечня документов на оплату

//

Функция ПолучитьДляПеречняДокументовАдресСКД(Компоновщик) Экспорт

   	                        

	СхемаКомпоновкиДанных = Обработки.ГрупповаяРегистрацияСтатусовПриходаДокументов.ПолучитьМакет("СхемаКомпановкиДанных");

	

	АдресСхемыКомпоновкиДанных = ПоместитьВоВременноеХранилище(СхемаКомпоновкиДанных, Новый УникальныйИдентификатор);

	ИсточникНастроек = Новый ИсточникДоступныхНастроекКомпоновкиДанных(АдресСхемыКомпоновкиДанных);

		

	Компоновщик.Инициализировать(ИсточникНастроек);

		

	Компоновщик.ЗагрузитьНастройки(СхемаКомпоновкиДанных.НастройкиПоУмолчанию);



	КомпоновщикМакетаКомпоновкиДанных = Новый КомпоновщикМакетаКомпоновкиДанных;

	МакетСКД = КомпоновщикМакетаКомпоновкиДанных.Выполнить(СхемаКомпоновкиДанных, Компоновщик.ПолучитьНастройки());

	//МакетСКД = КомпоновщикМакетаКомпоновкиДанных.Выполнить(СхемаКомпоновкиДанных, СхемаКомпоновкиДанных.НастройкиПоУмолчанию);

	

	Возврат АдресСхемыКомпоновкиДанных;

	

КонецФункции // ПолучитьДляПеречняДокументовАдресСКД()