Самописная конфа. Есть справочник Номенклатуры, как сделать так, чтобы при открытии справочника списка, отображались только те элементы, которые есть на складе. Нужен алгоритм, который будет работать быстрее всего. Мой работает достаточно медленно:

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
   
   МойСписок=Новый СписокЗначений();
   Выборка=Справочники.Изделия.Выбрать();
   Пока Выборка.Следующий() Цикл
        Если (глОперацияИзделия="ПриходМатрас")ИЛИ(глОперацияИзделия="РасходМатрас") Тогда
             Если Выборка.Владелец.ТипНоменклатуры<>Перечисления.ВидНоменклатуры.СерийныйТовар Тогда
                  Продолжить;
             КонецЕсли;
        КонецЕсли;
        Если (глОперацияИзделия="Приход")ИЛИ(глОперацияИзделия="Расход") Тогда
             Если Выборка.Владелец.ТипНоменклатуры<>Перечисления.ВидНоменклатуры.Изделие Тогда
                  Продолжить;
             КонецЕсли;
        КонецЕсли;
        мОтбор=Новый Структура;
        мОтбор.Вставить("ID",Выборка.Ссылка);
        мОтбор.Вставить("Склад",глСкладДокумента);
        Остатки=РегистрыНакопления.ОстаткиТМЦ.Остатки(глДатаДокумента,мОтбор);
        Количество=0;
        Если Остатки.Количество()>0 Тогда
             Количество=Остатки.Итог("Количество");
        КонецЕсли;
        Если (Количество=0)И(глОперацияИзделия="ПриходМатрас")И(Выборка.Владелец.ТипНоменклатуры=Перечисления.ВидНоменклатуры.СерийныйТовар) Тогда
             МойСписок.Добавить(Выборка.Ссылка);
        КонецЕсли;
        Если (Количество<>0)И(глОперацияИзделия="РасходМатрас")И(Выборка.Владелец.ТипНоменклатуры=Перечисления.ВидНоменклатуры.СерийныйТовар) Тогда
             МойСписок.Добавить(Выборка.Ссылка);
        КонецЕсли;
        Если (Количество=0)И(глОперацияИзделия="Приход") Тогда
             МойСписок.Добавить(Выборка.Ссылка);
        КонецЕсли;
        Если (Количество<>0)И(глОперацияИзделия="Расход") Тогда
             МойСписок.Добавить(Выборка.Ссылка);
        КонецЕсли;
   КонецЦикла;
   СправочникСписок.Отбор.ССылка.ВидСравнения=ВидСравнения.ВСписке;
   СправочникСписок.Отбор.ССылка.Значение=МойСписок;
   СправочникСписок.Отбор.Ссылка.Использование=Истина;
   СправочникСписок.Порядок.Установить("Код");
   
КонецПроцедуры

выбрать фсех из РН.ТоварыНаСкладах.Остатки

Как увеличить скорость выполнения. На компьютере, на котором находится база справочник открывается через 1,5 секунды, а на компьютерах в сети (3-х) через 15 секунд.

(1) не понял.

(0) Аллергия на запросы?

если остатка нет, номенклатура не отображается, то как оприходовать номенклатуру, который нет на складе ?

(4) как запрос на конечный остаток номенклатуры на складе написать?, я для подсчета остатков всегда пользовался:

РегистрыНакопления.ОстаткиТМЦ.Остатки

А для выборки Запросом.

(5) Отбор.Доступность=Истина; Отбор.Использование=Ложь;

(5) это для реализации

(6) А "подсчет" от "выборки" чем-то отличается?

(4) отсутсвтвие намёков на реляционное мышление. см (6)

(8) Главное - не смотри, как в типовых сделано

На сколько быстрее будет работать запрос, чем метод остатки? И будет ли он быстрее?

(12) Стаж: 5 г. 6 мес. Омистинеть

(13) не умничай, а ответь!

(14) Кулаком по столу еще хлопни. Я тебе уже ответил.

(12) во зьми и за мерь

такое ощущение, что человек в основном работал с 7.7 и без использования запросов

(12) >> На сколько быстрее будет работать запрос, чем метод остатки?

Если правильно написать запрос - то в разы.
А вообще зависит от размера справочника и количества элементов, по которым есть остатки. Одно дело когда у тебя всего в справочнике 100 позиций и почти по всем есть остатки (прирост будет мало заметен) и совсем другое, когда справочник большой (десятки тысяч элементов), но на остатках есть относительно мало из них (прирост будет на порядки).

(18) у меня второй случай!

