Работа с ComОбъектом 1С 8.2; 8.3

При написании обработок обмена между конфигурациями 1С часто возникает необходимость определения типа принимаемых данных справочник, документ, ПланСчетов или т.д. Эта информация разбросана по интернету но я решил систематизировать и показать Вам.

Для подключения и работы с ком соединением рекомендуется объявить переменную к которой будет подствлено значение соединение и проверять на данное подключение в каждой процедуре, ниже приведен текст процедуры/функции и способы подключения в конфигурациях

СтруктураПодключения — эта переменная в которой имеется Строка соединения с СОМ объектом

Перем Коннект;

Процедура  ПолучитьИмяКонфигурацииИсточника()
Если Коннект = Неопределено Тогда Если Не ПодключитьИБ() Тогда Сообщить("Не удалось установить подключение к ИБ!!!"); Возврат ; КонецЕсли; КонецЕсли;
Если Коннект.Метаданные.DetailedInformation = "Бухгалтерия предприятия, редакция 2.0"
ИЛИ Коннект.Метаданные.DetailedInformation = "1С:Учет в управляющих компаниях ЖКХ, ТСЖ и ЖСК"
ИЛИ Коннект.Метаданные.DetailedInformation = "Бухгалтерия строительной организации, редакция 2.0" ТОгда
ИмяКонфигурацииИсточника = "БП20";
ИначеЕсли Коннект.Метаданные.DetailedInformation = "Комплексная автоматизация, редакция 1.1" ТОгда

ИмяКонфигурацииИсточника = "КА11";
Иначе
ИмяКонфигурацииИсточника = "БП30";
КонецЕсли;
КонецПроцедуры

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

//Возврат Открыта;
КонецФункции

// Возвращает шаблон структуры параметров для установки внешнего соединения.
// Параметрам необходимо задать требуемые значения и передать.
// В метод ОбщегоНазначения.УстановитьВнешнееСоединение().
//
Функция СтруктураПараметровДляУстановкиВнешнегоСоединения() Экспорт

СтруктураПараметров = Новый Структура;
СтруктураПараметров.Вставить("ВариантРаботыИнформационнойБазы", 0);
СтруктураПараметров.Вставить("КаталогИнформационнойБазы", "");
СтруктураПараметров.Вставить("ИмяСервера1СПредприятия", "");
СтруктураПараметров.Вставить("ИмяИнформационнойБазыНаСервере1СПредприятия", "");
СтруктураПараметров.Вставить("АутентификацияОперационнойСистемы", Ложь);
СтруктураПараметров.Вставить("ИмяПользователя", "");
СтруктураПараметров.Вставить("ПарольПользователя", "");

Возврат СтруктураПараметров;
КонецФункции

Функция ЗаполнитьПараметрыПодключенияВнешнегоСоединения(НастройкиТранспорта)

ПараметрыПодключения = СтруктураПараметровДляУстановкиВнешнегоСоединения();

ПараметрыПодключения.ВариантРаботыИнформационнойБазы             = НастройкиТранспорта.COMВариантРаботыИнформационнойБазы;
ПараметрыПодключения.КаталогИнформационнойБазы                   = НастройкиТранспорта.COMКаталогИнформационнойБазы;
ПараметрыПодключения.ИмяСервера1СПредприятия                     = НастройкиТранспорта.COMИмяСервера1СПредприятия;
ПараметрыПодключения.ИмяИнформационнойБазыНаСервере1СПредприятия = НастройкиТранспорта.COMИмяИнформационнойБазыНаСервере1СПредприятия;
ПараметрыПодключения.АутентификацияОперационнойСистемы           = НастройкиТранспорта.COMАутентификацияОперационнойСистемы;
ПараметрыПодключения.ИмяПользователя                             = НастройкиТранспорта.COMИмяПользователя;
ПараметрыПодключения.ПарольПользователя = НастройкиТранспорта.COMПарольПользователя;

Возврат ПараметрыПодключения;
КонецФункции

Функция ИмяCOMСоединителя()
Если ПодключенияВариант = Неопределено ТОгда
Какая8 = СтрЗаменить(COMПодключенияВариант, ".", "");
Иначе
Какая8 = СтрЗаменить(ПодключенияВариант, ".", "");
КонецЕсли;
Возврат "v" + Какая8 + ".COMConnector";
КонецФункции

