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

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

#define ComponentVersion

#component "M_MnPlan"

CONST
#include "..\include\GLOCONST.INC"
end;
#include "..\include\galnet.ccm" end;

#include "..\include\uAlgor.vih"
#include "..\include\oAlgSetup.vih"


VipInterface Algoritm_7052 implements oAlgoritm_Sys
#ifdef ATL51
  Licensed (FREE)
#endif
;

interface Algoritm_7052;

create view;

//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
// Номер системного алгоритма
Function GetNum: word;
{
  GetNum := 7052;
} // Function GetNum
Function GetName: string;
{
  GetName := 'Бла Бла';
}; // Function GetName
Function GetMemo(st: oSteckCommonString): boolean;
{
  st.Push('');
  GetMemo := true;
}; // Function GetMemo
Function GetNameInter: string;
{
  GetNameInter := 'Algoritm_7052';
}; // Function GetNameInter
Function GetNameInterPr: string;
{
  GetNameInterPr := ''; // настройка не требуется
}; // Function GetNameInterPr

Function InitInter(var pt: TRecAcc): boolean;
begin
    InitInter := true;
end;

Function RunInter(wflag: word; var pt: TRecAcc): boolean;
begin
  RunInterface('Algoritm_7250_Main',PT.cpNrec,1); // Вызываем или выполняем что хотим ! Но я делаю без настройки через интерфейсы
  RunInter := true;
end;

end.