Подскажите пожалуйста как оптимизировать код:
       Реал1=База.Документы.ПоступлениеТоваровУслуг;
       Реал=Реал1.Выбрать(НачалоДня(ДатаНач),КонецДня(ДатаКон));
       Пока Реал.Следующий() Цикл
           Если СокрЛП(Реал.Организация.ИНН)=КФТ Тогда
               МояПроцедура();    
           КонецЕсли;    
       КонецЦикла;
В том месте  где проверяется ИНН организации при проверке замером производительности уходит 90% времени, что сильно затармаживает работу.
Хотелось бы в методе выбрать() задать отбор по организации, но не знаю как передать туда структуру с отбором

Вот что хотелось бы получить:
Отб=Новый Структура("Организация",База.Справочники.Организации.НайтиПоРеквизиту("ИНН"),КФТ)
       Реал1=База.Документы.ПоступлениеТоваровУслуг;
       Реал=Реал1.Выбрать(НачалоДня(ДатаНач),КонецДня(ДатаКон));
       Пока Реал.Следующий() Цикл
             МояПроцедура();      
       КонецЦикла;

Точнее вот это
Отб=Новый Структура("Организация",База.Справочники.Организации.НайтиПоРеквизиту("ИНН"),КФТ)
       Реал1=База.Документы.ПоступлениеТоваровУслуг;
       Реал=Реал1.Выбрать(НачалоДня(ДатаНач),КонецДня(ДатаКон),Отб);
       Пока Реал.Следующий() Цикл
             МояПроцедура();      
       КонецЦикла;

Патологическая ненависть к запросам, или просто острые клюшки головного мозга?

(3)Никогда не пробовал делать запрос к базе через OLE((
Поделитесь пожалуйста, как это делать.

ап

(4) Так же, как в обычной базе

(4) Надо же когда-то начинать

V8 = "";
     Сообщить("Подключение к базе УПП " + ПутьКБазе81);
     V8 = Новый COMОбъект("V81.ComConnector");    
     
     Попытка        
         // создается объект COM-соединение                
         Если ЗначениеЗаполнено(Сервер81) Тогда
             СтрокаЗапуска = "Srvr="""+ СокрЛП(Сервер81) + """;Ref=""" + СокрЛП(База81) +""";Usr=""" + СокрЛП(Пользователь81) + """;Pwd=""" + СокрЛП(Пароль81)+""";";
         Иначе
             СтрокаЗапуска = "File="""+ СокрЛП(ПутьКБазе81) + """;Usr=""" + СокрЛП(Пользователь81) + """;Pwd=""" + СокрЛП(Пароль81)+""";";
         КонецЕсли;
         
         УПП8 = V8.Connect(СтрокаЗапуска);
         Сообщить("Подключение выполнено");
     Исключение        
         Предупреждение(ОписаниеОшибки());
         Возврат;
     КонецПопытки;


Запрос = Упп8.NewObject("Запрос");

(8) |Запрос = Упп8.NewObject("Запрос");
Таким же образом можн создать и объект Структура?
То есть NewObject("Структура")?