0. moolex 794 08.12.18 00:17 Сейчас в теме

Подмена заголовка 1С

Подстановка имени базы данных в начало заголовка окон с программой 1С (конфигуратор и предприятие).
Удобно при одновременной работе с большим количеством баз данных.
Скрипт интересен будет как для программистов, так и для администраторов баз данных.
Заголовок можно менять для любой программы, не только для 1С, для этого требуется немного исправить скрипт.
Программисту 1С не составит труда переделать скрипт.

Перейти к публикации

Комментарии
Избранное Подписка Сортировка: Древо
1. CheBurator 3389 10.12.18 00:17 Сейчас в теме
А просто скрипт, который будет работать в виндах без дополнительных "окружений" - не...?
2. moolex 794 10.12.18 07:26 Сейчас в теме
(1) Без дополнительных окружений - надо писать на английском...
А я программист 1С - я привык думать и программировать на русском.
Надо любить свой язык, спасибо 1С за это...
Да и не было бы 1С и этого сайта, если бы компания 1С выбрала основной язык программирования на английском...
Я знаю много языков программирования и занимаюсь кодом 20 лет, но писать код и думать на родном языке оказалось проще...
Это факт.
DarkUser; K_Ilia; +2 1 Ответить
3. kuzyara 754 04.01.19 09:03 Сейчас в теме
4. moolex 794 04.01.19 10:22 Сейчас в теме
5. slawa 25 23.01.19 16:21 Сейчас в теме
Пишет ошибку: "Ошибка при вызове Компьютеры.Запрос - Доступ запрещен"

WMI запущен и отвечает
PS C:\Users\Slawa> get-wmiobject Win32_OperatingSystem
SystemDirectory : C:\Windows\system32
Organization :
BuildNumber : 14393
RegisteredUser :
SerialNumber : 00378-20000-00003-AA087
Version : 10.0.14393

Пробовал запустить faster через "Запуск от имени администратора" - не помогло

Windows 10 х64
6. moolex 794 24.01.19 22:51 Сейчас в теме
Вероятно исправил, обновите программу, и проверьте...
7. slawa 25 25.01.19 01:04 Сейчас в теме
Ошибка ушла
Но выявилась новая:
Пишет:
ИмяБД не определено - CommandLine="C:\Program Files (x86)\1cv8\8.3.13.1644\bin\1cv8.exe" DESIGNER /IBName"ХФ ДВИ ОПТ SQL" /ConfigurationRepositoryF "D:\DataBase\ХранилищеКонфигураций\ХФБухОпт30" /ConfigurationRepositoryN "SlawaWork" ...

Поставил вывод Параметра в цикле "Для Параметр Из ПараметрыКоманды Цикл"
Получил:
Параметр - CommandLine="C:\Program Files (x86)\1cv8\8.3.13.1644\bin\1cv8.exe" DESIGNER /IBName"ХФ ДВИ ОПТ SQL"
Параметр - /ConfigurationRepositoryF
Параметр - "D:\DataBase\ХранилищеКонфигураций\ХФБухОпт30" /ConfigurationRepositoryN
Параметр - "SlawaWork" /ConfigurationRepositoryP
...

