Необходимо получить цену номенклатуры

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

Получайте, разрешаю.

(0)
глПолучитьЦену()
глВернутьЦену()

делов то

Подскажите что не там, подскажите, кто не здесь

Для каждой номенклатуры определяет одну и ту же цену взятую при обработке первого элемента

(4) так и должно быть - ты же передаешь не весь что, и получаешь не весь что + нет ни одной проверки, что что-то найдено в справочнике

если че, .ТекущийЭлемент()

(0) Вот нет чтобы посмотреть уже давно изобретенные функции-велосипеды в конфигурации, нет же блин, сразу надо экраны кода плодить...

См. (2)

Функция глПолучитьЦену(Номенклатура, Тип, НаДату, Единица=0, Валюта=0, Курс=0) Экспорт

//  Функция возвращает цену номенклатуры в указанном типе цен Тип, на дату НаДату,
//  за единицу измерения Единица, пересчитанную в валюту Валюта по курсу Курс
//

Да, и СпрЦены.ИспользоватьВладельца вместе с СпрЦены.НайтиПоРеквизиту вряд ли работают.

Вот так заработало

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

А функция глПолучитьЦену не нашел в глобальнике есть только глВернутьЦену но она возвращает либо 1 0 -1

(10) бредовый код:

если не найден тип цен по коду - привет котёнку
если нет такого типа цен в справочнике - аналогично болтс ошибкой выполнения при возврате неинициализированной переменной.

(11) Учу читать. Дорого.

ЦенаЦены - переменная, которую надо заполнитиь значением (число) полученной цены

(11) плохо искал - она там есть, это раз,  глВернутьЦену вернет цену, переданную параметром, это два.

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

ужас. В случае не отработки условия - получишь ошибку.

(15)  лучше так:

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

   Иначе
        Цена = 0;
   КонецЕсли;
   
   
   Возврат Цена;
КонецФункции

(0) читал, что ты настраивал принтер OL-T2300, можешь здесь помочь v8: Настройка принтера OL-T2300  ?