Как получить перечисление из ComОбъект

  • Автор темы Vixen
  • Дата начала
V

Vixen

#1
Код 1С 8.1 выглядит примерно так:

БазаОЛЕ = Новый COMОбъект("V77.Application");
Соединение = БазаОЛЕ.Initialize(СтрокаИнициализации);
МоеОборудование = БазаОЛЕ.CreateObject("Документ.ПереченьОборудования");
МоеОборудование.НайтиПоНомеру(НомерДокОборудования);
МоеОборудование.ВыбратьСтроки();
Пока МоеОборудование.ПолучитьСтроку()=1 Цикл
НоваяЗапись = НаборЗаписей.Добавить();
Если Строка(МоеОборудование.ТипОборудования) <> "" Тогда
НоваяЗапись.Тип = ПолучитьОборудование(МоеОборудование.ТипОборудования);
КонецЕсли;
НоваяЗапись.СерийныйНомер = МоеОборудование.СерийныйНомер;
НоваяЗапись.Записать();
КонецЦикла;

Функция ПолучитьОборудование(ТипОборудования)
//Анализ значения ТипОборудования
КонецФунции

Беда в следующем: ТипОборудования - это перечисление в 7.7, если беру его строкой, то получатеся строка "COMОбъект", если пытаюсь обратиться к его Наименование, то получаю ошибку, при этом тот же серийный номер, котрый строка, или еще какой нибудь реквизит - элемент справочника нормально получаются. Как получить значение перечисления?
 

vbs

Well-known member
18.02.2007
1 708
1
#2
Попробуй
ТипОборудования.ПорядковыйНомер()
или
ТипОборудования.Идентификатор()