Имя: Пароль:
1C
 
Обновить динамический список управляемой формы.
0 antihacker
 
17.06.15
11:44
Добрый день !

Вот код


&НаКлиенте
Процедура ФТЧОбъектыОрганизацийПриАктивизацииСтроки(Элемент)
    
            ТекДанныеТЧОбъекты = Элемент.ТекущиеДанные;

            ОбновитьСписокИзмерительныхПриборов(ТекДанныеТЧОбъекты);
КонецПроцедуры

&НаСервере
Процедура ОбновитьСписокИзмерительныхПриборов(СсылкаНаОбъект) Экспорт

    ЭлементОтбора = ТЧИзмерительныеПриборыОбъекта.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
    ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект");
    ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
    ЭлементОтбора.Использование = Истина;
    ЭлементОтбора.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
    ЭлементОтбора.ПравоеЗначение =СсылкаНаОбъект.Ссылка;

КонецПроцедуры

Он должен обновить второй динамический список. Но работает только тогда, когда форма справочника загружаеться.  А когда нажимаешь (активизируешь) строку первого динамического списка, то список пустой как будто получает не правильный параметр. Но он получает правильный параметр. Проверял.
1 butterbean
 
17.06.15
11:47
в СП черным по белому:
"В обработчике данного события нельзя использовать серверные методы формы с директивой компиляции &НаСервере. "
2 antihacker
 
17.06.15
11:49
А выход какой  ?
3 antihacker
 
17.06.15
11:53
Хотя почему тогда работает правильно при запуске формы ? Он по умолчанию активизирует первую строку и выводит связанные сним данные на второй динамический список.
4 toypaul
 
гуру
17.06.15
11:56
это все и на клиенте можно сделать
5 toypaul
 
гуру
17.06.15
11:56
ЭлементОтбора.ПравоеЗначение =СсылкаНаОбъект.Ссылка;

это чо за фигня
6 antihacker
 
17.06.15
12:04
Это не фигня. Просто параметры передаю
7 antihacker
 
17.06.15
12:24
Решено.


&НаКлиенте
Процедура ФТЧОбъектыОрганизацийПриАктивизацииСтроки(Элемент)
    
ТекДанныеТЧОбъекты = Элемент.ТекущиеДанные;

ОбновитьСписокИзмерительныхПриборов(ТекДанныеТЧОбъекты);
            
КонецПроцедуры

&НаСервере


Процедура ОбновитьСписокИзмерительныхПриборов(СсылкаНаОбъект) Экспорт
    

    ТекстЗапроса="ВЫБРАТЬ
    |СправочникИзмерительныеПриборы.Ссылка,
    |СправочникИзмерительныеПриборы.ПометкаУдаления,
    |СправочникИзмерительныеПриборы.Код,
    |СправочникИзмерительныеПриборы.Наименование,
    |СправочникИзмерительныеПриборы.Объект,
    |СправочникИзмерительныеПриборы.ТЧИзмерительныеПриборыОбъекта,
    |СправочникИзмерительныеПриборы.Предопределенный,
    |СправочникИзмерительныеПриборы.ИмяПредопределенныхДанных
    |ИЗ
    |Справочник.ИзмерительныеПриборы КАК СправочникИзмерительныеПриборы ГДЕ СправочникИзмерительныеПриборы.Объект=&Объект";
    
     ТЧИзмерительныеПриборыОбъекта.ПроизвольныйЗапрос=Истина;
     ТЧИзмерительныеПриборыОбъекта.ТекстЗапроса=ТекстЗапроса;
     ТЧИзмерительныеПриборыОбъекта.ДинамическоеСчитываниеДанных=Истина;
     ТЧИзмерительныеПриборыОбъекта.ОсновнаяТаблица="Справочник.ИзмерительныеПриборы";
     ТЧИзмерительныеПриборыОбъекта.Параметры.УстановитьЗначениеПараметра("Объект",СсылкаНаОбъект.Ссылка);

КонецПроцедуры
2 + 2 = 3.9999999999999999999999999999999...