Программирование на Атлантисе (VIP, FCOM, ARD), FastReport
Модераторы: m0p3e, edward_K, Модераторы
-
Bodybomber
- Сообщения: 16
- Зарегистрирован: 01 дек 2020, 08:15
Сообщение
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
- Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
-
Контактная информация:
Сообщение
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.