Re: Не записывается значение в ТЗ
18.09.16 15:14
орг = Справочники.Организации.НайтиПоКоду("00005");


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

Запрос.УстановитьПараметр("Организация", орг);

Результат = Запрос.Выполнить();


тз = Результат.Выгрузить();

для сч = 0 по тз.Количество() Цикл

если ЗначениеЗаполнено( тз[сч].ШаблонПрав ) тогда

если тз[сч].ШаблонПрав.Организация <> орг тогда

шаблонПрав = тз[сч].ШаблонПрав;


стр = новый Структура;
стр.Вставить( "Ссылка", шаблонПрав.Ссылка );
стр.Вставить( "ВерсияДанных", шаблонПрав.ВерсияДанных );
стр.Вставить( "ПометкаУдаления", шаблонПрав.ПометкаУдаления );
стр.Вставить( "Предопределенный", шаблонПрав.Предопределенный );
стр.Вставить( "Код", шаблонПрав.Код );
стр.Вставить( "Наименование", шаблонПрав.Наименование );
стр.Вставить( "Сотрудник", шаблонПрав.Сотрудник );
стр.Вставить( "Подразделение", Неопределено );
стр.Вставить( "Организация", Неопределено );
стр.Вставить( "РежимИспользованияОборудования", шаблонПрав.РежимИспользованияОборудования );
стр.Вставить( "ЯвляетсяШаблоном", шаблонПрав.ЯвляетсяШаблоном );
стр.Вставить( "ГрафикРаботы", шаблонПрав.ГрафикРаботы );
стр.Вставить( "ПарольККМ", шаблонПрав.ПарольККМ );
стр.Вставить( "НаправлениеСервиса", шаблонПрав.НаправлениеСервиса );
стр.Вставить( "Руководитель", шаблонПрав.Руководитель );
стр.Вставить( "СкладыРазрешения", шаблонПрав.СкладыРазрешения );


////////////////////////
/// ПРОБЛЕМА ЗДЕСЬ ////
тз[сч].ШаблонПрав = стр;
////////////////////////

тз[сч].ШаблонПрав.Организация = Справочники.Организации.ПустаяСсылка();
тз[сч].ШаблонПрав.Подразделение = Справочники.ПодразделенияКомпании.ПустаяСсылка();
КонецЕсли;

КонецЕсли;

КонецЦикла;

ВыборкаДанных = тз;

Read Full Article