Выгрузка товаров в кассы

Добрый день подскажите пожалуйста как ускорить выгрузку. в модуле фоновых заданий в выгрузке товаров в розницу дописал 2 условия и время выполнения задания увеличилось с 10 секунд до почти 3 минут. Вот код
РезТаб = Запрос.Выполнить().Выгрузить();
        Для Каждого Стр Из РезТаб Цикл
            Если СокрЛП(Стр.Штрихкод)<>"" Тогда
                ДБ.Добавить();
                ДБ.F001=СокрЛП(Стр.Наименование);
                ДБ.F002=Стр.Код;
                ДБ.F003=Стр.КодРодителя;
                Если СтрПодразделений.Подразделение = Справочники.Подразделения.НайтиПоКоду("УТ0000028") Тогда
                    Если Стр.Ссылка.БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("112") Тогда
                        ДБ.F004=2;
                    Иначе
                        ДБ.F004=Стр.Весовой;
                    КонецЕсли;
                Иначе
                    ДБ.F004=Стр.Весовой;
                КонецЕсли;

                ДБ.F005=Стр.Штрихкод;
                ДБ.F006=Стр.Цена;
                ДБ.F011=Стр.ЦенаПоКарте;
                ДБ.F012=Стр.ЭтоАлкоголь;
                ДБ.F007=1;
                Если СтрПодразделений.Подразделение = Справочники.Подразделения.НайтиПоКоду("УТ0000028") Тогда
                    Если ЗначениеЗаполнено(Стр.Ссылка.Принтер) Тогда
                        ДБ.F013=СокрЛП(Стр.Ссылка.Принтер);
                    КонецЕсли;
                КонецЕсли;


                Если Стр.СтавкаНДС=Перечисления.СтавкиНДС.НДС10 Тогда
                    ДБ.F009=10;
                ИначеЕсли Стр.СтавкаНДС=Перечисления.СтавкиНДС.НДС18 Тогда
                    ДБ.F009=18;
                Иначе
                    ДБ.F009=0;
                КонецЕсли;
                ДБ.F010=Стр.МаксСкидка;
                ДБ.Записать();
            КонецЕсли;
        КонецЦикла;