1С 8.2 УП : Открыть запись регистра сведений по ключу.

 

	// Создание структуры значений

	СтруктураФормы = Новый Структура;

	СтруктураФормы.Вставить("Пользователь",	Пользователь);

	СтруктураФормы.Вставить("Настройка",	Элемент.ТекущаяСтрока);



	// Почему-то нужно создавать запись через массив (по другому не взлетало)

	МассивКлюча = Новый Массив;

	МассивКлюча.Добавить(СтруктураФормы);

	

	// Создание ключа записи регистра сведений

	КлючЗаписи = Новый ("РегистрСведенийКлючЗаписи.НастройкиПользователей", МассивКлюча);

	

	// Структура ключа записи для поиска при открытии

	СтруктураКлюча = Новый Структура;

	СтруктураКлюча.Вставить("Ключ", КлючЗаписи);

	

	// Если запись не будет найдена, вызовем заполнение измерений.

	СтруктураЗаполнения = Новый Структура;

	СтруктураЗаполнения.Вставить("ЗначенияЗаполнения", СтруктураФормы);

	

	Попытка

		// Попытка открытия формы записи

		ОткрытьФорму("РегистрСведений.НастройкиПользователей.Форма.ФормаЗаписи", СтруктураКлюча, ЭтаФорма);

	Исключение

		// В исключение ушло если запись не найдена.

		ОписаниеОшибки = ОписаниеОшибки();

		Если Найти(ОписаниеОшибки, "Объект не найден") Тогда

			// Запись не найдена. Откроем форму и заполнением по структуре.

			ОткрытьФорму("РегистрСведений.НастройкиПользователей.Форма.ФормаЗаписи", СтруктураЗаполнения, ЭтаФорма);

		КонецЕсли;

	КонецПопытки;