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


Функция СоздатьНовыйУровеньДоступа(ФИО)
	
	 Рез = Справочники.CRM_УровниДоступа.НайтиПоНаименованию(ФИО);
	 Если Рез = Неопределено ИЛИ Рез = Справочники.CRM_УровниДоступа.ПустаяСсылка() Тогда
		 НовыйОбъект = Справочники.CRM_УровниДоступа.СоздатьЭлемент();
		 НовыйОбъект.Наименование = ФИО;
		 НовыйОбъект.Записать();
		 возврат НовыйОбъект.Ссылка;
	 КонецЕсли;	 
		 
КонецФункции	


Процедура ОбновитьДанныеПользователяИБ(ПользовательНастроек, Знач ОтображатьИмя = Истина)
	
	Если ПользовательНастроек = Неопределено Тогда
		Возврат;
	КонецЕсли;
	
	ПроверкаНаСуществующегоПользователя = ПользователиИнформационнойБазы.НайтиПоИмени(Объект.ФИОСоздаваемогоПользователя);
	Если ПроверкаНаСуществующегоПользователя = Неопределено Тогда
		
	Пользователь_Шаблон = ПользователиИнформационнойБазы.НайтиПоИмени(сокрлп(ПользовательНастроек.Наименование));


	ОписаниеПользователяИБ            = Пользователи.НовоеОписаниеПользователяИБ();
	ПользовательИБСуществует          = Ложь;
	ДоступКИнформационнойБазеРазрешен = Ложь;
	
	// Заполнение начальных значений свойств пользователяИБ.
	Если ОбщегоНазначенияПовтИсп.РазделениеВключено() Тогда
		ОписаниеПользователяИБ.ПоказыватьВСпискеВыбора = Ложь;
	Иначе
		ОписаниеПользователяИБ.ПоказыватьВСпискеВыбора =
			НЕ Константы.ИспользоватьВнешнихПользователей.Получить();
	КонецЕсли;
	ОписаниеПользователяИБ.АутентификацияСтандартная = Истина;
	ОписаниеПользователяИБ.Роли = Новый Массив;
	ПрочитанныеСвойства               = Неопределено;
	Если Пользователи.ПрочитатьПользователяИБ(
		         ПользовательНастроек.ИдентификаторПользователяИБ,ПрочитанныеСвойства
		         ) Тогда
			
			// Установка связи пользователем ИБ.
			//ДоступКИнформационнойБазеРазрешен = Истина;
			
			// Копирование свойств и ролей пользователяИБ.
			ЗаполнитьЗначенияСвойств(
				ОписаниеПользователяИБ,
				ПрочитанныеСвойства,
				"АутентификацияOpenID,
				|АутентификацияСтандартная,
				|ЗапрещеноИзменятьПароль,
				|ПоказыватьВСпискеВыбора,
				|АутентификацияОС,
				|РежимЗапуска,
				|Язык,
				|Роли");
	КонецЕсли;
	
	ОписаниеПользователяИБ.Вставить("Действие", "Записать");
	ОписаниеПользователяИБ.Вставить("Имя", Объект.ФИОСоздаваемогоПользователя);
	


		НовыйПользователь = Справочники.Пользователи.СоздатьЭлемент();
		НовыйПользователь.Наименование 					= Объект.ФИОСоздаваемогоПользователя;
		НовыйПользователь.ТекущееПодразделение			= ПользовательНастроек.ТекущееПодразделение;
		НовыйПользователь.CRM_УровеньДоступа			= СоздатьНовыйУровеньДоступа(Объект.ФИОСоздаваемогоПользователя);
		НовыйПользователь.Недействителен				= ложь;


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


		КопированиеВсехНастроек(ПользовательНастроек,НовыйПользователь.Ссылка);
		
	Иначе
		сообщить("Указанное ФИО Пользователя уже используется !!! ");
	КонецЕсли;
		
КонецПроцедуры


&НаКлиенте
Процедура СоздатьПользователя(Команда)
	СоздатьПользователяНаСервере();
КонецПроцедуры


&НаСервере
Процедура СоздатьПользователяНаСервере()
	
	Если НЕ ЗначениеЗаполнено(Объект.ШаблонПользователяДляСозданияНового) Тогда
		Возврат;
	КонецЕсли;


	// настройки устанавливаются на форму
	ОбновитьДанныеПользователяИБ(Объект.ШаблонПользователяДляСозданияНового, Ложь);
	
КонецПроцедуры


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


	//Копируем настройки БСП
	КопированиеВсехНастроек(ШаблонПользователяДляКопирования,ИзменяемыйПользователь);  
КонецПроцедуры


&НаКлиенте
Процедура СкопироватьНастройки(Команда)
	СкопироватьНастройкиНаСервере(Объект.ИзменяемыйПользователь, Объект.ШаблонПользователяДляКопирования);
КонецПроцедуры   

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	Если НЕ ЗначениеЗаполнено(ШаблонПользователяДляСозданияНового) Тогда
		Возврат;
	КонецЕсли;

	// настройки устанавливаются на форму
	ОбновитьДанныеПользователяИБ(ШаблонПользователяДляСозданияНового, Ложь);
	
КонецПроцедуры

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

 Функция ДобавитьПользователя(ИмяПользователя, ДоменноеИмя, ПользовательАктивен, АутентификацияОС, Авторизация1СПредприятия, МассивРолей) Экспорт
    // Попробуем найти сотрудника
    Пользователь = ПользователиИнформационнойБазы.НайтиПоИмени(ИмяПользователя);


    // Теперь попробум найти сотрудника по пользователю ос
   Если Пользователь = Неопределено Тогда
        Для Каждого ТекущийПользователь Из ПользователиИнформационнойБазы.ПолучитьПользователей() Цикл
            Если ТекущийПользователь.ПользовательОС = ДоменноеИмя Тогда
                Пользователь = ТекущийПользователь;
                Прервать;
            Конецесли;
        КонецЦикла;
    КонецЕсли;
    //                            


    // Если мы не нашли сотрудника, то создадим его
    Если Пользователь = Неопределено Тогда
        Пользователь = ПользователиИнформационнойБазы.СоздатьПользователя();
    КонецЕсли;
    //


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

    // Записываем!
    Пользователь.Записать();

    // Теперь посмотрим нужно ли деактивировать пользователя
    Если Не ПользовательАктивен Тогда
        ДективироватьПользователя(Пользователь);    
    КонецЕсли;

    // Запишем еще и справочник пользователя
    ЗаполнитьСправочникПользователя(Пользователь);
  
    Возврат Истина;
КонецФункции


// Процедура заполняет помимо прочего справочник пользователя
Процедура ЗаполнитьСправочникПользователя(ПользовательИБ) Экспорт
    ТекстЗапроса = "ВЫБРАТЬ
                   |    ИСТИНА КАК ЕстьПользователь,
                   |    Пользователи.Ссылка КАК Пользователь
                   |ИЗ
                   |    Справочник.Пользователи КАК Пользователи
                   |ГДЕ
                   |    Пользователи.ИдентификаторПользователяИБ =ИдентификаторПользователяИБ
                   |
                   |ОБЪЕДИНИТЬ ВСЕ
                   |
                   |ВЫБРАТЬ
                   |    ЛОЖЬ,
                   |    NULL";
    Запрос = Новый Запрос(ТекстЗапроса);
    Запрос.УстановитьПараметр("ИдентификаторПользователяИБ", ПользовательИБ.УникальныйИдентификатор);
    Результат = Запрос.Выполнить().Выгрузить()[0];
    ОписаниеПользователя = Пользователи.НовоеОписаниеПользователяИБ();
    Если Результат.ЕстьПользователь Тогда
        ПользовательОбъект = Результат.Пользователь.ПолучитьОбъект();
    Иначе            
        ПользовательОбъект = Справочники.Пользователи.СоздатьЭлемент(); 
        ПользовательОбъект.ИдентификаторПользователяИБ = ПользовательИБ.УникальныйИдентификатор;
        ПользовательОбъект.Наименование = ПользовательИБ.Имя;
        ОписаниеПользователя.Вставить("Действие", "Записать");
        ПользовательОбъект.ДополнительныеСвойства.Вставить("ОписаниеПользователяИБ", ОписаниеПользователя);
    КонецЕсли;
    ЗаполнитьЗначенияСвойств(ОписаниеПользователя, ПользовательИБ);
    Для Каждого Элемент Из ОписаниеПользователя Цикл
        ПользовательОбъект.ДополнительныеСвойства.Вставить(Элемент.Ключ, Элемент.Значение);        
    КонецЦикла;        
    ПользовательОбъект.ДополнительныеСвойства.Удалить("Роли");
    ПользовательОбъект.Записать();
КонецПроцедуры   

  //   “Результат” – поле табличного документа.

&НаСервере
Функция ПолучитьЗначениеРасшифровки(КодРасшифровки)
    Если КодРасшифровки = Неопределено тогда
        Возврат Неопределено;
    КонецЕсли;
 
    ДР=ПолучитьИзВременногоХранилища(ДанныеРасшифровки);
    КоллекцияПолей = ДР.Элементы[КодРасшифровки].ПолучитьПоля();
 
    Если КоллекцияПолей.Количество() = 0 тогда
        Возврат Неопределено
    Иначе
        Возврат КоллекцияПолей[0].Значение ;
    КонецЕсли;
КонецФункции
 
&НаКлиенте
...
РасшифровкаЗначение = ПолучитьЗначениеРасшифровки(Результат.ТекущаяОбласть.Расшифровка);
...   

 // Выводит результат СКД с установкой вертикальной автофиксации.
// Параметры:
// Таб - ТабличныеДокумент, ПолеТабличногоДокумента - куда выводим отчет;
// ПроцессорКомпоновкиДанных - ПроцессорКомпоновкиДанных;
// ЭлементыРасшировки - ЭлементыРасшифровкиКомпоновкиДанных;
// МассивИгнорируемыхПолей - Массив, *Неопределено - массив имен игнорируемых полей;
// РазрешитьПрерывание - Булево, *Истина.
//
Процедура ЛксВывестиРезультатКомпоновкиСАвтофиксациейСтрок(Таб, ПроцессорКомпоновкиДанных, ЭлементыРасшировки,
 Знач МассивИгнорируемыхПолей = Неопределено, РазрешитьПрерывание = Истина) Экспорт 
 
 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
 ПроцессорВывода.УстановитьДокумент(Таб);
 ПроцессорВывода.НачатьВывод();
 ФиксацияВыполнена = Ложь;
 Если МассивИгнорируемыхПолей = Неопределено Тогда
 	МассивИгнорируемыхПолей = Новый Массив;
 КонецЕсли; 
 Пока Истина Цикл
 	ЭлементРезультатаКомпоновкиДанных = ПроцессорКомпоновкиДанных.Следующий();
 	Если ЭлементРезультатаКомпоновкиДанных = Неопределено Тогда
 	 Прервать;
 	КонецЕсли;
  
 	// Автофиксация
 	Если Не ФиксацияВыполнена Тогда
 	 Для Каждого ЗначениеПараметра Из ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров Цикл
 	 Если ТипЗнч(ЗначениеПараметра.Значение) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда
 	 ЗначенияПолейРасшифровки = ЭлементыРасшировки[ЗначениеПараметра.Значение].ПолучитьПоля();
 	 Для Каждого ЗначениеПоляРасшифровки Из ЗначенияПолейРасшифровки Цикл
 	 Если МассивИгнорируемыхПолей.Найти(ЗначениеПоляРасшифровки.Поле) = Неопределено Тогда
 	 Таб.ФиксацияСверху = Таб.ВысотаТаблицы;
 	 ФиксацияВыполнена = Истина;
 	 Прервать;
 	 КонецЕсли;
 	 КонецЦикла;
 	 Если ФиксацияВыполнена Тогда
 	 Прервать;
 	 КонецЕсли;
 	 КонецЕсли;
 	 КонецЦикла;
 	КонецЕсли;
  
 	ПроцессорВывода.ВывестиЭлемент(ЭлементРезультатаКомпоновкиДанных);
 	Если РазрешитьПрерывание Тогда
 	 ОбработкаПрерыванияПользователя();
 	КонецЕсли; 
 КонецЦикла;
 ПроцессорВывода.ЗакончитьВывод();
 
КонецПроцедуры // ЛксВывестиРезультатКомпоновкиСАвтофиксациейСтрок   

  Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
	СтандартнаяОбработка = Ложь;

	ДокументРезультат.Очистить();
	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
	Макет = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);
	ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
	ПроцессорКомпоновки.Инициализировать(Макет, , ДанныеРасшифровки);
	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
	ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
	//ПроцессорВывода.Вывести(ДокументРезультат);
	
	ПолеПоКоторомуНеобходимоПолучитьЗначение = "Ссылка";
	ПроцессорВывода.НачатьВывод();
	Пока истина Цикл
		ЭлементРезультата = ПроцессорКомпоновки.Следующий();
		
		Если ЭлементРезультата = Неопределено Тогда
			прервать;
		КонецЕсли;	
		ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);
		Если ЭлементРезультата.ЗначенияПараметров.Количество() > 0 Тогда
			ЗначениеВыводимыхДанных = Неопределено;
			Для каждого ЗначениеПараметра из ЭлементРезультата.ЗначенияПараметров Цикл
				Если ТипЗнч(ЗначениеПараметра.Значение) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда
					ПоляРасшифровки = ДанныеРасшифровки.Элементы[ЗначениеПараметра.Значение].ПолучитьПоля();
					Для Каждого ПолеРасшифровки из ПоляРасшифровки Цикл
						Если ПолеРасшифровки.Поле = ПолеПоКоторомуНеобходимоПолучитьЗначение Тогда
							ЗначениеВыводимыхДанных = ПолеРасшифровки.Значение;
							Прервать;
						КонецЕсли;	
					КонецЦикла;	
				КонецЕсли;	
			КонецЦикла;	
			Если ЗначениеЗаполнено(ЗначениеВыводимыхДанных) Тогда
				Рис = ДокументРезультат.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
				Рис.РазмерКартинки = РазмерКартинки.РеальныйРазмер;
				Индекс = ДокументРезультат.Рисунки.Индекс(Рис);
				Если ЗначениеВыводимыхДанных.ЭтоГруппа Тогда
					ДокументРезультат.Рисунки[Индекс].Картинка = БиблиотекаКартинок.ГруппаИЭлемент;
				Иначе
					ДокументРезультат.Рисунки[Индекс].Картинка = БиблиотекаКартинок.Сформировать;
				КонецЕсли;	
				ВысотаТабДок = ДокументРезультат.ВысотаТаблицы;
				ОбластьДляКартинки = ДокументРезультат.НайтиТекст("%Картинка%");
				Если ОбластьДляКартинки <> Неопределено Тогда
					ДокументРезультат.Рисунки[Индекс].Расположить(ОбластьДляКартинки);	
					ОбластьДляКартинки.Текст = "%КартинкаДобавлена%"
				КонецЕсли;
			КонецЕсли;	
		КонецЕсли;	
	КонецЦикла;
	ПроцессорВывода.ЗакончитьВывод();
	
