Говнокод

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

КонецЦикла;

Прям классика жанра) Запрос в цикле, и условие к виртуальной таблице регистра сведений)

Запостил:

adc5, 13.06.2014 (Updated 27.03.2018)

Комментарии (7) RSS

eth0 12 лет ago # 0

Всё в порядке. 99% одноэсников не могут в запросы. Мозги не так устроены или съедены семёркой.
Хотя, казалось бы, сделай все вычисления к данным в одном запросе, это же тривиально.
Ответить
- kegdan 12 лет ago # 0 ⇈
  
  Как говориться - не доставай из базы больше, чем тебе нужно
  Ответить
guest 12 лет ago # 0

Цена.Цена

жуть
Ответить
volter9 12 лет ago # 0

Это что-ли SQL по-Русски?
Ответить
- jerokee 12 лет ago # 0 ⇈
  
  Он, родной...
  Ответить
  - kegdan 12 лет ago # 0 ⇈
    
    Не родной он мне
    Ответить
HomoAlbus 12 лет ago # 0

Справочники.ТипыЦенНоменклатуры.НайтиПоК оду("000000001"), пичалька 🙁
Ответить