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

05.06.13

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

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

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

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

 

Настройка 

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

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


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

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



См. также

Богатый редактор картинок, хранимых в базе, с возможностью РИСОВАНИЯ. Редактор внешних файлов картинок. Объект, расширяющий возможности работы с картинками из встроенного языка (Три в одном) + Обработка «Стандартизация картинок»

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

Обработка предназначена для редактирования картинок в режиме «Предприятие», с возможностью РИСОВАТЬ на них. Поддерживается работа как в обычных формах (толстый клиент) так и на управляемых формах (тонкий клиент). Обработка позволяет редактировать как картинки, хранимые в базе, так и графические файлы с диска на файловой системе. Помимо базовых функций (изменение размеров, преобразование формата, обрезание картинки, повороты и т.п.) – редактор имеет богатый набор инструментов для рисования. Доступна функция вставки изображения из буфера обмена. Также обработка может быть использована из встроенного языка как объект для редактирования картинок. Объект может быть использован: на стороне клиента, на стороне сервера, из внешнего соединения. Данная обработка будет особенно полезна тем, кто вносит картинки в базу (изображения номенклатуры, фотографии физических лиц и т.п.). Функционал реализуется с использованием JavaScript и бесплатного ПО ImageMagick (без использования внешних компонент).

6000 руб.

16.01.2015    61795    43    59    

80

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

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

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

5000 руб.

14.01.2016    54402    16    21    

42

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

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

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

2400 руб.

29.06.2020    16697    21    4    

35

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

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

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

27.12.2023    10736    750    elcoan    45    

106

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

Инструментарий разработчика Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

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

2 стартмани

10.04.2023    9613    151    acces969    31    

118

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

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

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

1 стартмани

05.07.2022    3665    kalyaka    2    

27

Табло очереди заказов на экран телевизора

WEB-интеграция Работа с интерфейсом Платформа 1С v8.3 1С:Розница 2 Платные (руб)

Связка из веб-приложения и расширения для 1С: Розница 2.3.

3600 руб.

29.04.2022    12080    1    5    

10
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. EliasShy 48 05.06.13 05:53 Сейчас в теме
У меня где-то разработка на net есть - разукрашивает заголовок окна 1c в разные цвета. Если надо - поделюсь.
Но она не сильно прижилась - поэтому разработка дальнейшая заброшена.
2. echo77 1868 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 118 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 673 05.06.13 08:55 Сейчас в теме
Про штаны и малиновая тема. Класс!!!
6. dmpas 417 05.06.13 09:10 Сейчас в теме
Раз уж менять конфигурацию, то делать по-хорошему, без этих ваших
Если ИмяБазы = "srvr=""server"";ref=""bd_2"";" Тогда  


У нас в распределённой базе в план обмена добавлен строковый реквизит "Стиль", можно добавлять константы. Привязываться к строке соединения - последнее дело, которое можно использовать разве что для того, чтобы отличить боевую базу от бэкапов.
SatanClaws; MRAK; +2 Ответить
12. Walker.pro 7 05.06.13 10:39 Сейчас в теме
(6) baton_pk,
И какие же еще есть способы реализации этой задачи? Чтобы сразу после восстановления бэкапа стиль изменялся автоматически?
17. dmpas 417 05.06.13 11:29 Сейчас в теме
(12) Walker.pro,
Чтобы отличать бэкап от боевой в случае, когда у меня была одна база (без распределёнки), то у меня была константа "СтрокаСоединенияСРабочейБазой". Правда, использовалось это не для стилей, а чтобы регламентные задания понимали, с кем работают, но со стилями можно использовать точно так же.
На нынешнем месте работы нет потребности отличать бэкапы от боевых, есть потребность различать узлы распределёнки - в план обмена добавлен реквизит Стиль и через ЭтотУзел() определяется текущий стиль.
7. LexSeIch 210 05.06.13 09:12 Сейчас в теме
Мир этому дому!
Интересный прием. Взял на вооружение. Плюс.
8. mmch 129 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 129 05.06.13 10:45 Сейчас в теме
Конфигурация все равно правится, для этого мы и работаем =)
Другое дело, какие затраты нужны на обновление, а это другая тема.
14. Новиков 292 05.06.13 10:49 Сейчас в теме
Заголовок системы - это серебренная пуля в этом случае.

