И снова про VIP алгоритм в галактике 8.1

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

Модераторы: 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" был, и связи во вьюхе другие были. Неделю голову ломаю, а ответ никак найти не могу, помогите пожалуйста.
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

#component "Z_PayRep" в vip добавте после include.
да проверте - в #ifdef ComponentVersion попадаете или нет.
а что vip_res.log говорит?
Дмитрий_Н
Сообщения: 13
Зарегистрирован: 26 июн 2008, 16:40
Откуда: Казахстан
Контактная информация:

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

В vip_res.log красуется

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

Предупреждение: Компонент Z_PAYREP не имеет ни одной таблицы в словаре, возможно ошибочно задано имя компонента (стр.9, поз.1 в SIK.vip)
         ¦ interface ExpReestr_SIK 'СИК' EscClose;[code]
а как проверить #ifdef ComponentVersion, я туда попробывал поставить message('hello'), месадж не появился
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

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

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

нормально копилируется, при запуске галки тоже ничего не выдает, или я что-то не то делаю?
я поставил ddd в ExpRees.vih сразу после #ifdef ComponentVersion
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

если нормально компилируется то читайте форум :). раз 20 уже народ жаловался.

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

я чтобы не было проблем пишу
================
#statusline "statgal"
#include galnet.inc
end;
#include glovars.inc
===========
ну и inc должен быть от 810.
каких файлов не хватит создайте пустые.
Дмитрий_Н
Сообщения: 13
Зарегистрирован: 26 июн 2008, 16:40
Откуда: Казахстан
Контактная информация:

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

УРА!!!! заработало!!! нехватало #define ComponentVersion, edward_K
ОГРОМНОЕ Вам спасибо!
Ответить