#0
by Mihandr
Помогите сделать отбор в типовой ЗУП 8 32.4. Надо чтоб у пользователя с ролью ТолькоТоЧтоНужно в справочнике при его открытиии отображались только те работники которые принадлежат к уже определенному подразделению. Нашел эту проц-ру, добавил условие но не соображу как описать после Иначе (в конце проц-ры), если здесь вообще реально это сделать... [1C]Процедура УстановитьОтборПоПодразделению Если Не РольДоступна("ТолькоТоЧтоНужно") Тогда //моё мИспользоватьКешПриПолученииДанных = Ложь; Элемент = ЭлементыФормы.ПодразделенияОрганизаций; ДанныеСтроки = Элемент.ТекущиеДанные; Если ДанныеСтроки = Неопределено Тогда Если СправочникСписок.Отбор.ТекущееПодразделениеОрганизации.Использование Тогда СправочникСписок.Отбор.ТекущееПодразделениеОрганизации.Использование = Ложь; КонецЕсли; Если СправочникСписок.Отбор.ТекущееОбособленноеПодразделение.Использование Тогда СправочникСписок.Отбор.ТекущееОбособленноеПодразделение.Использование = Ложь; КонецЕсли; Возврат; КонецЕсли; Если Элемент.ТекущаяКолонка.Имя <> "Организация" Тогда ТекущийОтбор = СправочникСписок.Отбор.ТекущееПодразделениеОрганизации; Если Не ТекущийОтбор.Использование ИЛИ ТекущийОтбор.Значение <> ДанныеСтроки.Ссылка Тогда СправочникСписок.Отбор.ТекущееОбособленноеПодразделение.Использование = Ложь; ТекущийОтбор.ВидСравнения = ВидСравнения.ВСписке; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Спр.Ссылка |ИЗ | Справочник.ПодразделенияОрганизаций КАК Спр |ГДЕ | Спр.Родитель В (&Ссылка)"; Ссылка = ?(ДанныеСтроки.Ссылка.Пустая, Неопределено, ДанныеСтроки.Ссылка); СписокПодразделений = Новый СписокЗначений; СписокПодразделений.Добавить(Ссылка); Пока Ссылка <> Неопределено Цикл Запрос.УстановитьПараметр("Ссылка", Ссылка); СписокСсылок = Запрос.Выполнить.Выгрузить.ВыгрузитьКолонку("Ссылка"); Если СписокСсылок.Количество > 0 Тогда Для Каждого Ссылка Из СписокСсылок Цикл СписокПодразделений.Добавить(Ссылка); КонецЦикла; Ссылка = СписокСсылок; Иначе Ссылка = Неопределено; КонецЕсли; КонецЦикла; ТекущийОтбор.Значение = СписокПодразделений; ТекущийОтбор.Использование = Истина; КонецЕсли; Иначе ТекущийОтбор = СправочникСписок.Отбор.ТекущееОбособленноеПодразделение; Если Не ТекущийОтбор.Использование ИЛИ ТекущийОтбор.Значение <> ДанныеСтроки.Владелец Тогда СправочникСписок.Отбор.ТекущееПодразделениеОрганизации.Использование = Ложь; ТекущийОтбор.Значение = ДанныеСтроки.Владелец; ТекущийОтбор.Использование = Истина; КонецЕсли; КонецЕсли; Иначе... // моё КонецПроцедуры[1C]
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям
Похожие вопросы 1С
- Зачем нужен отбор "В интервале", если есть отбор "больше" и "меньше"?
- Отбор сотрудников в Зик
- "Отключить отбор " и "Отбор по значению в текущей колонке"
- УФ. Программный отбор и пользовательский отбор....
- Не отображаются данные в справочнике сотрудников
- 8.3.5, УФ, Реквизит таблицы значений с типом "Отбор"/ "Отбор компоновки данных"
- v7: 1cpp Набор Классов ПоставщикДанных Установить отбор, отменить отбор
В этой группе 1С
- (БУХ) Обновление - код справочника стал неуникальным
- Чем отличается зарплата стандарт от проф ?
- Объединение двух макетов
- Не открывается консоль запросов 8,2
- Ошибка при инициализации объекта из компоненты <Неизвестная компонента>
- Обмен данными в формате в формате УФЭБС 1с 7.7Бюджетка
- УПП, Унифицированная форма № Т-2 (убрать, дату и ответ-го при печати)
- Распределение зарплаты на себестоимость продукции
- УТ 11, Как сделать ввод цен вручную в документе Чек ККМ?
- Работа с ТСД через RDP
- Установка Цен номенклатуры округляет до 999,99
- ЗУП 8.1 (32.4): Документ "Перечисление НДФЛ в бюджет РФ"
- ЗУП: 2-НДФЛ по дивидендам НЕ_Сотрудника
- Скринсейвер со смыслом
- Запуск платформы 1С 7.7 на CentOS5 с каталогом базы на Win2003-AD
- Научите читать оборотку
- УПП Сдельные наряды не попадают в книгу учета доходов и расходов
- УТ 10.3 "РеализацияТоваровУслуг". Печать сопроводительных документов
- Apache. Скрипт PHP по расписанию
- Цифры степени двойки