// Устанавливает внешнее соединение с информационной базой по переданным параметрам подключения и возвращает указатель
// на это соединение.
//
// Параметры:
//  Параметры - Структура - параметры для установки внешнего соединения с информационной базой.
//                          Свойства см. в функции
//                          ОбщегоНазначенияКлиентСервер.СтруктураПараметровДляУстановкиВнешнегоСоединения):
//
//   * ВариантРаботыИнформационнойБазы             - Число  -  Вариант работы информационной базы: 0 - файловый; 1 -
//                                                            клиент-серверный;
//   * КаталогИнформационнойБазы                   - Строка - Каталог информационной базы для файлового режима работы;
//   * ИмяСервера1СПредприятия                     - Строка - Имя сервера1С:Предприятия;
//   * ИмяИнформационнойБазыНаСервере1СПредприятия - Строка - Имя информационной базы на сервере1С:Предприятия;
//   * АутентификацияОперационнойСистемы           - Булево - Признак аутентификации операционной системы при создании
//                                                            внешнего подключения к информационной базе;
//   * ИмяПользователя                             - Строка - Имя пользователя информационной базы;
//   * ПарольПользователя                          - Строка - Пароль пользователя информационной базы.
//
// Возвращаемое значение:
//  Структура -
//    * Соединение                  - COMОбъект, Неопределено - указатель на COM-объект соединения или Неопределено в
//                                    случае ошибки;
//    * КраткоеОписаниеОшибки       - Строка - краткое описание ошибки;
//    * ПодробноеОписаниеОшибки     - Строка - подробное описание ошибки;
//    * ОшибкаПодключенияКомпоненты - Булево - флаг ошибки подключения COM.
//
Функция УстановитьВнешнееСоединениеСБазойCOM(Параметры) Экспорт

Результат = Новый Структура;
Результат.Вставить("Соединение");
Результат.Вставить("КраткоеОписаниеОшибки", "");
Результат.Вставить("ПодробноеОписаниеОшибки", "");
Результат.Вставить("ОшибкаПодключенияКомпоненты", Ложь);

#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
ЭтоLinux = ОбщегоНазначения.ЭтоLinuxСервер();
КраткоеОписаниеОшибки = НСтр("ru = 'Прямое подключение к информационной базе недоступно на сервере под управлением ОС Linux.'");
#Иначе
ЭтоLinux = ЭтоLinuxКлиент();
КраткоеОписаниеОшибки = НСтр("ru = 'Прямое подключение к информационной базе недоступно на клиенте под управлением ОС Linux.'");
#КонецЕсли

Если ЭтоLinux Тогда
Результат.Соединение = Неопределено;
Результат.КраткоеОписаниеОшибки = КраткоеОписаниеОшибки;
Результат.ПодробноеОписаниеОшибки = КраткоеОписаниеОшибки;
Возврат Результат;
КонецЕсли;

Попытка
COMConnector = Новый COMObject(ИмяCOMСоединителя()); // "V83.COMConnector"
Исключение
Информация = ИнформацияОбОшибке();
СтрокаСообщенияОбОшибке = НСтр("ru = 'Не удалось подключится к другой программе: %1'");

Результат.ОшибкаПодключенияКомпоненты = Истина;
Результат.ПодробноеОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, ПодробноеПредставлениеОшибки(Информация));
Результат.КраткоеОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, КраткоеПредставлениеОшибки(Информация));

Возврат Результат;
КонецПопытки;

ФайловыйВариантРаботы = Параметры.ВариантРаботыИнформационнойБазы = 0;

// Проверка корректности указания параметров.
ОшибкаПроверкиЗаполнения = Ложь;
Если ФайловыйВариантРаботы Тогда

Если ПустаяСтрока(Параметры.КаталогИнформационнойБазы) Тогда
СтрокаСообщенияОбОшибке = НСтр("ru = 'Не задано месторасположение каталога информационной базы.'");
ОшибкаПроверкиЗаполнения = Истина;
КонецЕсли;

Иначе

Если ПустаяСтрока(Параметры.ИмяСервера1СПредприятия) Или ПустаяСтрока(Параметры.ИмяИнформационнойБазыНаСервере1СПредприятия) Тогда
СтрокаСообщенияОбОшибке = НСтр("ru = 'Не заданы обязательные параметры подключения: ""Имя сервера""; ""Имя информационной базы на сервере"".'");
ОшибкаПроверкиЗаполнения = Истина;
КонецЕсли;

