- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
Процедура ПересчитатьстоимостьПлан()
Если 1=1 тогда //ВидКомплектации = Перечисления.ВидыКомплектации.Сборка тогда
Для каждого стр из комплектующие Цикл
Если стр.ЦенаПлан = 0 тогда // заполнимЦену
мНоменклатура = Новый массив;
//Для каждого стр из Комплектующие Цикл
мНоменклатура.Добавить(стр.Номенклатура);
//Конеццикла;
Запрос = новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ЦеныНоменклатурыСрезПоследних.Номенклатура,
| ЦеныНоменклатурыСрезПоследних.Цена
|ИЗ
| РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&датаД, ) КАК ЦеныНоменклатурыСрезПоследних
|ГДЕ
| ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦен
| И ЦеныНоменклатурыСрезПоследних.Номенклатура В ИЕРАРХИИ(&Номенклатура)";
Запрос.УстановитьПараметр("ДатаД",дата);
Запрос.УстановитьПараметр("типЦен",Склад.ТипЦенРозничнойТорговли);
Запрос.УстановитьПараметр("ссылка",ссылка);
Запрос.УстановитьПараметр("Номенклатура",стр.Номенклатура);
аа =Запрос.Выполнить().Выгрузить();
Если аа<> неопределено тогда
стр.ЦенаПлан = аа[0].цена;
КонецЕсли;
Конецесли;
стр.ЦенаПлан = стр.ЦенаПлан;
стр.Суммаплан = стр.Количество*стр.ЦенаПлан;
Конеццикла;
// *******************************************************888
иначе
Если СуммаПлан = 0 тогда
возврат;
КонецЕсли;
итСумма = 0;
Для каждого стр из Комплектующие Цикл
//стр.Суммаплан = глОкруглить(стр.ДоляСтоимости*СуммаПлан,0.5);
стр.Суммаплан = Окр(стр.ДоляСтоимости*СуммаПлан,1);
Если стр.Количество = 0 тогда
стр.ЦенаПлан = 0;
иначе
стр.ЦенаПлан = стр.Суммаплан/стр.Количество;
КонецЕсли;
итсумма = итСумма + стр.Суммаплан;
КонецЦикла;
Если итСумма<>Суммаплан тогда
стр.Суммаплан = стр.СуммаПлан - (СуммаПлан-итСумма);
Если стр.Количество = 0 тогда
стр.ЦенаПлан = 0;
иначе
стр.ЦенаПлан = стр.Суммаплан/стр.Количество;
КонецЕсли;
Конецесли;
КонецЕсли;
конецпроцедуры
С первого раза показалось 'Запрос.Текст = "ВЫЕБАТЬ'
Недоёб, однако у вас... Необходимо срочное лечение женщиной.
А ещё парсер говнокода не поддерживает восьмёрочный синтаксис.
Ну а так - типичные запросы в цикле; закомменченый код; добавление накой-то хрен номенклатуры в массив итд
В первом человек пользуется базой данных как, скажем, массивом, или "волшебной" функцией. Тут чаще всего и возникают запросы в цикле.
Во втором случае человек знает, как эффективнее всего использовать базы данных. Он подготавливает данные, отправляет в базу, пишет чуть более сложный запрос, и получает уже готовые массивы данных.
Задачу можно решить и так, и так. Только по эффективности второй подход гораздо более лучше.
было бы интересно обсудить, если кто-то придумает обратный пример для одной таблицы
select t.id
from mytree t
start with t.id = :some_parent
connect by prior t.id = t.parent_id
можно даже воспользоваться connect_by_root и прочими няшностями, если надо в одном запросе сразу лес вернуть
P.S. а, деревья уже выдвинули и опровергли.
Да и ораклы всякие поди умеют.
можно и из буханки сделать троллейбус)