7.7 Цена закупки

Добавил в табличную часть документа колонку Закупочная цена. Как заполнить колонку?

Ну наверное да, извиняюсь.
Как в ТиС получить цену закупки для номенклатуры?

Код:

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

А такое имеет место быть?

Могу ошибаться, пока еще не встречался с переодическими ревизитами =))))) Но, предполагаю, что не зачем создавать объект в цикле и делать постоянно выборку там =) Надеюсь, что более опытные товарищи поправят меня.

Код:

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

Функция не работает. Конфигурация изменена, скорее всего по этому.

Подскажите в чем разница кодов:

Код:

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

и

Код:

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

P.S. Не то чтобы изобретать, просто для опыта хочется разобраться.

Во стором случаи цена берется на дату документа. А как получить последнию цену?

В результате:

Код:

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

Прошу оценить и покритиковать!