что-то странно это...
1) покажи код "позиционирования на документ"
2) замеры производительности
3) используется ли раскраска в журнале (FormEx)?
4) какие вычисляемые поля есть в журнале?
5) простой скроллинг тоже тормозит?

короче - там ли ты роешь?

База на SQL
В журнале используется раскраска строк средствами 1С++
Три вычисляемых колонки с запросами по регистрам
Текст процедуры запросов, выбора и позиционирования ниже

Процедура Выполнить(ЧтоИщем)
     Перем ВыбСтрока;
     Если ПустаяСтрока(ЧтоИщем)=1 Тогда
           Предупреждение("Уточните параметр поиска!",10);
           Возврат;
     КонецЕсли;
     Если ЧтоИщем=НомерДокумента Тогда
           ТекстЗапроса="
                       |SELECT
                       |      Жур.IDDoc as [Док $Документ.Счет],
                       |      Жур.IDDocDef as Док_вид,
                       |      Жур.DocNo as НомерДок,
                       |      $Док.Контрагент as [Контр $Справочник.Контрагенты]
                       |FROM
                       |      _1SJourn as Жур
                       |INNER JOIN
                       |      $Документ.Счет as Док ON Док.IDDoc = Жур.IDDoc
                       |WHERE
                       |      Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
                       |      Жур.IDDocDef = $ВидДокумента.Счет AND
                       |      Жур.DocNo Like "+"'%"+СокрЛП(НомерДокумента)+"%'
                       |";
           _RS.УстановитьТекстовыйПараметр("НачДата",НачалоИнтервала);
           _RS.УстановитьТекстовыйПараметр("КонДата",КонецИнтервала);
     ИначеЕсли ЧтоИщем=ДатаДокумента Тогда
           _ДатаДокумента=СокрЛП(ДатаДокумента);
           Если ЧислоЦифрВПредставленииДаты=8 Тогда
                 ВыбДата=Дата(Лев(_ДатаДокумента,6)+"20"+Прав(_ДатаДокумента,2));
           Иначе
                 ВыбДата=Дата(ДатаДокумента);
           КонецЕсли;
           Если (ВыбДата>КонецИнтервала) или (ВыбДата<НачалоИнтервала) Тогда
                 Предупреждение("Выберите дату в периоде журнала!",10);
                 Активизировать("ДатаДокумента",0);
                 Возврат;
           КонецЕсли;
           ТекстЗапроса="
                       |SELECT
                       |      Жур.IDDoc as [Док $Документ.Счет],
                       |      Жур.IDDocDef as Док_вид,
                       |      Жур.DocNo as НомерДок,
                       |      $Док.Контрагент as [Контр $Справочник.Контрагенты]
                       |FROM
                       |      _1SJourn as Жур
                       |INNER JOIN
                       |      $Документ.Счет as Док ON Док.IDDoc = Жур.IDDoc
                       |WHERE
                       |      Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
                       |      Жур.IDDocDef = $ВидДокумента.Счет
                       |";
           _RS.УстановитьТекстовыйПараметр("НачДата",ВыбДата);
           _RS.УстановитьТекстовыйПараметр("КонДата",ВыбДата);
     ИначеЕсли ЧтоИщем=Контрагент Тогда
           ТекстЗапроса1="
                       |SELECT
                       |      Спр.ID as [Элемент $Справочник.Номенклатура]
                       |FROM
                       |      $Справочник.Контрагенты as Спр
                       |WHERE
                       |      Спр.Descr Like '%"+СокрЛП(Контрагент)+"%' AND isfolder<>1";
           ТекстЗапроса="
                       |SELECT
                       |      Жур.IDDoc as [Док $Документ.Счет],
                       |      Жур.IDDocDef as Док_вид,
                       |      Жур.DocNo as НомерДок,
                       |      $Док.Контрагент as [Контр $Справочник.Контрагенты]
                       |FROM
                       |      _1SJourn as Жур
                       |INNER JOIN
                       |      $Документ.Счет as Док ON Док.IDDoc = Жур.IDDoc
                       |WHERE
                       |      Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
                       |      Жур.IDDocDef = $ВидДокумента.Счет AND
                       |      $Док.Контрагент in ("+ТекстЗапроса1+")
                       |";
           _RS.УстановитьТекстовыйПараметр("НачДата",НачалоИнтервала);
           _RS.УстановитьТекстовыйПараметр("КонДата",КонецИнтервала);
     ИначеЕсли ЧтоИщем=Сумма Тогда
           ТекстЗапроса="
                       |SELECT
                       |      Жур.IDDoc as [Док $Документ.Счет],
                       |      Жур.IDDocDef as Док_вид,
                       |      Жур.DocNo as НомерДок,
                       |      $Док.Контрагент as [Контр $Справочник.Контрагенты],
                       |      SUM($Док.СуммаСНДС) as Сумма
                       |FROM
                       |      _1SJourn as Жур
                       |INNER JOIN
                       |      $Документ.Счет as Док ON Док.IDDoc = Жур.IDDoc
                       |WHERE
                       |      Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
                       |      Жур.IDDocDef = $ВидДокумента.Счет
                       |HAVING
                       |      SUM($Док.СуммаСНДС) Like "+"'%"+СокрЛП(Сумма)+"%'

                       //|      Жур.DocNo Like "+"'%"+СокрЛП(НомерДокумента)+"%'
                       |";
           _RS.УстановитьТекстовыйПараметр("НачДата",НачалоИнтервала);
           _RS.УстановитьТекстовыйПараметр("КонДата",КонецИнтервала);
     Иначе
           Предупреждение("Пока не работает!",10);
           Возврат;
     КонецЕсли;
     //_RS.Отладка();
     ТЗ=_RS.ВыполнитьИнструкцию(ТекстЗапроса);
     ТЗ_КолСтрок=ТЗ.КоличествоСтрок();
     Если ТЗ_КолСтрок=0 Тогда
           Предупреждение("Вхождений не найдено...");
           Возврат;
     КонецЕсли;
     ТЗ.ВидимостьКолонки("Док_Вид,НомерДок",0);
     ТЗ.УстановитьПараметрыКолонки(1,,,,"Документ",43,,1);
     ТЗ.УстановитьПараметрыКолонки(4,,,,"Контрагент",40,,1);
     Если ТЗ.ВыбратьСтроку(ВыбСтрока,"Выберите документ ["+ТЗ_КолСтрок+"]")=1 Тогда
           Конт.Активизировать("НомерДок",0);
           Конт.АктивизироватьОбъект(ТЗ.ПолучитьЗначение(ВыбСтрока,1));
     КонецЕсли;
     _RS.Закрыть();
     Форма.Закрыть();
