Доброго дня!
Господа, столкнулся со следующей проблемой: решил сделать печать прайса всей имеющейся в наличии номенклатуры. И все бы ничего, но в функции формирования макета, я не могу получить срез последних цен. Хотя в других случаях использование функции получения цен работает стабильно. Привожу код самой функции формирования цен (выполняется на сервере):


// Рассчет розничной цены
Функция РасчитатьРозничнуюЦену(Номенклатура) Экспорт
   БазоваяЦена = ПолучитьСрезЦен(Номенклатура);
   
   Если Номенклатура.Наценка = 0 Тогда
       Наценка = Номенклатура.Родитель.Наценка;
   Иначе
       Наценка = Номенклатура.Наценка;
   КонецЕсли;
   
   РозничнаяЦена = БазоваяЦена * (1 + Наценка / 100);
   Возврат Окр(РозничнаяЦена, -2);
КонецФункции

Функция ПолучитьСрезЦен(Номенклатура) Экспорт
   Цены = РегистрыСведений.ЦеныНаНоменклатуру;
   Отбор = Новый Структура("Номенклатура", Номенклатура);
   ЗначенияРесурсов = Цены.ПолучитьПоследнее(ТекущаяДата(), Отбор);  // <-- НЕ РАБОТАЕТ ЕСЛИ ВЫЗЫВАЮТ ИЗ МАКЕТА
   Возврат ЗначенияРесурсов.Цена;
КонецФункции


А вот и код процедуры формирования макета прайса:

Процедура ПечатьПрайс(ТабДок, Ссылка) Экспорт
   //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
   Макет = Документы.ПечатьЦенников.ПолучитьМакет("Прайс");
   ТабДок.Очистить();
   
   Номенклатура = Справочники.Номенклатура.Выбрать();
   
   ТекущаяСтрока = 1;
   Пока Номенклатура.Следующий() Цикл    
       Если Номенклатура.ЭтоГруппа Тогда
           Продолжить;
       КонецЕсли;
       
       Запрос = Новый Запрос;
   
       Запрос.Текст ="ВЫБРАТЬ
                     |    ОстаткиНаСкладахОстатки.КоличествоОстаток Как ТекущийОстаток
                     |ИЗ
                     |    РегистрНакопления.ОстаткиНаСкладах.Остатки КАК ОстаткиНаСкладахОстатки
                     |ГДЕ
                     |    ОстаткиНаСкладахОстатки.Номенклатура = &Номенклатура";
                     
       Запрос.УстановитьПараметр("Номенклатура", Номенклатура.Ссылка);
       Выборка = Запрос.Выполнить().Выбрать();
       
       ТекущийОстаток = 0;
       Если Выборка.Следующий() Тогда
           ТекущийОстаток = Выборка.ТекущийОстаток;
       КонецЕсли;
       
       Если ТекущийОстаток = 0 Тогда
           Продолжить;
       КонецЕсли;
       
       Секция = Макет.ПолучитьОбласть("R1C1:R1C5");
       Секция.Область("R1C1").Текст = ТекущаяСтрока;
       Секция.Область("R1C2").Текст = Номенклатура.Код;
       Секция.Область("R1C3").Текст = Номенклатура.Наименование;
       Секция.Область("R1C4").Текст = ТекущийОстаток;
       Секция.Область("R1C5").Текст = НаСервере.РасчитатьРозничнуюЦену(Номенклатура);  // <-- ВОТ ЗДЕСЬ Я НЕ МОГУ ПОЛУЧИТЬ ЦЕНУ
       ТабДок.Вывести(Секция);
       
       // переходим на следующую строку
       ТекущаяСтрока = ТекущаяСтрока + 1;
   КонецЦикла;
   //}}
КонецПроцедуры


Ничего не могу понять. Буду благодарен за помощь!
(1С версии 8.2, своя конфигурация)

за такой код нужно наказывать

у тя что ни одной типовой нету? смотри как там реализована печать и делай нормально

>ЕСЛИ ВЫЗЫВАЮТ ИЗ МАКЕТА
тяжёлое наследие семёрки?

>Процедура ПечатьПрайс(ТабДок, Ссылка)
всю к чертям

