Помощь с примером РАДЧЕНКО!

Ребят помогите пожалуйста с чертовщиной которая у меня происходит. Дело в том что я читаю книгу Радченко , и остановился на 258 странице. Повторяю все как указано в книге а цена сама не подставляется. Добавил функцию в общий модуль как сказано, но все равно не получается. Вот листинг из документа при изменении:

&НаКлиенте
Процедура ПереченьНоменклатурыКоличествоПриИзменении(Элемент)
    СтрокаТабличнойЧасти = Элементы.ПереченьНоменклатуры.ТекущиеДанные;
    РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры

&НаКлиенте
Процедура ПереченьНоменклатурыЦенаПриИзменении(Элемент)
    СтрокаТабличнойЧасти = Элементы.ПереченьНоменклатуры.ТекущиеДанные;
    РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры

&НаКлиенте
Процедура ПереченьНоменклатурыНоменклатураПриИзменении(Элемент)
    // Получить текущую строку табличной части.
    СтрокаТабличнойЧасти = Элементы.ПереченьНоменклатуры.ТекущиеДанные;

    //Установить цену.
    СтрокаТабличнойЧасти.Цена = РаботаСоСправочниками.РозничнаяЦена(Объект.Дата, СтрокаТабличнойЧасти.Номенклатура);

    //Пересчитатьсумму строки
    РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти);
КонецПроцедуры

Вот из общего модуля:

Функция РозничнаяЦена(АктуальнаяДата, ЭлементНомшенклатуры) Экспорт
    //Создать вспомгательный объект "Отбор".
    Отбор = Новый Структура("Номенклатура", "ЭлементНоменклатуры");

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

Пожалуйста ребят помогите!