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

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

#include userreport.vih

VipInterface UserReport_State Implements IUserReport;

Interface UserReport_State;

create view;

!-------------------------------------------------------------------------------
// Запуск отчета на выполнение при выборе его из списка отчетов
procedure Run;
begin
  RunInterface('StateChange')
end;
!-------------------------------------------------------------------------------
// Наименование отчета в списке
function GetReportName: String;
begin
  GetReportName := '(с) Изменения в штатном расписании';
end;
!-------------------------------------------------------------------------------
// Наименования групп, в которые входит отчет
function GetGroupName (Level : Word) : String;
begin
  GetGroupName := '';
end;
!-------------------------------------------------------------------------------
// Приоритет отчета - сортировка внутри группы выполняется сначала
// по приоритету, а затем по наименованию
function GetPriority : Integer;
begin
  GetPriority := 0;
end;
!-------------------------------------------------------------------------------
// ModuleID модулей, в которых будет виден отчет
// '*' - отчет будет виден в любом модуле
function VisibleInModule(Ind : Byte) : String;
begin
  VisibleInModule := '*';
end;
!-------------------------------------------------------------------------------
end.

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

Interface StateChange 'Изменения в штатном расписании' EscClose, Cyan;
show at (,,60,8);
view
...
end;
end.

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

16:48:24 │  Предупреждение: Компонент F_USERREPORT не имеет ни одной таблицы в словаре, возможно ошибочно задано имя компонента (стр.2, поз.1 в SRC\StateChange.vip)
         │ Interface StateChange 'Изменения в штатном расписании' EscClose, Cyan;
         │ ^
16:48:30 │  Предупреждение: Не найден объект IVIPIFCIFC STATECHANGE, описывающий интерфейс вызова. Параметры вызова для STATECHANGE не проверены. (стр.23, поз.30 в SRC\STATE.VIP)

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

#make "src\*.frm"
#make "src\StateChange.vip"
#make "src\*.rtf"
#make "src\state.vip"

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

#include UserReport.vih 

VipInterface UserReport_AnalizOst Implements IUserReport; 
Interface UserReport_AnalizOst; 
create view; 

procedure Run; 
begin 
RunInterface(AnalizOst); 
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 := 'SKLAD'; 
2 : VisibleInModule := 'MANUFACTURE'; 

end; 
end; 
end. 

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

#include UserReport.vih
VipInterface UserReport_spravka_otchvip1 Implements F_UserReport::IUserReport;
Interface UserReport_spravka_otchvip1;
create view;
procedure Run;
begin
  runinterface('spravka_otchvip1');
end;
function GetReportName: String;
begin
  GetReportName := 'Spravka ';
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 := 'STAFFMAINMENU';
  end;
end;
end.

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

#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

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

#define ComponentVersion
#make "spravka_otchp.pro"
#make "doc1.rtf"
#make "podrmark.vip"
#make "spravka_otchVip.vip"
#make "vedom16_otchet.vip"