КонецПроцедуры
   

 ВыгрузитьЖурналРегистрации("C:\log.xml"); 

Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей(); 
Для Каждого Пользователь из Пользователи Цикл 
	НовыйЭлемент = СписокПользователей.Добавить(); 
	НовыйЭлемент.Пометка = Истина; 
	НовыйЭлемент.Значение = Пользователь; 
	НовыйЭлемент.Представление = Пользователь.Имя; 
КонецЦикла; 

Массив = Новый Массив; 
Для Каждого Пользователь Из СписокПользователей Цикл 
	Если Пользователь.Пометка Тогда 
		Массив.Добавить(Пользователь); 
	КонецЕсли; 
КонецЦикла; 

СтруктураФильтра = Новый Структура; 
СтруктураФильтра.Вставить("Пользователь", Массив); 
ВыгрузитьЖурналРегистрации("C:\log.xml", СтруктураФильтра, "Дата, Пользователь, ПредставлениеСобытия");    

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

 Процедура РезультатОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
    Перем ВыполненноеДействие;
    СтандартнаяОбработка=Ложь;
    ОбработкаРасшифровки=Новый ОбработкаРасшифровкиКомпоновкиДанных(ДанныеРасшифровки,Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
    ДополнительныеДействия=Новый СписокЗначений;
    ДополнительныеДействия.Добавить("Действие1","Дополнительное действие 1"); // добавляем свое действие
    Настройки=ОбработкаРасшифровки.Выполнить(Расшифровка,ВыполненноеДействие,,ДополнительныеДействия);
    Если Настройки<>Неопределено Тогда
        КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
        ЭлементыФормы.Результат.Очистить();
        СкомпоноватьРезультат(ЭлементыФормы.Результат,ДанныеРасшифровки);
    Иначе
        Если ВыполненноеДействие="Действие1" Тогда
            ВыполнитьДействие1(Расшифровка); // процедура выполняемая при выборе пункта меню "Дополнительное действие 1"
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры   

 Процедура ВыполнитьДействие1(Расшифровка)
    Ссылка=ДанныеРасшифровки.Элементы[Расшифровка].ПолучитьПоля()[0].Значение;
    Ссылка.ПолучитьФорму().Открыть();
КонецПроцедуры   

 Процедура РезультатОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
    Перем ВыполненноеДействие;
    СтандартнаяОбработка=Ложь;
    ОбработкаРасшифровки=Новый ОбработкаРасшифровкиКомпоновкиДанных(ДанныеРасшифровки,Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
    ДополнительныеДействия=Новый СписокЗначений;
    // Проверяем для какого поля выполняется расшифровка
    Если ДанныеРасшифровки.Элементы[Расшифровка].ПолучитьПоля()[0].Поле="Поле1" Тогда
        ДополнительныеДействия.Добавить("Действие1","Дополнительное действие 1");
    ИначеЕсли ДанныеРасшифровки.Элементы[Расшифровка].ПолучитьПоля()[0].Поле="Поле2" Тогда
        ДополнительныеДействия.Добавить("Действие2","Дополнительное действие 2");
    КонецЕсли;
    Настройки=ОбработкаРасшифровки.Выполнить(Расшифровка,ВыполненноеДействие,,ДополнительныеДействия);
    Если Настройки<>Неопределено Тогда
        КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);
        ЭлементыФормы.Результат.Очистить();
        СкомпоноватьРезультат(ЭлементыФормы.Результат,ДанныеРасшифровки);
    Иначе
        Если ВыполненноеДействие="Действие1" Тогда
            ВыполнитьДействие1(Расшифровка);
        ИначеЕсли ВыполненноеДействие="Действие2" Тогда
            ВыполнитьДействие2(Расшифровка);
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры   

 // Чтобы добавить свою расшифровку в СКД нужно в Форме отчета. 
// ЭлементФормы ПолеТаблчногоДокумента в событие ОбработкаРасшифровки поставить:

Процедура РезультатОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
	
Если ДанныеРасшифровки.Элементы.Получить(Расшифровка).ПолучитьПоля()[0].Поле	= "ДокументОприходования" Тогда
	Док = ДанныеРасшифровки.Элементы.Получить(Расшифровка).ПолучитьПоля().Найти("ДокументОприходования").Значение;
	Если ТипЗнч(Док) = Тип("ДокументСсылка.ПоступлениеТоваровУслуг") Тогда	
		СтандартнаяОбработка = Ложь;
		Предупреждение(Док.Комментарий);
		Возврат;
	КонецЕсли;	
КонецЕсли;		

ТиповыеОтчеты.СтандартнаяОбработкаРасшифровкиТиповогоОтчета(ОтчетОбъект, ЭтаФорма, Расшифровка, СтандартнаяОбработка);
	
КонецПроцедуры    

 Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей();
Для Каждого Пользователь Из Пользователи Цикл
   Если НЕ Пользователь.ПарольУстановлен Тогда
      Пользователь.АутентификацияСтандартная = Истина;
      Пользователь.Пароль = "НужныйПароль";
      Пользователь.Записать();
   КонецЕсли;
КонецЦикла;   

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

КонецПроцедуры
 
&НаСервере
Функция ПолучитьПользователя()
        Перем ВыбПользователь;
        ВыбПользователь = ПользователиИнформационнойБазы.ТекущийПользователь();
        Возврат ВыбПользователь.Имя;
КонецФункции; 

// или так:
Сообщить(ИмяПользователя());
Сообщить(ПолноеИмяПользователя());
   

 ИмяПользователя = ИмяПользователя();    
    Если ПустаяСтрока(ИмяПользователя) Тогда
        // пользователь не авторизовался 
        ИмяПользователя = "НеАвторизован";   
   Иначе
        ИмяПользователя = ПолноеИмяПользователя();   
    КонецЕсли;   

 Сообщить(ИмяПользователя())
// Сообщит: ПупкинВася
 
Сообщить(ПолноеИмяПользователя())
// Сообщит: Пупкин Василий Петрович

 // Пример от  sergeante   Фиксирует шапку при любых отборах.
Процедура скдФиксироватьШапкуОтчета(ТабДок, Фиксировать, Строка = "Номенклатура", Поправка = 0) Экспорт
    Если Фиксировать Тогда
        Область = ТабДок.НайтиТекст(Строка,,,,Истина);
        ТабДок.ФиксацияСверху = ?(ЗначениеЗаполнено(Область), Область.Верх + Поправка, 0);    
    Иначе
        ТабДок.ФиксацияСверху = 0;
    КонецЕсли; 
КонецПроцедуры   

  // Пример от i-rek
   ПроцессорВывода.НачатьВывод(); 

    ТаблицаЗафиксирована = Ложь;
    Пока Истина Цикл
        ЭлементРезультата = ПроцессорКомпоновкиДанных.Следующий();
         Если ЭлементРезультата= Неопределено Тогда
            Прервать;     
         Иначе     
            ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);
            Если Не ТаблицаЗафиксирована И ЭлементРезультата.ЗначенияПараметров.Количество() >  0 Тогда
                ТаблицаЗафиксирована = Истина;
                Таб.ФиксацияСверху = Таб.ВысотаТаблицы;
              КонецЕсли;
         КонецЕсли;
    КонецЦикла;
    ПроцессорВывода.ЗакончитьВывод();   

 // Пример от Kashemir
