Бухгалтерия предприятия 3.0 в документе ИнвентаризацияОС при выборе МОЛ - надо изменить стандартную обработку, чтобы МОЛ отбирался по подразделению.

Код:

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

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

СписокОС - заполняется физ. лицами. Но отбор не устанавливается. Что я делаю не так?

отбор как-то в параметрах формы неплохо задаётся

Ответ=ОткрытьФормуМодально("Справочник.СпособыОтраженияРасходовПоАмортизации.ФормаВыбора", Новый Структура("Отбор", Новый Структура("Организация", Объект.Организация)));

(1) Но через параметры - нельзя указать Всписке. если я не ошибаюсь?!

а куда правое значение дел?

(4) всё-всё, вижу

Либо можно использовать Список.КомпоновщикНастроек

Что-то вроде Форма.Список.КомпоновщикНастроек

"в списке" и "в массиве" - это разные вещи?

МассивМаршрутов = ПолучитьМассивМаршрутовПоСкладуСервер(Объект.Склад);
    СписокМаршрутов = Новый СписокЗначений;
    СписокМаршрутов.ЗагрузитьЗначения(МассивМаршрутов);
    ПараметрыОтбора = Новый Структура("Ссылка", СписокМаршрутов);
    ПараметрыОткрытия = Новый Структура("Отбор", ПараметрыОтбора);
    ОткрытьФорму("Справочник.Маршруты.ФормаВыбора", ПараметрыОткрытия, Элемент);

(3) ошибаешься

(8)     СтандартнаяОбработка = Ложь;        
    СписокОС = МОЛНачалоВыбораНаСервере(Объект.ПодразделениеОрганизации);

        
        СписокМаршрутов = Новый СписокЗначений;
        СписокМаршрутов.ЗагрузитьЗначения(СписокОС);
        ПараметрыОтбора = Новый Структура("Ссылка", СписокМаршрутов);
        ПараметрыОткрытия = Новый Структура("Отбор", ПараметрыОтбора);
        ОткрытьФорму("Справочник.ФизическиеЛица.Форма.ФормаВыбораСотрудников", ПараметрыОткрытия, Элемент);

все равно не отбирает

УТ 11.2

СписокЗначений = Новый СписокЗначений;        
Для каждого СтрТЗ Из ТЗ Цикл
            СписокЗначений.Добавить(СтрТЗ.Документ);
КонецЦикла;


НовОтбор = Форма.Список.КомпоновщикНастроек.Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));



НовОтбор.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
СтрокаОтбора.Использование  = Истина;
НовОтбор.ЛевоеЗначение  = Новый ПолеКомпоновкиДанных("Ссылка");
НовОтбор.ПравоеЗначение = СписокЗначений;

(10) (11)
Можешь сначала получить форму, потом захренакать этот код и потом открыть. Либо передать нужные значения как параметры и заполнить в ПриСозданииНаСервере открываемой формы.

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

    
    КонецЕсли;    
    
КонецПроцедуры

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

все равно не отбирает

открытие формы пересунуть в после задания отбора?

кстати, зачем СтандартнаяОбработка не ложь?

(15) Если подразделение не заполнено - пусть отрабатывает стандартная.
(14) в случае (8) сначала параметры, потом открытие формы.
в случае (11) сначала получаем форму, потом делаем отбор.

все равно не отбирает - в настроить список - значение отбор тоже не подставляется

(16) Этот код отрабатывает на сервере. Конкретно у меня в ПриСозданииНаСервере

(17) В конце попробуй ещё     Форма.Список.КомпоновщикНастроек.ЗагрузитьНастройки(Форма.Список.КомпоновщикНастроек.Настройки);

(10) СписокОС - должен быть массив

(19) СписокОС - массив.

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

(20) он заполнен, проверял?

ответ нашел. ФормаСписка является формой выбора для справочника Физические лица Бухгалтерия предприятия, редакция 3.0 (3.0.43.258).
Все данные заполняются. Весь код приведенный в пунктах (11) (8) рабочий

Всем спасибо за помощь!