• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

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

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

Vixen

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

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

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

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

vbs

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

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