&НаКлиентеНаСервереБезКонтекста
Функция ПолучитьТекстЗапроса()


 Возврат "ВЫБРАТЬ
         | КлассификаторБанковРФ.Ссылка,
         | КлассификаторБанковРФ.Наименование
         |ИЗ
         | Справочник.КлассификаторБанковРФ КАК КлассификаторБанковРФ";


КонецФункции // ПолучитьТекстЗапроса()


&НаСервере
Функция ПолучитьСхемуОбработки()
 
 Возврат РеквизитФормыВЗначение("Отчет").ПолучитьМакет("Макет");
 
КонецФункции


&НаСервереБезКонтекста
Функция ПолучитьСхемуКомпоновки()
 
 Схема = Новый СхемаКомпоновкиДанных;
 
 ИсточникДанных = Схема.ИсточникиДанных.Добавить();
 ИсточникДанных.Имя = "Источник";
 ИсточникДанных.ТипИсточникаДанных = "Local";
 
 НаборДанных = Схема.НаборыДанных.Добавить(Тип("НаборДанныхЗапросСхемыКомпоновкиДанных"));
 НаборДанных.Имя = "НаборДанных";
 НаборДанных.ИсточникДанных = "Источник";
 НаборДанных.Запрос = ПолучитьТекстЗапроса();
 
 НаборСсылка = НаборДанных.Поля.Добавить(Тип("ПолеНабораДанныхСхемыКомпоновкиДанных"));
 НаборСсылка.Поле = "Ссылка";
 НаборСсылка.ПутьКДанным = "Ссылка";
 НаборНаименование= НаборДанных.Поля.Добавить(Тип("ПолеНабораДанныхСхемыКомпоновкиДанных"));
 НаборНаименование.Поле = "Наименование";
 НаборНаименование.ПутьКДанным = "Наименование";
 
 ПолеИД = Схема.ВычисляемыеПоля.Добавить();
 ПолеИД.Выражение = "XMLСтрока(Ссылка)";
 ПолеИД.Заголовок = "ИД";
 ПолеИД.ПутьКДанным = "ИД";
 
 СтрокаТЗ = Схема.НастройкиПоУмолчанию.Структура.Добавить(Тип("ГруппировкаКомпоновкиДанных"));
 СтрокаТЗ.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных"));
 
 ЭлементыВыбора = Схема.НастройкиПоУмолчанию.Выбор.Элементы;
 ПолеСсылка = ЭлементыВыбора.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
 ПолеСсылка.Поле = Новый ПолеКомпоновкиДанных("Ссылка");
 ПолеНаименование = ЭлементыВыбора.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
 ПолеНаименование.Поле = Новый ПолеКомпоновкиДанных("Наименование");
 ПолеИД = ЭлементыВыбора.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
 ПолеИД.Поле = Новый ПолеКомпоновкиДанных("ИД");
 
 Возврат Схема;
 
КонецФункции


