Ребята, посоветуйте пожалуйста, как можно избавится от запроса в цикле???

Пока Отборы.Следующий() Цикл
        Если Отборы.Прайс<>Перечисления.ПеречислениеПрайс.ПустаяСсылка() Тогда
            
            ГруппыНом.ЗагрузитьЗначения(Отборы.ГруппыНоменклауры.ВыгрузитьКолонку("Группы"));
            ЗначенияСвойств.ЗагрузитьЗначения(Отборы.ЗначенияСвойств.ВыгрузитьКолонку("Значение"));
            Если ЗначенияСвойств.Количество() > 0 Тогда

                                        
            Запрос1.УстановитьПараметр("Значение", ЗначенияСвойств);
            Запрос1.УстановитьПараметр("Группы", ГруппыНом);
            ТЗНом = Запрос1.Выполнить().Выгрузить();
            
            
            
            КонецЕсли;
    
        КонецЕсли;
                Если ТЗНом <>Неопределено Тогда
                    ПрошлаОтбор=ТЗНом.Найти(Номенклатура,"Номенклатура")<>Неопределено;//Результат.Найти
                    Если ПрошлаОтбор=Истина Тогда    
                        СтрНом=Номенклатура;
                        Расчитать(Отборы.Ссылка,СтрНом);
                        Если ПрошлаОтборПоПоставщикам=Истина И ((ЗАК>=Отборы.Интервал1 И ЗАК<=Отборы.Интервал2) ИЛИ (Отборы.Интервал1=0 И Отборы.Интервал2=0) )  Тогда
                            
                            
                            Строка=СтрЗаменить(Строка, ";в наличии1;", ";"+КОЛ+";");
                            Строка=СтрЗаменить(Строка, ";в наличии0;", ";"+КОЛ+";");
                            Строка=СтрЗаменить(Строка, ";в наличии;", ";"+КОЛ+";");
                            
                            ИмяПрайса=Отборы.Прайс;
                            Наценка=Отборы.Наценка;
                            
                            Если Наценка<>0 И ИмяПрайса=Перечисления.ПеречислениеПрайс.Прайс1 Тогда
                                
                                Строка=Строка+ ";"+Формат(ЗАК+ЗАК*(Наценка/100),"ЧГ=0;ЧДЦ=2;ЧРД='.'");
                            ИначеЕсли Наценка<>0 И ИмяПрайса=Перечисления.ПеречислениеПрайс.Прайс2 Тогда    
                                Строка=Строка+ ";"+Формат(ЗАК+ЗАК*(Наценка/100),"ЧГ=0;ЧДЦ=2;ЧРД='.'");
                                
                            ИначеЕсли Наценка<>0 И ИмяПрайса=Перечисления.ПеречислениеПрайс.Прайс3 Тогда    
                                
                                Строка=Строка+ ";"+Формат(ЗАК+ЗАК*(Наценка/100),"ЧГ=0;ЧДЦ=2;ЧРД='.'");
                                
                            ИначеЕсли Наценка<>0 И ИмяПрайса=Перечисления.ПеречислениеПрайс.Прайс4 Тогда    
                                
                                Строка=Строка+ ";"+Формат(ЗАК+ЗАК*(Наценка/100),"ЧГ=0;ЧДЦ=2;ЧРД='.'");
                                
                            ИначеЕсли Наценка<>0 И ИмяПрайса=Перечисления.ПеречислениеПрайс.Прайс5 Тогда    
                                
                                Строка=Строка+ ";"+Формат(ЗАК+ЗАК*(Наценка/100),"ЧГ=0;ЧДЦ=2;ЧРД='.'");
                                
                            ИначеЕсли Наценка<>0 И ИмяПрайса=Перечисления.ПеречислениеПрайс.Прайс6 Тогда    
                                Строка=Строка+ ";"+Формат(ЗАК+ЗАК*(Наценка/100),"ЧГ=0;ЧДЦ=2;ЧРД='.'");
                                
                            ИначеЕсли Наценка<>0 И ИмяПрайса=Перечисления.ПеречислениеПрайс.Прайс7 Тогда    
                                Строка=Строка+ ";"+Формат(ЗАК+ЗАК*(Наценка/100),"ЧГ=0;ЧДЦ=2;ЧРД='.'");
                                
                            ИначеЕсли Наценка<>0 И ИмяПрайса=Перечисления.ПеречислениеПрайс.Прайс8 Тогда    
                                Строка=Строка+ ";"+Формат(ЗАК+ЗАК*(Наценка/100),"ЧГ=0;ЧДЦ=2;ЧРД='.'");
                            ИначеЕсли Наценка<>0 И ИмяПрайса=Перечисления.ПеречислениеПрайс.Прайс9 Тогда    
                                Строка=Строка+ ";"+Формат(ЗАК+ЗАК*(Наценка/100),"ЧГ=0;ЧДЦ=2;ЧРД='.'");
                                
                            ИначеЕсли Наценка<>0 И ИмяПрайса=Перечисления.ПеречислениеПрайс.Прайс10 Тогда    
                                Строка=Строка+ ";"+Формат(ЗАК+ЗАК*(Наценка/100),"ЧГ=0;ЧДЦ=2;ЧРД='.'");
                            КонецЕсли;
                        Иначе
                            Наценка=0;
                        КонецЕсли;
                        
                    КонецЕсли;
                    
                КонецЕсли;
            КонецЦикла;

