К основному контенту

Сообщения

Сообщения за 2022

Цвет. Абсольтный цвет из выбранного цвета, цвета стиля.

Велосипед из статей на инфостарте, в одной из них указали что для костыля через форматированный текст --> чтмл нужно дважды установить цвет фона, иначе он не устанавливается в элемент.  ниже укороченный вариант на костылях, без проверки передан нам абсолютный или какой ещё цвет (если мы выбираем цвет через диалог выбора цветов (платформенный) то получаем цвет с цветами ргб -1,-1,-1) . https://infostart.ru/public/484812/ https://infostart.ru/1c/articles/1304206/ - здесь и увидел комментарий про повторную установку стиля. ``` &НаКлиентеНаСервереБезКонтекста Функция АбсолютныйЦвет(Цвет) //ОбъектМетаданныхСтиля = Метаданные.ЭлементыСтиля.Найти(Сред(Строка(Цвет), 8)) ТекстХТМЛДокумента = "";     Шаблон = "0123456789ABCDEF";     ФорматированныйДокумент = Новый ФорматированныйДокумент;      ФорматированныйДокумент.Добавить("ОпределениеЦвета", Тип("ТекстФорматированногоДокумента"));      ФорматированныйДокумент.Элементы[0].Элементы[0].Цвет

Откат к старой версии платформы после 15.11.2022

В свете обязательного обновления платформы от вендора пользователи могли столкнуться с тем, что их 1С превратилась в "кирпич" (непроверенный рецепт восстановления ниже). если кому-то надо открыть серверную базу, которая «поломалась» 15.11.2022, то советую сделать бэкап, а затем удалить из таблицы [dbo].[Config] строчки с Filename like %versions (s на конце обязательно, не путать с version.) С файловыми в принципе также, бэкап и Tool_1C_cd в помощь. Младше любой, чьи релизы были в октябре ноябре, если в базу заходили с 00:00:00 15.11.2022 

Получить список адресов подключенных сетевых дисков

Вводная получить список дисков (хотим знать не X:, а точный адрес каталога в сети) К сожалению не смог получить какое либо отличное поведение ни от  ЗапуститьПриложение ни от КомандаСистемы получаем мелькающее окно или переключение фокуса c 1C (как по Alt+Tab). Но работает, в тч на клиенте. Каталог указывать в методах не обязательно, осталось от попыток заставить все работать. Начиная с 8.3.18 можно использовать (хотя эффект окна терминала никуда не пропадает)  ЗапуститьПриложениеАсинх ИмяФайла = ПолучитьИмяВременногоФайла ( "txt" ); КомандаСтрокой = СтрШаблон ( "cmd /c net use >> %1" , ИмяФайла ); ЗапуститьПриложение ( КомандаСтрокой ,, Истина );               //КомандаСтрокой = СтрШаблон("net use >> %1", ИмяФайла); //КомандаСистемы(КомандаСтрокой,КаталогВременныхФайлов()); ТекстовыйДокумент = Новый ТекстовыйДокумент (); ТекстовыйДокумент.Прочитать ( ИмяФайла , "cp866" ); УдалитьФайлы ( ИмяФайла ); Диски = Новый Структура ()