Помогите оптимизировать код! Конфигурация - "Бухгалтерия предприятия 2"!

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


это шутка такая?

(1) пятница же

(0) Медетотивно. Это кто-то прочитал статью, что при любой возможности нужно использовать запрос.

Я думаю, что лучше перебором плана счетов на сравнение делать!

Зачем?

Сделать цикл по всем кодам быстрого доступа)) и внутри запрос по ним:)

Запрос = Новый Запрос;
        Запрос.Текст = "ВЫБРАТЬ
                       |    Хозрасчетный.Ссылка,
                       |    Хозрасчетный.КодБыстрогоВыбора,
                       |ИЗ
                       |    ПланСчетов.Хозрасчетный КАК Хозрасчетный
                       |ГДЕ
                       |    Хозрасчетный.КодБыстрогоВыбора = ""6201"" ИЛИ Хозрасчетный.КодБыстрогоВыбора = ""6202""";

        РезультатЗапроса = Запрос.Выполнить().Выбрать();
        Пока РезультатЗапроса.Следующий() Тогда
            Если РезультатЗапроса.КодБыстрогоВыбора = "6201" тогда
                 Документ.СчетУчетаРасчетовСКонтрагентом = РезультатЗапроса.Ссылка;
            Иначе
                 Документ.СчетУчетаРасчетовПоАвансам = РезультатЗапроса.Ссылка;
            КонецЕсли;
        КонецЦикла;
Как минимум запрос всего один.

Посоны, не смешно.
Мне реально в среду прислали эту обработку по обмену с EDI (от провайдера EDI), я сейчас в ней ковыряюсь, это я увидел с первых строк. Обработка писалась именно под типовую "Бухгалтерию предприятия".

СписокКод = новый СписокЗначений();
СписокКод.Добавить() = "6201";
СписокКод.Добавить() = "6202";

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

(4) Ну чуваки примерно это и реализовали :)

(8) А что не так то ? Ну подумаешь 2 запроса ? И переменные названы некрасиво. ИМХО не критично

в плане щитов эти два щёта предопределены. нах.я запрос?

(8) Мы когда-то получали обработки обмена с внешней wms от "внедренцев" этой wms с процедурами типа ЗагрузкаШмона(ТаблШмон); - точно не помню, но это была загрузка инвентаризации.

(12) как это зачем? Это же на 30-40 строчек больше! Программист должен кодить, а так за что деньги получать...

Документ.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателямиИЗаказчиками; // 6201
                 Документ.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным; // 6202

(0) Нормальный код, оставь так. Хотя, можно еще в запрос добавить  Автоупорядочивание

                 Документ.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателямиИЗаказчиками; // 6201
                 Документ.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным; // 6202


Документ.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01"); // 6201
                 Документ.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.02"); // 6202

(18)см (12)

(19)Я скопировал (17) ))

ХЗ = ПланыСчетов.Хозрасчетный;
Документ.СчетУчетаРасчетовСКонтрагентом = ХЗ.РасчетыСПокупателямиИЗаказчиками; // 6201
Документ.СчетУчетаРасчетовПоАвансам = ХЗ.РасчетыПоАвансамПолученным; // 6202

(21) что-то тут не так. Ведь наверняки пользователи меняли там поле счет быстрого выбора. Задавали разные счета. А у вас не получится так.

(21, 22)
Да, да! То что коротко - быстрым не бывает!

(22) (23) я на фикси сижу, если что переделаю :)))

(23) БП 3.0?

Оптимизацию запроса давали (9) кода тоже (17), выбирай и пользуйся. А юмора не получилось)