орг = Справочники.Организации.НайтиПоКоду("00005"); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Пользователи.Ссылка, | Пользователи.ВерсияДанных, | Пользователи.ПометкаУдаления, | Пользователи.Предопределенный, | Пользователи.Код, | Пользователи.Наименование, | Пользователи.Сотрудник, | Пользователи.Организация, | Пользователи.Подразделение, | Пользователи.ШаблонПрав, | Пользователи.РежимИспользованияОборудования, | Пользователи.ЯвляетсяШаблоном, | Пользователи.ГрафикРаботы, | Пользователи.ПарольККМ, | Пользователи.НаправлениеСервиса, | Пользователи.Руководитель, | Пользователи.СкладыРазрешения.( | Ссылка, | НомерСтроки, | СкладПользователя, | ИстинаСклад, | Приход, | Расход | ) |ИЗ | Справочник.Пользователи КАК Пользователи |ГДЕ | Пользователи.Организация = &Организация"; Запрос.УстановитьПараметр("Организация", орг); Результат = Запрос.Выполнить(); тз = Результат.Выгрузить(); для сч = 0 по тз.Количество() Цикл если ЗначениеЗаполнено( тз[сч].ШаблонПрав ) тогда если тз[сч].ШаблонПрав.Организация <> орг тогда шаблонПрав = тз[сч].ШаблонПрав; стр = новый Структура; стр.Вставить( "Ссылка", шаблонПрав.Ссылка ); стр.Вставить( "ВерсияДанных", шаблонПрав.ВерсияДанных ); стр.Вставить( "ПометкаУдаления", шаблонПрав.ПометкаУдаления ); стр.Вставить( "Предопределенный", шаблонПрав.Предопределенный ); стр.Вставить( "Код", шаблонПрав.Код ); стр.Вставить( "Наименование", шаблонПрав.Наименование ); стр.Вставить( "Сотрудник", шаблонПрав.Сотрудник ); стр.Вставить( "Подразделение", Неопределено ); стр.Вставить( "Организация", Неопределено ); стр.Вставить( "РежимИспользованияОборудования", шаблонПрав.РежимИспользованияОборудования ); стр.Вставить( "ЯвляетсяШаблоном", шаблонПрав.ЯвляетсяШаблоном ); стр.Вставить( "ГрафикРаботы", шаблонПрав.ГрафикРаботы ); стр.Вставить( "ПарольККМ", шаблонПрав.ПарольККМ ); стр.Вставить( "НаправлениеСервиса", шаблонПрав.НаправлениеСервиса ); стр.Вставить( "Руководитель", шаблонПрав.Руководитель ); стр.Вставить( "СкладыРазрешения", шаблонПрав.СкладыРазрешения ); //////////////////////// /// ПРОБЛЕМА ЗДЕСЬ //// тз[сч].ШаблонПрав = стр; ////////////////////////
тз[сч].ШаблонПрав.Организация = Справочники.Организации.ПустаяСсылка(); тз[сч].ШаблонПрав.Подразделение = Справочники.ПодразделенияКомпании.ПустаяСсылка(); КонецЕсли; КонецЕсли; КонецЦикла; ВыборкаДанных = тз;
Read Full Article
|