Цветовая дифференциация одинаковых конфигураций

05.06.13

Простой способ цветового различия двух разных БД с одинаковой конфигурацией

Когда у общества нет цветовой дифференциации штанов, то нет цели!

Может быть полезным если в организации есть две БД, например управленческая и бухгалтерская, с которыми одновременно работает один пользователь, и у него на рабочем столе запущено 2 копии 1с. Чтобы минимизировать человеческий фактор и снизить возможные ошибки ввода данных можно раскрасить эти приложения разными цветами. (Разных заголовков форм бывает не достаточно)

Настройка

Открываем конфигуратор:
в Конфигураторе открываем ветку Стили и копируем Основной стиль
Открывает скопированный элемент стиля и в нем меняем ФОН ФОРМЫ И ФОН КНОПКИ на отличный от типового
Открываем модуль обычного приложения

В конец процедуры

Процедура ПередНачаломРаботыСистемы(Отказ) добавляем код:

	#Если Клиент Тогда
	//- MMЧ - раскрасим базу бухгалтерии
	ИмяБазы = нрег(СтрокаСоединенияИнформационнойБазы());  
	Если ИмяБазы = "srvr=""server"";ref=""bd_2"";" Тогда  
		ГлавныйСтиль = БиблиотекаСтилей.Получить(1); 
	КонецЕсли;
	#КонецЕсли

Теперь при запуске второй базы она будет раскрашена в другие цвета и визуально отличаться.

+78 –2

См. также

[Расширения] Динамическое управление видимостью и доступностью элементов форм (УФ) (8.3.6+)

Работа с интерфейсом Системный администратор Программист Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия Платные (руб)

Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.

5000 руб.

14.01.2016 55445 17 23

Управление дашбордами

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия 1С:ERP Управление предприятием 2 Платные (руб)

Обработка предназначена для создания и управления дашбордами.

2400 руб.

29.06.2020 19728 28 6

Настройки управляемых форм (списков, объектов), заполнение реквизитов по условиям, контроль заполнения, доступ [Расширение]

Работа с интерфейсом Платформа 1С v8.3 Управляемые формы 1С:Управление торговлей 11 Россия Платные (руб)

Настройки упр.форм (списков, объектов), заполнение реквизитов по условиям, контроль заполнения, условное оформление, доступ.

2000 руб.

20.02.2018 21101 24 21

Дизайн Гайд для создания форм на 1С. Когда и как использовать различные элементы, примеры и антипримеры по использованию

Работа с интерфейсом Программист Стажер Платформа 1С v8.3 Бесплатно (free)

Это инструкция по дизайну форм в среде 1С. Гайд охватывает рекомендации и стандарты для оптимизации пользовательского интерфейса. В гайде содержатся указания по использованию элементов интерфейса, включая как основные, так и продвинутые аспекты. Предоставляются также примеры и антипримеры для наглядного понимания принципов дизайна

20.08.2024 21891 mrXoxot 44

128

Прогресс-бар в поле динамического списка

Работа с интерфейсом Программист Платформа 1С v8.3 Бесплатно (free)

Пример простого и симпатичного прогресс-бара в динамическом списке, без картинок, используя редактирование запроса.

27.05.2024 11012 smielka 37

105

Новогоднее оформление для 1С

Работа с интерфейсом Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Бесплатно (free)

Добавьте новогоднего настроения! Расширение создает декорацию в виде гирлянды на некоторых формах объектов.

27.12.2023 17968 1225 elcoan 53

125

Конструктор HTML, CSS и javascript

Инструментарий разработчика Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

Подходит для создания web-страниц для замены управляемых форм 1С, красивых отчетов, интерфейса мобильного приложения на платформе 1С и для простых страниц веб-сайтов.

3 стартмани

10.04.2023 12662 167 acces969 31

126

Модель состояния для MVC

Работа с интерфейсом Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.

1 стартмани

05.07.2022 7400 kalyaka 6

Комментарии

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

Свернуть все

1. EliasShy 48 05.06.13 05:53 Сейчас в теме

У меня где-то разработка на net есть - разукрашивает заголовок окна 1c в разные цвета. Если надо - поделюсь.
Но она не сильно прижилась - поэтому разработка дальнейшая заброшена.

2. echo77 1916 05.06.13 06:42 Сейчас в теме

Ловко. Заставляет вспомнить про стили.

Прочитав заголовок, подумал что будет что-то про малиновые штаны :-)

5. AnryMc 849 05.06.13 09:07 Сейчас в теме

(2) echo77,

Про штаны была ещё популярная фраза:

