Добрый День!

подскажите пожалуйста как правильно заполнить таблицу значений

документами!

Проблема заключатся в процедуре Сформировать

Как заполнить табцу "Реквизиты_док" атрибутами выбраних документов

(цикл кокойто корявый)

Процедура Сформировать()
Сообщить(виды_документов);
Реквизиты_док.УдалитьСтроки();
док= СоздатьОбъект("Документ."+виды_документов);
Для т=1 По Метаданные.Документ(виды_документов).РеквизитШапки() Цикл
Док.ВыбратьДокументы("01.01.10","02.02.10");
ч = 1;
Пока док.ПолучитьДокумент() = 1 Цикл
Реквизиты_док.НоваяСтрока(); Реквизиты_док.УстановитьЗначение(ч,Метаданные.Документ(виды_документов).РеквизитШапки(т).Идентификатор,док.ТекущийДокумент().получитьатрибут(Метаданные.Документ(виды_документов).РеквизитШапки(т).Идентификатор));

Если док.ПометкаУдаления() = 1 Тогда
Реквизиты_док.Пиктограмма = 1;
КонецЕсли;
ч = ч+1;
КонецЦикла;
КонецЦикла;
КонецПроцедуры


Процедура ПриСменеДокумента()
виды_документов=Выбор_док.ПолучитьЗначение(Выбор_док.ТекущаяСтрока());
Реквизиты_док.Очистить();
Реквизиты_док.НоваяКолонка("Пиктограмма","Число",1,0,"",3);
Для т=1 По Метаданные.Документ(виды_документов).РеквизитШапки() Цикл
имя_колонки_тз = Метаданные.Документ(виды_документов).РеквизитШапки(т).Синоним;
Если Метаданные.Документ(виды_документов).РеквизитШапки(т).Синоним = "" Тогда
имя_колонки_тз = Метаданные.Документ(виды_документов).РеквизитШапки(т).Идентификатор
КонецЕсли;
Реквизиты_док.НоваяКолонка(Метаданные.Документ(виды_документов).РеквизитШапки(т).Идентификатор,Метаданные.Документ(виды_документов).РеквизитШапки(т).Тип
,,, имя_колонки_тз);
КонецЦикла;
Реквизиты_док.ВыводитьПиктограммы(1);
КонецПроцедуры


Для т=1 По Метаданные.Документ() Цикл Выбор_док.ДобавитьЗначение(Метаданные.Документ(т).Идентификатор,Метаданные.Документ(т).Представление());
КонецЦикла;
Выбор_док.ТекущаяСтрока(1);
виды_документов=Выбор_док.ПолучитьЗначение(Выбор_док.ТекущаяСтрока());

Заранее Благодарен