КонецЕсли;

Если ОшибкаПроверкиЗаполнения Тогда

Результат.ПодробноеОписаниеОшибки = СтрокаСообщенияОбОшибке;
Результат.КраткоеОписаниеОшибки   = СтрокаСообщенияОбОшибке;
Возврат Результат;

КонецЕсли;

// Формирование строки соединения.
ШаблонСтрокиСоединения = "[СтрокаБазы][СтрокаАутентификации]";

Если ФайловыйВариантРаботы Тогда
СтрокаБазы = "File = ""&КаталогИнформационнойБазы""";
СтрокаБазы = СтрЗаменить(СтрокаБазы, "&КаталогИнформационнойБазы", Параметры.КаталогИнформационнойБазы);
Иначе
СтрокаБазы = "Srvr = ""&ИмяСервера1СПредприятия""; Ref = ""&ИмяИнформационнойБазыНаСервере1СПредприятия""";
СтрокаБазы = СтрЗаменить(СтрокаБазы, "&ИмяСервера1СПредприятия",                     Параметры.ИмяСервера1СПредприятия);
СтрокаБазы = СтрЗаменить(СтрокаБазы, "&ИмяИнформационнойБазыНаСервере1СПредприятия", Параметры.ИмяИнформационнойБазыНаСервере1СПредприятия);
КонецЕсли;

Если Параметры.АутентификацияОперационнойСистемы Тогда
СтрокаАутентификации = "";
Иначе

Если СтрНайти(Параметры.ИмяПользователя, """") Тогда
Параметры.ИмяПользователя = СтрЗаменить(Параметры.ИмяПользователя, """", """""");
КонецЕсли;

Если СтрНайти(Параметры.ПарольПользователя, """") Тогда
Параметры.ПарольПользователя = СтрЗаменить(Параметры.ПарольПользователя, """", """""");
КонецЕсли;

СтрокаАутентификации = "; Usr = ""&ИмяПользователя""; Pwd = ""&ПарольПользователя""";
СтрокаАутентификации = СтрЗаменить(СтрокаАутентификации, "&ИмяПользователя",    Параметры.ИмяПользователя);
СтрокаАутентификации = СтрЗаменить(СтрокаАутентификации, "&ПарольПользователя", Параметры.ПарольПользователя);
КонецЕсли;

СтрокаСоединения = СтрЗаменить(ШаблонСтрокиСоединения, "[СтрокаБазы]", СтрокаБазы);
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, "[СтрокаАутентификации]", СтрокаАутентификации);

Попытка
Результат.Соединение = COMConnector.Connect(СтрокаСоединения);
Исключение
Информация = ИнформацияОбОшибке();
СтрокаСообщенияОбОшибке = НСтр("ru = 'Не удалось подключиться к другой программе: %1'");

Результат.ОшибкаПодключенияКомпоненты = Истина;
Результат.ПодробноеОписаниеОшибки     = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, ПодробноеПредставлениеОшибки(Информация));
Результат.КраткоеОписаниеОшибки       = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, КраткоеПредставлениеОшибки(Информация));
КонецПопытки;

Возврат Результат;

КонецФункции


// Основная функция для использования внешнего соединения при обмене.
//
// Параметры:
//  СтруктураНастроек - структура настроек транспорта COM обмена.
//
Функция УстановитьВнешнееСоединениеСБазой(СтруктураНастроек) Экспорт

Результат = УстановитьВнешнееСоединениеСБазойCOM(ЗаполнитьПараметрыПодключенияВнешнегоСоединения(СтруктураНастроек));

ВнешнееСоединение = Результат.Соединение;
Если ВнешнееСоединение = Неопределено Тогда
// Ошибка установки соединения.
Возврат Результат;
КонецЕсли;

// Дополнительно проверяем возможность работы с внешней базой.

Попытка
НетПолныхПрав = Не ВнешнееСоединение.ОбменДаннымиВнешнееСоединение.РольДоступнаПолныеПрава();
Исключение
НетПолныхПрав = Истина;
КонецПопытки;