"Награждается красными пролетарскими шароварами" (х/ф "Офицеры")

Ефрейтор Туркестанских линейных батальонов, Русской армии, в гимнастёрке и в красных шароварах.
http://commons.wikimedia.org/wiki/File:Туркестанский_солдат_в_зимней_форме.jpg?uselang=ru

Так что у Г. Н. Данелии - было откуда брать.

3. mdmdvd 51 05.06.13 08:09 Сейчас в теме

В качестве некоего аналога можно предложить следующий код. Чтобы ориентироваться по заголовку.
СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
НомерСимволаНазванияБД = Найти(СтрокаСоединения,"Ref");
Если НомерСимволаНазванияБД = Неопределено или НомерСимволаНазванияБД = 0 Тогда
Заголовок = Сред(СтрокаСоединения,7,СтрДлина(СтрокаСоединения)-8);
Иначе
Заголовок = Прав(СтрокаСоединения,СтрДлина(СтрокаСоединения)-НомерСимволаНазванияБД-4);
Заголовок = Лев(Заголовок,СтрДлина(Заголовок)-2);
КонецЕсли;
УстановитьЗаголовокПриложения(" " +Заголовок + " " + ПользователиИнформационнойБазы.ТекущийПользователь().Имя);

29. sergiobargio1 119 07.06.13 17:30 Сейчас в теме

(3) mdmdvd, подскажите, пожалуйста, какой функцией можно заглавие окна с открытой базы изменить, а то что-то не получается, см ниже кусок кода у меня:
"...
#Если Клиент Тогда

ИмяБазы = нрег(СтрокаСоединенияИнформационнойБазы());

Если Найти(ИмяБазы,"buh") > 0 Тогда
ГлавныйСтиль = БиблиотекаСтилей.Получить(2);
Заголовок1 = "БУХГАЛТЕРСКИЙ УЧЕТ";
ИначеЕсли Найти(ИмяБазы,"upr") > 0 Тогда
ГлавныйСтиль = БиблиотекаСтилей.Получить(3);
Заголовок1 = "УПРАВЛЕНЧЕСКИЙ УЧЕТ";
КонецЕсли;

Если Найти(ИмяБазы,"night")> 0 Тогда
Заголовок2 = "НОЧНАЯ КОПИЯ";
ИначеЕсли Найти(ИмяБазы,"day") > 0 Тогда
Заголовок2 = "ДНЕВНАЯ КОПИЯ";
ИначеЕсли Найти(ИмяБазы,"server_1c") = 0 Тогда
Заголовок2 = "ЛОКАЛЬНАЯ КОПИЯ";
КонецЕсли;

УстановитьЗаголовокПриложения(" " +Заголовок1+" " +Заголовок2 + " " + ПользователиИнформационнойБазы.ТекущийПользователь().Имя);
УстановитьЗаголовокСистемы(Заголовок1+" " +Заголовок2);
#КонецЕсли

..."

4. sikuda 678 05.06.13 08:55 Сейчас в теме

Про штаны и малиновая тема. Класс!!!

6. dmpas 418 05.06.13 09:10 Сейчас в теме

Раз уж менять конфигурацию, то делать по-хорошему, без этих ваших

Если ИмяБазы = "srvr=""server"";ref=""bd_2"";" Тогда

У нас в распределённой базе в план обмена добавлен строковый реквизит "Стиль", можно добавлять константы. Привязываться к строке соединения - последнее дело, которое можно использовать разве что для того, чтобы отличить боевую базу от бэкапов.

12. Walker.pro 8 05.06.13 10:39 Сейчас в теме

(6) baton_pk,
И какие же еще есть способы реализации этой задачи? Чтобы сразу после восстановления бэкапа стиль изменялся автоматически?

17. dmpas 418 05.06.13 11:29 Сейчас в теме

(12) Walker.pro,
Чтобы отличать бэкап от боевой в случае, когда у меня была одна база (без распределёнки), то у меня была константа "СтрокаСоединенияСРабочейБазой". Правда, использовалось это не для стилей, а чтобы регламентные задания понимали, с кем работают, но со стилями можно использовать точно так же.
На нынешнем месте работы нет потребности отличать бэкапы от боевых, есть потребность различать узлы распределёнки - в план обмена добавлен реквизит Стиль и через ЭтотУзел() определяется текущий стиль.

7. LexSeIch 212 05.06.13 09:12 Сейчас в теме

Мир этому дому!
Интересный прием. Взял на вооружение. Плюс.

8. mmch 131 05.06.13 09:56 Сейчас в теме

