Корректно отобразить расшифровку по строке

[Ученик_2014]

Добрый день.
В табличной части  Документа есть реквизит ТТН.
В управляемой форме при перемещении по строкам табличной части, надо расшифровать данные по реквизиту ТТН.
Делаю так

Код Выделить Развернуть


&НаКлиенте
Процедура ТТНПриАктивизацииСтроки(Элемент)

Расшифровка =Элементы.ТТН.ТекущиеДанные.ТТН;

Если Элемент.ТекущиеДанные <> Неопределено Тогда
Если Элемент.ТекущиеДанные.ТТН <> Неопределено Тогда
Элементы.ИнфоТТН.Заголовок=ПолучитьЗаголовокТТН(Элемент.ТекущиеДанные.ТТН);
КонецЕсли;
КонецЕсли;

КонецПроцедуры


&НаСервере
Функция ПолучитьЗаголовокТТН(Р)
   Отбор = Новый Структура();
   Отбор.Вставить("Ссылка", Р);
   НайденноеЗначение = Документы.ТТН.НайтиПоРеквизиту(Отбор);
   
   Возврат НайденноеЗначение.Культура;

КонецФункции


Отладчик показывает что все зациклилось. Подскажи, пожалуйста, в чем ошибка?

[cska-fanat-kz]

Вместо

       Отбор = Новый Структура();
       Отбор.Вставить("Ссылка", Р);
       НайденноеЗначение = Документы.ТТН.НайтиПоРеквизиту(Отбор);
       
       Возврат НайденноеЗначение.Культура;

достаточно

       Возврат Р.Культура;