И снова про VIP алгоритм в галактике 8.1
Добавлено: 02 июл 2008, 10:52
Добрый день уважаемые знатоки Галактики, прошу помощи. Не как не могу подключить свой VIP алгоритм к галактике 8.1, "Заработная плата" -> отчеты -> Реестры по перечислениям после расчета зарплаты -> Анкетные данные для экспорта реестров.
ExpRees.vih:
#ifndef __EXPREES_VIH__
#define __EXPREES_VIH__
#ifdef ComponentVersion
#component "Z_PayRep"
#end
objinterface IExpReestr;
function GetValue(Parameter: comp; Parameter2: comp): string;
function GetFlag(Parameter: comp): boolean;
function GetDescription: string;
end;
#endif
SIK.vip:
#include ExpRees.vih
vipinterface ExpReestr_SIK implements IExpReestr
#ifdef Gal8_0
#end;
interface ExpReestr_SIK 'СИК' EscClose;
create view
as select
*
from
lschet,
Passports
Where
((
LSchet.tPerson == Passports.Person and
Integer(501) == Passports.SysCode
));
function GetValue(Parameter: comp; Parameter2: comp): String;
{
Var SIKSTR: String;
SIKSTR:='';
if getfirst fastfirstrow LSCHET where ((Parameter== lschet.nrec))= tsOK
if getfirst fastfirstrow Passports = tsOK
SIKSTR := Passports.NMB;
GetValue:= string(SIKSTR);
}
function Getflag(Parameter: comp): boolean;
{
getflag:= True;
}
function GetDescription: string;
{
GetDescription:= 'Получить СИК';
}
HandleEvent
cmInit: Abort;
end;
end.
Самое интересное, на галактике 8.0 все работало но там правда компонент не "Z_PayRep" а "Z_Zar" был, и связи во вьюхе другие были. Неделю голову ломаю, а ответ никак найти не могу, помогите пожалуйста.
ExpRees.vih:
#ifndef __EXPREES_VIH__
#define __EXPREES_VIH__
#ifdef ComponentVersion
#component "Z_PayRep"
#end
objinterface IExpReestr;
function GetValue(Parameter: comp; Parameter2: comp): string;
function GetFlag(Parameter: comp): boolean;
function GetDescription: string;
end;
#endif
SIK.vip:
#include ExpRees.vih
vipinterface ExpReestr_SIK implements IExpReestr
#ifdef Gal8_0
#end;
interface ExpReestr_SIK 'СИК' EscClose;
create view
as select
*
from
lschet,
Passports
Where
((
LSchet.tPerson == Passports.Person and
Integer(501) == Passports.SysCode
));
function GetValue(Parameter: comp; Parameter2: comp): String;
{
Var SIKSTR: String;
SIKSTR:='';
if getfirst fastfirstrow LSCHET where ((Parameter== lschet.nrec))= tsOK
if getfirst fastfirstrow Passports = tsOK
SIKSTR := Passports.NMB;
GetValue:= string(SIKSTR);
}
function Getflag(Parameter: comp): boolean;
{
getflag:= True;
}
function GetDescription: string;
{
GetDescription:= 'Получить СИК';
}
HandleEvent
cmInit: Abort;
end;
end.
Самое интересное, на галактике 8.0 все работало но там правда компонент не "Z_PayRep" а "Z_Zar" был, и связи во вьюхе другие были. Неделю голову ломаю, а ответ никак найти не могу, помогите пожалуйста.