OLE соединение Delphi 6 и 1C

← →
Zhenya (2006-01-23 14:02) [0]

Помогите пожалуйста не могу определить тип значения! Функция ТипЗначения() работать не хочет. Почему не знаю=(((

← →
Zhenya (2006-01-23 14:35) [1]

1. Сорри Delphi 7
2. Исходник:
OlePayments := Unassigned;
OleGroup := Unassigned;
OleType := Unassigned;
Result := TDBPaymentList.Create;
Result.OwnsObjects := false;
Result.Count := 0;

try
if not VarIsEmpty(Ole1C) then
begin
OlePayments := Ole1C.CreateObject("Документ.Выписка");
OleGroup := Ole1C.CreateObject("Справочник.Контрагенты");
OleGroup.НайтиПоКоду("00000118");

if (not VarIsEmpty(OlePayments)) then
begin
if OlePayments.ВыбратьДокументы(DateToStr(DDateFrom),DateToStr(DDateTo)) > 0 then
while OlePayments.ПолучитьДокумент > 0 do
begin
OlePayments.ВыбратьСтроки;

while OlePayments.ПолучитьСтроку = 1 do
if Ole1C.ПустоеЗначение(OlePayments.ПолучитьАтрибут("Субконто1")) = 0 then // аналогичная в плане обращения функция работает
if Ole1C.ТипЗначения(OlePayments.ПолучитьАтрибут("Субконто1")) = 11 then // не работает
if OlePayments.ПолучитьАтрибут("Субконто1").Родитель.Наименование = OleGroup.Наименование then
begin
DBPayment := TDBPayment.Create;

TDBPayment(DBPayment).IMPORT := true;
TDBPayment(DBPayment).ID := OlePayments.ПолучитьАтрибут("НомерДокВходящий");;
TDBPayment(DBPayment).FACT_DATE := OlePayments.ПолучитьАтрибут("ДатаДокВходящий");;
TDBPayment(DBPayment).AMOUNT := OlePayments.ПолучитьАтрибут("Приход");
TDBPayment(DBPayment).CUSTOMER := OlePayments.ПолучитьАтрибут("Субконто1").Наименование;
TDBPayment(DBPayment).CUSTOMER_ID := OlePayments.ПолучитьАтрибут("Субконто1").Код;
//TDBPayment(DBPayment).DESCRIPTION := OlePayments.ПолучитьАтрибут("Комментарий");

Result.Add(DBPayment);
end;
end;
end;
end;
finally
end;

← →
Zhenya (2006-01-23 14:37) [2]

Ошибка такая: Method "ТипЗначения" not supported by automation object=(

OLE соединение Delphi 6 и 1C Найти похожие ветки