Скачать: CL | DM;

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=(

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c