helpf.pro
Регистрация
 0 
Распечатать

1С 7.x : Как подключиться к базе 1С 8.х из 1С 7.7 ?

Код 1C v 7.x
 //Инициализация соединения в 7.7:
Коннектор=Создать0бъект("V82.COMConnector");
// Для 8.1 ("V81.COMConnector");
// для 8.0 ("V8.COMConnector");

// создается объект COM -соединение Соединение = V8.Connect ("File=""c:\InfoBases\Trade""; Usr =""Director"";")
v8 =Коннектор.Connect("File="""+СокрЛП(ПутьКБазе) + """; Usr="""СокрЛП(Логин) +"""; Pwd=""" +СокрЛП(Пароль)+""" ");

где переменные ПутьКБазе, Логин, Пароль — поля на форме.
После выполнения подключения имеем объект v8, через который можно обращаться к свойствам и методам нужной базы.

Допустим в 8.х есть экспортная функция возвращающая выборку документов:
Код 1C v 8.х
 Функция ВернутьВыборкуДокументов(ИмяДокумента,Дата1,Дата2) Экспорт
Запрос = Новый Запрос;
ТекстЗапроса =
"ВЫБРАТЬ
| Док.Ссылка КАК {ИмяДокумента}
|ИЗ
| Документ. {ИмяДокумента} КАК Док
|ГДЕ
| Док.Дата МЕЖДУ &Дата1 И &Дата2";
ТекстЗапроса = СтрЗаменить(ТекстЗапроса,"{ИмяДокумента}",ИмяДокумента);
Запрос.Текст = ТекстЗапроса;
Запрос.УстановитьПараметр("Дата1",Дата1);
Запрос.УстановитьПараметр("Дата2",Дата2);
Выборка = Запрос.Выполнить().Выбрать();
Возврат Выборка;


Из 7.7 через Коннектор обращаемся к ней так:
Код 1C v 7.x
 Выборка = v8.ВернутьВыборкуДокументов("РеализацияТоваров", ДатаС,ДатаПо);
Пока Выборка.Следующий() = -1 Цикл
Док = Выборка.РеализацияТоваров;
Сообщить(Док);
КонецЦикла;
Разместил:   Версии: | 7.x | 8.x |  Дата:   Прочитано: 10349
 0 
Распечатать
Возможно, вас также заинтересует
v7plus.dll - отсутствует CLSID либо отсутствует интерфейс llnitDone 0
При выгрузке отчетности в 1С 7.7 программа ругается на v7plus.dll и указывает, что отсутствует интерфейс llritDone. Что делать? 1) Поудалять нафиг все v7plus.dll из каталогов ИБ и папок пользователей 2) Оставить только в bin каталоге и...
Запись СД из 1С(без ВК и других программ, проверено на ХР/2003) 0
Процедура Сформировать(ДискДляЗаписи=" E:" ,АвтоИзвлечениеСД=0,АвтоЗакрытиеМастера=1) Перем Имя,Каталог; scr=СоздатьОбъект(" MSScriptControl.ScriptControl" ); scr.language=" javascript" ; shell=СоздатьОбъект(" Shell.Application" ); scr.AddOb
Использование регулярных выражений (RegExp) в 1С 1
Регулярные выражения (Regular Expressions) являются известным и мощным средством для поиска, тестирования и замены подстрок. Эта технология доступна и в 1С - через объект VBScript.RegExp. Нужный объект уже встроен в современные версии...
Как быстро сохранить огромный отчет в EXCEL? 0
Иногда бывает так, что отчет очень большой ( 65535 строк), а работать с этим всем нужно через EXCEL - 1С такой отчет в xls не сохранит. Да и отчеты с меньшим количеством строк сохраняются в xls-файл очень долго. Приведенная здесь...
Как в 1С автоматически переключать раскладку клавиатуры? 1
Для этого можно использовать функционал следующих внешних компонент: 1. FormEx смотрите тут. Сервис=СоздатьОбъект(" Сервис" ); Сервис.РаскладкаКлавиатуры(" Russian" ); 2. Miracle смотрите тут. 3. NetaTable смотрите тут. Если...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.