МД=ВнешняяБаза.XMLTypeOf(ВнешняяБаза.Документы[ИмяДокумента].ПустаяСсылка());
Попытка
	тСсылка=ВнешняяБаза.XMLValue(ВнешняяБаза.FromXMLType(МД),ЭтотУникальныйИдентификатор);
Исключение
	Сообщить(“COM: “+ОписаниеОшибки());
	возврат;
КонецПопытки;
тОбъект=тСсылка.ПолучитьОбъект();
ЗаписьXML=ВнешняяБаза.NewObject(“ЗаписьXML”);
ЗаписьXML.УстановитьСтроку();
ВнешняяБаза.WriteXML(ЗаписьXML,тОбъект);
тСтрXML=ЗаписьXML.Закрыть();   

 МД=ВнешняяБаза.XMLTypeOf(ВнешняяБаза.Перечисления[ИмяПеречисления].ПустаяСсылка());
Попытка
	тСсылка=ВнешняяБаза.XMLValue(ВнешняяБаза.FromXMLType(МД),ИмяЗначенияПеречисления);
Исключение
	Сообщить(“COM: “+ОписаниеОшибки());
	возврат;
КонецПопытки;   

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

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

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

// а Действие("Пометка") это:
Процедура Пометка(Кнопка)
	Кнопка.Пометка=?(Кнопка.Пометка, Ложь, Истина);
        // Можно и так:
        // Кнопка.Пометка = Не Кнопка.Пометка;
КонецПроцедуры
   

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

 
// Предназначена для получения имени элемента перечисления по значению.
//
// Параметры:
//	Элемент перечисления.
//
// Возвращаемое значение:
//	Строка - имя элемента перечисления в метаданных.
//
Функция ПолучитьИмяЭлементаПеречисленияПоЗначению(ЗначениеПеречисления) Экспорт
	
	ИмяЭлемента = Строка(ЗначениеПеречисления);
	Для каждого ЭлементПеречисления Из Метаданные.Перечисления[ЗначениеПеречисления.Метаданные().Имя].ЗначенияПеречисления Цикл
		Если ЭлементПеречисления.Синоним = Строка(ЗначениеПеречисления) Тогда
			ИмяЭлемента = ЭлементПеречисления.Имя;
			Прервать;
		КонецЕсли; 
	КонецЦикла;
	
	Возврат ИмяЭлемента;
	
КонецФункции