Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("Мол",Мол);
   Запрос.Текст =
   "ВЫБРАТЬ
   |    МестонахождениеОСБухгалтерскийУчет.ОсновноеСредство
   |ИЗ
   |    РегистрСведений.МестонахождениеОСБухгалтерскийУчет КАК МестонахождениеОСБухгалтерскийУчет
   |ГДЕ
   |    МестонахождениеОСБухгалтерскийУчет.МОЛ = &МОЛ";
   ТЗ = Запрос.Выполнить().Выгрузить();
   
   СЗ = Новый СписокЗначений;
   Сз = Тз.ВыгрузитьКолонку("ОсновноеСредство");
   
   
   СтандартнаяОбработка = Ложь;    
   Счетчик = 1;
   Пока Тз.ВыбратьСтроку() Цикл
       ЭтаФорма.СправочникСписок.Отбор.Ссылка.Значение = Сз[Счетчик];
       Счетчик = Счетчик + 1;
   КонецЦикла;
   ЭтаФорма.СправочникСписок.Отбор.Ссылка.ВидСравнения = ВидСравнения.ВСписке;
   ЭтаФорма.СправочникСписок.Отбор.Ссылка.Использование = Истина;

   ЭтаФорма.СправочникСписок.Отбор.ЭтоГруппа.Установить(Ложь);
   ЭтаФорма.СправочникСписок.Отбор.ЭтоГруппа.Использование = Истина;

   ЭтаФорма.ЭлементыФормы.СправочникСписок.ИерархическийПросмотр = Ложь;
   ЭтаФорма.ЭлементыФормы.СправочникСписок.ИзменятьИерархическийПросмотр = Ложь;

   ЭтаФорма.Обновить();
Открывается другая форма

какой красивый копрокод

(1) дурак?

(2) ты? да.

(3) Оскорбить пытаешься? сходи на курсы по управлению эмоциями

(4) мне там делать нечего. а тебе порекомендую курсы по 1с

(5) Сходи, сходи

сиди умничай дальше.

(0) СписокЗначений.ВыбратьЭлемент(<Заголовок>, <Элемент>) конечно не предлагать?

(8) нет

а в чем трудность то какая разница из какого списка пользователь будет выбирать, если в нем он увидит только то что ты покажешь?

из (0):

знаешь что произойдет
   Пока Тз.ВыбратьСтроку() Цикл

Это вопрос?

ну да

Код жесткий. тут ничо не скажешь.

тогда не знаю

СЗ = Новый СписокЗначений;
   Сз = Тз.ВыгрузитьКолонку("ОсновноеСредство");

Синтаксис:

ВыгрузитьКолонку(<Колонка>)

Описание:

Создает массив и копирует в него значения, содержащиеся в колонке таблицы значений.

зачем: СЗ = Новый СписокЗначений; не понятно

(14) ща исправлю

так набери в СП ВыбратьСтроку()

нереально....Не знаю что такое копрокод, но гомнокод точно.

(16) Мне на это пока все равно

(19) Ладно, рыжий, проходи мимо

(19)копрокод = гомнокод, только по научному)

ВОобще там выборки никакой не надо, и даже не надо два раза писать куда чего выгружать

Сразу из запроса можно в отбор прописать выгрузку запроса и колонки для массива.
И убрать такое огромное количество обращение к форме.

или

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Мол",Мол);
Запрос.Текст =
"ВЫБРАТЬ
|    МестонахождениеОСБухгалтерскийУчет.ОсновноеСредство
|ИЗ
|    РегистрСведений.МестонахождениеОСБухгалтерскийУчет КАК МестонахождениеОСБухгалтерскийУчет
|ГДЕ
|    МестонахождениеОСБухгалтерскийУчет.МОЛ = &МОЛ";
ТЗ = Запрос.Выполнить().Выгрузить();

СЗ = Новый СписокЗначений;
Сз.ЗагрузитьЗначения(Тз.ВыгрузитьКолонку("ОсновноеСредство"));

СтандартнаяОбработка = Ложь;

ОС = Сз.ВыбратьЭлемент("Выберите ОС");

(23) Угу, только вот отобрать табличную часть по молу

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

   ЭтаФорма.СправочникСписок.Отбор.ЭтоГруппа.Установить(Ложь);
   ЭтаФорма.СправочникСписок.Отбор.ЭтоГруппа.Использование = Истина;

   ЭтаФорма.ЭлементыФормы.СправочникСписок.ИерархическийПросмотр = Ложь;
   ЭтаФорма.ЭлементыФормы.СправочникСписок.ИзменятьИерархическийПросмотр = Ложь;

Вот так работает, если ктото счетает что можно оптимизировать просьбасообщить

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

Для Каждого Стр из Тз Цикл
       ЭтаФорма.СправочникСписок.Отбор.Ссылка.Значение = Стр.ОсновноеСредство;
   КонецЦикла;

здесь у тебя в цикле будет меняться и останется только последнее ОС

Отлично, а я все никак не мог понять как загрузить список целиком

ну как то так...