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

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

start \\dbs14\Galdata\gal810\exe\galnet.EXE /galaxy.nowrun=USERACTSTATISTIC /DATABASE.DATABASENAME=%GalData% /c:fcom_1.cfg /p: /u:
sleep 5m
start \\dbs14\Galdata\gal810\exe\galnet.EXE /galaxy.nowrun=USERACTSTATISTIC /DATABASE.DATABASENAME=%GalData% /c:fcom_2.cfg /p: /u:
sleep 4m
start \\dbs14\Galdata\gal810\exe\galnet.EXE /galaxy.nowrun=USERACTSTATISTIC /DATABASE.DATABASENAME=%GalData% /c:fcom_3.cfg /p: /u:
sleep 4m
....
start \\dbs14\Galdata\gal810\exe\galnet.EXE /galaxy.nowrun=USERACTSTATISTIC /DATABASE.DATABASENAME=%GalData% /c:fcom_20.cfg /p: /u:
sleep 4m

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

interface UserActStatistic 'Статистика действий пользователя' escclose;
file f_cfg;
var _isAUTO: word;

create view
var _date: date
    _nrec, _nrecTD: comp
select jour.tablecode, jour.tablenrec, jour.operation, tuser.XU$FULLNAME, tuneval.strval
from x$journal jour, x$users tuser, tstat, tuneval
where ((1==jour.status and _date==jour.lastdate and usercode==tuser.atl_nrec and
        1==tuneval.obj and tuser.atl_nrec==tuneval.cuser and _nrecTD==tuneval.ctune
	  ))
;
parameters _isAuto;

HandleEvent
cmInit:
{ var _nt, i, ii, _jo, _cnt: word;
  var _pr: boolean;
  var _kompan, _fioUser, _ss, str_path: string;
  var _codeTable: array [1..10] of word;
  var _NameTable: array [1..10] of string;

...

  _date:=sub_day(cur_date(),1)
  if _isAUTO=1 then RunDialog('C_Common::GetFormNa', _date);

  _kompan:=sGetTune('MYORG');
  if getfirst tunedef where (('USER.DESGR'==code)) = tsOk
    then _nrecTD:=tunedef.nrec;

  _codeTable[1]:=15028; _NameTable[1]:='отпуска';  //otpusk
  _codeTable[2]:=15027; _NameTable[2]:='больничные';  //blisnet
  _codeTable[3]:=25000; _NameTable[3]:='рабочая корзина';  //zarsignal
  _codeTable[4]:=15030; _NameTable[4]:='ведомости межпериода';  //sys_mbf
  _codeTable[5]:=15016; _NameTable[5]:='предварительный просмотр';  //uchrabvr
  _codeTable[6]:=9044; _NameTable[6]:='платежные ведомости';  //platved
  _codeTable[7]:=9015; _NameTable[7]:='бух.справки';  //plpor
  _codeTable[8]:=15014; _NameTable[8]:='детские пособия';  //child

!message(datetostr(_date,'DD/MM/YYYY'));
  if _isAUTO=1 startNewVisual(vtNumericVisual,vfTimer+vfBreak+vfconfirm,'Просматриваю журнал событий ...',1);
  _loop jour where (jour.operation<>8)  //кроме удаления
  { _ss:=tuneval.strval;
    if _ss='KADR' continue;
    _nt:=jour.tablecode;
    _pr:=false; ii:=0;
    for(i:=1;i<9;i++)
	{ if _nt=_codeTable[i] { _pr:=true; ii:=i; i:=10; }
	}
	if not(_pr) continue;  //таблица не из списка
    _fioUser:=tuser.XU$FULLNAME; _nrec:=jour.tablenrec;
	_pr:=true;
	if _nt=15016 //предварительный просмотр
 	{ if getfirst uchrabvr where ((_nrec==uchrabvr.nrec)) = tsOk
	  { if uchrabvr.summa34=0 _pr:=false; //автоматическая разноска, не считаем
	  }

	}
	if _pr
	{ if getfirst tstat where ((_ss==group_Name and _fioUser==user_Name and ii==table_Name and _nrec==Table_nrec)) <> tsOk
	  { insert tstat
		   set group_Name:=_ss, user_Name:=_fioUser, table_Name:=ii, table_Nrec:=_nrec;
	  }
	}
	if _isAUTO=1 and NextVisual()=false { stopVisual('',0); exit; }
  }
  if _isAUTO=1 and VisualizationActive() stopVisual('',0);

  i:=1;
  _loop tstat
  { i:=i+1;
    _ss:=_kompan+';'+tstat.group_Name+';'+tstat.user_Name+';'+_NameTable[tstat.table_Name];
	ii:=0;
	groupBy G1: tstat.group_Name, tstat.user_Name, tstat.table_Name
	{ ii:=ii+1;
    }
	_ss:=_ss+';'+string(ii);
    logstrtofile(str_path+'statZPL_'+datetostr(_date,'YYYYMMDD')+'.log',_ss);
  }
  if _isAUTO>0 runinterface(StatLogtoExcel,_isAUTO,_date);
}
end;
end.