8.х Сревнение объектов перечислений

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем [GIGA]DEDUSHKA, 26 янв 2010.

  1. TopicStarter Overlay
    [GIGA]DEDUSHKA
    Offline

    [GIGA]DEDUSHKA Опытный в 1С

    Регистрация:
    7 мар 2008
    Сообщения:
    167
    Симпатии:
    0
    Баллы:
    26
    Вот такой код работает в 1С:
    Код:
    Док = РегистрыСведений.Документы_TechnologiCS.Выбрать();
    
    Пока Док.Следующий() Цикл
    Если Док.ДополнительныйФлаг = Перечисления.ДополнительныеФлагиTCS.РасчетныйДокумент Тогда
    Сообщить("ДА");
    КонецЕсли;
    КонецЦикла
    
    мне нужно его переписать на VBScript. Не получается:
    Пишу:
    If Док.ДополнительныйФлаг = Перечисления.ДополнительныеФлагиTCS.РасчетныйДокумент Then...
    Ругается: Объект не поддерживает это св-во или метод. Что не так?
  2. nomad_irk
    Offline

    nomad_irk Гуру в 1С

    Регистрация:
    20 окт 2008
    Сообщения:
    7.549
    Симпатии:
    716
    Баллы:
    204
    Попробуй по порядку значений перечисления проверять, т.е.
    Док.ДополнительныйФлаг = Перечисления.ДополнительныеФлагиTCS[НужныйНомер]
  3. Itsys
    Offline

    Itsys Опытный в 1С

    Регистрация:
    3 янв 2010
    Сообщения:
    1.394
    Симпатии:
    0
    Баллы:
    26
    "Перечисления" должны быть связаны с COM объектом, что-то типа:
    COMConnection.Перечисления и т.д.
  4. TopicStarter Overlay
    [GIGA]DEDUSHKA
    Offline

    [GIGA]DEDUSHKA Опытный в 1С

    Регистрация:
    7 мар 2008
    Сообщения:
    167
    Симпатии:
    0
    Баллы:
    26
    Пока вижу выход по сравнению индексов. Работает такой код:

    Перечисления.ДополнительныеФлагиTCS.Индекс(Док.ДополнительныйФлаг) = Перечисления.ДополнительныеФлагиTCS.Индекс(Перечисления.ДополнительныеФлагиTCS.Расчетный документ)

    Док.ДополнительныйФлаг = Перечисления.ДополнительныеФлагиTCS[НужныйНомер] - не работает. Та же самая ошибка.
    Есть другие варианты?

Поделиться этой страницей