фотография в личке моментально дает кучу ответов

закэшировать?

а где тут запрос? и расчитать напиши правильно

Отборы это выборка из справочника отборы, в каждом отборе хранятся значения, группы и свойства, Запрос1 выбирает номенклатуру соответсвующую этим значениям и свойствам

Жесть как она есть

кстати а где запрос?

(3) ВЫБРАТЬ
    ЗначенияСвойствНоменклатуры.Номенклатура,
    ЗначенияСвойствНоменклатуры.СвойствоНоменклатуры,
    ЗначенияСвойствНоменклатуры.Значение
ИЗ
    РегистрСведений.ЗначенияСвойствНоменклатуры КАК ЗначенияСвойствНоменклатуры
ГДЕ
    ЗначенияСвойствНоменклатуры.Номенклатура В ИЕРАРХИИ(&Группы)
    И ЗначенияСвойствНоменклатуры.Значение В(&Значение)

(4) хрень какая

(8) конфа самописная пришлось мудрить

(4) А соединения для чего придумали? Одним запросом выбирайте и отборы, и номенклатуру, в чем проблема-то.

Жесть.

+(10) И вообще, визуализируйте для себя логику всей этой процедуры и полностью перепишите. Глядя на этот адЪ, глаза кровоточат =)

(9) Руки бы поотрывать таким "самописцам".

(9) мож, всё заново, а? ну пожалуйста

(14) Может лучше голубушку замуж и к плите?

(0) И кстати, твоё условие "Если ПрошлаОтбор=Истина Тогда" - никогда не выполнится.

(13)что вам тут не нравится?

(15) я не участвую. кто смелый? ;)

(16) представь себе выполняется!

(17) ответы "всё" или (Васильев с нами) "весь этот бред" устроят?

Ник:     Eeelena
Настоящее имя:     Анна

(17) Все нормально

(19) Не верю.

(22) глабвух сказал, что выполняется - не спорь

(19) Да, не заметил вторую часть. Но всё равно - так писать - это АДЪ

(24)почему?

(25) святая корова! программист - это профессия, на минуточку. которой иногда нужно учиться

я не пойму - вторым запросом что делается?

(25) Вы умеете готовить?

(25) Ну например, какой смысл в конструкции
"Если Наценка<>0 И ИмяПрайса=Перечисления.ПеречислениеПрайс.Прайс1 Тогда"


Лепить кучу ИНАЧЕЕСЛИ, если во всех навскидку делается одно и то же? Или я опять что-то не заметил?

проверяем на то что есть свойство просто по отборам? суть написанного не понимаю) Ну а так на вскидку ВНУТРЕННЕЕ СОЕДИНЕНИЕ нужно

Ооо, Денич Сергеевич прокачал свой запросописательный скил.

(26) вот че ты врешь? Зачем учиться? "Тяп-ляп и в продакшн"

(31) Эм. Ну а то, вчера научился

(25) Если умеете готовить - половник вам в руки - и - вперед!

http://www.avito.ru/moskva/predlozheniya_uslug/prigotovlyu_borsch_348780919

ладно ребята спасибо за ваши очень познавательные комментарии, разобралась.

(35) Будешь всё переписывать заново?

(36) зачем? конфа ж самописная, сойдет и так :)

(37) Дык тогда проще всего оставить все как есть из принципа: "Работает - не трожь" :)

Ей платят за количество написанных строк :-)

(0) Анна, ты ли?!

(39) Возможно, тут в соседней  ветке бухгалтерам платят за количество проводок.

(41) Но это вообще зло... :-)
За количество проводок платить :-).

Сегодня твоя смена - с тебя 1000 проводок как минимум.

Легко!

1. Удалить указанный го***код.
2. Уточнить задачу.
3. Написать код, согласно п.2.
4. Бинго!