Процедура глВывестиРезультатКомпоновкиСАвтофиксациейСтрок( Таб, 
                                                            ПроцессорКомпоновкиДанных, 
                                                            ЭлементыРасшировки,
                                                             Знач МассивИгнорируемыхПолей = Неопределено, 
                                                            РазрешитьПрерывание = Истина) Экспорт 
 
 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
 ПроцессорВывода.УстановитьДокумент(Таб);
 ПроцессорВывода.НачатьВывод();
 ФиксацияВыполнена = Ложь;
 Если МассивИгнорируемыхПолей = Неопределено Тогда
     МассивИгнорируемыхПолей = Новый Массив;
 КонецЕсли; 
 Пока Истина Цикл
     ЭлементРезультатаКомпоновкиДанных = ПроцессорКомпоновкиДанных.Следующий();
     Если ЭлементРезультатаКомпоновкиДанных = Неопределено Тогда
         Прервать;
     КонецЕсли;
     
     // Автофиксация 
     Если Не ФиксацияВыполнена Тогда
         Для Каждого ЗначениеПараметра Из ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров Цикл
             Если ТипЗнч(ЗначениеПараметра.Значение) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда
                 ЗначенияПолейРасшифровки = ЭлементыРасшировки[ЗначениеПараметра.Значение].ПолучитьПоля();
                 Для Каждого ЗначениеПоляРасшифровки Из ЗначенияПолейРасшифровки Цикл
                     Если МассивИгнорируемыхПолей.Найти(ЗначениеПоляРасшифровки.Поле) = Неопределено Тогда
                         Таб.ФиксацияСверху = Таб.ВысотаТаблицы;
                         ФиксацияВыполнена = Истина;
                         Прервать;
                     КонецЕсли;
                 КонецЦикла;
                 Если ФиксацияВыполнена Тогда
                     Прервать;
                 КонецЕсли;
             КонецЕсли;
         КонецЦикла;
     КонецЕсли;
     
     ПроцессорВывода.ВывестиЭлемент(ЭлементРезультатаКомпоновкиДанных);
     Если РазрешитьПрерывание Тогда
         #Если Клиент тогда 
         ОбработкаПрерыванияПользователя();
         #КонецЕсли 
     КонецЕсли; 
 КонецЦикла;
 ПроцессорВывода.ЗакончитьВывод();
 
