Организация VIP алгоритма в Галактике 8.1

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Дмитрий_Н
Сообщения: 13
Зарегистрирован: 26 июн 2008, 16:40
Откуда: Казахстан
Контактная информация:

Организация VIP алгоритма в Галактике 8.1

Сообщение Дмитрий_Н »

Доброго времени суток, подскажите пожалуйста как в Галактике 8.1, в меню "Заработная плата" -> отчеты -> Реестры по перечислениям после расчета зарплаты -> Анкетные данные для экспорта реестров. реализовать свой ВИП алгоритм.
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Сообщение Max_Fin »

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

#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
Откуда: р.Беларусь, Унитарное предприятие "ТОП СОФТ"
Контактная информация:

Сообщение Screw »

Не, тут речь, видимо, шла о реализациях объектного интерфейса 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
Виталий
Дмитрий_Н
Сообщения: 13
Зарегистрирован: 26 июн 2008, 16:40
Откуда: Казахстан
Контактная информация:

Сообщение Дмитрий_Н »

Огромное Вам спасибо за помощь, мне действительно нужен был ExpRees.vih .
Ответить