КонецПроцедуры

1) запросы сейчас не рассматриваем, хотя их можно немножко почистить от мусора типа Жур.IDDocDef as Док_вид,   [Элемент $Справочник.Номенклатура] и т.д.

2) похоже что это не весь код - судя по всему ввод критериев поиска и сам поиск у тебя выполняется в некоей модальной форме, которую ты потом закрываешь Форма.Закрыть();  - так вот интересует код вызова этой формы для ввода критериев... (кстати нет ли у тебя чего-нибудь в процедуре ПриЗакрытии() в этой форме? - может тормозить там)

3) Попробуй отключи раскраску и посмотри, что изменится

4) все таки - замеры производительности и количество доков - не помешали бы

1) оптимизируй запросы по регистрам, коль тормозят они (параметризированными запросами)
2) отключай вычисления этих регистров в момент позиционирования

Кстати, не поможете ли с последним запросом: в документе Счет в табличной части поле СуммаСНДС, с итогами. Надо по фрагменту суммы (строка) отобрать счета с похожим итогом по колонке документа СуммаСНДС и исправить этот бред:
|HAVING 
|      SUM($Док.СуммаСНДС) Like "+"'%"+СокрЛП(Сумма)+"%'

DrACe писал(а) 28. Декабря 2006 :: 05:39:


Логичнее - да, но быстрее получается ввести число как строку, и задать маску строки поиска 999... Ведь требуется всего лишь поиск по фрагменту суммы.

Кстати, как ни странно, но $Док.СуммаСНДС Like '%"+СокрЛП(Сумма)+"%' у меня работает и в таком виде.

Всем огромное спасибо за помощь, и с Новым Годом!