Форум программистов [Powered by Invision Power Board]

Код


БазаОле=СоздатьОбъект("V77.Application");

КаталогБазыОЛе  = "C:\МояБаза\"; -- я уже работаю в этой БД

РезультатПодключения = БазаОле.Initialize ( БазаОле.RMTrade , "/d" +
                       СокрЛП(КаталогБазыОле), "NO_SPLASH_SHOW");

Если РезультатПодключения = 0 Тогда
     Предупреждение("Не удалось подключится к указанной базе - проверьте вводные!");
 КонецЕсли;

СпрOLE = БазаОле.CreateObject("Справочник.Фирмы");

Код


Процедура ПодключитьБазу() Экспорт
    
    if Не Константы.Подлючать1с7.Получить() then
        //Возврат false;
    endIf;
    
    v7=Новый COMОбъект("V77s.Application");
    ТекПутьКБазе = Константы.Путь1с7.Получить();
    ТекПользователь = Константы.Пользователь1с7.Получить();
    ТекПароль = Константы.Пароль1с7.Получить();
    Попытка
        strApp = "/D"""+ТекПутьКБазе+""" /N"""+ТекПользователь+""" /P"""+ТекПароль+"""";
        Открыта=v7.Initialize(v7.RMTrade,strApp,"NO_SPLASH_SHOW");
        Если Открыта Тогда
            Сообщить("Подключена база 1с 7.7" + v7.Метаданные().Идентификатор);
            
            Попытка
                Счет7 = v7.CreateObject("Документ.Счет");
            Исключение
                v7 = "";
                Предупреждение("База  1с 7.7 не подключена. База в моноплоном режиме");
            КонецПопытки;
        Иначе
            Предупреждение("Ошибка подключения к базе " + ТекПутьКБазе  + " под пользователем " + ТекПользователь);
            v7 = "";
        КонецЕсли;
        
    Исключение
        Предупреждение("Ошибка подключения к базе " + ТекПутьКБазе  + " под пользователем " + ТекПользователь);
        v7 = "";
    КонецПопытки;
КонецПроцедуры

Код


    Счет7 = v7.CreateObject("Документ.Счет");
    Счет7.Новый();
    Счет7.ДатаДок    = Счет8.Дата;
    Счет7.Комментарий = "Выгружен из 1с 8.1";

Код


В 1С 7.7, режим «Монопольно» присутствует только в сетевых версиях 1С. Если же у Вас не сетевая версия, то Вы будете по умолчанию заходить монопольно – Вас об этом даже не спросят.