(0) Ты в запрос передаёшь ссылку на контрагента, а в запросе сверяешь имя с переданным параметром. Замени
Запрос.УстановитьПараметр("ВыбНаименование", Справочники.Контрагенты.НайтиПоНаименованию(ТекущийКонтрагент));
на
Запрос.УстановитьПараметр("ВыбНаименование",ТекущийКонтрагент);
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший