1. Список говнокодов пользователя adc5

    Всего: 1

  2. 1C / Говнокод #16157

    −165

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    Для каждого ПараметрыПозиции Из ПараметрыПечати.Позиции Цикл
        ...
	ОбластьДанных.Параметры.Заполнить(ПараметрыПозиции);
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ЦеныНоменклатурыСрезПоследних.Цена,
	|	ЦеныНоменклатурыСрезПоследних.Номенклатура
	|ИЗ
	|	РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
	|ГДЕ
	|	ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦен
	|	И ЦеныНоменклатурыСрезПоследних.Номенклатура = &Номенклатура";
	Запрос.УстановитьПараметр("ТипЦен",Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000001"));
	Запрос.УстановитьПараметр("Номенклатура",ПараметрыПозиции.Номенклатура);
	Цена = Запрос.Выполнить().Выбрать();
	Цена.Следующий();
	Если Цена.Цена <> Неопределено Тогда
		ОбластьДанных.Параметры.Цена = Цена.Цена;
		Если ЗначениеЗаполнено(ПараметрыПозиции.КфМест) Тогда  
			ОбластьДанных.Параметры.ЦенаМеста = Цена.Цена * ПараметрыПозиции.КфМест;
		КОнецЕсли;
		СумИтог = СумИтог + Цена.Цена * ПараметрыПозиции.Количество;
		ОбластьДанных.Параметры.Сумма = Цена.Цена * ПараметрыПозиции.Количество;
	КонецЕсли;
	ТабДокумент.Присоединить(ОбластьДанных);

КонецЦикла;

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

    adc5, 13 Июня 2014

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