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

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

//------------------------------------------------------------------------------
//                                                      (c) Корпорация ГАЛАКТИКА
//                                                          (c) Галактика - Киев
//------------------------------------------------------------------------------
// Система       : ГАЛАКТИКА
// Версия        : 5.8x - 7.1x - 8.0
// Назначение    : Пример пользовательского отчета
// Ответсвенный  : Тищенко Роман Николаевич
// Изменения     : Герман Юрий Эдуардович
//------------------------------------------------------------------------------

#include UserReport.vih

// Для попадания примера в список отчетов -
// раскомментировать конструкцию VipInterface

VipInterface UserReport_Sample1 Implements IUserReport;

Interface UserReport_Sample1;

create view;

!-------------------------------------------------------------------------------
// Запуск отчета на выполнение при выборе его из списка отчетов
procedure Run;
begin
  Message('Запуск отчета №1');
end;
!-------------------------------------------------------------------------------
// Наименование отчета в списке
function GetReportName: String;
begin
  GetReportName := 'Отчет №1';
end;
!-------------------------------------------------------------------------------
// Наименования групп, в которые входит отчет
// Группа n+1 делается подчиненной группе n
// В данном случае будет иерархия:
// [+] Группа 1
//     [+] Группа 2
//         Отчет 1
function GetGroupName (Level : Word) : String;
begin
  GetGroupName := '';
  case Level of
    1 : GetGroupName := 'Группа 1';
    2 : GetGroupName := 'Группа 2';
  end;
end;
!-------------------------------------------------------------------------------
// Приоритет отчета - сортировка внутри группы выполняется сначала
// по приоритету, а затем по наименованию
function GetPriority : Integer;
begin
  GetPriority := 0;
end;
!-------------------------------------------------------------------------------
// ModuleID модулей, в которых будет виден отчет
// '*' - отчет будет виден в любом модуле
function VisibleInModule(Ind : Byte) : String;
begin
  VisibleInModule := '';
  case Ind of
    1 : VisibleInModule := 'MANUFPLAN';
    2 : VisibleInModule := 'MANUFACTURE';
  end;
end;
!-------------------------------------------------------------------------------
end.   

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

procedure Run;
begin
    RunAnyView('F_PODOT::GETPRIKAZ(true,1,0,1)',false)
end;   

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

procedure Run;
begin
    RunAnyView('Interface F_PODOT::GETPRIKAZ(true,1,0,1)',false)
end;