Если НетПолныхПрав Тогда
Результат.ПодробноеОписаниеОшибки = НСтр("ru = 'Пользователю, указанному для подключения к другой программе, должны быть назначены роли ""Администратор системы"" и ""Полные права""'");
Результат.КраткоеОписаниеОшибки   = Результат.ПодробноеОписаниеОшибки;
Результат.Соединение = Неопределено;
Иначе
Попытка
СостояниеНеДопустимо = ВнешнееСоединение.ОбновлениеИнформационнойБазы.НеобходимоОбновлениеИнформационнойБазы();
Исключение
СостояниеНеДопустимо = Ложь
КонецПопытки;

Если СостояниеНеДопустимо Тогда
Результат.ПодробноеОписаниеОшибки = НСтр("ru = 'Другая программа находится в состоянии обновления.'");
Результат.КраткоеОписаниеОшибки   = Результат.ПодробноеОписаниеОшибки;
Результат.Соединение = Неопределено;
КонецЕсли;

КонецЕсли;

Возврат Результат;
КонецФункции

Часто возникает необходимость проверка наличия реквизита или свойства объекта, при этом понятия не имееш есть данный реквизит или нет

но использование Попытки .. Исключение .. КонецПопытки не желательно то в даном варианте можно использовать подстановку реквизита в структуру

и тем самым использовать следующую процедуру:

// Проверяет наличие реквизита или свойства у произвольного объекта без обращения к метаданным.
//
// Параметры:
//  Объект       - Произвольный - объект, у которого нужно проверить наличие реквизита или свойства;
//  ИмяРеквизита - Строка       - имя реквизита или свойства.
//
// Возвращаемое значение:
//  Булево.
//
Функция ЕстьРеквизитИлиСвойствоОбъекта(Объект, ИмяРеквизита) Экспорт

КлючУникальности   = Новый УникальныйИдентификатор;
СтруктураРеквизита = Новый Структура(ИмяРеквизита, КлючУникальности);
ЗаполнитьЗначенияСвойств(СтруктураРеквизита, Объект);

Возврат СтруктураРеквизита[ИмяРеквизита] <> КлючУникальности;

КонецФункции

Теперь вопрос который многих интересует: "Мы получили СОМ объект тоесть ТИП("СомОбъект"), какое значение и что с ним делать?

для этого приходят метаданные и мы можем получить любую информацию используя метаданные не только текущей конфигурации, но и конфигурации источника к примеру РеквCOM это реквизит который мы должны изучить:

_СтрокаXML = Коннект.XMLString(РеквCOM); // УникальныйИдентификатор объекта

УИД объекта имеет определенный формат даных поэтому для выяснения что мы имеем то необходимо доп проверка

т.к. _СтрокаXML  имеет формат "00000000-0000-0000-0000-000000000000" то актуальна проверка

Если СтрНайти(_СтрокаXML, "-", , , 4) = 24 Тогда //Всего скорее это  ГУИД

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

ИначеЕсли СтрДлина(_СтрокаXML) = 48 Тогда //Хранилище значения

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

Иначе //Перечисление

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

КонецЕсли;

Рассмотрим что можно получить от объекта если по нему есть УИД

_ПолныйТипОбъекта  = РеквCOM.GetObject().Metadata().FullName();
СтрокиТипа   = СтрЗаменить(_ПолныйТипОбъекта, ".", Символы.ПС);
_ТипОбъекта   = СтрПолучитьСтроку(СтрокиТипа, 1);
_ИдентификаторCOM  = СтрПолучитьСтроку(СтрокиТипа, 2);

//Для получения менеджера объекта нужно воспользоваться доп процедурой

_МенеджерОбъекта = ПолучитьМенеджерОбъекта(_ИдентификаторCOM);


