1С 8.2 Отбор на форме

[kot_oo]

Помогите, При изменении Автомобиль отбор на какое то значение, должен показывать документы только от марки этой машины

Вот процедура, что сюда нужно добавить или изменить, а то так и не могу понять

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

   ЭлементыОтбора = Список.Отбор.Элементы;
   ПолеКомпоновки = Новый ПолеКомпоновкиДанных("ТранспортноеСредство");

   Для каждого ЭлементОтбора Из ЭлементыОтбора Цикл

      Если ЭлементОтбора.ЛевоеЗначение = ПолеКомпоновки Тогда
         ЭлементыОтбора.Удалить(ЭлементОтбора);
      КонецЕсли;

   КонецЦикла;

КонецПроцедуры
&НаКлиенте
Процедура АвтомобильОтборПриИзменении(Элемент)
   Список.Отбор.
   Если НЕ АвтомобильОтбор.Пустая() Тогда
      Флажок = Истина
   КонецЕсли;
   
   Если Флажок Тогда
      УстановитьФлажок();
      Элементы.Список.Обновить();
   КонецЕсли;

КонецПроцедуры
&НаКлиенте
Процедура ФлажокПриИзменении(Элемент)
   Если Флажок тогда
      УстановитьФлажок();
   иначе
      УдалитьФлажок();
   КонецЕсли;
   Элементы.Список.Обновить();
КонецПроцедуры



//&НаКлиенте
//Процедура АвтомобильОтборОчистка(Элемент, СтандартнаяОбработка)
// Элементы.Список.Обновить();
//КонецПроцедуры

[Besart]

а какая ошибка?

[kot_oo]

а какая ошибка?

в том то и дело что никакой не выдает, но не работает

[Besart]

попробуйте после кода

Код Выделить Развернуть

Элементы.Список.Обновить(); добавить

Код Выделить Развернуть

ОбновитьИнтерфейс();

[kot_oo]

попробуйте после кода

Код Выделить Развернуть

Элементы.Список.Обновить(); добавить

Код Выделить Развернуть

ОбновитьИнтерфейс();

Не получается ((

Может у вас есть код примера ???

[Besart]

а так?

Код Выделить Развернуть

&НаКлиенте
Процедура УдалитьФлажок()
   ЭлементыОтбора = Список.Отбор.Элементы;
   Для каждого ЭлементОтбора Из ЭлементыОтбора Цикл
            ЭлементыОтбора.Удалить(ЭлементОтбора);
    КонецЦикла;
КонецПроцедуры

[kot_oo]

а так?

Код Выделить Развернуть

&НаКлиенте
Процедура УдалитьФлажок()
   ЭлементыОтбора = Список.Отбор.Элементы;
   Для каждого ЭлементОтбора Из ЭлементыОтбора Цикл
            ЭлементыОтбора.Удалить(ЭлементОтбора);
    КонецЦикла;
КонецПроцедуры

Тоже не как((

Ладно на днях спрошу у знакомого ))

Спасибо за помощь

[Besart]

у меня все работает

Код Выделить Развернуть



&НаКлиенте
Процедура ПроведенПриИзменении(Элемент)
ЭлементыОтбора = Список.Отбор.Элементы;
Для каждого ЭлементОтбора Из ЭлементыОтбора Цикл
ЭлементыОтбора.Удалить(ЭлементОтбора);
КонецЦикла;

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


[kot_oo]

у меня все работает

Код Выделить Развернуть



&НаКлиенте
Процедура ПроведенПриИзменении(Элемент)
ЭлементыОтбора = Список.Отбор.Элементы;
Для каждого ЭлементОтбора Из ЭлементыОтбора Цикл
ЭлементыОтбора.Удалить(ЭлементОтбора);
КонецЦикла;

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


О заработало, только обновляет когда заново окно открывается )))

Щас попробую доделать
Спасибо

Добавлено: 28 окт 2013, 01:10

у меня все работает

Код Выделить Развернуть



&НаКлиенте
Процедура ПроведенПриИзменении(Элемент)
ЭлементыОтбора = Список.Отбор.Элементы;
Для каждого ЭлементОтбора Из ЭлементыОтбора Цикл
ЭлементыОтбора.Удалить(ЭлементОтбора);
КонецЦикла;

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


О заработало, только обновляет когда заново окно открывается )))

Щас попробую доделать
Спасибо

Лишние процедуры удалил заработало, Спасибо большое_))))