Похоже ПараметрыКоманды = Строки.Разделить(Стр, " ", , """"); работает неверно
8. moolex 794 26.01.19 14:06 Сейчас в теме
(7) Я выполнил простой скрипт в Faster на основе ваших данных, все работает корректно, разделяет на строки правильно:
CommandLine="""C:\Program Files (x86)\1cv8\8.3.13.1644\bin\1cv8.exe"" DESIGNER /IBName""ХФ ДВИ ОПТ SQL"" /ConfigurationRepositoryF ""D:\DataBase\ХранилищеКонфигураций\ХФБухОпт30"" /ConfigurationRepositoryN ""SlawaWork""";
Сообщить(CommandLine);
СписокСтрок = Строки.Разделить(CommandLine," ",,"""");
Для Строка Из СписокСтрок Цикл
	Сообщить(Строка); 
Конец;
9. slawa 25 26.01.19 16:59 Сейчас в теме
CommandLine="CommandLine=""C:\Program Files (x86)\1cv8\8.3.13.1644\bin\1cv8.exe"" DESIGNER /IBName""ХФ ДВИ Розн SQL"" /ConfigurationRepositoryF ""D:\DataBase\ХранилищеКонфигураций\ХФБухРозн30"" /ConfigurationRepositoryN ""SlawaWork"" /ConfigurationRepositoryP ""1111"" /AppAutoCheckMode /AppAutoCheckVersion /AppAutoInstallLastVersion+";

такая не работает
10. slawa 25 26.01.19 17:06 Сейчас в теме
вот
Прикрепленные файлы:
12. moolex 794 26.01.19 22:47 Сейчас в теме
(10) На скриншоте видно что перед и после слова DESIGNER не пробел...
скопируйте в буфер данную строку и в Faster (два раза правый Ctrl) можно посмотреть что за символы там (закладка Строки).
А когда вы копируете сюда (в сообщения то они превращаются в пробелы) и все работает...
11. slawa 25 26.01.19 17:16 Сейчас в теме
еще
Прикрепленные файлы:
13. slawa 25 27.01.19 07:37 Сейчас в теме
Там по два пробела до и после
14. moolex 794 27.01.19 09:31 Сейчас в теме
(13) сделайте пока замену двух пробеллов на один:
ПараметрыКоманды = Строки.Разделить(Строки.Заменить(Стр,"   "," "), " ", , """");

я посмотрю проблему разделения строки при двух пробелах...
15. slawa 25 27.01.19 12:02 Сейчас в теме
Это заработало

А эта строка не работает:
"C:\Program Files (x86)\1cv8\8.3.13.1644\bin\1cv8.exe" DESIGNER /IBConnectionString "File=""D:\ПроектыВрем\_ХФ Розн 3.0.57.10 CFG"";" /AppAutoCheckMode

Добавил в скрипт:
Если (Строки.Подстрока(Параметр, 2, 5)="File=") Тогда // файловая база
ИмяБД = Параметр; ПрефиксИмени = ".";
Прервать;
Конец;
Не помогло

Перед добавленным фрагментом вывел:
Сообщить(Строки.Подстрока(Параметр, 2, 5));
Сообщить((Строки.Подстрока(Параметр, 2, 5)="File="));
Получил:
File=
0

Не пойму в чем проблема
16. moolex 794 27.01.19 12:16 Сейчас в теме
(15)
"File=""D:\ПроектыВрем\_ХФ Розн 3.0.57.10 CFG""

Здесь два раза в двойные кавычки обернута строка, зачем?
17. slawa 25 27.01.19 12:40 Сейчас в теме
Я не знаю
Пользуюсь для запуска стартером https://infostart.ru/public/274485/
18. moolex 794 28.01.19 00:51 Сейчас в теме
(17)
Исправлено, обновите программу, и проверьте...
19. slawa 25 28.01.19 03:49 Сейчас в теме
20. vkozak 28.01.19 11:20 Сейчас в теме
Зачем так сложно?
В модуле управляемого приложения, в процедуре "При начале работы системы".
Читаем имя рабочей базы и меняем заголовок.
ТекЗаголовок=ПолучитьЗаголовокКлиентскогоПриложения();
СтрокаДобавления=ВРег(СтрокаСоединенияИнформационнойБазы());
УстановитьЗаголовокКлиентскогоПриложения(СтрокаДобавления+ТекЗаголовок);

Собственно и всех проблем!
21. moolex 794 28.01.19 14:45 Сейчас в теме
(20) А если конфигураций разных много и все на поставке...? А как вашим способом поменять в конфигураторе заголовок?
22. vkozak 28.01.19 14:59 Сейчас в теме
Зачем менять заголовок в конфигураторе не понятно.
"На поставке", это что значит? Не снято с сопровождения?
Так используйте расширение конфигурации.
23. moolex 794 28.01.19 15:24 Сейчас в теме
(22) Если открыто 10 конфигураторов, то это просто удобно...
24. slawa 25 06.02.19 14:33 Сейчас в теме
Не меняется заголовок самого окна в режиме Предприятие, хотя в скриншотах панели задач заголовок изменён.
Наверное сама 1С-ка мешает
Нельзя ли это исправить?
Видеть что за база запущена не лишне было-бы.
Прикрепленные файлы:
25. v.l. 420 25.04.19 10:26 Сейчас в теме
Как быть линуксовым клиентам?
решение не универсальное.
26. slawa 25 25.04.19 14:41 Сейчас в теме
да уж :)
каждый делает под себя и делится тем, что сделал
и за это ему огромное спасибо

ну нету у автора линукса :)
Оставьте свое сообщение
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.

Вакансии

Программист 1С
Нижневартовск
зарплата от 60 000 руб.
Полный день

Руководитель проекта, аналитик, консультант
Санкт-Петербург
По совместительству

Автор новостных обзоров на тему 1С и бухучета
Санкт-Петербург
По совместительству

Бизнес-аналитик 1С
Санкт-Петербург
зарплата от 120 000 руб.
Полный день

Программист 1С
Москва
Полный день