0
Обработка
28.02.14
✎
14:07
|
В самописке эксприментировал с интерфейсом. Для этого использовал код.
Процедура УстановитьНачальныеНастройки(Знач ИмяПользователя) Экспорт
СистемнаяИнформация = Новый СистемнаяИнформация;
Если СвойМодульСервер.КассирСтоловойРольДоступна() или СвойМодульСервер.МедикРольДоступна() Тогда
НастройкиКлиента = Новый НастройкиКлиентскогоПриложения();
НастройкиКлиента.ОтображатьПанелиНавигацииИДействий = Ложь;
НастройкиКлиента.ОтображатьПанельРазделов = Ложь;
НастройкиКлиента.РежимОткрытияФормПриложения = Вычислить("РежимОткрытияФормПриложения.Закладки");
НастройкиИнтерфейса = Новый НастройкиКомандногоИнтерфейса();
НастройкиИнтерфейса.ОтображениеПанелиРазделов = Вычислить("ОтображениеПанелиРазделов.Текст");
Иначе
НастройкиКлиента = Новый НастройкиКлиентскогоПриложения();
НастройкиКлиента.ОтображатьПанелиНавигацииИДействий = Истина;
НастройкиКлиента.ОтображатьПанельРазделов = Истина;
НастройкиКлиента.РежимОткрытияФормПриложения = Вычислить("РежимОткрытияФормПриложения.Закладки");
НастройкиИнтерфейса = Новый НастройкиКомандногоИнтерфейса();
НастройкиИнтерфейса.ОтображениеПанелиРазделов = Вычислить("ОтображениеПанелиРазделов.КартинкаИТекст");
КонецЕсли;
ХранилищеСистемныхНастроек.Сохранить("Общее/НастройкиКлиентскогоПриложения", "",
НастройкиКлиента, , ИмяПользователя);
ХранилищеСистемныхНастроек.Сохранить("Общее/ПанельРазделов/НастройкиКомандногоИнтерфейса", "",
НастройкиИнтерфейса, , ИмяПользователя);
КонецПроцедуры
Процедура СохранитьНастройкиПриложения(Знач ИмяПользователя) Экспорт
СистемнаяИнформация = Новый СистемнаяИнформация;
НастройкиКлиента = Новый НастройкиКлиентскогоПриложения();
НастройкиИнтерфейса = Новый НастройкиКомандногоИнтерфейса();
ХранилищеСистемныхНастроек.Сохранить("Общее/НастройкиКлиентскогоПриложения", "",
НастройкиКлиента, , ИмяПользователя);
ХранилищеСистемныхНастроек.Сохранить("Общее/ПанельРазделов/НастройкиКомандногоИнтерфейса", "",
НастройкиИнтерфейса, , ИмяПользователя);
КонецПроцедуры
ДЛя амина в целя теста вклчил чтоб не были видны подсистемы и меню. Но почему-то не могу вернуть. Как быть?
|
|