Быстрый отбор

Нужно в журнале документов добавить быстрый отбор по свойству контрагента.
Сделал по аналогии с другими, но не хочет работать....

Код:
Перем КонтрагентДляОтбора, ФирмаДляОтбора, ЮрЛицоДляОтбора,
СкладДляОтбора, ВидДокументаДляОтбора, АвторДляОтбора, ПроектДляОтбора,
НоменклатураДляОтбора, СвойстваДляОтбора;

Процедура ПриВыбореСвойства()

Если СвойстваДляОтбора.Выбран()>0 Тогда
УстановитьОтбор("свойства контрагента", СвойстваДляОтбора);
СвойстваДляОтбора = СвойстваДляОтбора.ТекущийЭлемент();
Иначе
УстановитьОтбор("");
КонецЕсли;


ИначеЕсли ОтборПо = "по свойству контрагента" Тогда
ПриВыбореСвойства();
ЗначениеВВидеСтроки=Строка(СвойстваДляОтбора);

ИначеЕсли ОтборПо = "по свойству контрагента" Тогда
СтароеЗначение=СвойстваДляОтбора;
ВыбЗначение = СоздатьОбъект("Справочник.ЗначенияСвойств");
Если ВыбЗначение.Выбрать("Выбор свойство",)=1 Тогда
СвойствоДляОтбора = ВыбЗначение;
Если ВыбЗначение<>СтароеЗначение Тогда
ЗначениеИзменилось=1;
КонецЕсли;
КонецЕсли;

СвойстваДляОтбора = ВосстановитьЗначение("СвойстваДляОтбораЖурнала");
СвойстваДляОтбора = ?(ПустоеЗначение(СвойстваДляОтбора)=1, ПолучитьПустоеЗначение("Справочник.ЗначенияСвойств"), СвойстваДляОтбора);

СохранитьЗначение("СвойстваДляОтбораЖурнала",СвойстваДляОтбора);

ВидОтбора.ДобавитьЗначение("по свойству контрагента");

СвойстваДляОтбора = СоздатьОбъект("Справочник.ЗначенияСвойств");


вот какой код добавил, подскажите пожалуйста где ошибка или может забыл что?