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

Обсуждаем вопросы посвященные интеграции с другими информационными системами

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

Сообщение mail » Чт ноя 15, 2012 6:55 am

Спецы Помогите!!!
Задача: из 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=""""";
mail
 
Сообщения: 1
Зарегистрирован: Чт ноя 15, 2012 6:47 am

Вернуться в Интеграция

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron