Галактика в вопросах и ответах

Переходим на 8.10.

Надо перекомпилировать массу пользовательских ресурсников и правильно указать в исходниках компоненты. Как понять к какому компоненту подключать? Подключаю к user, он подключается, но где этот интерфейс? Я не могу его найти.

а сам вип такой:

#define ComponentVersion
#statusline "statgal"
#include galnet.inc
end;
#include glovars.inc
#component "user"
#end
#doc

Objinterface IZarAlgorithm;
function CalcSum(Parameter: string): double;
function GetDescription: string;
end;

VipInterface ZarAlgorithm_KoefVred implements IZarAlgorithm;

Interface ZarAlgorithm_KoefVred cacheable;
var
BD: string;
needprotocol : boolean;

Create view GetUser
as select * From X$Users;

procedure MyLog(s : string);
{
If (needprotocol) LogStrToFile('calcsum.log', s);
}

function CalcSum(Parameter : string) : double;
{
needprotocol := FALSE; // TRUE; //
MyLog('====================================');

GetFirst FastFirstRow X$Users Where ((UserId==X$Users.Atl_Nrec));
If X$Users.XU$UserOffice=101 {BD:='KCKK';}
If X$Users.XU$UserOffice=102 {BD:='ZMU';}
If X$Users.XU$UserOffice=103 {BD:='ESO';}
If X$Users.XU$UserOffice=104 {BD:='TLK';}
If X$Users.XU$UserOffice=105 {BD:='RMZ';}

CalcSum := 0;

MyLog('Ѓ„ '+BD);

Case BD of
'KCKK': { // Љ—•Љ
Case Parameter of
'263': {CalcSum :=3.34;}
'265': {CalcSum :=3.71;}
'264': {CalcSum :=5.59;}
'266': {CalcSum :=6.21;}
End;
}
'ZMU': { // ‡Њ“
Case Parameter of
'263': {CalcSum :=3.51;}
'265': {CalcSum :=3.90;}
'264': {CalcSum :=5.87;}
'266': {CalcSum :=6.52;}
End;
}
'ESO': { // …‘Ћ
Case Parameter of
'263': {CalcSum :=3.64;}
'265': {CalcSum :=4.04;}
'264': {CalcSum :=6.09;}
'266': {CalcSum :=6.76;}
End;
}
'RMZ': { // ђЊ‡
Case Parameter of
'263': {CalcSum :=3.84;}
'265': {CalcSum :=4.27;}
'264': {CalcSum :=6.43;}
'266': {CalcSum :=7.14;}
End;
}
End;

}

function GetDescription : string;
{
GetDescription := 'ђ бзҐв Є®нддЁжЁҐ­в  ўаҐ¤­®бвЁ. Џ а ¬Ґва : ‚Ћ - 263,265,264,266';
}
end.

1.
Objinterface IZarAlgorithm;
function CalcSum(Parameter: string): double;
function GetDescription: string;
end;
зря - надо вообще искать zaralg.vih ( в каталоге frm по архивам - в последних патчах vih как правило нужные есть)
и подключать его через
#include zaralg.vih
2. имя компоненты можно поглядеть через запуск внешнего фейса и поиском там по Ctrl+F. Тока перед стартом галки в Cfg добавте Vip.VisibleAllInterface=On ну или в сапорте в консоли управления.
3. а форум не пробовали сначала почитать? Уже не раз обсуждалось.