Функция ПолучитьМенеджерОбъекта(СсылкаОб) Экспорт
Если ТипЗнч(СсылкаОб) = Тип("Строка") Тогда
СсылкаПоиска = _ПолучитьПустуюСсылкуПоИдентификаторуОбъекта(СсылкаОб);
Иначе
СсылкаПоиска = СсылкаОб;
КонецЕсли;
//Попытка
Если СсылкаПоиска <> Неопределено Тогда
ИмяОбъекта = СсылкаПоиска.Метаданные().Имя;
Иначе
Возврат Неопределено;
КонецЕсли;
//Исключение
// Возврат Неопределено;
//КонецПопытки;
ТипСсылки = ТипЗнч(СсылкаПоиска);
Если Справочники.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда
Возврат Справочники[ИмяОбъекта];
ИначеЕсли Документы.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда
Возврат Документы[ИмяОбъекта];
ИначеЕсли БизнесПроцессы.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда
Возврат БизнесПроцессы[ИмяОбъекта];
ИначеЕсли ПланыВидовХарактеристик.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда
Возврат ПланыВидовХарактеристик[ИмяОбъекта];
ИначеЕсли ПланыСчетов.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда
Возврат ПланыСчетов[ИмяОбъекта];
ИначеЕсли ПланыВидовРасчета.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда
Возврат ПланыВидовРасчета[ИмяОбъекта];
ИначеЕсли Задачи.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда
Возврат Задачи[ИмяОбъекта];
ИначеЕсли ПланыОбмена.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда
Возврат ПланыОбмена[ИмяОбъекта];
ИначеЕсли Перечисления.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда
Возврат Перечисления[ИмяОбъекта];
Иначе
Возврат Неопределено;
КонецЕсли;
КонецФункции

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

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

развернуться как Вам больше нравится

В случае если наш объект является ХранилищеЗначений то для переноса данного объекта либо получение значения можно воспользоваться функцией

//*****************************
//рабочая процедура и в ней код обработки

ИначеЕсли _ТипОбъекта = "ХранилищеЗначения" Тогда
Возврат ПереносХранилища(РеквCOM);


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


Функция ПереносХранилища(РеквCOM)
Попытка
ДвоичныеДанные = РеквCOM.Get();
Исключение
Возврат Неопределено;
Конецпопытки;
Если "" + ДвоичныеДанные = "COMОбъект" Тогда
Попытка
ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
ДвоичныеДанные.Write(ИмяВременногоФайла);
ДвоичныеДанныеВозврат  = Новый ДвоичныеДанные(ИмяВременногоФайла);
УдалитьФайлы(ИмяВременногоФайла);
Возврат Новый ХранилищеЗначения(ДвоичныеДанныеВозврат);
Исключение
Возврат Неопределено;
КонецПопытки;
Иначе
Возврат Неопределено;
КонецЕсли;
КонецФункции

Если объект является перечислением то вместо УИД кода будет выведено наименование перечисления

Также для получения списка реквизитов объекта СОМ используется обращение

 РеквCOM.Metadata().Attributes // Список реквизитов

РеквCOM.Metadata().Attributes.Find("Реквизит") // Поиск реквизита в объекте
// если реквизит не найден возвращает значение НЕОПРЕДЕЛЕНО

РеквCOM.Metadata().StandardAttributes // Список стандартных реквизитов

РеквCOM.Metadata().TabularSections // Список табличных частей

Для работы с удаленой базой через COM соединение также часто возникает необходимость получения функциональных опций объекта

для этих целей можно использовать функцию которая выведет список соответствий функциональных опций

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


//Рабочая процедура
Функция ОбъектМетаданныхДоступенПоФункциональнымОпциямCOM(ОбъектМетаданныхCOM) Экспорт
Возврат ДоступностьОбъектовПоОпциямCOM()[ОбъектМетаданныхCOM] <> Ложь;
КонецФункции

Так же при работе с переносом документов возникает необходимость определения списка регистров движения данного документа

 МетаданныеДокументаCOM = ДокCom.MetaData();
Регистры = ЗаполнитьТаблицуРегистровCOM(МетаданныеДокументаCOM);
УстановитьПривилегированныйРежим(Истина);
РегистрыСДвижениями = ПолучитьМассивИспользуемыхРегистровCOM(ДокCom, МетаданныеДокументаCOM.Движения);


Функция ЗаполнитьТаблицуРегистровCOM(МетаданныеДокументаCOM)
Если Коннект = Неопределено Тогда Если Не ПодключитьИБ() Тогда Сообщить("Не удалось установить подключение к ИБ!!!"); Возврат Новый ТаблицаЗначений КонецЕсли; КонецЕсли;
МетаданныеРегистровНакопленияCOM = Коннект.Metadata.РегистрыНакопления;
МетаданныеРегистровСведенийCOM   = Коннект.Metadata.РегистрыСведений;
ВидРегистраОстаткиCOM            = Коннект.Metadata.СвойстваОбъектов.ВидРегистраНакопления.Остатки;

