Страница 1 из 1

Связь баз через COM или OLE

СообщениеДобавлено: Чт ноя 15, 2012 6:55 am
mail
Спецы Помогите!!!
Задача: из 7.7 надо в базе 8.2 создать документ.
Код выполняется, ошибок не дает, сообщает реквизиты "созданного" документа, но в базе не записывает!!!

Перем ФлагУжеОткрыто, СтрПодключения, База, V8;

Функция СтатусБазы()
Если ФлагУжеОткрыто=1 Тогда
Возврат "База открыта. Версия "+База.Метаданные.Версия;
Иначе
Возврат "Надо открытьБазу. "+СтрПодключения;
КонецЕсли;
КонецФункции

Процедура ПодключитьБазу() //полключить
Если ФлагУжеОткрыто=1 Тогда
Возврат;
КонецЕсли;
V8=СоздатьОбъект("V82.COMConnector");
// V8=СоздатьОбъект("V82.Application");
Попытка
База=V8.Connect(СтрПодключения);
ФлагУжеОткрыто=1;
Исключение
сообщить(ОписаниеОшибки());
Предупреждение("Ошибка при подключении!");
ФлагУжеОткрыто=0;
КонецПопытки;
КонецПроцедуры

//*******************************************
Процедура Сформировать()
ПодключитьБазу();

СтрДатыКон=СтрЗаменить(Формат(КонДата,"ДГГГГММДД"),".","")+"235959";
ПостРС = База.Документы.ПоступлениеНаРасчетныйСчет;
НовПостРС = ПостРС.СоздатьДокумент();

НовПостРС.Дата=СтрДатыКон;
НовПостРС.Номер="111";
НовПостРС.Записать();
Сообщить(""+СтрДатыКон);
КонецПроцедуры

ФлагУжеОткрыто=0;
//СтрПодключения="Srvr=""localhost"";Ref=""base1c"";Usr=""Немчилова"";Pwd=""""";
СтрПодключения="File=""C:\Base8\База Воронеж (демо демо)"";Usr=""Немчилова"";Pwd=""""";