7.7 Получение закупочной цены ТИС

Доброй ночи.
Давно не кодил по 1с, да тут попросили что бы в документе "переоценка розница" была галочка которая отражает закупочную цену.
Колонку добавил назвал "Закуп" добавил галочку "показать закупку"
Далее в модуле получаем закупочные цены

Код:

Процедура ПоказыватьЗакуп()
    Перем ЦенаЦены, ТипЦен;
    Перем ОбЦена;
  Перем ВалЦены;
  Перем ЕдИзм;
   
  Цены       = СоздатьОбъект("Справочник.Цены");   
  ТипыЦен    = СоздатьОбъект("Справочник.ТипыЦен");   
  //Товары     = СоздатьОбъект("Справочник.Номенклатура");
 
  Если ТипыЦен.НайтиПонаименованию("Закупочные",0,1) = 1 тогда
    РознЦена = ТипыЦен.ТекущийЭлемент()
  КонецЕсли;
      
      ВыбратьСтроки();
     
      Пока ПолучитьСтроку()=1 Цикл  
       //Цены.ИспользоватьВладельца(Товары.ТекущийЭлемент());
       глВернутьЦену(Номенклатура.ТекущийЭлемент(),РознЦена,РабочаяДата(),ОбЦена, ЕдИзм, ВалЦены);
      Если ПустоеЗначение(ОбЦена) = 0 Тогда
       Закуп = ОбЦена;
      Иначе
       Закуп = 0;
      КонецЕсли;
      Сообщить(Номенклатура.Наименование);
      Сообщить(Закуп);
   // КонецЕсли;
  КонецЦикла;

проблема в том что в строку Закуп не записываются данные.
Что то уже часа 1,5 сижу и не могу записать данные, позабывал я уже большую часть по лайт коддингу.
Помогите кто чем может

Спасибо.
Решил мелкую проблемку