Организация VIP алгоритма в Галактике 8.1
Модераторы: m0p3e, edward_K, Модераторы
- 
				Дмитрий_Н
 - Сообщения: 13
 - Зарегистрирован: 26 июн 2008, 16:40
 - Откуда: Казахстан
 - Контактная информация:
 
Организация VIP алгоритма в Галактике 8.1
Доброго времени суток, подскажите пожалуйста как в Галактике 8.1, в меню "Заработная плата" -> отчеты -> Реестры по перечислениям после расчета зарплаты -> Анкетные данные для экспорта реестров. реализовать свой ВИП алгоритм.
			
			
									
						
										
						- 
				Max_Fin
 - На пенсии
 - Сообщения: 797
 - Зарегистрирован: 29 мар 2005, 17:49
 - Откуда: г. Тюмень
 - Контактная информация:
 
Код: Выделить всё
#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.
Жду выхода Вселенная 2.12!
			
						- 
				Screw
 - Слесарь-системщик
 - Сообщения: 304
 - Зарегистрирован: 29 мар 2005, 17:49
 - Откуда: р.Беларусь, Унитарное предприятие "ТОП СОФТ"
 - Контактная информация:
 
Не, тут речь, видимо, шла о реализациях объектного интерфейса IExpReestr (ExpRees.vih):
			
			
									
						
							Код: Выделить всё
/*
 ╔═══════════════════════════════════════════════════════════════════════════╗
 ║                                                   (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
Виталий