получаешь запросом таблицу вида Номенклатура|Остаток|Цена (если цена какая-то хитрая, рассчитываешь колонку отдельно). выводишь таблицу красиво в ТабДок

Нет, нету ))
Я вообще 1С использую не в профессиональных целях, я свою конфигурацию написал для своего маленького бизнеса )))

но по теме: почему в если из формы вызываю ф-цию РасчитатьРозничнуюЦену(Номенклатура) все ОК, если из Процедура ПечатьПрайс(ТабДок, Ссылка) то не работает?

Секция.Область("R1C5").Текст = НаСервере.РасчитатьРозничнуюЦену(Номенклатура.ССЫЛКА);  // <-- ВОТ ЗДЕСЬ Я НЕ МОГУ ПОЛУЧИТЬ ЦЕНУ

Можно запрос, если не сложно. Не сильно в них волоку..

а ещё есть СКД

Но весть код архибредовый

весь

(8) учись, это очень нужно. ну или найми специалиста

Учился бы, если бы это была моя специализация. А так изучаю 1С по мере доработки функционала.

(6) Потому что во втором случае ты не ссылку на номенклатуру передаешь, а выборку

Не называл бы выборку номенклатурой, не ошибся бы

(13) в общем, надо всё удалять и делать по новой

т.е. передать в качестве параметра Номенклатура.Ссылка?

(17) -> (7)

простейшая иллюстрация работы с ТабДоком. это если не хочется СКД

Пакет доступен по ссылке: http://disk.tom.ru/67xsqht

(18) Извиняюсь, не заметил сразу Ваш ответ. Действительно помогло.

А как можно сделать не так коряво, на будущее ))

(20) --> (16) :)

(19) Я пока еще не очень догоняю как соединить Номенклатуру (Справочник) и Цены (Регистр) и там же выбрать то что есть в наличии из Остатков (регистр)

(20) :)))

(22) Запрос на остатки, левое соединение на цены

хотел нахамить, прочтя сабж, но человек вежлив и делает первые шаги, надеюсь взлетит когда-нибудь - главное стараться.

По сути ничего не скажу - такой код вызывает у меня слезы, а когда я реву - не могу думать

(22) черновой набросок, для понимания того, что имеется в виду:

"ВЫБРАТЬ
|    спрНоменклатура.Ссылка,
|    ЕСТЬNULL(ТоварыНаСкладахОстатки.КоличествоОстаток, 0) КАК Поле1,
|    ЕСТЬNULL(ЦеныНоменклатурыСрезПоследних.Цена, 0) КАК Поле2
|ИЗ
|    Справочник.Номенклатура КАК спрНоменклатура
|        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Период, ТипЦен = &ТипЦен) КАК ЦеныНоменклатурыСрезПоследних
|        ПО спрНоменклатура.Ссылка = ЦеныНоменклатурыСрезПоследних.Номенклатура
|        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах.Остатки(&Период, ) КАК ТоварыНаСкладахОстатки
|        ПО спрНоменклатура.Ссылка = ТоварыНаСкладахОстатки.Номенклатура
|ГДЕ
|    ЕСТЬNULL(ТоварыНаСкладахОстатки.КоличествоОстаток, 0) > 0"

(26) Если проверяется на>0, справочник не нужен, достаточно просто остатки взять

ребята, я конечно понимаю что код никакой, но я не программист! )))

Всем большое СПАСИБО!

вот покороче
ВЫБРАТЬ
   Остатки.Номенклатура,
   Остатки.Номенклатура.Код,
   Остатки.КоличествоОстаток,

   ЦеныНоменклатурыСрезПоследних.Цена
ИЗ
   РегистрНакопления.ОстаткиНаСкладах.Остатки КАК Остатки
       ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНаНоменклатуру.СрезПоследних КАК Цены        
ПО Остатки.Номенклатура = Цены.Номенклатура

(27) а отрицательные остатки? но согласен, да
(30) а где священный ЕСТЬNULL?

isNull конечно на цену добавить

(31) Забыл ;]

(29) что, уже доходить начало? или полностью дошло?

(34) да, дошло. а благодаря (30) я въехал в соединение )