F_AN::IGetKauTable

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Bodybomber
Сообщения: 16
Зарегистрирован: 01 дек 2020, 08:15

F_AN::IGetKauTable

Сообщение Bodybomber »

Доброго времени суток.

Как внедрить vip interface с параметрами?

i.e.:

Код: Выделить всё

#Include GtKauTbl.vih            
...

Var oGetKauTable: F_AN::GetKauTable;

...

Embedded scGetKauTable  'Выбор подразделений' Interface oGetKauTable( cgiMulti, cgKatKau_BuhDisabled, 11083, 281474976711102);
End;
Ошибка при компиляции:
Ошибка: Ожидался "END" (Конец Embedded) C:\Git\1\C\C1.vip(стр. 1140, поз. 71) );
Den
Местный житель
Сообщения: 1848
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: F_AN::IGetKauTable

Сообщение Den »

Иннициализировать объектную переменную так нелья ( при описанни embedded)
Как то так..

Код: Выделить всё

#Include GtKauTbl.vih

Interface Test_Kau_Emb;
   Var oGetKauTable: F_AN::GetKauTable;

   Create view
     var d1,d2 : date;
   ;

  Screen Scr1;
  Show at (,,,5);
    notablenavigation;
    fields
      d1 : noProtect;
      d2 : noProtect;
<<

   с .@@@@@@@@@@ по .@@@@@@@@@@

>>
  end;

  Embedded scGetKauTable  'Выбор подразделений' Interface oGetKauTable Show at (,6,,);;
  end;

  HandleEvent
    CmInit:
    {
      oGetKauTable.InitParam(cgiMulti,cgKatKau_BuhDisabled,2,12345)
    }
  end;
end.
Bodybomber
Сообщения: 16
Зарегистрирован: 01 дек 2020, 08:15

Re: F_AN::IGetKauTable

Сообщение Bodybomber »

Спаси_бо[г]!
Выручил.
Ответить