• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

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

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

Vixen

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

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

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

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

vbs

Попробуй
ТипОборудования.ПорядковыйНомер()
или
ТипОборудования.Идентификатор()
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!