Пробовал так:

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

"Отсутствует строка данных"

Up

(0) Стр.ПолучитьИдентификатор()

(2) Наверно оно, но уже лень проверять)
Спасибо!