8.х Как получить последнюю ненулевую цену

Добрый день! Выкладываю функцию, которая возвращает цену (тип= планово-учетная цена), действующую на момент создания документа. Цены выводятся текущие, но необходимо добавить условие, чтобы функция возращала последнюю ненулевую цену.

Функция ПолучитьТипПлановоУчетнойЦены() Экспорт
Возврат Константы.ТипЦенПлановойСебестоимостиНоменклатуры.Получить();
КонецФункции

Функция ПолучитьПлановоУчетнуюЦену(Номенклатура, Знач МоментВремени, Регистратор = Неопределено) Экспорт

ТипЦен = ПолучитьТипПлановоУчетнойЦены();
Если ТипЗнч(МоментВремени) = Тип("МоментВремени") Тогда
МоментВремени = МоментВремени.Дата;
КонецЕсли;
МоментВремени = КонецДня(МоментВремени);


Если Регистратор = Неопределено Тогда
СтруктураОтбора = новый Структура;
СтруктураОтбора.Вставить("ТипЦен", ТипЦен);
СтруктураОтбора.Вставить("Номенклатура", Номенклатура);
Возврат РегистрыСведений.ЦеныНоменклатуры.ПолучитьПоследнее(МоментВремени, СтруктураОтбора).Цена;
Иначе
Запрос = новый Запрос;
Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
Запрос.УстановитьПараметр("МоментВремени", МоментВремени);
Запрос.УстановитьПараметр("Регистратор", Регистратор);
Запрос.УстановитьПараметр("ТипЦены", ТипЦен);

Запрос.Текст =
"ВЫБРАТЬ Номенклатура, Цена
|ИЗ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&МоментВремени,
|Номенклатура = &Номенклатура И ТипЦен = &ТипЦены И Регистратор <> &Регистратор)";
Рез = Запрос.Выполнить().Выбрать();
Если Рез.Следующий() Тогда
Возврат Рез.Цена;
Иначе
Возврат 0;
КонецЕсли;
КонецЕсли;

КонецФункции

Помогите чайнику! Еще раз на практике убедилась, что данный вопрос мне нужно решить. :angry:
Здесь тот же самый запрос немного в другом виде.


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

Запрос.УстановитьПараметр("МоментВремени", КонецДня(ЭтотОбъект.Дата));
Запрос.УстановитьПараметр("Список", СписокНоменклатуры);
Запрос.УстановитьПараметр("ТипЦен", Софт_ОбщегоНазначения.ПолучитьТипПлановоУчетнойЦены());
Запрос.УстановитьПараметр("Регистратор", ЭтотОбъект.Ссылка);

Реквизиты = Запрос.Выполнить().Выгрузить();




Как в запросе добавить цикл:
(REPEAT) Уменьшать дату(МоментВремени)
(UNTIL) до тех пор, пока возвращаемая цена станет неравной 0 или дата="29/02/2008"

Такое возможно?

Запрос нужен для документа собственного производства "Заявки инструментального отдела", в котором работник цеха вводит необходимую номенклатуру для их последующего закупа. В табличной части документа выбирается номенклатура А по типу цены - Планово-учетная цена. Номенклатура А в январе имела плано-учетную цену = 10, в феврале =20, в марте цена установилась 0, т.к. на начало марта не было остатков, в апреле цена тоже равна 0. Пусть в мае вводится документ Заявка ИнО и выбирается наша номенклатура. По действующему запросу выходить плано-учетная цена =0, а мне нужно, чтобы вышла цена = 20, т.е. последняя ненулевая цена.

результат такой же :angry:

в вашем запросе &Дата- дата документа ведь.

да, вы правильно поняли

Доброе утро, shurikvz! Я вставила ваш запрос в процедуру:

Код:

 Процедура ФормаДокументаТабличнаяЧастьПриПолученииДанных(ЭтотОбъект, ЭтаФорма, Элемент, ОформленияСтрок) Экспорт 

ЕстьКод = (ОформленияСтрок[0].Ячейки.Найти("Код")<>Неопределено);     
ЕстьЕдиницаБИ = (ОформленияСтрок[0].Ячейки.Найти("ЕдиницаИзмерения")<>Неопределено);
// Вставить содержимое обработчика.
Если Элемент.Колонки.Софт_ЦенаПлановоУчетная.Видимость = Ложь Тогда 
Возврат;
КонецЕсли;

СписокНоменклатуры = Новый Массив;

Для каждого ОформлениеСтроки из ОформленияСтрок Цикл
СписокНоменклатуры.Добавить(ОформлениеСтроки.ДанныеСтроки.Номенклатура);
КонецЦикла;

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

Запрос.УстановитьПараметр("Дата", КонецДня(ЭтотОбъект.Дата));
Запрос.УстановитьПараметр("Список", СписокНоменклатуры);
Запрос.УстановитьПараметр("ТипЦен", Софт_ОбщегоНазначения.ПолучитьТипПлановоУчетнойЦены());
Запрос.УстановитьПараметр("Регистратор", ЭтотОбъект.Ссылка);

Реквизиты = Запрос.Выполнить().Выгрузить();

Реквизиты.Индексы.Добавить("Номенклатура"); 	
Для каждого ОформлениеСтроки из ОформленияСтрок Цикл
СтрокаТЗ = Реквизиты.Найти(ОформлениеСтроки.ДанныеСтроки.Номенклатура, "Номенклатура");
Если СтрокаТЗ = Неопределено Тогда
Продолжить;
КонецЕсли;
Если СтрокаТЗ.Цена <> ОформлениеСтроки.ДанныеСтроки.Софт_ЦенаПлановоУчетная Тогда 
ОформлениеСтроки.Ячейки.Софт_ЦенаПлановоУчетная.ЦветФона 	= WebЦвета.СветлоРозовый;
КонецЕсли;

дополнительные реквизиты... (нужно будет переписать этот код есть сомнения по-быстрому отображению)
Если ЕстьКод Тогда 
ОформлениеСтроки.Ячейки.Код.УстановитьТекст(СтрокаТЗ.Код);
КонецЕсли;

Если СтрокаТЗ <> Неопределено Тогда 
Если ЕстьЕдиницаБИ Тогда 
ОформлениеСтроки.Ячейки.ЕдиницаИзмерения.УстановитьТекст(СтрокаТЗ.БазоваяЕИ);
КонецЕсли;
КонецЕсли;
КонецЦикла;   		

КонецПроцедуры

Результать запроса на прикрепленном файле. Красным линиями выделено то, как программа работает, а зеленым- как доложно быть. Посмотреть вложение 5529