Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.07;
Скачать: 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 вся ветка

Текущий архив: 2007.10.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
2-1188793357
philinsul
2007-09-03 08:22
2007.10.07
Разбираю копирование файлов (и по сети тоже)


4-1176088521
Alex_AA
2007-04-09 07:15
2007.10.07
Как определить размер монитора?


15-1189495429
BOA_KAA
2007-09-11 11:23
2007.10.07
Как сделать это быстрее?


15-1189253128
OzoM
2007-09-08 16:05
2007.10.07
Срочно!!!


3-1180593182
DVM
2007-05-31 10:33
2007.10.07
Заполнить BLOB поле в таблице с помощью SQL запроса. Как?