Имя: Пароль:
1C
 
Порт подключения к серверу 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) Будь мужиком! Уничтожь того, кто конфликтует с твоей няшкой!