Регистры = Новый ТаблицаЗначений;
Регистры.Колонки.Добавить("ТипРегистра", ОбщегоНазначения.ОписаниеТипаСтрока(20));
Регистры.Колонки.Добавить("Имя", ОбщегоНазначения.ОписаниеТипаСтрока(100));
Регистры.Колонки.Добавить("Синоним", ОбщегоНазначения.ОписаниеТипаСтрока(100));
Регистры.Колонки.Добавить("ЕстьДвижения", Новый ОписаниеТипов("Булево"));
Регистры.Колонки.Добавить("РегистрОстатков", Новый ОписаниеТипов("Булево"));
Регистры.Колонки.Добавить("Записывать", Новый ОписаниеТипов("Булево"));
Для каждого МетаданныеРегистраCOM Из МетаданныеДокументаCOM.Движения Цикл
Если Лев(МетаданныеРегистраCOM.Имя, 7) = "Удалить" Тогда Продолжить КонецЕсли;
//Если Не ОбъектМетаданныхДоступенПоФункциональнымОпциямCOM(МетаданныеРегистраCOM) Тогда
// Продолжить;
//КонецЕсли;
СтрокаРегистра     = Регистры.Добавить();
СтрокаРегистра.Имя = МетаданныеРегистраCOM.Имя;
ПолноеИмя    = МетаданныеРегистраCOM.ПолноеИмя();
ПозицияТочки = Найти(ПолноеИмя, ".");
ТипРегистра  = Лев(ПолноеИмя, ПозицияТочки - 1);
СтрокаРегистра.ТипРегистра = ТипРегистра;
СтрокаРегистра.Синоним     = МетаданныеРегистраCOM.Синоним;
Если ТипРегистра = "РегистрНакопления" Тогда
СтрокаРегистра.РегистрОстатков = МетаданныеРегистраCOM.ВидРегистра = ВидРегистраОстаткиCOM;
КонецЕсли;
КонецЦикла;
// Сначала показывается регистр бухгалтерии, затем регистры накопления, затем - сведений
Регистры.Сортировать("ТипРегистра, Синоним");
Возврат Регистры;
КонецФункции

Функция ПолучитьМассивИспользуемыхРегистровCOM(Регистратор, Движения, МассивИсключаемыхРегистров = Неопределено) Экспорт
Если Коннект = Неопределено Тогда Если Не ПодключитьИБ() Тогда Сообщить("Не удалось установить подключение к ИБ!!!"); Возврат Новый ТаблицаЗначений КонецЕсли; КонецЕсли;
Запрос = Коннект.NewObject("Query");
Запрос.УстановитьПараметр("Регистратор", Регистратор);

Результат = Новый Массив;
МаксимумТаблицВЗапросе = 256;
СчетчикТаблиц   = 0;
СчетчикДвижений = 0;
ВсегоДвижений = Движения.Количество();
ТекстЗапроса  = "";
Для Каждого Движение Из Движения Цикл
СчетчикДвижений = СчетчикДвижений + 1;
ПропуститьРегистр = МассивИсключаемыхРегистров <> Неопределено
И МассивИсключаемыхРегистров.Найти(Движение.Имя) <> Неопределено;
Если Не ПропуститьРегистр Тогда
Если СчетчикТаблиц > 0 Тогда
ТекстЗапроса = ТекстЗапроса + "
|ОБЪЕДИНИТЬ ВСЕ
|";
КонецЕсли;
СчетчикТаблиц = СчетчикТаблиц + 1;
ТекстЗапроса = ТекстЗапроса +
"
|ВЫБРАТЬ ПЕРВЫЕ 1
|""" + Движение.Имя + """ КАК ИмяРегистра
|
|ИЗ " + Движение.ПолноеИмя() + "
|
|ГДЕ Регистратор = &Регистратор
|";
КонецЕсли;
Если СчетчикТаблиц = МаксимумТаблицВЗапросе Или СчетчикДвижений = ВсегоДвижений Тогда
Запрос.Текст  = ТекстЗапроса;
ТекстЗапроса  = "";
СчетчикТаблиц = 0;
Если Результат.Количество() = 0 Тогда

Результат = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("ИмяРегистра");
Иначе
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Результат.Добавить(Выборка.ИмяРегистра);
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЦикла;

Возврат Результат;

КонецФункции

Все процедуры, используемые в статье, являются работающими и готовы к использованию.

Надеюсь, кому-нибудь данная статья будет полезна!

Спасибо за внимание) !!!