Программная установка разного основного стиля конфигурации для мобильного клиента и для тонкого клиента
Здравствуйте!
Платформа 1С:Предприятие 8.3 (8.3.17.1549)
Конфигурация самописная
Возможно ли программно установить свойство конфигурации Основной стиль так, чтобы если это мобильный клиент, то устанавливался один стиль, а во всех остальных случаях - другой?
Цитата из
В моей конфигурации это не работает
Текст ошибки -
Спасибо!
Платформа 1С:Предприятие 8.3 (8.3.17.1549)
Конфигурация самописная
Возможно ли программно установить свойство конфигурации Основной стиль так, чтобы если это мобильный клиент, то устанавливался один стиль, а во всех остальных случаях - другой?
Цитата из
Кроме непосредственного указания основного стиля в Конфигураторе, вы можете сделать это и с помощью встроенного языка. В контекст управляемого приложения мы вернули свойство глобального контекста ГлавныйСтиль. Устанавливать это свойство вам нужно в обработчике события УстановкаПараметровСеанса()
В моей конфигурации это не работает
Процедура УстановкаПараметровСеанса(ИменаПараметровСеанса)
//ГлавныйСтиль = БиблиотекаСтилей["zmed_Основной"];
#Если МобильныйАвтономныйСервер Тогда
ГлавныйСтиль = БиблиотекаСтилей["zmed_СтильМобКлиент"];
#КонецЕсли
// СтандартныеПодсистемы
СтандартныеПодсистемыСервер.УстановкаПараметровСеанса(ИменаПараметровСеанса);
// Конец СтандартныеПодсистемы
// ПодключаемоеОборудование
УстановленныеПараметры=Новый Массив;
МенеджерОборудованияВызовСервера.УстановитьПараметрыСеансаПодключаемогоОборудования("РабочееМестоКлиента", УстановленныеПараметры);
// Конец ПодключаемоеОборудование
КонецПроцедуры ПоказатьТекст ошибки -
Свойство не может быть изменено после вызова 'УстановкаПараметровСеанса'
Спасибо!
По теме из базы знаний
Найденные решения
При запуске конфигурации процедура УстановкаПараметровСеанса вызывается неоднократно, а установить ГлавныйСтиль можно только один раз.
При первом вызове этой процедуры её параметр = Неопределено, от этого и нужно оттолкнуться.
При первом вызове этой процедуры её параметр = Неопределено, от этого и нужно оттолкнуться.
Если ИменаПараметровСеанса = Неопределено Тогда
#Если МобильныйАвтономныйСервер Тогда
ГлавныйСтиль = БиблиотекаСтилей["zmed_СтильМобКлиент"];
#КонецЕсли
КонецЕсли;
Ура! Хороший метод найден! Вот он
Если ИменаПараметровСеанса = Неопределено Тогда
//Если РольДоступна("zmed_МобКлиент") Тогда
Если ПолучитьТекущийСеансИнформационнойБазы().ИмяПриложения = "MobileClient" Тогда
ГлавныйСтиль = БиблиотекаСтилей["zmed_СтильМобКлиент"];
КонецЕсли;
//КонецЕсли;
КонецЕсли;
// СтандартныеПодсистемы
СтандартныеПодсистемыСервер.УстановкаПараметровСеанса(ИменаПараметровСеанса);
// Конец СтандартныеПодсистемы
// ПодключаемоеОборудование
УстановленныеПараметры=Новый Массив;
МенеджерОборудованияВызовСервера.УстановитьПараметрыСеансаПодключаемогоОборудования("РабочееМестоКлиента", УстановленныеПараметры); ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
При запуске конфигурации процедура УстановкаПараметровСеанса вызывается неоднократно, а установить ГлавныйСтиль можно только один раз.
При первом вызове этой процедуры её параметр = Неопределено, от этого и нужно оттолкнуться.
При первом вызове этой процедуры её параметр = Неопределено, от этого и нужно оттолкнуться.
Если ИменаПараметровСеанса = Неопределено Тогда
#Если МобильныйАвтономныйСервер Тогда
ГлавныйСтиль = БиблиотекаСтилей["zmed_СтильМобКлиент"];
#КонецЕсли
КонецЕсли;
(5)Да это понятно, и на форуме поиском я нашла похожую ситуацию и такой же ответ, и попробовала это написать в своем коде. Вчера в другой базе ругалось на саму эту строчку Сегодня сделала в другой базе - все ок. Но проблема еще в другом - нельзя использовать само это условие потому что в начале модуля написано Можно конечно, туда дописать еще но не факт, что в мобильном клиенте при запуске сервер будет автономный. В общем, пока как условие использовала признак роли пользователя моильного клиента. Временное быстрое решение. Как будет время, подумаю, как это грамотнее и красивее сделать. Спасибо!
Если ИменаПараметровСеанса = Неопределено Тогда #Если МобильныйАвтономныйСервер Тогда#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение или МобильныйАвтономныйСервер Тогда
(6)
А что именно было написано? Потому что в разных версиях платформы само имя параметра у процедуры УстановкаПараметровСеанса меняется, и если не глядя скопипастить, можно получить ошибку о неизвестной переменной.
Вчера в другой базе ругалось на саму эту строчку
А что именно было написано? Потому что в разных версиях платформы само имя параметра у процедуры УстановкаПараметровСеанса меняется, и если не глядя скопипастить, можно получить ошибку о неизвестной переменной.
Ура! Хороший метод найден! Вот он
Если ИменаПараметровСеанса = Неопределено Тогда
//Если РольДоступна("zmed_МобКлиент") Тогда
Если ПолучитьТекущийСеансИнформационнойБазы().ИмяПриложения = "MobileClient" Тогда
ГлавныйСтиль = БиблиотекаСтилей["zmed_СтильМобКлиент"];
КонецЕсли;
//КонецЕсли;
КонецЕсли;
// СтандартныеПодсистемы
СтандартныеПодсистемыСервер.УстановкаПараметровСеанса(ИменаПараметровСеанса);
// Конец СтандартныеПодсистемы
// ПодключаемоеОборудование
УстановленныеПараметры=Новый Массив;
МенеджерОборудованияВызовСервера.УстановитьПараметрыСеансаПодключаемогоОборудования("РабочееМестоКлиента", УстановленныеПараметры); Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот