Не вижу группу в отчетах пользователя...

[Гаврилюк Марина]

Хочу увидеть группу "Реестр договоров", а не вижу
#define ComponentVersion
#include UserReport.vih
#component "F_UserReport"
VipInterface UserReport_Proba Implements IUserReport Licensed (free) ;
Interface UserReport_Proba;

create view;
procedure Run;
begin
Message('Запуск отчета №1');
end;
function GetReportName: String;
begin
GetReportName := 'Реестр договоров';
end;

function GetGroupName (Level : Word) : String;
begin
GetGroupName := ' ';
case Level of
1 : GetGroupName :='Реестры';
end;
end;

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

function VisibleInModule(Ind : Byte) : String;
begin
VisibleInModule := ' ';
case Ind of
1 : VisibleInModule:='B_FINANS';
2 : VisibleInModule:='DOGOVOR';
end;
end;
end.
При компиляции выскакивает предупреждение: Для компонента F_USERREPORT не наудено таблиц в словаре, возможно неверно задано имя компонента.

[Gameus_]

VipInterface UserReport_Proba Implements F_UserReport::IUserReport Licensed (free) ;
не пробовали ?

[Гаврилюк Марина]

Пробовала - тогда лезет ошибка "Неизвестное имя объектного интерфейса IUserReport" в этой строке

[Uncle_James]

to Gameus:
с этой строкой, где префикс компонента, ругается так:
ошибка: Неизвестное имя объектного интерфейса : IUserReport.
Компилю vip-строчником 5.4.14. Ничего не понимаю, все же по инструкции делаю
Может UserReport сейчас другой

[Gameus_]

у меня вот так:
vip.prj

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

#define ComponentVersion
#make "vedom16.pro"
#make "vedom16.rtf"
#make "mcmark.vip"
#make "orgmark.vip"
#make "vedom16_new.vip"
#make "UserReport.vih "
#make "vedom16_otchet.vip"

vedom16_otchet.vip

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

#include UserReport.vih
VipInterface UserReport_vedom16_otchet Implements F_UserReport::IUserReport;
Interface UserReport_vedom16_otchet;
create view;
procedure Run;
begin
  runinterface('vedomost16');
end;
function GetReportName: String;
begin
  GetReportName := '‚Ґ¤®¬®бвм ь16';
end;
function GetGroupName (Level : Word) : String;
begin
  GetGroupName := '';
  case Level of
    1 : GetGroupName := 'ЋвзҐвл';
  end;
end;
function GetPriority : Integer;
begin
  GetPriority := 0;
end;
function VisibleInModule(Ind : Byte) : String;
begin
  VisibleInModule := '';
  case Ind of
    1 : VisibleInModule := 'POSTPOL';
  end;
end;
end.

UserReport.vih

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

#Component "F_UserReport"

#ifndef __UserReport_vih__
#define __UserReport_vih__

ObjInterface IUserReport;
  procedure Run;
  function GetReportName : String;
  function GetGroupName (Level : Word) : String;
  function GetPriority : Integer;
  function VisibleInModule (Ind : Byte) : String;
end;

#end

[Гаврилюк Марина]

Не вижу, чтобы у вас было Licensed (free) - а у меня без него ругается, что лицензия галактики заканчивается такого то а вы компилируете такого то, т.е после лицензии.
У меня с начала было так:
proba.prj:
#define ComponentVersion
#include UserReport.vih
#make "proba.vip"

proba.vip:

#Component F_UserReport
#ifdef ATL51
Licensed (free)
#end

VipInterface UserReport_Proba Implements F_UserReport::IUserReport ;
Interface UserReport_Proba;

create view;
procedure Run;
begin
Message('‡ ЇгбЄ ®взҐв  ь1');
end;
function GetReportName: String;
begin
GetReportName := 'ђҐҐбва ¤®Ј®ў®а®ў';
end;

function GetGroupName (Level : Word) : String;
begin
GetGroupName := ' ';
case Level of
1 : GetGroupName :='ђҐҐбвал';
end;
end;

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

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

Компилилось без ошибок, без предупреждений, но лаялась при открытии Отчетов пользователя на лицензию

[Gameus_]

c:\GAL810\exe\vip.exe VIP.PRJ /linc=ddd
и нет проблем с лицензией

[Гаврилюк Марина]

Ругается не при компиляции, а когда подключила скомпилированный рес, захожу в отчеты пользователя и получаю ошибку по лицензии

[Gameus_]

странно, у нас при указании /linc=ddd на лицензии не ругается.
компилим тоже строчником 5.4.15

[Гаврилюк Марина]

Когда я открываю UserReport.vih там версия Галки 8.0, а у нас 8.1. Может в этом проблема? Он старый какой то

[Гаврилюк Марина]

А где вы это прописываете: в батнике компилятора?

[Гаврилюк Марина]

И что должно быть в VIP.PRJ - у меня нет такого

[Gameus_]

да, в батнике помпилятора, свой UserReport.vih я вам выше привел.

у меня в батнике компилятора

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

c:\GAL810\exe\vip.exe VIP.PRJ /linc=ddd

VIP.PRJ тоже приведен выше

[Гаврилюк Марина]

написала так: с:\GAL810\exe\vip.exe /linc=ddd
При компиляции ошибка - Не найден файл контроля лицензии ddd . Без него не будет проверяться дата окончания абонентского обслуживания. Так и должно быть?

/linc=ddd можно и в vip.cfg прописать?

[Гаврилюк Марина]

полодить то куда vip.prj?