Отчёты пользователя в 8.1

[Semi-bit]

Друг спрашивает... Почему не подключается интерфейс к кнопке Отчеты пользователя в Галактике 8.1?
Код подключения следующий

#include UserReport.vih

VipInterface UserReport_skPlan Implements IUserReport;
Interface UserReport_skPlan;
create view;

procedure Run;
begin
RunInterface(skPlan);
end;

function GetReportName: String;
begin
GetReportName := 'Ведомость обеспеченности номен. плана активные МК';
end;

function GetGroupName (Level : Word) : String;
begin
GetGroupName := '';
end;

function GetPriority : Integer;
begin
GetPriority := 0;
end;

function VisibleInModule(Ind : Byte) : String;
begin
VisibleInModule := '';
case Ind of
1 : VisibleInModule := 'MANUFPLAN';
end;
end;
end.

Однако, интерфейсы UserReport_skPlan, SkPlan через запуск внешнего интерфейса видны в Галактике

[PViP]

Вероятно вы не верно вызываете интерфейс.
В 8 обращение к интерфейсам происходит как <Имя_компонента::Имя_интерфейа>
К примеру

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

RunInterface('L_SoprDoc::skPlan', cmpPlansNo);

Или skPlan - это ваш интерфейс?

[Semi-bit]

При чем, здесь вызов интерфейса,
когда у меня по кнопке Отчеты пользователя пишет сообщение
Нет отчетов пользователя для модуля Планирования производства ?
При вызове Отчетов пользователя не появляется окно
"Отчеты пользователя [Планирование производства]"
Наименование отчета - > "Ведомость обеспеченности номен. плана активными МК"
При этом интерфейс UserReport_skPlan и
Skplan виден через запуск внешего интерфейса

[Nikos]

Нужно добавить #Component "F_UserReport"

[Semi-bit]

Я вот так попробовал откомпилилось, но результат без измений
#include UserReport.vih

#ifdef ComponentVersion
#component "F_UserReport"
#endif

VipInterface UserReport_UserReport_skPlan Implements
#ifdef ComponentVersion
F_UserReport::IUserReport
#else
IUserReport
#ENDIF
#ifdef Atl51
licensed (FREE)
#end
;
//VipInterface UserReport_skPlan Implements IUserReport;
Interface UserReport_skPlan;
create view;

procedure Run;
begin
RunInterface(skPlan);
end;

[Алексей]

#define ComponentVersion
делали?

[Semi-bit]

сделали, спасибо, заработало

[Алексей]

А как сделать один пользовательский отчет, из которого можно было бы вызывать несколько других интерфейсов?

[edward_K]

каждый пункт меню образуется отдельным экземпляром фейса. Но можно сделать шаблон. Я компилю например так (с /b)
#define SetMenuUserR MenuZarp
//===================================
#define UserMenuGroup 'утилиты'

#define UserNameWnd 'Тест'
#define UserNameFace check_soc
#define UserNameFORM
#make "My_UsrReports.vip"
#undef UserNameFORM
#undef UserNameWnd
#undef UserNameFace
а фейс представляет из себя сплошные #ifdef и макроподстановки.

[Gameus_]

#define ComponentVersion
делали?

подскажите плиз, в каком месте это нужно писать ?

[Galex]

А зачем, если можно просто #component "F_UserReport" написать?..

[Алексей]

Gameus_
В проекте первой строкой.