Этот тип является менеджером записи регистра сведений

Является ли переданный тип менеджером записи регистра сведений

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

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