На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела:

  • Перед тем, как задать вопрос, желательно почитать документацию и воспользоваться поиском.
  • Когда задаёте вопрос, то обязательно указывайте платформу (7.7, 8.0, 8.1, 8.2, etc), причем желательно в заголовке. Если речь идёт о типовой конфигурации, то указывайте её название и релиз. Текущие версии можно посмотреть здесь.
  • Ещё раз напоминаем о необходимости соблюдать не только правила, но и законы. Уважайте авторские права.

Высказать своё мнение о модераторах раздела можно здесь: evGenius
  
> программное заполнение перечисления
    Здравствуйте! Мне надо заполнить перечисление из файла excel. Сначала сравниваю, есть уже такое значение в перечислении, если нет, записываю.

    ExpandedWrap disabled
      НовыйЭлемент.СтавкаНДС=Перечисления.СтавкиНДС.Получить(ЗначСтавкаНДС);
          Если НовыйЭлемент.СтавкаНДС =Неопределено ИЛИ СокрЛП(ЗначСтавкаНДС)="" Тогда
          НовыйЭлемент.СтавкаНДС=Перечисления.СтавкиНДС.БезНДС;
          конецЕсли;


    Программа ругается на функцию получить. Помогите, пожалуйста, разобраться
      Цитата
      ПеречислениеМенеджер.<Имя перечисления> (EnumManager.<Имя перечисления>)
      Получить (Get)
      Синтаксис:

      Получить(<Индекс>)
      Параметры:

      <Индекс> (обязательный)

      Тип: Число.
      Индекс значения перечисления в перечислении.
      Возвращаемое значение:

      Тип: ПеречислениеСсылка.


      Добавлено
      Цитата Sweety Bell @
      Программа ругается на функцию получить.

      В другой раз надо бы приводить текст сообщения как ругается.
        Я переписала код:
        ExpandedWrap disabled
          Мета =Метаданные.Перечисления.СтавкиНДС.ЗначенияПеречисления.Найти(ЗначСтавкаНДС);
              Если Мета<> Неопределено Тогда
              СсылкаПеречисление =Перечисления.СтавкиНДС[Мета.Имя];
              КонецЕсли;


        Ошибок нет, но в отладчике написано, СсылкаПеречисление неопределено
          ExpandedWrap disabled
            СсылкаПеречисление = Перечисления.СтавкиНДС.ПустаяСсылка();
            Для Инд=1 По Перечисления.СтавкиНДС.Количество() Цикл
             Если СокрЛП(Перечисления.СтавкиНДС[Инд-1]) = ЗначСтавкаНДС Тогда
              СсылкаПеречисление = Перечисления.СтавкиНДС[Инд-1];
              Прервать;
             КонецЕсли;
            КонецЦикла;
            огромное спасибо
            1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
            0 пользователей:


            Рейтинг@Mail.ru
            [ Script execution time: 0,0496 ]   [ 14 queries used ]   [ Generated: 18.07.25, 00:40 GMT ]