|   |   | 
| 
 | Порт подключения к серверу 1С | ☑ | ||
|---|---|---|---|---|
| 0
    
        Slon747 27.02.18✎ 13:57 | 
        Из-за конфликта портов изменил порты сервера и кластеров.
 Но теперь приходится у всех пользователей в окне запуска 1с прописывать порт. Можно ли где-то его указать глобально? Пользователи работают через терминал. | |||
| 1
    
        Cool_Profi 27.02.18✎ 14:02 | 
        Можно. В настройке сервера вернуться с дефолтному.
 Ну, или создать список бщих баз, который раздать всем через файл-ресурс. А в нём уже один раз прописать | |||
| 2
    
        Slon747 27.02.18✎ 14:03 | 
        (1) Я от дефолтного ушел из-за конфликта!     | |||
| 3
    
        vde69 27.02.18✎ 14:10 | 
        я для каждого пользователя генерю отдельные файлы, очень удобно, не надо парится вообще ни с подключением, ни с групповым переносом, ни с очисткой кешп (у всех каталог базы одинаковый)     | |||
| 4
    
        vde69 27.02.18✎ 14:10 | 
        //ВызватьИсключение "заблокировано"
 Сообщить("=== " + ИнформационнаяБаза.Наименование + " ==="); мПуть_v8i = "\1c-holding\e$\1c\bases\new\"; // это клиентский путь мПуть_v8i = "E:\1c\bases\new\"; // это серверный путь Попытка мСтрокаID = "ID=" + ИнформационнаяБаза.УникальныйИдентификатор(); мПользователи = глБазаКонтекста.ПользователиИнформационнойБазы.ПолучитьПользователей(); Для Каждого ПользовательИБ из мПользователи Цикл ОшибкаТекущегоПользователя = ""; Если ПользовательИБ.АутентификацияОС = Ложь Тогда Продолжить; КонецЕсли; мСтрокаПользователя = Сред(СокрЛП(ПользовательИБ.ПользовательОС),3); мИмяДомена = Лев(мСтрокаПользователя, СтрНайти(мСтрокаПользователя, "\")-1); мИмяПользователя = Сред(мСтрокаПользователя, СтрНайти(мСтрокаПользователя, "\")+1); мИмяФайла = мПуть_v8i + мИмяПользователя + "@" + мИмяДомена + ".v8i"; мИмяФайла2 = мПуть_v8i + мИмяПользователя + "@" + мИмяДомена + ".cfg"; //------------------------------------------------- мФайлНастроекПользователя2 = Новый Файл(мИмяФайла2); Если не мФайлНастроекПользователя2.Существует() Тогда мТекст2 = Новый ТекстовыйДокумент; мТекст2.ДобавитьСтроку(""); мТекст2.ДобавитьСтроку("CommonInfoBases=\1c-holding\1c\bases\" + мИмяПользователя + "@" + мИмяДомена + ".v8i"); мТекст2.ДобавитьСтроку(""); мТекст2.Записать(мИмяФайла2, "UTF-16"); КонецЕсли; //------------------------------------------------- // имя файла определили, если будут косяки - пусть они будут видны в каталоге сборки файлов... Сообщить(мИмяФайла); мФайлНастроекПользователя = Новый Файл(мИмяФайла); мТекст = Новый ТекстовыйДокумент; Если мФайлНастроекПользователя.Существует() Тогда мТекст.Прочитать(мИмяФайла); мПоиска = мТекст.ПолучитьТекст(); Если Найти(мПоиска, мСтрокаID)>0 Тогда Продолжить; КонецЕсли; КонецЕсли; мТекст.ДобавитьСтроку("["+СокрЛП(ИнформационнаяБаза)+"]"); мТекст.ДобавитьСтроку("Connect=Srvr=""" + ИнформационнаяБаза.СерверИБ + """;Ref="""+ИнформационнаяБаза.ИмяКаталогИБ+""""); мТекст.ДобавитьСтроку("ID=" + ИнформационнаяБаза.УникальныйИдентификатор()); мТекст.ДобавитьСтроку("OrderInList=16640"); мТекст.ДобавитьСтроку("Folder=/"); мТекст.ДобавитьСтроку("ClientConnectionSpeed=Normal"); мТекст.ДобавитьСтроку("WA=1"); мТекст.ДобавитьСтроку("App=Auto"); мТекст.ДобавитьСтроку("Version=8.3"); мТекст.ДобавитьСтроку(""); мТекст.Записать(мИмяФайла); КонецЦикла; Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; | |||
| 5
    
        Джексон 27.02.18✎ 14:10 | 
        (2) Будь мужиком! Уничтожь того, кто конфликтует с твоей няшкой!     | 
 
 | Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |