[FAQ]: COM-подключение к базе 7.7 из 8.2 1С

&НаКлиенте

Процедура Загрузки()

ПутьКБазе="D:\ВашаБаза\1с77\";
Пользователь="stvbliz";//пользователь базы 7.7

Пароль="вашпароль";
МонопольныйРежимOLE = ""; // " /m";
ЗапускБезЗаставки = 1;

База = Новый COMОбъект("V1CEnterprise.Application");
СтрокаПодключения = "/D"""+СокрЛП(ПутьКБазе)+""" /N"""+СокрЛП(Пользователь)+""" /P"""+СокрЛП(Пароль)+"""";
РезультатПодключения=База.Initialize(База.RMTrade,СтрокаПодключения,?(ЗапускБезЗаставки = 1,"NO_SPLASH_SHOW",""));

Если НЕ РезультатПодключения Тогда

Сообщить("Не удалось произвести подключение к информационной базе");
КонецЕсли;

Таблица.Очистить();

Док = База.CreateObject("Документ.ЗаявкаПокупателя");
Док.ВыбратьДокументы(НачалоНедели(Дата),КонецНедели(Дата));                  

Пока Док.ПолучитьДокумент() = 1 Цикл

ОбработкаПрерыванияПользователя();

Если Док.НомерДок = НомерЗаявки Тогда

Док.ВыбратьСтроки();

Пока Док.ПолучитьСтроку()=1 Цикл

нов=Таблица.Добавить();

нов.Номенклатура = Док.Номенклатура.Наименование;

нов.Количество = Док.Количество;

нов.Единица = Док.Единица.Наименование;

нов.Цена = Док.Цена;

Нов.Сумма = Док.Сумма;

нов.Коэффициент = Док.Коэффициент;

нов.Производитель = Док.производитель;

Нов.Валюта = Док.Валюта.Наименование;


КонецЦикла;

КонецЕсли;


КонецЦикла;  


Док=NULL;

КонецПроцедуры