Имя: Пароль:
1C
 
Подскажите как перебрать Перечисления в 7.7
Ø
0 EugeneOk
 
23.09.05
14:03
Подскажите как перебрать Перечисления в 7.7
Например в справочнике
Спр = СоздатьОбъект("Справочник.Номенклатура");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
А КАК ПОЛУЧИТЬ ЦИКЛ ПО ПЕРЕЧИСЛЕНИЯМ?
1 Макс 1С
 
23.09.05
14:05
а зачем?
2 EugeneOk
 
23.09.05
14:07
Очень нужно!
3 Макс 1С
 
23.09.05
14:08
а на будущее в СП все написано
КоличествоЗначений()
Синтаксис:
КоличествоЗначений()
Назначение:
Возвращает число значений в перечислении.
ЗначениеПоНомеру(<?>)
Синтаксис:
ЗначениеПоНомеру(<Номер>)
Назначение:
Возвращает значение перечисления по порядковому номеру в перечислении.
Параметры:
<Номер> - порядковый номер значения в перечислении.
4 Дурочка 1С
 
23.09.05
14:38
Подражание pit'у:
Для Н=1 По Метаданные.Перечисление() Цикл
 Сообщить("");
 Сообщить("$~$~$~$~$~$~$~$~$~$~~$~$~$~$~$~$~$~$~$ (с) Дурочка 1С");
 Сообщить("Перечисление (идентификатор): "+ МетаДанные.Перечисление(Н).Идентификатор);
 Сообщить("Перечисление (полный идентификатор): "+ МетаДанные.Перечисление(Н).ПолныйИдентификатор());
 Сообщить("Перечисление (синоним): "+ МетаДанные.Перечисление(Н).Синоним);
  Для К=1 По Метаданные.Перечисление(Н).Значение() Цикл
  Сообщить("Значение "+К+" (Идентификатор): "+ МетаДанные.Перечисление(Н).Значение(К).Идентификатор);
  Сообщить("Значение "+К+" (представление): "+ МетаДанные.Перечисление(Н).Значение(К).Представление);
  КонецЦикла;
КонецЦикла;
 
(чисто угадыванием)
2 + 2 = 3.9999999999999999999999999999999...