Как из строк Справочника, сделать Таблицу значений, т.е. строки сделать столбцами
 

Здравствуйте!
Подскажите, как из строк сделать столбцы таблицы значений

ТЗ = СоздатьОбъект("ТаблицаЗначений");
Сч = 0;
Пока Спр.ПолучитьЭлемент() = 1 Цикл
сч = сч + 1;
ТЗ.НоваяКолонка("Колонка" + сч + "_" + СтрЗаменить(Спр.Наименование," ",""),,,,Спр.Наименование);
КонецЦикла;

Универсально: запросом. Выбираем строки по какому-то фильтру, указываем интересующие поля, результат выборки скидываем в ТЗ.

тз1 - донор
тз2 - перевёртыш

Для сч1 = 1 по тз1.КоличествоСтрок() Цикл
тз2.НоваяКолонка("Колонка_"+сч1);
Для сч2 = 1 по тз1.КоличествоКолонок() Цикл
Значение = тз1.ПолучитьЗначение(сч1,сч2);
Если сч1 = 1 Тогда
тз2.НоваяСтрока();
КонецЕсли;
тз2.УстановитьЗначение(сч2,сч1,Значение);
КонецЦикла;
КонецЦикла;

первый вариант не работает

4-amv > только если наименования эелементов содержат недопустимые символы. удалить это
+ "_" + СтрЗаменить(Спр.Наименование," ","")

1-Зелёный тролль > а с чего ты взял, что у него семерка?

во, вспомнил молодость

//*******************************************
Процедура Сформировать()
Спр = СоздатьОбъект("Справочник.Валюты");
Спр.ВыбратьЭлементы();
Сч = 0;
ТЗ.НоваяКолонка("Колонка0",,,,"Реквизит");
Пока Спр.ПолучитьЭлемент() = 1 Цикл
сч = сч + 1;
ТЗ.НоваяКолонка("Колонка" + сч,,,,Спр.Наименование);
Если сч = 1 Тогда
тз.НоваяСтрока();
тз.УстановитьЗначение(1,сч,"Код");
тз.НоваяСтрока();
тз.УстановитьЗначение(2,сч,"Наименование");
Для сч2 = 1 по Метаданные.Справочник("Валюты").Реквизит() Цикл
тз.НоваяСтрока();
тз.УстановитьЗначение(сч2+2,сч,Метаданные.Справочник("Валюты").Реквизит(сч2));
КонецЦикла;
КонецЕсли;
тз.УстановитьЗначение(1,сч+1,Спр.Код);
тз.УстановитьЗначение(2,сч+1,Спр.Наименование);
Для сч2 = 1 по Метаданные.Справочник("Валюты").Реквизит() Цикл
Если Метаданные.Справочник("Валюты").Реквизит(сч2).Периодический = 0 Тогда
тз.УстановитьЗначение(сч2+2,сч+1,Спр.ПолучитьАтрибут(Метаданные.Справочник("Валюты").Реквизит(сч2)));
Иначе
НаДату = РабочаяДата();
Периодический = СоздатьОбъект("Периодический");
Если Периодический.ИспользоватьОбъект(Метаданные.Справочник("Валюты").Реквизит(сч2),Спр.ТекущийЭлемент()) = 1 Тогда
тз.УстановитьЗначение(сч2+2,сч+1,Периодический.ЗначениеНаДату(НаДату));
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецПроцедуры

6-Uho > а почему нет? к 8ке сам пусть адаптирует

надеюсь, справочник не Контрагенты

8-Дебилы > Договоры наверно :-))