Имя: Пароль:
1C
 
Динамический список программно на форме.
0 spiller26
 
25.11.21
13:31
Есть свой РегистрСведений.абт_ДокументыРодственниковФизическихЛиц
В форме справочника "РодственникиФизическихЛиц" пытаюсь разместить программно, т.к. бывает что форма меняется и неохота вечно редактировать форму.
Всё добавляется только одно но, в созданном "ДС" пусто, хотя данные есть.
Что может не так с параметрами при создании.
Процедуру располагаю в своём общем модуле.

Процедура ЭлементыНаФорме(Форма, пОбъект) Экспорт
    
    Если Форма.ИмяФормы = "Справочник.РодственникиФизическихЛиц.Форма.ФормаЭлемента" Тогда
        ИмяСписка = "абт_ДокументыРодственника";
        ТаблицаСписка = "РегистрСведений.абт_ДокументыРодственниковФизическихЛиц";
        
        ТипыРеквизита = Новый Массив;
        ТипыРеквизита.Добавить(Тип("ДинамическийСписок"));
        ОписаниеТиповДляРеквизита = Новый ОписаниеТипов(ТипыРеквизита);
        ДинамическийСписок = Новый РеквизитФормы(ИмяСписка, ОписаниеТиповДляРеквизита,,"",ЛОЖЬ);
        ДобавляемыеРеквизиты = Новый Массив;
        ДобавляемыеРеквизиты.Добавить(ДинамическийСписок);
        Форма.ИзменитьРеквизиты(ДобавляемыеРеквизиты);
        
        РеквизитДС = Форма[ИмяСписка]; //Имя реквизита
        РеквизитДС.ПроизвольныйЗапрос = Ложь;
        РеквизитДС.ДинамическоеСчитываниеДанных = Истина;
        РеквизитДС.ПолучениеПредставленийДляНевидимыхПолей = Истина;
        РеквизитДС.ТекстЗапроса = "";
        РеквизитДС.ОсновнаяТаблица = ТаблицаСписка;
        РеквизитДС.АвтоматическоеСохранениеПользовательскихНастроек    = Истина;

        ЭлементДС = Форма.Элементы.Добавить("абт_ДокументыРодственника", Тип("ТаблицаФормы"),);
        ЭлементДС.Заголовок = "Документы родственника";
        ЭлементДС.ПутьКДанным = "абт_ДокументыРодственника";
        //
        ЭлементДС_ВидДок = Форма.Элементы.Добавить("ДокументыРодственника2ВидДокумента", Тип("ПолеФормы"), Форма.Элементы["абт_ДокументыРодственника"]);
        ЭлементДС_ВидДок.Вид = ВидПоляФормы.ПолеНадписи;
        ЭлементДС_ВидДок.ПутьКДанным = "абт_ДокументыРодственника.ВидДокумента";
        ЭлементДС_Серия = Форма.Элементы.Добавить("ДокументыРодственника2Серия", Тип("ПолеФормы"), Форма.Элементы["абт_ДокументыРодственника"]);
        ЭлементДС_Серия.Вид = ВидПоляФормы.ПолеНадписи;
        ЭлементДС_Серия.ПутьКДанным = "абт_ДокументыРодственника.Серия";
        ЭлементДС_Номер = Форма.Элементы.Добавить("ДокументыРодственника2Номер", Тип("ПолеФормы"), Форма.Элементы["абт_ДокументыРодственника"]);
        ЭлементДС_Номер.Вид = ВидПоляФормы.ПолеНадписи;
        ЭлементДС_Номер.ПутьКДанным = "абт_ДокументыРодственника.Номер";
        ЭлементДС_ДатаВыдачи = Форма.Элементы.Добавить("ДокументыРодственника2ДатаВыдачи", Тип("ПолеФормы"), Форма.Элементы["абт_ДокументыРодственника"]);
        ЭлементДС_ДатаВыдачи.Вид = ВидПоляФормы.ПолеНадписи;
        ЭлементДС_ДатаВыдачи.ПутьКДанным = "абт_ДокументыРодственника.ДатаВыдачи";
        ЭлементДС_Период = Форма.Элементы.Добавить("ДокументыРодственника2Период", Тип("ПолеФормы"), Форма.Элементы["абт_ДокументыРодственника"]);
        ЭлементДС_Период.Заголовок = "Сведения действую с";
        ЭлементДС_Период.Вид = ВидПоляФормы.ПолеНадписи;
        ЭлементДС_Период.ПутьКДанным = "абт_ДокументыРодственника.Период";
        ЭлементДС_КемВыдан = Форма.Элементы.Добавить("ДокументыРодственника2КемВыдан", Тип("ПолеФормы"), Форма.Элементы["абт_ДокументыРодственника"]);
        ЭлементДС_КемВыдан.Вид = ВидПоляФормы.ПолеНадписи;
        ЭлементДС_КемВыдан.ПутьКДанным = "абт_ДокументыРодственника.КемВыдан";
        ЭлементДС_СрокДействия = Форма.Элементы.Добавить("ДокументыРодственника2СрокДействия", Тип("ПолеФормы"), Форма.Элементы["абт_ДокументыРодственника"]);
        ЭлементДС_СрокДействия.Вид = ВидПоляФормы.ПолеНадписи;
        ЭлементДС_СрокДействия.ПутьКДанным = "абт_ДокументыРодственника.СрокДействия";
        ЭлементДС_КодПодразделения = Форма.Элементы.Добавить("ДокументыРодственника2КодПодразделения", Тип("ПолеФормы"), Форма.Элементы["абт_ДокументыРодственника"]);
        ЭлементДС_КодПодразделения.Вид = ВидПоляФормы.ПолеНадписи;
        ЭлементДС_КодПодразделения.ПутьКДанным = "абт_ДокументыРодственника.КодПодразделения";
        ЭлементДС_ДокУдоЛичности = Форма.Элементы.Добавить("ДокументыРодственника2ЯвляетсяДокументомУдостоверяющимЛичность", Тип("ПолеФормы"), Форма.Элементы["абт_ДокументыРодственника"]);
        ЭлементДС_ДокУдоЛичности.Вид = ВидПоляФормы.ПолеФлажка;
        ЭлементДС_ДокУдоЛичности.ПутьКДанным = "абт_ДокументыРодственника.ЯвляетсяДокументомУдостоверяющимЛичность";
        ЭлементДС_Представление = Форма.Элементы.Добавить("ДокументыРодственника2Представление", Тип("ПолеФормы"), Форма.Элементы["абт_ДокументыРодственника"]);
        ЭлементДС_Представление.Вид = ВидПоляФормы.ПолеНадписи;
        ЭлементДС_Представление.ПутьКДанным = "абт_ДокументыРодственника.Представление";
        
        //ЭлементОтбора = Форма.абт_ДокументыРодственника.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
        //ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Родственник");
        //ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
        //ЭлементОтбора.Использование = Истина;
        //ЭлементОтбора.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
        //ЭлементОтбора.ПравоеЗначение = пОбъект.Ссылка;
        //
        //ЭлементОтбора = Форма.абт_ДокументыРодственника.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
        //ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Физлицо");
        //ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
        //ЭлементОтбора.Использование = Истина;
        //ЭлементОтбора.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
        //ЭлементОтбора.ПравоеЗначение = пОбъект.Владелец;

    КонецЕсли;    
    
КонецПроцедуры
1 ДедМорроз
 
25.11.21
13:35
А обновить его пробовал?

Просто,я ту же проблему решал,но через запрос,и взлетело на ура.
2 CepeLLlka
 
25.11.21
13:49
У меня есть пример, могу выслать на почту.. Но там тоже запрос.
3 spiller26
 
25.11.21
14:04
(1) (2) Нашёл проблему закоментил вот это и пошло //РеквизитДС.ТекстЗапроса = "";
4 spiller26
 
25.11.21
14:06
Всем спасибо!!!