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

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

#include ZarAlg.vih

#ifdef ComponentVersion
#component "Z_Zar"
#end

vipinterface ZarAlgorithm_NAME implements IZarAlgorithm;

interface ZarAlgorithm_NAME;

create view 
from ...;

Public function CalcSum(Parameter: String): Double;
{
   CalcSum := VALUE;
}

Public function GetDescription: String;
{
  GetDescription := 'Описание';
}

HandleEvent
cmInit: Abort;
end;

end.

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

/*
 ╔═══════════════════════════════════════════════════════════════════════════╗
 ║                                                   (c) корпорация ГАЛАКТИКА║
 ║ Галактика 5.85 : ""                                                       ║
 ║ Объектный интерфейс для работы с Plug-in`ами для электронной формы реестра║
 ╚═══════════════════════════════════════════════════════════════════════════╝
*/

#ifndef __EXPREES_VIH__
#define __EXPREES_VIH__

/*

   ...
   // одна из возможных реализаций
   vipinterface ExpReestr_Val1 implements IExpReestr;
   Не рекомендуется часть после префикса делать больше чем 10 символов

   interface ExpReestr_Val1 cacheable;
   ...

*/
#ifdef ComponentVersion
  #component "Z_PayRep"
#end
#doc
Объектный интерфейс для работы с Plug-in`ами для электронной формы реестра
#end
objinterface IExpReestr;
  #doc
  #end
  function GetValue(Parameter: comp; Parameter2: comp): string;//1-я ссылка на л\с, 2-я на Spplban (получаем значение)
  #doc
  #end
  function GetFlag(Parameter: comp): boolean; // да или нет
  #doc
  получить строковое описание
  #end
  function GetDescription: string;
end;

#endif