Если смотреть в заголовок ломает, то это уже клинический случай ;)
15. AnryMc 849 05.06.13 10:59 Сейчас в теме
(14) Новиков,

Нет - клинический случай - когда в комп ставиться три видео карточки, подключается три монитора, на каждом свой участок рабочего стола, свой ярлык запуска своей базы, да ещё "шильдик" на мониторе с названием...
ekaterinaeon; +1 Ответить
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 1144 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 4709 06.06.13 17:54 Сейчас в теме
Ради такой ерунды менять конфу? Это не моветон, это бить ногами надо. Я-то понадеялся на действительно красивое решение, эхма.
Пущай юзеры учатся читать заголовки, если уж так.
27. webester 26 07.06.13 09:03 Сейчас в теме
(26)Если так уж он просто забил полдня работы в другую базу. Вот тебе и проблема на ровном месте. Конечно, конечно он переделает это сам, конечно, конечно оштрафуем. Только вот у нас в прошлый раз, тупая ошибка пользователя парализовала работу магазина на три часа. Ну оштрафовали, ну и что? Раздражение покупателя этим не снимешь. Да и пользователя если штрафовать, он и уйти может. Если вы продаете мерседесы и делаете в базе 2 документа в месяц, то вам повезло. если работа интенсивная(розничные продажи к примеру) то ошибок избежать очень трудно, и тут стоит вопрос ребром: как сделать так, чтоб все происходило насколько можно быстро и главное без ошибок. Стараюсь работать с типовой только у пары клиентов, у остальных уже приличное количество изменений. На тему, что кому то моветон яркие цвета, так бывают случаи уже не до понтов. Главно что б привлекало внимание. Стили видел триста раз, заюзать не догадался.
34. Yashazz 4709 10.06.13 00:24 Сейчас в теме
(27) Сделать 2 удалённых рабочих стола. 2 аккаунта. 2 профиля винды. И уже в них играть с оформлением. Это и админится проще, и жертв меньше. Всегда есть выходы )))
28. SatanClaws 143 07.06.13 16:31 Сейчас в теме
Тогда разумнее добавить какую-нить константу/общую настройку/индивидуальную настройку, от которой устанавливать главный стиль.

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

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

////-- End ---- 08.04.2013 20:31:58 ---- MMЧ ---- !СКЛ!
УстановитьЗаголовокСистемы(ДопЗаголовок);
31. mmch 129 07.06.13 17:41 Сейчас в теме
УстановитьЗаголовокСистемы("ттттт"); - работает
32. mmch 129 07.06.13 17:42 Сейчас в теме
еще как вариант попробуй :

УстановитьЗаголовокПриложения("тратата");
33. sergiobargio1 118 07.06.13 17:56 Сейчас в теме
(32) УстановитьЗаголовокСистемы("ттттт"); и УстановитьЗаголовокПриложения("тратата"); увы не работает, а высвечивается та строка, которая в настройке программы в поле заголовок системы , ;-(
35. mmch 129 10.06.13 14:33 Сейчас в теме
(33) sergiobargio1, значит перетирается, попробуй в конце процедуры ПриНачалеРаботыСистемы
ну или вообще обработкой.
36. mulla1979 9 10.06.13 17:45 Сейчас в теме
37. Evil Beaver 8107 11.06.13 12:09 Сейчас в теме
Баловство какое-то... Зачем? Если бы без изменения конфы, то было бы еще полезно. А так.....
38. sergiobargio1 118 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
При смене Главного стиля образуется стойкая аллергия на СКД - любые отчеты с простейшей схемой СКД при открытии выбивают базу с записью дампа.
На всякий случай, вдруг кто-то захочет поиграться.
Оставьте свое сообщение