Не работает пометка

Добрый день проблема в следующем. Есть код:

&НаСервере
Процедура  СделатьОтборПоПринятым()

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

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

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

&НаКлиенте
Процедура ПриОткрытии(Отказ)

     Элементы.Посмотреть.ПодчиненныеЭлементы.ОтобратьПринятых.Пометка = Ложь;
     Проверка = Ложь;
КонецПроцедуры

Проверка это реквизит формы списка. Проблема в следующем, когда первый раз нажимаю на кнопку, пометка становится истина и галочка видна, а при последующем нажатии на кнопку должна исчезнуть, но это не происходит, подскажите пожалуйста, как это исправить?