(19) тогда откуда такая запрософобия?

Код дайте: РегистрНакопления: ОстаткиТМЦ. Измерения: Склад, Номенклатура. Ресурс: количество.

Как получить выборку на определенном складе, только тех элементов, которые есть на складе?

(19) а зачем ты на форме показываешь поле списока из справочника, когда логичней выгрузить результаты запроса в таблицу значений и все? Ну можно еще поставить смену группы если номенклатура навалена в справочник по группам. Тогда лучше на форме разместить отдельно поле для дерева групп и отображение табличного поля с остатками для текущей группы

(21) вот, ты лентяй....

(21) запросом? ты что совсем ничего не умеешь?

(21) дарю: Запрос.Выполнить().Выбрать();

(21) в модуле формы в нужном тебе месте жми ПКМ и там есть когнструктор для лентяев или новичков

(0) динамический список...запрос к виртуальной таблице остатков

(26) не надо про новичков! удобная штучка. плюс к прочему умеет контролировать синтаксическую верность "рукопашных" запросов ;)

(21) Жесть

(25) Меня интересует то, чтобы в выборке был итог по количеству, т.е. мне не нужно, чтобы выбирались движения по этому регистру.

Запрос=Новый Запрос("Выбрать * Из РегистрНакопления.ОстаткиТМЦ Где Склад=&МойСклад");

Как изменить этот код, чтобы выбирались только остатки номенклатуры на этом складе, а не движения

(30) ресурс один - количество

(30) Если мы за тебя запросы писать будем, то давай тогда и зарплату тоже будем за тебя получать.

(30) вернись к началу ветки и прозрей

ВЫБРАТЬ
   ОстаткиТМЦ.Номенклатура,
   ОстаткиТМЦ.КоличествоОстаток
ИЗ
   РегистрНакопления.ОстаткиТМЦ.Остатки(&ДатаОстатков, Склад = &Склад) КАК ОстаткиТМЦ

(34) Ну блин =(

(34) спасибо!

(36) (34)
Только правильнее будет сразу в тексте запроса учитывать ТипНоменклатуры, ВидОперации (ну и прочие условия, которые ты там перебираешь).
Короче на выходе в результате запроса должен быть уже готовый список для отбора, который не надо будет дополнительно обрабатывать, проверяя всякие там условия.
Только в таком случае будет реальный прирост производительности.

Задачка №2. А как отобрать те, которых нет на складе?

чтобы не попали, которые на остатках?

(38) спрНоменклатура по рнОстаки есть Null

(40) расшифруй, не до конца понял!

(34) как-то сразу вспомнилась присказка Фиксина "мой скромный Гений дарит вам..." :) запрос с барского плеча :)

Замер производительности что говорит???
Получение данных из цикла надо убрать однозначно:
1. Выборка.Владелец.ТипНоменклатуры=Перечисления.ВидНоменклатуры.СерийныйТовар, каждая такая операция - это запрос с левым соединением
2. Остатки=РегистрыНакопления.ОстаткиТМЦ.Остатки(глДатаДокумента,мОтбор); а это что внутри цикла делает.
А уж  к а к  убрать - тебе должно быть виднее.

(43) я это уже поправил.

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

(44) запрос в цикле ?

(45) нет. формируется список значений, он и выводится в справочник список:

   СправочникСписок.Отбор.ССылка.ВидСравнения=ВидСравнения.ВСписке;
   СправочникСписок.Отбор.ССылка.Значение=МойСписок;
   СправочникСписок.Отбор.Ссылка.Использование=Истина;

(45) мне теперь надо, написать алгоритм, как поместить в справочник список те элементы, которых нет на складе. Не перебирая каждый и проверяя на остаток

Вообще эти РегистрыНакопления.ОстаткиТМЦ.Остатки и Справочники.Изделия.Выбрать(); выкинуть надо из платформы ]:->

Так?:

                  Запрос=Новый Запрос("Выбрать МоиОстатки.ID Как ID Из РегистрНакопления.ОстаткиТМЦ.Остатки(&ДатаОстатков,Склад=&Склад) Есть NULL КАК МоиОстатки Где МоиОстатки.Номенклатура.ТипНоменклатуры=&МойТип");

ау

(49) Это не будет работать

ВЫБРАТЬ
   МоиОстатки.ID КАК ID
ИЗ
   РегистрНакопления.ОстаткиТМЦ.Остатки(&ДатаОстатков,
       Склад=&Склад
       И Номенклатура.ТипНоменклатуры=&МойТип)  КАК МоиОстатки