Пробовал так:
&НаКлиенте
Процедура УстановитьПометки(Команда)
Для каждого Стр Из Объект.Контрагенты Цикл
Если Элементы.Контрагенты.ПроверитьСтроку(Стр) Тогда
Стр.Пометка = Истина;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший