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


Процедура СохранитьНастройкиПриложения(Знач ИмяПользователя) Экспорт
    
    СистемнаяИнформация = Новый СистемнаяИнформация;
    
    НастройкиКлиента = Новый НастройкиКлиентскогоПриложения();
    НастройкиИнтерфейса = Новый НастройкиКомандногоИнтерфейса();
    
    ХранилищеСистемныхНастроек.Сохранить("Общее/НастройкиКлиентскогоПриложения", "",
        НастройкиКлиента, , ИмяПользователя);
    
    ХранилищеСистемныхНастроек.Сохранить("Общее/ПанельРазделов/НастройкиКомандногоИнтерфейса", "",
        НастройкиИнтерфейса, , ИмяПользователя);
    
КонецПроцедуры

ДЛя амина в целя теста вклчил чтоб не были видны подсистемы и меню.  Но почему-то не могу вернуть. Как быть?
1 Обработка
 
28.02.14
14:08
ДЛя амина в целя теста вклчил  читать как
Для админа в целях теста включил...
2 Infsams654
 
28.02.14
14:15
(0) как их вернуть, если они перезаписались ХранилищеСистемныхНастроек.Сохранить("Общее ...?
Взять разве что из бэкапа
3 Обработка
 
28.02.14
14:28
(2) Насколько я понял тот код кторый я скомуниздил сохраняет то что настроено.
Если я при запуске их меня и перезаписываю то у меня должны вернуться подсистемы меню и прочее. Разве нет так?
4 Обработка
 
01.03.14
07:40
Решение было простым очень простым.

Нужно было всего лишь заремить код и запустить без настроек один раз.
Программист всегда исправляет последнюю ошибку.