[Flexy]

Добрый ден.
Вопрос такого плана:
Имеем базу ТИС и 2 базы бухгалтерии.Автоообмен между ними настроен.У 1-го пользователя ТИСа при включении 1С-ки настроена автозагрузка 3-х баз одновременно (т.е база ТИС и 2-е базы Бухгалтерии).Соответственно он может проводить расходные как в торговле, так и в бухии (если включен флаг).Необходимо сделать что бы это все мог еще 1 юзер.Но не могу найти где это делается.
Помогите разобраться где включать и отключать автозагрузку баз при входе в программу?
Заранее СПС!

[Vofka]

Может роль нужно поставить соответствующую?

[Flexy]

Может роль нужно поставить соответствующую?

У этих двух юзеров роли стоят одинаковые...

[Vofka]

Попробуйте поискать в конфигурации имя пользователя, у которого происходит автозагрузка. Может автозагрузка привязана к конкретному имени. Ну а вообще так тяжело сказать, не видя это "вживую".

[Flexy]

По пользователю в конфе ни чего не находит.
Подскажите кто знает где вообще настраивается автоподкючение 2-х и более баз...

[Flexy]

АПну темку.Так до сих пор и не разобрался где происходит автоподключение второй базы.
перерыл всю конфу в поисках пользователей, но привязки от имени пользователя так и не нашел.Зато нашел такой код

//*******************************************
Процедура ПриОткрытии()   
    спрФирмы = СоздатьОбъект("Справочник.Фирмы"); 
    спрФирмы.ВыбратьЭлементы();    
    Пока спрФирмы.получитьЭлемент() = 1 цикл 
        Стр = "";
        Если СписокПодключенныхБаз.НайтиЗначение(спрФирмы.ТекущийЭлемент(),Стр,"Фирма") = 1 Тогда
            Продолжить; 
        КонецЕсли;
        СписокБаз.ДобавитьЗначение(спрФирмы.ТекущийЭлемент());
    КонецЦикла;
КонецПроцедуры

Процедура Выполнить()
    Польз = СокрЛП(Строка(ИмяПользователя())); //"Пользователь"
    Для н = 1 по СписокБаз.Размерсписка() Цикл
        Если СписокБаз.Пометка(н) = 1 Тогда
            Фирма = СписокБаз.получитьЗначение(н);    
            Стр = "";
            Если СписокПодключенныхБаз.НайтиЗначение(Фирма,Стр,"Фирма") = 1 Тогда
                Бух = СписокПодключенныхБаз.получитьЗначение(Стр,"Бух"); 
            Иначе
                попытка    
                    Бух = "";
                    База = СокрЛП(Фирма.ПутьКБазеДанных);
                    Бух = СоздатьОбъект("v77.Application"); 
                    Состояние("Загружаем базу - "+ Фирма + "...");
                    Если Бух.Initialize(Бух.RMAccount, "/D"+СокрЛП(База)+" /N"+Польз+ " /P"+ "", "NO_SPLASH_SHOW") = 0 Тогда
                        Сообщить("Ошибка открытия бухгалтерской базы - " + Фирма, "!!!");    //  RMComplex
                    Иначе
                        СписокПодключенныхБаз.НоваяСтрока();
                        СписокПодключенныхБаз.Фирма = Фирма;
                        СписокПодключенныхБаз.Бух = Бух;
                    КонецЕсли;  
                Исключение  
                    Сообщить(ОписаниеОшибки());
                конецПопытки; 
            КонецЕсли;
        КонецЕсли;
    Конеццикла;
    Состояние("");  
    Форма.Закрыть();
Конецпроцедуры

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

[Vofka]

Так а в чем проблема? У второго юзера список баз пустой или подключиться к ним не может?

[Flexy]

Так а в чем проблема? У второго юзера список баз пустой или подключиться к ним не может?

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

[Vofka]

Ну судя по коду выше, здесь не происходит "выбор". Здесь только проверяется отмечены ли базы. Посмотрите процедуру глобального модуля ПриНачалеРаботыСистемы()

[Flexy]

Ну судя по коду выше, здесь не происходит "выбор". Здесь только проверяется отмечены ли базы. Посмотрите процедуру глобального модуля ПриНачалеРаботыСистемы()

Весьма благодарен.Нашел такой код в Глобальном модуле

Если СокрЛП(Константа.КаталогВнешнихФайлов)="" Тогда
        Константа.КаталогВнешнихФайлов = КаталогИБ()+"ExtForms\";    
    КонецЕсли;
                           
    Польз = СокрЛП(Строка(ИмяПользователя())); //"Пользователь"    
    Если ПустоеЗначение(глПользователь) = 1 Тогда
        Возврат;
    КонецЕсли;  
    
    СписокПодключенныхБаз = Создатьобъект("ТаблицаЗначений");
    СписокПодключенныхБаз.НоваяКолонка("Фирма"); 
    СписокПодключенныхБаз.НоваяКолонка("Бух");
    СпрБазы = СоздатьОбъект("Справочник.БазыПользователя");
    СпрБазы.Использоватьвладельца(глПользователь);
    СпрБазы.ВыбратьЭлементы(1);
    Пока СпрБазы.ПолучитьЭлемент() = 1 Цикл
        Если (СпрБазы.пометкаУдаления() = 0) и (СпрБазы.Загружать = 1) Тогда
            Попытка 
                Бух = "";
                База = СокрЛП(СпрБазы.Фирма.ПутьКБазеДанных);
                Бух = СоздатьОбъект("v77.Application"); 
                Состояние("Загружаем базу - "+ СпрБазы.Фирма + "...");
                Если Бух.Initialize(Бух.RMAccount, "/D"+СокрЛП(База)+" /N"+Польз+ " /P"+ "", "NO_SPLASH_SHOW") = 0 Тогда
                    Сообщить("Ошибка открытия бухгалтерской базы - " + СпрБазы.Фирма, "!!!");    //  RMComplex
                Иначе
                    СписокПодключенныхБаз.НоваяСтрока();
                    СписокПодключенныхБаз.Фирма = СпрБазы.Фирма;
                    СписокПодключенныхБаз.Бух = Бух;
                КонецЕсли;  
            Исключение  
                Сообщить(ОписаниеОшибки());
            конецПопытки; 
        КонецЕсли;
    Конеццикла;
    Бух = "";

    Состояние("");

Опять же не могу понять как это завязано к конкретному пользователю...=((

P.S. Таки разобрался.Все оказалось очень просто.Как видно в коде привязка таки идет к пользователю.Настраивается это дело в Справочнике пользователей)))

[Vofka]

Все оказалось очень просто.Как видно в коде привязка таки идет к пользователю.Настраивается это дело в Справочнике пользователей)))

Отак от