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

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

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

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



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

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

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

	

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

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

	

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

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

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

	

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

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

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

	

	Попытка

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

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

	Исключение

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

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

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

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

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

		КонецЕсли;

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

 //******************************************************************************

// глСформироватьШтрихкодДокумента(Конт)

//

// Параметры:

//  Конт - контекст документа для которого необходимо сформировать штрихкод

//    EAN13- реквизит документа содержащий штрихкод

// Возвращаемое значение:

//  Нет                

//

// Описание:

//  На основании номера документа и вида документа формирует штрихкод в формате

//  EAN

//

Процедура глСформироватьШтрихкодДокумента(Конт, EAN13) Экспорт

   

    Если ПустаяСтрока(EAN13) = 1 Тогда

   

        ПрефиксыДокументов = СоздатьОбъект("СписокЗначений");



        ПрефиксыДокументов.ДобавитьЗначение("001", "Реализация");



        ПрефиксыДокументов.ДобавитьЗначение("002", "СчетФактураВыданный");               

        // и т.д



        КодДокумента        = СокрЛП(Прав(Конт.НомерДок,7));

        КодВидаДокумента    = ПрефиксыДокументов.Получить(Конт.Вид());

   

       

        Префикс = Прав(ДатаГод(Конт.ДатаДок), 2);

   

        ИспКолво = 10;

       

        Штрихкод = СимволыВЦифры(Прав(СокрЛП(КодДокумента+КодВидаДокумента),

                   ИспКолво));

        Штрихкод = Префикс + глДополнитьСтрокуЛ(Штрихкод, "0", ИспКолво);

                 

        EAN13 = Штрихкод + глКонтрольныйСимволEAN(Штрихкод, 13);

    КонецЕсли;

                   

КонецПроцедуры // глСформироватьШтрихкодДокумента()

 Процедура ПриЗаписи()

   //..............................

   глСформироватьШтрихкодДокумента(Контекст, EAN13);

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