1Сv8 и Delphi

Новая тема
"Я столкнулся с такой проблемой...В инете нашёл код работы с 1Сv8

onesobj := createoleobject('V8.Application'); //Создаем OLE-объект
onesobj.Connect('File=E:\temp\baza\homelib_06');
ware:= onesobj.CreateObject('Справочники.Банки');

на последней строчке вылетает с ошибкой Method CreateObject not supported by automation object.

В чём тут может быть дело?"
"CreateObject - Нет такого метода глобального контекста. Это не семерка,это восьмерка, тут все по другому.

Попробуй такой код :

ware:= onesobj.Справочники.Банки;
"
Попробовал...падает на этой строчке с ошибкой
Method Справочники not supported by automation object.

Я уже все перепробовал ничего не работает....

А база в папке E:\temp\baza\homelib_06 у вас в формате 8.0?
Если база 8.1, то надо использовать V81.Application
"Очень хорошая информация (возможно единственная в инете), посвященная 1Сv8 и Delphi находится по адресу: http://doc-prg.narod.ru/index_1cv8.htm

А
вот фрагменты из моих работающих проектов:

// Общие операции:
try
v:= Unassigned;
v:= CreateOleObject('v81.Application');
v.Connect(s);

... какие-то действия ...

finally
v.Visible:=true;
v:= Unassigned;
end; // try finally


// Операции с объектами NewObject:
refEvalExpr := v.NewObject('ТекстовыйДокумент');
refEvalExpr.ВставитьСтроку(1, 'Новая строка');
v.Сообщить(refEvalExpr.КоличествоСтрок());{}
v.Visible:=true


// Записать что-либо в 1С:
doc_obj := UnAssigned;
doc_ssilka := Unassigned;

doc_ssilka := v.Документы.СчетНаОплатуПокупателю.НайтиПоНомеру('АКА00000002','20081231101010');
doc_obj := doc_ssilka.ПолучитьОбъект();
doc_obj.СтатусОплаты := 'Не заплатили';
doc_obj.Записать();




// Вывести на экран некую форму:
  v.Справочники.Номенклатура.ПолучитьФормуСписка().Открыть();


// Вывести на экран форму для ввода НОВОГО счета на оплату покупателя:
v.Документы.СчетНаОплатуПокупателю.ПолучитьФормуСписка().Открыть(); //Открывается таблица всех счетов (можно и не делать, но так красивее)
v.Документы.СчетНаОплатуПокупателю.ПолучитьФормуНовогоДокумента().Открыть();


// Вывести на экран форму для ввода НОВОГО счета на оплату покупателя ПУТЕМ КОПИРОВАНИЯ существующего:
ДокСсылка = Документы.СчетНаОплатуПокупателю.НайтиПоНомеру("АКА00000002",НачалоГода(ТекущаяДата()));
Если ДокСсылка <> Документы.СчетНаОплатуПокупателю.ПустаяСсылка() Тогда
Документы.СчетНаОплатуПокупателю.ПолучитьФормуСписка().Открыть(); //Открывается таблица всех счетов (можно и не делать, но так красивее)
   ДокСсылка.Скопировать().ПолучитьФорму().Открыть();
КонецЕсли;


"
"// Записать что-либо в 1С:
doc_obj := UnAssigned;
doc_ssilka := Unassigned;

doc_ssilka := v.Документы.СчетНаОплатуПокупателю.НайтиПоНомеру('АКА00000002','20081231101010');
doc_obj := doc_ssilka.ПолучитьОбъект();
doc_obj.СтатусОплаты := 'Не заплатили';
doc_obj.Записать();

если Вы еще на форуме, то ответьте. этот кусочек из вашего примера у меня не работает - doc_obj.СтатусОплаты := 'Не заплатили';
дельфяй 7 мне говорит: СтатусОплаты - элемент НЕ ПОДДЕРЖИВАЕТСЯ.
Срабатывают только мои
           DT := now;
           ole_NewDoc.Дата := DT;
           ole_NewDoc.УстановитьВремя;
           ole_NewDoc.Номер := NumbSchet.Text;   // это мой текст
а СтатусОплаты, Организация.Наименование, Организация.Код и другие плевали в меня, не говоря уже о табличной части.
И говорит: член группы НЕ найден или элемент НЕ ПОДДЕРЖИВАЕТСЯ.
Может кто-нить подскажет, в чём у меня ошибка?  Очень уж хочется."
Читают тему
(гостей: 1)

Быстрый переход