Цитата(DartRomanius @ 21.07.15, 13:17) необходимо зарегистрироваться для просмотра ссылки
всмысле?
у общей формы "ПрисоединенныеФайлы" есть процедура:
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
УстановитьУсловноеОформление();
Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа.
Возврат;
КонецЕсли;
Если Параметры.ВладелецФайла = Неопределено Тогда
ВызватьИсключение НСтр("ru = 'Список присоединенных файлов можно посмотреть
|только в форме объекта-владельца.'");
КонецЕсли;
Если Параметры.РежимВыбора Тогда
СтандартныеПодсистемыСервер.УстановитьКлючНазначенияФормы(ЭтотОбъект, "ВыборПодбор");
РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца;
Заголовок = НСтр("ru = 'Выбор присоединенного файла'");
// Отбор не помеченных на удаление.
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(
Список, "ПометкаУдаления", Ложь, , , Истина,
РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный);
Иначе
Элементы.Список.РежимВыбора = Ложь;
КонецЕсли;
ИмяСправочникаХранилищаФайлов = Неопределено;
НастроитьДинамическийСписок(ИмяСправочникаХранилищаФайлов);
ТипСправочникаСФайлами = Тип("СправочникСсылка." + ИмяСправочникаХранилищаФайлов);
МетаданныеСправочникаСФайлами = Метаданные.НайтиПоТипу(ТипСправочникаСФайлами);
Если НЕ ПравоДоступа("ИнтерактивноеДобавление", МетаданныеСправочникаСФайлами) Тогда
СкрытьКнопкиДобавления();
Иначе
Если ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() Тогда
Если НЕ ПравоДобавления(ИмяСправочникаХранилищаФайлов, Параметры.ВладелецФайла) Тогда
СкрытьКнопкиДобавления();
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если НЕ ПравоДоступа("Редактирование", МетаданныеСправочникаСФайлами)
ИЛИ НЕ ПравоДоступа("Редактирование", Параметры.ВладелецФайла.Метаданные())
ИЛИ Параметры.ТолькоПросмотр = Истина Тогда
СкрытьКнопкиИзменения();
КонецЕсли;
ИменаВсехКомандФормы = ПолучитьИменаКомандФормы();
ИменаЭлементов = Новый Массив;
Для Каждого ЭлементФормы Из Элементы Цикл
Если ТипЗнч(ЭлементФормы) <> Тип("КнопкаФормы") Тогда
Продолжить;
КонецЕсли;
Если ИменаВсехКомандФормы.Найти(ЭлементФормы.ИмяКоманды) <> Неопределено Тогда
ИменаЭлементов.Добавить(ЭлементФормы.Имя);
КонецЕсли;
КонецЦикла;
ИменаЭлементовКнопокФормы = Новый ФиксированныйМассив(ИменаЭлементов);
ПриИзмененияИспользованияПодписанияИлиШифрованияНаСервере();
Если ТекущийВариантИнтерфейсаКлиентскогоПриложения() = ВариантИнтерфейсаКлиентскогоПриложения.Версия8_2 Тогда
Элементы.ФормаИзменить.Видимость = Ложь;
Элементы.ФормаИзменить82.Видимость = Истина;
Элементы.ФормаСкопировать.ТолькоВоВсехДействиях = Ложь;
Элементы.ФормаУстановитьПометкуУдаления.ТолькоВоВсехДействиях = Ложь;
КонецЕсли;
КонецПроцедуры
Вызывает процедуру НастроитьДинамическийСписок, вот в ней скорее всего и перестраивается Динамический список.
&НаСервере
Процедура НастроитьДинамическийСписок(ИмяСправочникаХранилищаФайлов)
ТекстЗапроса =
"ВЫБРАТЬ
| Файлы.Ссылка КАК Ссылка,
| Файлы.ПометкаУдаления,
| ВЫБОР
| КОГДА Файлы.ПометкаУдаления = ИСТИНА
| ТОГДА Файлы.ИндексКартинки + 1
| ИНАЧЕ Файлы.ИндексКартинки
| КОНЕЦ КАК ИндексКартинки,
| Файлы.Наименование КАК Наименование,
| ВЫРАЗИТЬ(Файлы.Описание КАК СТРОКА(500)) КАК Описание,
| Файлы.Автор,
| Файлы.ДатаСоздания,
| Файлы.Изменил КАК Отредактировал,
| ДОБАВИТЬКДАТЕ(Файлы.ДатаМодификацииУниверсальная, СЕКУНДА, &СекундДоМестногоВремени) КАК ДатаИзменения,
| ВЫРАЗИТЬ(Файлы.Размер / 1024 КАК ЧИСЛО(10, 0)) КАК Размер,
| Файлы.ПодписанЭП,
| Файлы.Зашифрован,
| ВЫБОР
| КОГДА Файлы.ПодписанЭП
| И Файлы.Зашифрован
| ТОГДА 2
| КОГДА Файлы.Зашифрован
| ТОГДА 1
| КОГДА Файлы.ПодписанЭП
| ТОГДА 0
| ИНАЧЕ -1
| КОНЕЦ КАК НомерКартинкиПодписанЗашифрован,
| ВЫБОР
| КОГДА НЕ Файлы.Редактирует В (&ПустыеПользователи)
| ТОГДА ИСТИНА
| ИНАЧЕ ЛОЖЬ
| КОНЕЦ КАК ФайлРедактируется,
| ВЫБОР
| КОГДА Файлы.Редактирует = &ТекущийПользователь
| ТОГДА ИСТИНА
| ИНАЧЕ ЛОЖЬ
| КОНЕЦ КАК ФайлРедактируетТекущийПользователь,
| ВЫБОР
| КОГДА НЕ Файлы.Редактирует В (&ПустыеПользователи)
| И Файлы.Редактирует <> &ТекущийПользователь
| ТОГДА ИСТИНА
| ИНАЧЕ ЛОЖЬ
| КОНЕЦ КАК ФайлРедактируетДругойПользователь,
| Файлы.Редактирует КАК Редактирует
|ИЗ
| &ИмяСправочника КАК Файлы
|ГДЕ
| Файлы.ВладелецФайла = &ВладелецФайлов";
ЗаголовокОшибки = НСтр("ru = 'Ошибка при настройке динамического списка присоединенных файлов.'");
ОкончаниеОшибки = НСтр("ru = 'В этом случае настройка динамического списка невозможна.'");
ИмяСправочникаХранилищаФайлов = ПрисоединенныеФайлыСлужебный.ИмяСправочникаХраненияФайлов(
Параметры.ВладелецФайла, "", ЗаголовокОшибки, ОкончаниеОшибки);
ПолноеИмяСправочника = "Справочник." + ИмяСправочникаХранилищаФайлов;
Список.ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ИмяСправочника", ПолноеИмяСправочника);
ПустыеПользователи = Новый Массив;
ПустыеПользователи.Добавить(Неопределено);
ПустыеПользователи.Добавить(Справочники.Пользователи.ПустаяСсылка());
ПустыеПользователи.Добавить(Справочники.ВнешниеПользователи.ПустаяСсылка());
Список.Параметры.УстановитьЗначениеПараметра("ВладелецФайлов", Параметры.ВладелецФайла);
Список.Параметры.УстановитьЗначениеПараметра("ТекущийПользователь", Пользователи.АвторизованныйПользователь());
Список.Параметры.УстановитьЗначениеПараметра("ПустыеПользователи", ПустыеПользователи);
Список.Параметры.УстановитьЗначениеПараметра("СекундДоМестногоВремени", '00010101'); // Установка на клиенте
Список.ОсновнаяТаблица = ПолноеИмяСправочника;
Список.ДинамическоеСчитываниеДанных = Истина;
КонецПроцедуры
ВЕРНО?