Список пользователей галактики. Какой модуль захвачен?

[Andrey]

Добрый день. А можно как-то определить каким модулем в данный момент пользуется конкретный пользователь?

[Maverick]

Можно - с помощью консоли администратора (Суппорт)

[ALEKS123]

Вот пример фейса, который считает какие модули (и сколько) используются в данный момент. Не судите строго - это писалось давно (больше года назад). Написано не оптимально - зато работает. Была задача - посчитать сколько (и какие) модули используются. Данные записываются в TXT-файл.

VAR
F_NAME : string;
hndF : longint;
fil_c : boolean;
KP : integer;
PM : word;
PA : WORD;
M_CC : comp;
S1 : string;

Interface TXT_MOD;
view;
create view M_MOD as select * from contourcomponents;
create view MY_USE AS SELECT * From activemodules
where (( M_CC /== activemodules.ccomponent ));

File hndFile;

Procedure MOD_WR;
begin
F_NAME := 'F:\SINHRON\MOD.TXT';

fil_c := false;
fil_c := hndFile.OpenFile(F_NAME, stOPEN);
IF not fil_c THEN
{
fil_c := hndFile.OpenFile(F_NAME, stCREATE);
fil_c := hndFile.OpenFile(F_NAME, stOPENWRITE);
}
hndfile.seek(hndfile.getsize);

S1 := DATETOSTR(CUR_DATE,'DD/MM/YYYY') + ' ' + TIMETOSTR(CUR_TIME,'HH:MM');
hndFile.WriteLn(S1);

KP := 0;
PM := M_MOD.GETFIRST;
M_CC := M_MOD.contourcomponents.atl_nrec;
while PM = 0
{
PA := MY_USE.GETFIRST;
while PA = 0
{
KP := KP + 1
PA := MY_USE.GETNEXT;
}
IF KP > 0 THEN
{
S1 := PAD(M_MOD.contourcomponents.title,30) + STRING(kp,10);
hndFile.WriteLn(S1);
}
KP := 0;
PM := M_MOD.GETNEXT;
M_CC := m_mod.contourcomponents.atl_nrec;
}
S1 := ' ';
hndFile.WriteLn(S1);

hndFile.Close;

End;


HandleEvent
cmInit:
{
MOD_WR;
Abort;
}
end;
end.

Interface MAIN_MOD;
view;
HandleEvent
cmInit:
{
RunInterface(TXT_MOD);
Abort;
}
end; //HandleEvent
end.