Выбор документов в отчете

ТабличныйДокумент = Новый ТабличныйДокумент;
	ТабличныйДокумент.АвтоМасштаб = Истина;
	ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
	
	ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_М-15_Возврат";

	НомерТипаДокумента = 0;
	
	УстановитьПривилегированныйРежим(Истина);

	
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("СсылкаНаДокумент", МассивОбъектов);


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

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

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

	
	//%Возврат ТабДокумент;
	//МассивРезультатов         = Запрос.ВыполнитьПакет();
	РезультатПоШапке          = Шапка;
	РезультатПоТабличнойЧасти = РезультатЗапроса;
	
	СтруктураДанныхДляПечати 	= Новый Структура("РезультатПоШапке, РезультатПоТабличнойЧасти",
	                                               РезультатПоШапке, РезультатПоТабличнойЧасти);
	
	Возврат СтруктураДанныхДляПечати;


&НаСервере
Функция ПечатьНаСервереМ15()
	// Вставить содержимое обработчика.
	МасивОбъектов = Новый Массив();
     Если Не СписокОбъектов.Количество() = 0 Тогда
		  Для Каждого СтрокаСписка Из СписокОбъектов Цикл
			 МасивОбъектов.Добавить(СтрокаСписка.Значение); 
		  КонецЦикла;
		  
	  Иначе 
			 МасивОбъектов.Добавить(Объект.СсылкаНаОбъект);
 
 	КонецЕсли;

    		ОбработкаОбъект= РеквизитФормыВЗначение("Объект");
    Возврат ОбработкаОбъект.ПечатьМ15(МасивОбъектов)
   	
КонецФункции     

&НаСервере
Функция ПечатьНаСервереОтчет()
	// Вставить содержимое обработчика.
      МасивОбъектов = новый Массив();
   Если Не СписокОбъектов.Количество() = 0 Тогда
		  Для Каждого СтрокаСписка Из СписокОбъектов Цикл
			 МасивОбъектов.Добавить(СтрокаСписка.Значение); 
		  КонецЦикла;
		  
	  Иначе 
			 МасивОбъектов.Добавить(Объект.СсылкаНаОбъект);
 
 	КонецЕсли;

    		ОбработкаОбъект= РеквизитФормыВЗначение("Объект");
    Возврат ОбработкаОбъект.ПечатьОтчетЗаСмену(МасивОбъектов)
	
КонецФункции



&НаКлиенте
Процедура Печать(Команда)
	ПечатьНаСервереМ15().Показать("М-15");
	
	ПечатьНаСервереОтчет().Показать("Отчет за смену");
	
КонецПроцедуры

&НаКлиенте
Процедура ЗакрытьФорму(Команда)
	// Вставить содержимое обработчика.
	Закрыть()
	
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	// Вставить содержимое обработчика.
	
	
	Элементы.СписокОбъектов.Видимость = Ложь;
КонецПроцедуры

&НаКлиенте
Процедура ПриЗакрытииФормыВыбора(Значение, ДопПараметры) Экспорт
Если ТипЗнч(Значение) = Тип("Массив") тогда
Если Значение.Количество() = 1 тогда
СписокОбъектов.Очистить();
Объект.СсылкаНаОбъект = Значение[0];
ИначеЕсли Значение.Количество() > 1 Тогда
Объект.СсылкаНаОбъект = Неопределено;
СписокОбъектов.ЗагрузитьЗначения(Значение);
КонецЕсли;
КонецЕсли;

	Элементы.СсылкаНаОбъект.Видимость = Объект.СсылкаНаОбъект.Количество() > 0;
	Элементы.СписокОбъектов.Видимость = СписокОбъектов.Количество() > 0;
	
КонецПроцедуры


&НАСервере

Функция ПустоеЗначениеНаСервере()
	
	Возврат Документы.ОтчетПроизводстваЗаСмену.ПустаяСсылка();
	
КОнецФункции

&НаКлиенте
Процедура СсылкаНаОбъектНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	// Вставить содержимое обработчика.
	СтандартнаяОбработка = Ложь;

	ПараметрыВыбора = Новый Структура;
	ПараметрыВыбора.Вставить("РежимВыбора",Истина);
	ПараметрыВыбора.Вставить("МножественныйВыбор",Истина); ///Если хотим несколько значений

	ОбработкаВыбора = Новый ОписаниеОповещения("ПриЗакрытииФормыВыбора", ЭтаФорма,"ПодборДокумента");

	ОткрытьФорму("Документ.ОтчетПроизводстваЗаСмену.ФормаВыбора",ПараметрыВыбора,
	        ЭтаФорма, , , , ОбработкаВыбора);

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

&НаКлиенте
Процедура СсылкаНаОбъектНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)
	// Вставить содержимое обработчика.
КонецПроцедуры


&НаКлиенте
Процедура СписокОбъектовНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	
	СтандартнаяОбработка = Ложь;

	ПараметрыВыбора = Новый Структура;
	ПараметрыВыбора.Вставить("РежимВыбора",Истина);
	ПараметрыВыбора.Вставить("МножественныйВыбор",Истина); ///Если хотим несколько значений

	ОбработкаВыбора = Новый ОписаниеОповещения("ПриЗакрытииФормыВыбора", ЭтаФорма,"ПодборДокумента");

	ОткрытьФорму("Документ.ОтчетПроизводстваЗаСмену.ФормаВыбора",ПараметрыВыбора,
	        ЭтаФорма, , , , ОбработкаВыбора);
	// Вставить содержимое обработчика.
КонецПроцедуры