КонецПроцедуры   

 // функция сохраняет рабочую конфигурацию в файл, в случае успеха возвращает Истина
// параметры:
//    Логин - имя пользователя с правами на админисирирование БД
//    Пароль - строка пароля
//    ИмяФайла - полное имя файла для сохранения конфигурации, не обязательно. 
//               по умолчанию использует каталог временных файлов и имя 1Cv8.cf
функция СохранитьТекущуюКонфигурацию (Логин, Пароль, ИмяФайла="") экспорт
    результат = Ложь;
    
    Если ИмяФайла = "" Тогда
        ИмяФайла = КаталогВременныхФайлов() + "1Cv8.cf";        
    КонецЕсли;
    
    СтрокаБазы = СтрокаСоединенияИнформационнойБазы();
    Если Лев(СтрокаБазы, 5) = "File=" Тогда
        // файловый вариант
        СтрокаБазы = Сред(СтрокаБазы, 6, СтрДлина(СтрокаБазы) - 6);
    Иначе
        // серверный вариант пока не готов...
                // может кто допишет?
        возврат Ложь;
    КонецЕсли;
    
    ВыбФайл = Новый Файл(ИмяФайла);
    Если ВыбФайл.Существует() Тогда
        Сигнатура = Строка(ВыбФайл.Размер()) + Строка(ВыбФайл.ПолучитьВремяИзменения()); 
    Иначе
        Сигнатура = "";
    КонецЕсли;
    
    СтрокаЗапуска = """" + КаталогПрограммы() + "1cv8.exe"" CONFIG /F " + СтрокаБазы 
                + ?(Логин = "", "", " /N " + Логин) 
                + ?(Пароль = "", "", " /P " + Пароль) + " /DumpDBCfg """ + ИмяФайла + """";
                
    //            
    // КомандаСистемы (СтрокаЗапуска); не работает!!!!! из-за кавычек в параметрах
    // приходиться  идти кругом...
    // зато можно избежать черного окошка
    //
    WshShell = Новый COMОбъект("WScript.Shell");
    WshShell.Run(СтрокаЗапуска, 0, Истина);
    
    ВыбФайл = Новый Файл(ИмяФайла);
    Если ВыбФайл.Существует() Тогда
        НоваяСигнатура = Строка(ВыбФайл.Размер()) + Строка(ВыбФайл.ПолучитьВремяИзменения());
        Если Сигнатура <> НоваяСигнатура Тогда
            Результат = Истина;
        КонецЕсли;            
    КонецЕсли;
    
    Возврат Результат;
КонецФункции   

 Функция  ЗаписатьКонфигурациюВФайл(ИмяФайла="")
    Результат = Ложь;
    ВыбФайл = Новый Файл(ИмяФайла);
    Если ВыбФайл.Существует() Тогда
        Если ВыбФайл.ЭтоКаталог() Тогда
            ИмяФайла="";
        КонецЕсли;
    КонецЕсли;
    
    Попытка
        Массив = ПользователиИнформационнойБазы.ПолучитьПользователей();
        Логин = "";
        Пароль = "";
        Если Массив.Количество() > 0 тогда
            Пользователь = ПользователиИнформационнойБазы.ТекущийПользователь();
            Логин = Пользователь.Имя;
            Если Пользователь.ПарольУстановлен Тогда
                // тут нужно получить пароль, лучше интерактивно
                 // но лично мне это совсем не нужно
                Предупреждение("У Вас установлен пароль, этот режим сейчас не доступен");
                Возврат Ложь;
            КонецЕсли 
        КонецЕсли;
        
        Результат = СохранитьТекущуюКонфигурацию(Логин, Пароль, ИмяФайла);
        Если не Результат Тогда
            Предупреждение("Конфигурация не сохранена");
        Иначе
            Сообщить("Конфигурация успешно сохранена в файл: " + ИмяФайла);
        КонецЕсли;
        
    Исключение
        Предупреждение("У Вас не достаточно прав для сохранения конфигурации");
        Возврат Ложь;
    КонецПопытки;
    
    Возврат Результат;
КонецФункции   

 Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей();

Для Каждого ЭлементМассива Из Выборка Цикл
	ИмяПользователя = ЭлементМассива.Имя;	
	ПолноеИмяПользователя = ЭлементМассива.ПолноеИмя;
	ЕстьПароль = ЭлементМассива.ПарольУстановлен;
	Роли = ЭлементМассива.Роли;
	
	Для Каждого Роль Из Роли Цикл
		ИмяРоли = Роль.Имя;
		
	КонецЦикла;	
КонецЦикла;	   

  Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей(); 
Для Каждого ЭлементМассива Из Выборка Цикл 
	ИмяПользователя = ЭлементМассива.Имя; 
	ПолноеИмяПользователя = ЭлементМассива.ПолноеИмя; 
	ЕстьПароль = ЭлементМассива.ПарольУстановлен; 
	Роли = ЭлементМассива.Роли; 
	
	Для Каждого Роль Из Роли Цикл 
		ИмяРоли = Роль.Имя; 
	КонецЦикла; 
КонецЦикла;
   

 //  Функция возвращает список зарегистрированных для выбранной
//  базы пользователей. Если пользователи не определены, список
//  будет пуст.
//
функция сзПолучитьПользователей(стрПутьКБазе)
    // Создаем список значений для возврата
    Ответ = создатьобъект("СписокЗначений");
    // Формируем полное имя файла, в котором 1С
    // хранит информацию о пользователях базы.
    стрИмяФайла = стрПутьКБазе + "\UsrDEF\Users.USR";
    // Проверим его наличие.
    если фс.СуществуетФайл(стрИмяФайла) > 0 тогда
        // Создаем объект FSO для работы с файлами.
        обФСО = создатьобъект("Scripting.FileSystemObject");
        // Открываем файл пользователей как текстовый.
        тхтФайл = обФСО.OpenTextFile(стрИмяФайла);
        // Инициализация первоначальных переменных
        // Загружаем в буфер(тестовую строку) информацию из файла.
        стрБуфер = "";
        чисПозиция = 0;
        // Перебеирать файл придеться посимвольно, так как 1С не совсеми
        // символами может работать коректно если они находяться в строке.
        пока тхтФайл.AtEndOfStream = 0 цикл
            // Получаем очередную позицию в файле.
            чисПозиция = чисПозиция + 1;
            // Получаем символ из данной позиции.
            стрСимв = тхтФайл.Read(1);
            // Если код символа больше 31
            если кодсимв(стрСимв) > 31 тогда
                // Тогда добавляем его к буферу.
                стрБуфер = стрБуфер + стрСимв;
            конецесли;
        конеццикла;
        // После формирования буфера начнем искать пользователей в нем.
        // Признаком для пользователя будет строка '{"UserItemType","Page.'
        стрПоиска = "{""UserItemType"",""Page.";
        // Получаем позицию первого пользователя.
        чисПозиция = найти(стрБуфер, стрПоиска);
        // Проверяем если в буфере нужная нам строка
        если чисПозиция > 0 тогда
            // Если есть, вырезаем из строки ненужную информацию.
            стрБуфер = сред(стрБуфер, чисПозиция);
            // Позиция после отрезания становиться в единицу
            чисПозиция = 1;
        конецесли;
        // В цикле получаем информацию о пользователях БД
        пока чисПозиция > 0 цикл
            // Удаляем из буфера 'мусор'
            стрБуфер = сред(стрБуфер, чисПозиция + 22);
            // Находим признак начала информации об имени пользователя.
            чисСмещение = найти(стрБуфер, """,""") + 3;
            // Перемещаем начало буфера на начало информации об имени пользователя
            стрБуфер = сред(стрБуфер, чисСмещение);
            // Получаем имя пользователя
            стрИмяПользователя = лев(стрБуфер, найти(стрБуфер, """,""") - 1);
            // Добовляем имя к нашему списку.
            Ответ.ДобавитьЗначение(стрИмяПользователя);
            // Получаем очередную позицию информации о пользователе
            чисПозиция = найти(стрБуфер, стрПоиска);
        конеццикла;
    конецесли;
    // Возращаем полученный список значений содержащий в себе список пользователей базы
    возврат Ответ;
конецфункции

 
// Функция определяет пол работника по его отчеству
Функция ПолучитьПол(ОтчествоРаботника) Экспорт
	
	Если Прав(ОтчествоРаботника, 2) = "ич" Тогда
		Возврат Перечисления.Пол.Мужской;
	
	ИначеЕсли Прав(ОтчествоРаботника, 2) = "на" Тогда
		Возврат Перечисления.Пол.Женский;
	
	КонецЕсли;
	
	Возврат Перечисления.Пол.ПустаяСсылка();
	
КонецФункции // ПолучитьПол()