Метод связи системного перечисления с объектом конфигурации Перечисление на примере объекта Цвет (WebЦвета)

22.03.14

Разработка - Универсальные функции

В статье описан метод связи системного перечисления Цвет (WebЦвета) с объектом конфигурации Перечисление и получение значения цвета для дальнейшей обработки.

В организации, где я тружусь программистом, очень много заказов поступает через Web - сервисы, причем от разных контрагентов. Иногда, заказы идут сплошным потоком, в них потом разбираются девушки - операторы. Они и пожаловались генеральному, дескать заказов много, путаницы много, нельзя ли их как то выделить в списке, хотя бы цветом.

Начал очень бодро, создал справочник "Цвета" с реквизитами "Контрагент" и "WebЦвет". Теперь нужно было как-то выбирать цвета. Создал новое Перечисление "WebЦвета" и в этот момент понял, что к самому системному перечислению Цвет я подобраться не могу.

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

Попробовал вначале выгрузить любой WebЦвет в строку XML чтобы посмотреть, как потом эту строку можно вручную пересобрать. Заметил, что строка легко собирается и подставляется английское название цвета.

Посмотрите, что получилось:

Функция ПолучитьЦвет(Контрагент) Экспорт
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    Цвета.WebЦвет
    |ИЗ
    |    Справочник.Цвета КАК Цвета
    |ГДЕ
    |    Цвета.Контрагент = &Контрагент
    |    И НЕ Цвета.ПометкаУдаления";
    
    Запрос.УстановитьПараметр("Контрагент", Контрагент);
    Рез = Запрос.Выполнить();
    
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        ВыборкаЦвет = ПолучитьИмяПеречисления(Выборка.WebЦвет);
        СтрокаЦвет = "<Color" + " xmlns=""http://v8.1c.ru/8.1/data/ui"" xmlns:d1p1=""http://v8.1c.ru/8.1/data/ui/colors/web" +
        " xmlns:xs=""http://www.w3.org/2001/XMLSchema"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">"
        + "d1p1:" + СокрЛП(ВыборкаЦвет) + " <" +
"/Color>";

        // Почему то строка в сериализованном виде не хотела правильно отображаться, поэтому пришлось её разобрать на части

       // Проверьте сами параметры при сборке строки

        Сериализатор = Новый СериализаторXDTO(ФабрикаXDTO);
        ТипОбъектаXDTO = ФабрикаXDTO.Тип("http://v8.1c.ru/8.1/data/ui","Color");

        ЧтениеXML = Новый ЧтениеXML;
        Попытка
            ЧтениеXML.УстановитьСтроку(СтрокаЦвет);
            ОбъектXDTO = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML,ТипОбъектаXDTO);
            Возврат Сериализатор.ПрочитатьXDTO(ОбъектXDTO);
        Исключение
            Возврат Неопределено;
        КонецПопытки;
    Иначе
        Возврат Неопределено;
    КонецЕсли;
    
КонецФункции

// Получение строкового значения имени перечисления
Функция ПолучитьИмяПеречисления(Значение) Экспорт

    Если
Значение.Пустая() Тогда
        Возврат
"";
    КонецЕсли;

   
//получаем как названо перечисление в конфигураторе
   
ИмяПеречисления = Значение.Метаданные().Имя;

   
//теперь получим индекс где хранится то что нам надо
   
НужныйИндекс = Перечисления[ИмяПеречисления].Индекс(Значение);

   
//и вот счастье. то что нам надо - идентификатор!!! всего-то четыре строчки кода
   
Возврат Метаданные.Перечисления[ИмяПеречисления].ЗначенияПеречисления[НужныйИндекс].Имя;

КонецФункции

В результате, получаем на выходе настраиваемый цвет. Теперь можно подсветить любое поле для выбранного контрагента в любом журнале, и причем, люди самостоятельно могут настроить цвет без привлечения программиста.

Уверен, что через сериализацию - десериализацию можно получить доступ к абсолютно любому системному объекту.

Огромное спасибо asved.ru, помог получить имя перечисления для подстановки в строку XML.

См. также

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

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

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    2683    1    John_d    8    

55

GUID в 1С 8.3 - как с ними быть

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    4617    atdonya    22    

45

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    3965    ke.92@mail.ru    16    

61

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8848    YA_418728146    6    

141

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2078    21    progmaster    7    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16157    133    sapervodichka    112    

129

Система контроля ведения учета [БСП]

Универсальные функции Механизмы типовых конфигураций БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7243    quazare    8    

109
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Alexey_ 26 24.03.14 22:08 Сейчас в теме
3 вопроса:
1.Зачем создавать перечисление, когда цвет можно выбрать с помощью ДиалогВыбораЦвета?
2.Зачем Сериализатор XDTO? WebЦвета["ИмяЦвета"] слишком просто для Вас?)
3.Почему не хранить сам цвет в реквизите с типом ХранилищеЗначения?
DJ_Codebase; AlexPNov; vsozansky; bulpi; +4 Ответить
2. nixel 1404 26.03.14 10:51 Сейчас в теме
(1) Alexey_,
3 - лично у меня были какие-то проблемы при хранении в ХЗ "именных" цветов. Точнее не в хранении, а в последующей работе с ними (вплоть до краша платформы). Приходилось раскладывать в rgb, тогда все отрабатывало корректно.

а по первому и второму вопросу - согласен.
WebЦвета["ИмяЦвета"] в случае локали, отличной от русской или английской не рухнет? Или можно туда передавать английские значения в любой локали? Никогда не работал с этой коллекцией таким способом. =)
3. Alexey_ 26 26.03.14 12:13 Сейчас в теме
(2) nixel, ну как раз, английские значения и надо использовать, т.к. его проще получить из строкового значения web цвета:
Напр., Голубой со стальным оттенком (LightSteelBlue), заключен в скобки.
В то время как в русском значении придется еще убирать пробелы и дефисы
4. alexei366 02.04.14 17:45 Сейчас в теме
В чем у тебя крах заключался?
я храню в ХЗ и проблем не наблюдал)
5. nixel 1404 10.04.14 11:40 Сейчас в теме
(4) alexei366, если я правильно помню, в обычном приложении в клиент-серверном варианте постоянно вылетали ошибки передачи значений между клиентом и сервером, если цвет хранился по имени. после раскладывания в rgb все работало корректно.
Оставьте свое сообщение