И снова про VIP алгоритм в галактике 8.1
Модераторы: m0p3e, edward_K, Модераторы
-
- Сообщения: 13
- Зарегистрирован: 26 июн 2008, 16:40
- Откуда: Казахстан
- Контактная информация:
И снова про VIP алгоритм в галактике 8.1
Добрый день уважаемые знатоки Галактики, прошу помощи. Не как не могу подключить свой 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" был, и связи во вьюхе другие были. Неделю голову ломаю, а ответ никак найти не могу, помогите пожалуйста.
-
- Сообщения: 13
- Зарегистрирован: 26 июн 2008, 16:40
- Откуда: Казахстан
- Контактная информация:
В vip_res.log красуется
а как проверить #ifdef ComponentVersion, я туда попробывал поставить message('hello'), месадж не появился
Код: Выделить всё
Предупреждение: Компонент Z_PAYREP не имеет ни одной таблицы в словаре, возможно ошибочно задано имя компонента (стр.9, поз.1 в SIK.vip)
¦ interface ExpReestr_SIK 'СИК' EscClose;[code]
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
если нормально компилируется то читайте форум . раз 20 уже народ жаловался.
#define ComponentVersion
у вас в проекте не хватает.
я чтобы не было проблем пишу
================
#statusline "statgal"
#include galnet.inc
end;
#include glovars.inc
===========
ну и inc должен быть от 810.
каких файлов не хватит создайте пустые.
#define ComponentVersion
у вас в проекте не хватает.
я чтобы не было проблем пишу
================
#statusline "statgal"
#include galnet.inc
end;
#include glovars.inc
===========
ну и inc должен быть от 810.
каких файлов не хватит создайте пустые.