Страница 1 из 1

И снова про 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" был, и связи во вьюхе другие были. Неделю голову ломаю, а ответ никак найти не могу, помогите пожалуйста.

Добавлено: 02 июл 2008, 11:53
edward_K
#component "Z_PayRep" в vip добавте после include.
да проверте - в #ifdef ComponentVersion попадаете или нет.
а что vip_res.log говорит?

Добавлено: 02 июл 2008, 12:06
Дмитрий_Н
В vip_res.log красуется

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

Предупреждение: Компонент Z_PAYREP не имеет ни одной таблицы в словаре, возможно ошибочно задано имя компонента (стр.9, поз.1 в SIK.vip)
         ¦ interface ExpReestr_SIK 'СИК' EscClose;[code]
а как проверить #ifdef ComponentVersion, я туда попробывал поставить message('hello'), месадж не появился

Добавлено: 02 июл 2008, 12:45
edward_K
ddd поставте - при компиляции должна выдать ошибку.

Добавлено: 02 июл 2008, 12:55
Дмитрий_Н
нормально копилируется, при запуске галки тоже ничего не выдает, или я что-то не то делаю?
я поставил ddd в ExpRees.vih сразу после #ifdef ComponentVersion

Добавлено: 02 июл 2008, 13:11
edward_K
если нормально компилируется то читайте форум :). раз 20 уже народ жаловался.

#define ComponentVersion
у вас в проекте не хватает.

я чтобы не было проблем пишу
================
#statusline "statgal"
#include galnet.inc
end;
#include glovars.inc
===========
ну и inc должен быть от 810.
каких файлов не хватит создайте пустые.

Добавлено: 02 июл 2008, 13:21
Дмитрий_Н
УРА!!!! заработало!!! нехватало #define ComponentVersion, edward_K
ОГРОМНОЕ Вам спасибо!