Запретить смену режима "Такси/Управляемые формы"

Форум Администрирование Общие вопросы администрирования (Admin)

1С:Бухгалтерия 3.0 Розничная и сетевая торговля (FMCG)

1. Alexsh_kz 31.01.22 14:29 Сейчас в теме

Добрый день!
Есть кто-то из присутствующих здесь, кто знает как можно запретить переключение с режима "Такси", на режим "Управляемые формы"?
Вся компания работает в режиме такси, но есть 2-3 человека, которые упорно остаются работать в старом режиме и напрочь отказываются переходить в такси.

По теме из базы знаний

Найденные решения

4. -AI- 31.01.22 21:27 Сейчас в теме

(3) у меня похожий код в МодулеСеанса живет:

Процедура УстановкаПараметровСеанса(ИменаПараметровСеанса)
	Если ИменаПараметровСеанса = Неопределено Тогда
		///////////////////
			КлючОбъектаНастроек="Общее/НастройкиКлиентскогоПриложения";
			Настройки = ХранилищеСистемныхНастроек.Загрузить(КлючОбъектаНастроек);
			
			Настройки.ВариантИнтерфейсаКлиентскогоПриложения=?(ВнешнийВидИнтерфейса="Такси",
					  ВариантИнтерфейсаКлиентскогоПриложения.Такси,
					  ВариантИнтерфейсаКлиентскогоПриложения.Версия8_2);

			Если ВнешнийВидИнтерфейса="ОтдельныеОкна" Тогда
				Настройки.РежимОткрытияФормПриложения = РежимОткрытияФормПриложения.ОтдельныеОкна;
			ИначеЕсли ВнешнийВидИнтерфейса="Закладки" Тогда
				Настройки.РежимОткрытияФормПриложения = РежимОткрытияФормПриложения.Закладки;
			КонецЕсли;

			ХранилищеСистемныхНастроек.Сохранить(КлючОбъектаНастроек,, Настройки);
		///////////////////
	КонецЕсли;
КонецПроцедуры

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. qazaas 31.01.22 15:06 Сейчас в теме

(1) Вот так можно попробовать

Модуль управляемого приложения:

Процедура ПередНачаломРаботыСистемы(Отказ)
	ОбщийМодульСервер.УстановкаНастроек();		
КонецПроцедуры

В общем модуле:

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

3. Alexsh_kz 31.01.22 15:26 Сейчас в теме

(2) Спасибо. Попробую покрутить такой подход.

4. -AI- 31.01.22 21:27 Сейчас в теме

(3) у меня похожий код в МодулеСеанса живет:

Процедура УстановкаПараметровСеанса(ИменаПараметровСеанса)
	Если ИменаПараметровСеанса = Неопределено Тогда
		///////////////////
			КлючОбъектаНастроек="Общее/НастройкиКлиентскогоПриложения";
			Настройки = ХранилищеСистемныхНастроек.Загрузить(КлючОбъектаНастроек);
			
			Настройки.ВариантИнтерфейсаКлиентскогоПриложения=?(ВнешнийВидИнтерфейса="Такси",
					  ВариантИнтерфейсаКлиентскогоПриложения.Такси,
					  ВариантИнтерфейсаКлиентскогоПриложения.Версия8_2);

			Если ВнешнийВидИнтерфейса="ОтдельныеОкна" Тогда
				Настройки.РежимОткрытияФормПриложения = РежимОткрытияФормПриложения.ОтдельныеОкна;
			ИначеЕсли ВнешнийВидИнтерфейса="Закладки" Тогда
				Настройки.РежимОткрытияФормПриложения = РежимОткрытияФормПриложения.Закладки;
			КонецЕсли;

			ХранилищеСистемныхНастроек.Сохранить(КлючОбъектаНастроек,, Настройки);
		///////////////////
	КонецЕсли;
КонецПроцедуры

Показать

5. Alexsh_kz 04.02.22 14:08 Сейчас в теме

(4) Вынес эту процедуру в расширение и указал принудительно режим такси без каких-либо условий. Получил нужный результат.

Настройки.ВариантИнтерфейсаКлиентскогоПриложения = ВариантИнтерфейсаКлиентскогоПриложения.Такси;

-AI-, Спасибо за помощь!

6. krasnodar-it 04.02.22 21:56 Сейчас в теме

(4) респект, как раз запустил сервер взаимодействия который как оказалось работает только на Такси

Оставьте свое сообщение

E-mail: