1Сv8 и Delphi
10.04.2008
01:12
#1
"Я столкнулся с такой проблемой...В инете нашёл код работы с 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.
В чём тут может быть дело?"
onesobj := createoleobject('V8.Application'); //Создаем OLE-объект
onesobj.Connect('File=E:\temp\baza\homelib_06');
ware:= onesobj.CreateObject('Справочники.Банки');
на последней строчке вылетает с ошибкой Method CreateObject not supported by automation object.
В чём тут может быть дело?"
10.04.2008
13:30
#2
"CreateObject - Нет такого метода глобального контекста. Это не семерка,это восьмерка, тут все по другому.
Попробуй такой код :
ware:= onesobj.Справочники.Банки;
"
Попробуй такой код :
ware:= onesobj.Справочники.Банки;
"
10.04.2008
20:25
#3
Попробовал...падает на этой строчке с ошибкой
Method Справочники not supported by automation object.
Я уже все перепробовал ничего не работает....
Method Справочники not supported by automation object.
Я уже все перепробовал ничего не работает....
11.04.2008
10:59
#4
А база в папке E:\temp\baza\homelib_06 у вас в формате 8.0?
Если база 8.1, то надо использовать V81.Application
Если база 8.1, то надо использовать V81.Application
16.04.2008
14:16
#5
"Очень хорошая информация (возможно единственная в инете), посвященная 1Сv8 и Delphi находится по адресу: вот фрагменты из моих работающих проектов:
// Общие операции:
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",НачалоГода(ТекущаяДата()));
Если ДокСсылка <> Документы.СчетНаОплатуПокупателю.ПустаяСсылка() Тогда
Документы.СчетНаОплатуПокупателю.ПолучитьФормуСписка().Открыть(); //Открывается таблица всех счетов (можно и не делать, но так красивее)
ДокСсылка.Скопировать().ПолучитьФорму().Открыть();
КонецЕсли;
"
// Общие операции:
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",НачалоГода(ТекущаяДата()));
Если ДокСсылка <> Документы.СчетНаОплатуПокупателю.ПустаяСсылка() Тогда
Документы.СчетНаОплатуПокупателю.ПолучитьФормуСписка().Открыть(); //Открывается таблица всех счетов (можно и не делать, но так красивее)
ДокСсылка.Скопировать().ПолучитьФорму().Открыть();
КонецЕсли;
"
05.08.2011
15:33
#6
"// Записать что-либо в 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; // это мой текст
а СтатусОплаты, Организация.Наименование, Организация.Код и другие плевали в меня, не говоря уже о табличной части.
И говорит: член группы НЕ найден или элемент НЕ ПОДДЕРЖИВАЕТСЯ.
Может кто-нить подскажет, в чём у меня ошибка? Очень уж хочется."
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)