Галактика в вопросах и ответах

Друг спрашивает... Почему не подключается интерфейс к кнопке Отчеты пользователя в Галактике 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 через запуск внешнего интерфейса видны в Галактике

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

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

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

Я вот так попробовал откомпилилось, но результат без измений
#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
делали?

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

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

каждый пункт меню образуется отдельным экземпляром фейса. Но можно сделать шаблон. Я компилю например так (с /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 и макроподстановки.

Алексей писал(а):#define ComponentVersion
делали?

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

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

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