Как программно перебрать реквизиты справочника?
08.06.2005
13:02
#1
Уважаемые, подскажите пожалуйста, как программно можно перебрать реквизиты справочника Сотрудники и занести их в список!
В итоге нужно чтобы получился список с реквизитами справочника! Благодарю!
В итоге нужно чтобы получился список с реквизитами справочника! Благодарю!
08.06.2005
13:18
#2
"ТабРеквизиты = СоздатьОбъект("ТаблицаЗначений");
ТабРеквизиты.ВставитьКолонку("Реквизит");
ТабРеквизиты.ВставитьКолонку("РеквИдентиф");
Для Сч = 1 По Метаданные.Справочник("Сотрудники").Реквизит() Цикл
ИденМД = Метаданные.Справочник("Сотрудники").Реквизит(Сч).Идентификатор;
ПредМД = Метаданные.Справочник("Сотрудники").Реквизит(Сч).Представление();
ТабРеквизиты.НоваяСтрока();
ТабРеквизиты.Реквизит = ПредМД;
ТабРеквизиты.РеквИдентиф = ИденМД;
КонецЦикла;
//И не забыть про Код и Наименование!!!"
ТабРеквизиты.ВставитьКолонку("Реквизит");
ТабРеквизиты.ВставитьКолонку("РеквИдентиф");
Для Сч = 1 По Метаданные.Справочник("Сотрудники").Реквизит() Цикл
ИденМД = Метаданные.Справочник("Сотрудники").Реквизит(Сч).Идентификатор;
ПредМД = Метаданные.Справочник("Сотрудники").Реквизит(Сч).Представление();
ТабРеквизиты.НоваяСтрока();
ТабРеквизиты.Реквизит = ПредМД;
ТабРеквизиты.РеквИдентиф = ИденМД;
КонецЦикла;
//И не забыть про Код и Наименование!!!"
Читают тему
(гостей: 1)