Константу решил не делать, т.к. стиль добавлен всего один.
За программулину на NET спасибо, но откажусь... не люблю я все это =)

9. Cartman 05.06.13 10:07 Сейчас в теме

Честно говоря, на скриншоте отличий не увидел.

10. ksvd 05.06.13 10:13 Сейчас в теме

Хорошая идея. Для отличия рабочей базы и копии, иногда открыты одновременно

11. mikhailovaew 127 05.06.13 10:29 Сейчас в теме

Автор предложил оригинальную идею, но правка конфигурации ради визуальных отличий - зло, ИМХО.
У нас есть тестовая и рабочая базы ЗУП, даже бухгалтера приучились смотреть на заголовок программы))))

13. mmch 131 05.06.13 10:45 Сейчас в теме

Конфигурация все равно правится, для этого мы и работаем =)
Другое дело, какие затраты нужны на обновление, а это другая тема.

14. Новиков 292 05.06.13 10:49 Сейчас в теме

Заголовок системы - это серебренная пуля в этом случае.

Если смотреть в заголовок ломает, то это уже клинический случай ;)

15. AnryMc 849 05.06.13 10:59 Сейчас в теме

(14) Новиков,

Нет - клинический случай - когда в комп ставиться три видео карточки, подключается три монитора, на каждом свой участок рабочего стола, свой ярлык запуска своей базы, да ещё "шильдик" на мониторе с названием...

20. nync 05.06.13 12:17 Сейчас в теме

(14) Новиков, согласен. Буйства красок в бизнес-приложении - моветон.

21. pumbaE 05.06.13 12:39 Сейчас в теме

(20) nync, отсутствие красок - то же моветон.

22. V_V_V 05.06.13 12:46 Сейчас в теме

(20) nync, Запустил одно окно - нет никакого буйства, при запуске второго - есть. Нет повторного запуска - нет моветона. И выбранный автором цвет не команда к обязательному "буйству". Как-то так...
Идея в целом у автора неплохая. Понятно, что на вкус и цвет фломастеры разные...

16. pumbaE 05.06.13 11:01 Сейчас в теме

А в 8.3 с общими стилями не поиграешься уже.

19. V_V_V 05.06.13 12:13 Сейчас в теме

(16) pumbaE, офигеть. А ведь правда, я сразу и внимания не обратил.
Собственно до этой публикации и не заморачивался никогда со стилями, но за державу обидно...

23. TSSV 1153 06.06.13 10:27 Сейчас в теме

(16) pumbaE, и в 8.2 тоже - в случае, когда основной режим запуска "Управляемое приложение" ветки "Стили" нет.

25. Akuji 22 06.06.13 13:00 Сейчас в теме

(23) Tsaregorodtsev, может от элементов стиля как то можно
тоже интресно

18. logdog 05.06.13 11:38 Сейчас в теме

Подскажите, а по аналогии, можно сделать выделение помеченных на удаление документов красным, не проведенных - синим?

24. VallyD 06.06.13 11:00 Сейчас в теме

Отличная идея. Ну прям вот она... под самим носом. А когда мне надо было как-то различить одинаковые конфы, об цветовой дифференциации, не догадалась. Как говорят, все гениальное просто. Обязательно возьму на заметук и реализиую у себя. А насчет буйства красок или минимализма, то здесь наверное важны предпочтения пользователей системы. Пусть сами решают, какй цвет им больше нравится.

26. Yashazz 4804 06.06.13 17:54 Сейчас в теме

Ради такой ерунды менять конфу? Это не моветон, это бить ногами надо. Я-то понадеялся на действительно красивое решение, эхма.
Пущай юзеры учатся читать заголовки, если уж так.

27. webester 26 07.06.13 09:03 Сейчас в теме

(26)Если так уж он просто забил полдня работы в другую базу. Вот тебе и проблема на ровном месте. Конечно, конечно он переделает это сам, конечно, конечно оштрафуем. Только вот у нас в прошлый раз, тупая ошибка пользователя парализовала работу магазина на три часа. Ну оштрафовали, ну и что? Раздражение покупателя этим не снимешь. Да и пользователя если штрафовать, он и уйти может. Если вы продаете мерседесы и делаете в базе 2 документа в месяц, то вам повезло. если работа интенсивная(розничные продажи к примеру) то ошибок избежать очень трудно, и тут стоит вопрос ребром: как сделать так, чтоб все происходило насколько можно быстро и главное без ошибок. Стараюсь работать с типовой только у пары клиентов, у остальных уже приличное количество изменений. На тему, что кому то моветон яркие цвета, так бывают случаи уже не до понтов. Главно что б привлекало внимание. Стили видел триста раз, заюзать не догадался.

