Вход по кодовому слову

///Открытия из другой формы, например из формы списка:
&НаКлиенте
Процедура КомандаИзДругойФормыСписка()
	
	ТекДанные = Элементы.Список.ТекущиеДанные;
	
	ПараметрыОткрытия = новый Структура;
	ПараметрыОткрытия.Вставить("Ключ",ТекДанные.Ссылка);
	
	ОткрытьФорму("Документ.ТвойДокумент.Форма.ФормаВводПароля",ПараметрыОткрытия);
	 
КонецПроцедуры





///код формы Ввод пароля
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	СсылкаДокумента = Параметры.ключ.Ссылка;  //Реквизит формы
	
КонецПроцедуры

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

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

&НаКлиенте
Процедура ВводимыПарольПриИзменении(Команда)	
	
	Пароль = ПолучитьПарольДокумента(СсылкаДокумента);	
	
	Если ВводимыПароль = Пароль ИЛИ ВводимыПароль = "ПарольАдминистратора" Тогда   ///"ПарольАдминистратора" - дополнительный пароль для админа
		ПараметрыОткрытия = новый Структура;
		ПараметрыОткрытия.Вставить("Ключ",ТекДанные.Ссылка);
		
		ОткрытьФорму("Документ.ТвойДокумент.Форма.ФормаВводПароля",ПараметрыОткрытия);
	Иначе
		///Поругаться 
	КонецЕсли;
	
КонецПроцедуры