Здравствуйте! Подскажите пожалуйста, как можно, ниже поданую процедуру, сделать красивше оптимальнее лучше? Спасибо.

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

(0) А ничего, что может быть запросто так  в конфе ?

РегистрыСведений.Вася
РегистрыБухгалтерии.Вася
РегистрыНакопления.Вася

Если че, Имя регистра не уникально в пределах разных объектов метаданных.

И у тя функция вернёт первый попавшийся вариант, что не верно.

+ заместо перебора, лучше

Метаданные.РегистрыНакопления.Найти(ИмяРегистра);

(0)
Функция неверная - нужно не имя объекта метаданных туда передавать, а сам объект метаданных.

можно не только объект

ОбъектОписания = Метаданные.НайтиПоТипу(ТипЗнч(ВыборкаНоменклатуры));
Если ОбъектОписания <> Неопределено Тогда
   ИмяСправочника = ОбъектОписания.Имя; // Номенклатура
КонецЕсли;

(4) зачет, ага..
и зачем ?
Чтоб найти метаданные в метаданных ?
:))

(1) нельзя так сделать

(7) Кто запретил ?

(7) Это где написано ?

надо не с именем а с метаданными работать

(7) конфигуратор

(9) опытным путём ещё ранее выяснил

Вроде учел все замечания

&НаСервереБезКонтекста
Функция ОпеределитьВидРегистра (ОбъектМетаданныхРегистр)
   СтруктураВидовРегистров = Новый Структура;
   
   Если   Метаданные.РегистрыНакопления.Найти(ОбъектМетаданныхРегистр.Имя)<> Неопределено Тогда
       СтруктураВидовРегистров.Вставить("ВидРегистра","РегистрыНакопления");
       СтруктураВидовРегистров.Вставить("НазваниеРегистра", ОбъектМетаданныхРегистр.Имя);
   КонецЕсли;
   
   Если   Метаданные.РегистрыСведений.Найти(ОбъектМетаданныхРегистр.Имя)<> Неопределено Тогда
       СтруктураВидовРегистров.Вставить("ВидРегистра","РегистрыСведений");
       СтруктураВидовРегистров.Вставить("НазваниеРегистра", ОбъектМетаданныхРегистр.Имя);
   КонецЕсли;
   Если   Метаданные.РегистрыБухгалтерии.Найти(ОбъектМетаданныхРегистр.Имя)<> Неопределено Тогда
       СтруктураВидовРегистров.Вставить("ВидРегистра","РегистрыБухгалтерии");
       СтруктураВидовРегистров.Вставить("НазваниеРегистра", ОбъектМетаданныхРегистр.Имя);
   КонецЕсли;
   Если   Метаданные.РегистрыРасчета.Найти(ОбъектМетаданныхРегистр.Имя)<> Неопределено Тогда
       СтруктураВидовРегистров.Вставить("ВидРегистра","РегистрыРасчета");
       СтруктураВидовРегистров.Вставить("НазваниеРегистра", ОбъектМетаданныхРегистр.Имя);
   КонецЕсли;
   
   Возврат СтруктураВидовРегистров;
КонецФункции

(12) наверное лучше так :

&НаСервереБезКонтекста
Функция ОпеределитьВидРегистра (ОбъектМетаданныхРегистр)
   СтруктураВидовРегистров = Новый Структура;
   
   Если Метаданные.РегистрыНакопления.Найти(ОбъектМетаданныхРегистр.Имя)<> Неопределено Тогда
       СтруктураВидовРегистров.Вставить("ВидРегистра","РегистрыНакопления");
       СтруктураВидовРегистров.Вставить("НазваниеРегистра", ОбъектМетаданныхРегистр.Имя);
       
   ИначеЕсли Метаданные.РегистрыСведений.Найти(ОбъектМетаданныхРегистр.Имя)<> Неопределено Тогда
       СтруктураВидовРегистров.Вставить("ВидРегистра","РегистрыСведений");
       СтруктураВидовРегистров.Вставить("НазваниеРегистра", ОбъектМетаданныхРегистр.Имя);
       
   ИначеЕсли Метаданные.РегистрыБухгалтерии.Найти(ОбъектМетаданныхРегистр.Имя)<> Неопределено Тогда
       СтруктураВидовРегистров.Вставить("ВидРегистра","РегистрыБухгалтерии");
       СтруктураВидовРегистров.Вставить("НазваниеРегистра", ОбъектМетаданныхРегистр.Имя);
       
   ИначеЕсли Метаданные.РегистрыРасчета.Найти(ОбъектМетаданныхРегистр.Имя)<> Неопределено Тогда
       СтруктураВидовРегистров.Вставить("ВидРегистра","РегистрыРасчета");
       СтруктураВидовРегистров.Вставить("НазваниеРегистра", ОбъектМетаданныхРегистр.Имя);
   КонецЕсли;
   
   Возврат СтруктураВидовРегистров;
КонецФункции