34. Yashazz 4804 10.06.13 00:24 Сейчас в теме

(27) Сделать 2 удалённых рабочих стола. 2 аккаунта. 2 профиля винды. И уже в них играть с оформлением. Это и админится проще, и жертв меньше. Всегда есть выходы )))

28. SatanClaws 146 07.06.13 16:31 Сейчас в теме

Тогда разумнее добавить какую-нить константу/общую настройку/индивидуальную настройку, от которой устанавливать главный стиль.

Ибо, зачастую, конфигурации не просто одинаковые, а даже идентичные.
А поддержка действительно идентичных конфигураций в разы проще, чем поддержка идентичных_за_единственным_исключением конфигураций.

30. mmch 131 07.06.13 17:38 Сейчас в теме

например так:

ДопЗаголовок = ИмяКомпьютера();
// находим пользователя ИБ
ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоИмени(СокрЛП(ПараметрыСеанса.ТекущийПользователь.Код));
Если не ПользовательИБ = Неопределено Тогда
ИмяПользователяОС = НРег(ПользовательИБ.ПользовательОС);
ИмяПользователяОС = СтрЗаменить(ИмяПользователяОС,"\\skl\","");
ДопЗаголовок = ДопЗаголовок + " / " + ИмяПользователяОС;
КонецЕсли;
ДопЗаголовок = ДопЗаголовок + " / " + Формат(ТекущаяДата(),"ДЛФ=DDT");

////-- End ---- 08.04.2013 20:31:58 ---- MMЧ ---- !СКЛ!
УстановитьЗаголовокСистемы(ДопЗаголовок);

31. mmch 131 07.06.13 17:41 Сейчас в теме

УстановитьЗаголовокСистемы("ттттт"); - работает

32. mmch 131 07.06.13 17:42 Сейчас в теме

еще как вариант попробуй :

УстановитьЗаголовокПриложения("тратата");

33. sergiobargio1 119 07.06.13 17:56 Сейчас в теме

(32) УстановитьЗаголовокСистемы("ттттт"); и УстановитьЗаголовокПриложения("тратата"); увы не работает, а высвечивается та строка, которая в настройке программы в поле заголовок системы , ;-(

35. mmch 131 10.06.13 14:33 Сейчас в теме

(33) sergiobargio1, значит перетирается, попробуй в конце процедуры ПриНачалеРаботыСистемы
ну или вообще обработкой.

36. mulla1979 9 10.06.13 17:45 Сейчас в теме

Ставлю плюс за идею!

37. Evil Beaver 8263 11.06.13 12:09 Сейчас в теме

Баловство какое-то... Зачем? Если бы без изменения конфы, то было бы еще полезно. А так.....

38. sergiobargio1 119 11.06.13 23:07 Сейчас в теме

(37) Evil Beaver, извините, возможно Вы и правы. моё мнение очень субъективное - у меня слишком не большой опыт в разработке, однако, для меня эта идея очень полезна и актуальна: в течение дня по нескольку раз приходиться накатывать доработки, предварительно отлаживая как на локальных так и на sql-ных копиях, запутаться в обилии открытых окон с управленческими и бухгалтерскими базами очень легко. а так идея прекрасная и цветовая раскраска с помощью палитры и заголовка окна. mmch и mdmdvd выдвинули очень полезные идеи. Спасибо.

39. bolshoi 17.06.13 11:25 Сейчас в теме

Как вариант, в доп. параметрах запуска базы прописать примерно так:

/execute"D:\обработка.epf"

При запуске выполнится указанная обработка, а уже в ней можно прописывать какие-то действия для внешнего отличия базы. При условии, что у пользователя есть права на запуск внешних обработок.

40. catena 110 28.06.13 06:10 Сейчас в теме

Платформа 8.1.15.14
При смене Главного стиля образуется стойкая аллергия на СКД - любые отчеты с простейшей схемой СКД при открытии выбивают базу с записью дампа.
На всякий случай, вдруг кто-то захочет поиграться.

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

E-mail:

Автор:

(mmch)

Рейтинг: 131

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 189686

Создание 05.06.13 00:42

Обновление 05.06.13 00:42

Статистика:

Просмотры 11758

Загрузки 0

Рейтинг 76

Комментарии 41

Характеристики:

Код открыт Не указано

Рубрики Работа с интерфейсом

Кому Программист

Тип файла Нет файла

Платформа Платформа 1С v8.3

Конфигурация Универсальные

Операционная система Windows

Страна Не имеет значения

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Бесплатно (free)