"> установлен<br><br>что пишет программа на это ?<br><br>Процедура Выполнить()<br> ТовПост=СоздатьОбъект("Справочник.ТоварПоставщика");<br> Если ТовПост.ВыбратьЭлементыПоРеквизиту("КодТовараПоставщика",СтрПоиска)=0 Тогда<br> Сообщить("выборка пуста"); Возврат;<br> КонецЕсли;<br> Пока ТовПост.ПолучитьЭлемент()=1 Цикл<br> Сообщить(ТовПост.Владелец.Наименование);<br> КонецЦикла;<br>КонецПроцедуры "