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