&НаСервереБезКонтекста
Функция ЗаполнитьПоКомпоновкеПрямойОбход(Схема)


 Док = Новый ТекстовыйДокумент;
 
 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
 Макет = КомпоновщикМакета.Выполнить(Схема, Схема.НастройкиПоУмолчанию,,, Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений")); 
 
 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
 ПроцессорКомпоновки.Инициализировать(Макет,,, Истина);
 
 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
 ПроцессорВывода.УстановитьОбъект(Новый ТаблицаЗначений);
 ПроцессорВывода.НачатьВывод();
 
 Пока Истина Цикл
  
  ЭлементКомпоновки = ПроцессорКомпоновки.Следующий();
  Если ЭлементКомпоновки = Неопределено Тогда
   Прервать;
  КонецЕсли;
  
  ПроцессорВывода.ВывестиЭлемент(ЭлементКомпоновки);
  Если ЭлементКомпоновки.Макет = "Макет2" И ЭлементКомпоновки.ТипЭлемента = ТипЭлементаРезультатаКомпоновкиДанных.НачалоИКонец Тогда
   Док.ДобавитьСтроку(ЭлементКомпоновки.ЗначенияПараметров.П2.Значение + ";" + ЭлементКомпоновки.ЗначенияПараметров.П3.Значение);
  КонецЕсли;
  
 КонецЦикла;
 
 ТЗ = ПроцессорВывода.ЗакончитьВывод();
 
 Возврат Док;


КонецФункции // ЗаполнитьПоКомпоновкеПрямойОбход()


&НаСервере
Функция ЗаполнитьОбходТЗ(ИспользоватьСхемуОбработки)


 Если ИспользоватьСхемуОбработки Тогда
  Схема = ПолучитьСхемуОбработки();
 Иначе
  Схема = ПолучитьСхемуКомпоновки();
 КонецЕсли;
 
 Возврат ЗаполнитьПоКомпоновкеОбходТЗ(Схема);


 //Возврат ЗаполнитьПоКомпоновкеОбходТЗ(?(ИспользоватьСхемуОбработки, ПолучитьСхемуОбработки(), ПолучитьСхемуКомпоновки()));
 
КонецФункции // ЗаполнитьОбходТЗ()


&НаСервере
Функция ЗаполнитьПрямойОбход(ИспользоватьСхемуОбработки)


 Если ИспользоватьСхемуОбработки Тогда
  Схема = ПолучитьСхемуОбработки();
 Иначе
  Схема = ПолучитьСхемуКомпоновки();
 КонецЕсли;
 
 Возврат ЗаполнитьПоКомпоновкеПрямойОбход(Схема);
 //Возврат ЗаполнитьПоКомпоновкеПрямойОбход(?(ИспользоватьСхемуОбработки, ПолучитьСхемуОбработки(), ПолучитьСхемуКомпоновки()));


КонецФункции // ЗаполнитьОбходТЗ()


&НаСервереБезКонтекста
Функция ЗаполнитьПоКомпоновкеОбходТЗ(Схема)


 Док = Новый ТекстовыйДокумент;
 
 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
 Макет = КомпоновщикМакета.Выполнить(Схема, Схема.НастройкиПоУмолчанию,,, Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений")); 
 
 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
 ПроцессорКомпоновки.Инициализировать(Макет,,, Истина);
 
 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
 ПроцессорВывода.УстановитьОбъект(Новый ТаблицаЗначений);
 ТЗ = ПроцессорВывода.Вывести(ПроцессорКомпоновки);
 
 Для Каждого СтрокаТЗ Из ТЗ Цикл
  Док.ДобавитьСтроку(СтрокаТЗ.Наименование + ";" + СтрокаТЗ.ИД);
 КонецЦикла;
 
 Возврат Док;


КонецФункции // ЗаполнитьПоКомпоновкеОбходТЗ()


&НаСервереБезКонтекста
Функция ЗаполнитьПоЗапросу()


 Док = Новый ТекстовыйДокумент;
 
 Запрос = Новый Запрос(ПолучитьТекстЗапроса());
 Результат = Запрос.Выполнить().Выбрать();
 Пока Результат.Следующий() Цикл
  Док.ДобавитьСтроку(Результат.Наименование + ";" + XMLСтрока(Результат.Ссылка));
 КонецЦикла;
 
 Возврат Док;


КонецФункции // ЗаполнитьПоЗапросу()


&НаСервере
Процедура ЗаполнитьТабДокСхема(ИспользоватьСхемуОбработки)


 Если ИспользоватьСхемуОбработки Тогда
  Схема = ПолучитьСхемуОбработки();
  ТабДок = ТабДок1;
 Иначе
  Схема = ПолучитьСхемуКомпоновки();
  ТабДок = ТабДок2;
 КонецЕсли;
 
 КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
 Макет = КомпоновщикМакета.Выполнить(Схема, Схема.НастройкиПоУмолчанию); 
 
 ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
 ПроцессорКомпоновки.Инициализировать(Макет,,, Истина);
 
 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
 ПроцессорВывода.УстановитьДокумент(ТабДок);
 ПроцессорВывода.Вывести(ПроцессорКомпоновки);


КонецПроцедуры // ЗаполнитьТабДокСхема()


&НаСервере
Процедура ЗаполнитьТабДокЗапрос()
 
 Макет = РеквизитФормыВЗначение("Отчет").ПолучитьМакет("Отчет");
 ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
 
 Запрос = Новый Запрос(ПолучитьТекстЗапроса());
 Результат = Запрос.Выполнить().Выбрать();
 Пока Результат.Следующий() Цикл
  ОбластьСтрока.Параметры.Заполнить(Результат);
  ОбластьСтрока.Параметры.ИД = XMLСтрока(Результат.Ссылка);
  ТабДок3.Вывести(ОбластьСтрока);
 КонецЦикла;
 
КонецПроцедуры


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 
 ЗаполнитьТабДокСхема(Истина);
 ЗаполнитьТабДокСхема(Ложь);
 ЗаполнитьТабДокЗапрос();
 
 Т1 = ЗаполнитьПоЗапросу(); 
 Т2 = ЗаполнитьОбходТЗ(Ложь);
 Т3 = ЗаполнитьОбходТЗ(Истина);
 Т4 = ЗаполнитьПрямойОбход(Ложь);
 Т5 = ЗаполнитьПрямойОбход(Истина);
 
КонецПроцедуры