// Получить форму выбора справочника как подчиненную форме документа 

ФормаСписка = Справочники.Номенклатура.ПолучитьФормуСписка( , ЭтаФорма); 

// Открыть полученную форму 

ФормаСписка.Открыть();    

  ФормаВыбора = Справочники.Номенклатура.ПолучитьФормуВыбора( , ЭтаФорма); 

ФормаВыбора.Заголовок	= "Выберите товар!";

Выбрано = ФормаВыбора.ОткрытьМодально();    

  // Если Отобрать = Истина, то откроется выборка справочника без элементов у которых ГруппыПользователей.ВсеПользователи

Если Отобрать Тогда

   ФормаВыбора = Справочники.ГруппыПользователей.ПолучитьФормуВыбора();

   ФормаВыбора.Отбор.Ссылка.Установить(Справочники.ГруппыПользователей.ВсеПользователи);

   ФормаВыбора.Отбор.Ссылка.ВидСравнения = ВидСравнения.НеРавно;     	   

 Иначе    

       ФормаВыбора = Справочники.Пользователи.ПолучитьФормуВыбора();       

 КонецЕсли;    

    // укажем что выбирать только элементы

    ФормаВыбора.ПараметрВыборГруппИЭлементов = ИспользованиеГруппИЭлементов.Элементы;    

    ВыбранноеЗначение = ФормаВыбора.ОткрытьМодально();    

  Процедура ПолеВводаНачалоВыбора(Элемент, СтандартнаяОбработка) 



	// Запретить стандартную обработку. 

	СтандартнаяОбработка = Ложь; 



	// Получить форму выбора справочника как подчиненную полю ввода. 

	ФормаВыбора = Справочники.Номенклатура.ПолучитьФормуВыбора( , Элемент); 



	// Открыть полученную форму 

	ФормаВыбора.Открыть(); 



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



Процедура ПолеВводаОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка) 

	// Отключить стандартную обработку (при необходимости). 

	СтандартнаяОбработка = Ложь; 



	ПолученноеЗначение = ВыбранноеЗначение; 

	// Дальнейшая обработка значения.  

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

 Процедура ПечатьНажатие(Элемент)

 СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");

 

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

 ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;

 Настройки = КомпоновщикНастроек.Настройки;

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

      

 ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки,, ДанныеРасшифровки);

 

 ДокументРезультат = ЭлементыФормы.Результат;

 ДокументРезультат.АвтоМасштаб = Истина; // Сделаем по ширине листа

 //А если сделать так как на следующей строчке, то можно вывести в новый Табличный документ

 //ДокументРезультат = Новый ТабличныйДокумент;

 

 //Вывод текста и картинки

 Макет = ПолучитьМакет("НазваниеСРисунком");

 ОбластьВывести = Макет.ПолучитьОбласть("Вывести");

    ОбластьВывести.Параметры.ТекДата=ТекущаяДата();

 ДокументРезультат.Вывести(ОбластьВывести);

 //Текст и картинку вывели, теперь сам отчет

 

 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);

 ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

 

 ДокументРезультат.ОтображатьСетку = Ложь;

 ДокументРезультат.ОтображатьЗаголовки = Ложь;

 ДокументРезультат.Показать();

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