Кое-какие отчеты по работе базы... : Супермаг Плюс (Супермаг 2000)

OlegON · █ 29.08.2007 11:43

Люблю роботов... Периодически бегают пользователи, что-то хотят выяснить, после пятого пользователя поднял на линуксовой машинке апач и выкидываю им шедалером странички. Ссылки публикую рассылкой по почте, вопросы закрываются, дают музыку послушать :) Присоединяйтесь, если есть какие-то наработки.

Поехали.
Текущие сессии:

Цитата:

connect supermag/pwd@base
spool sessions.html
set serveroutput on size 1000000
set trimspool on
set long 5000
set linesize 1000
set pagesize 9999
set trimspool on
SET TAB OFF
set heading off
select '<html><head>
<meta http-equiv="Pragma" content="no-cache" />
<meta http-equiv="Expires" content="-1" />
<meta http-equiv="Cache-Control" content="no-cache" />

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /></head><body>
Подключения к базе на '||to_char(sysdate,'DD.MM.YYYY HH24:MI')||' :<br><table class="tborder" cellpadding="6" cellspacing="1" border="1" width="80%" align="center">' from dual;
column "username" Format A30
column "status" Format A30
column "terminal" Format A40
column "program" Format A140

select '<tr><td>Пользователь</td><td>Компьютер</td><td>Программа</td></tr>' from dual;
select distinct '<tr><td>'||username||'</td>','<td>'||terminal||'</td>','<td>'||program||'</td></tr>' from
(select * from v$session where type<>'BACKGROUND' and username is not null and username<>'SUPERMAG' and username<>'SYS' and username<>'OLEGON' order by username);

set heading off
select '</table></body></html>' from dual;
set heading on
spool off
exit

OlegON · █ 29.08.2007 11:45

Количество измененных документов за неделю:

Цитата:

connect supermag/pwd@base
spool effect_w.html
set serveroutput on size 1000000
set trimspool on
set long 5000
set linesize 1000
set pagesize 9999
set trimspool on
SET TAB OFF
set heading off
select '<html><head>
<meta http-equiv="Pragma" content="no-cache" />
<meta http-equiv="Expires" content="-1" />
<meta http-equiv="Cache-Control" content="no-cache" />

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /></head><body>
Количество созданных/измененных документов за неделю с '||to_char(sysdate-8,'DD.MM.YYYY HH24:MI')||' :<br><table class="tborder" cellpadding="6" cellspacing="1" border="1" width="40%" align="center">' from dual;
column "Имя" Format A70
column "Колич-во изменений" Format A50

SELECT '<tr><td>'||"surname"||'</td>' "Имя", '<td>'||"CNT"||'</td></tr>' "Колич-во изменений" from
(SELECT s.surname "surname", COUNT (l.doctype) "CNT"
FROM smdoclog l, smstaff s
WHERE eventtime > SYSDATE - 8
AND NOT (l.oldstate = -1 AND l.newstate = -1)
AND userenabled = 1
AND s.ID = l.employee
GROUP BY surname
ORDER BY 2 DESC);

set heading off
select '</table></body></html>' from dual;
set heading on
spool off
exit

OlegON · █ 29.08.2007 11:45

Количество измененных документов за вчера/сегодня:

Цитата:

connect supermag/pwd@base
spool effect_d.html
set serveroutput on size 1000000
set trimspool on
set long 5000
set linesize 1000
set pagesize 9999
set trimspool on
SET TAB OFF
set heading off
select '<html><head>
<meta http-equiv="Pragma" content="no-cache" />
<meta http-equiv="Expires" content="-1" />
<meta http-equiv="Cache-Control" content="no-cache" />

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /></head><body>
Количество созданных/измененных документов за текущий день на '||to_char(sysdate,'DD.MM.YYYY HH24:MI')||' :<br><table class="tborder" cellpadding="6" cellspacing="1" border="1" width="40%" align="center">' from dual;
column "Имя" Format A70
column "Колич-во изменений" Format A50

SELECT '<tr><td>'||"surname"||'</td>' "Имя", '<td>'||"CNT"||'</td></tr>' "Колич-во изменений" from
(SELECT s.surname "surname", COUNT (l.doctype) "CNT"
FROM smdoclog l, smstaff s
WHERE trunc(eventtime)=trunc(SYSDATE)
AND NOT (l.oldstate = -1 AND l.newstate = -1)
AND userenabled = 1
AND s.ID = l.employee
GROUP BY surname
ORDER BY 2 DESC);

select '</table><br><br>
Количество созданных/измененных документов на '||to_char(sysdate-1,'DD.MM.YYYY')||' :<br><table class="tborder" cellpadding="6" cellspacing="1" border="1" width="40%" align="center">' from dual;
column "Имя" Format A70
column "Колич-во изменений" Format A50

SELECT '<tr><td>'||"surname"||'</td>' "Имя", '<td>'||"CNT"||'</td></tr>' "Колич-во изменений" from
(SELECT s.surname "surname", COUNT (l.doctype) "CNT"
FROM smdoclog l, smstaff s
WHERE trunc(eventtime)=trunc(SYSDATE-1)
AND NOT (l.oldstate = -1 AND l.newstate = -1)
AND userenabled = 1
AND s.ID = l.employee
GROUP BY surname
ORDER BY 2 DESC);

set heading off
select '</table></body></html>' from dual;
set heading on
spool off
exit

OlegON · █ 29.08.2007 11:47

Почтовая очередь:

Цитата:

connect supermag/pwd@base
spool index.html
set serveroutput on size 1000000
set trimspool on
set long 5000
set linesize 1000
set pagesize 9999
set trimspool on
SET TAB OFF
set heading off
select '<html><head>
<meta http-equiv="Pragma" content="no-cache" />
<meta http-equiv="Expires" content="-1" />
<meta http-equiv="Cache-Control" content="no-cache" />

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /></head><body>
Почтовая очередь на '||to_char(sysdate,'DD.MM.YYYY HH24:MI')||' :<br><table class="tborder" cellpadding="6" cellspacing="1" border="1" width="100%" align="center">' from dual;
column "Тип" Format A50
column "Номер" Format A50
column "Создан" Format A50
column "Ошибка" Format A1005
SELECT distinct '<tr><td>'||l.title||'</td>' "Магазин",
'<td>'||(select typename from supermag.ssobjecttypes where objtype=q.OBJTYPE)||'</td>' "Тип",
'<td>'||q.objid||'</td>' "Номер",
'<td>'||to_char(v.filed,'DD.MM.YYYY HH24:MI')||'</td>' "Создан"
/* '<td>'||f.errmsg||'</td></tr>' "Ошибка" */
FROM supermag.smpostvirtpacks v,
supermag.smpostlocations l,
supermag.smpostqueue q,
supermag.smpostfailrp f
WHERE v.target = l.ID AND q.virtpack = v.ID and f.vpname(+)=v.filename
order by 1,4 desc;
set heading off
select '</table></body></html>' from dual;
set heading on
spool off
exit

OlegON · █ 29.08.2007 11:47

Пакеты с ошибками:

Цитата:

connect supermag/pwd@base
spool index.html
set serveroutput on size 1000000
set trimspool on
set long 5000
set linesize 1000
set pagesize 9999
set trimspool on
SET TAB OFF
set heading off
select '<html><head>
<meta http-equiv="Pragma" content="no-cache" />
<meta http-equiv="Expires" content="-1" />
<meta http-equiv="Cache-Control" content="no-cache" />

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /></head><body>
Ошибки в отправленных пакетах на '||to_char(sysdate,'DD.MM.YYYY HH24:MI')||' :<br><table class="tborder" cellpadding="6" cellspacing="1" border="1" width="100%" align="center">' from dual;
column "Тип" Format A120
column "Номер" Format A128
column "Ошибка" Format A1005
SELECT DISTINCT '<tr><td>'||(SELECT typename FROM supermag.ssobjecttypes WHERE objtype = q.objtype)||'</td>' "Тип", '<td>'||objid||'</td>' "Номер", '<td>'||errmsg||'</td></tr>' "Ошибка" FROM supermag.smpostfailrp q;
set heading off
select '</table></body></html>' from dual;
set heading on
spool off
exit

OlegON · █ 29.08.2007 11:50

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

Цитата:

connect supermag/pwd@base
delete from supermag.smpostpackages where firststarted<sysdate-6;
commit;
delete from supermag.smpostvirtpacks where created<sysdate-6;
commit;
delete from supermag.smpostqueue where enqtime<sysdate-6;
commit;

spool old_pack.txt
set serveroutput on size 1000000
set trimspool on
set long 5000
set linesize 1000
set pagesize 9999
set trimspool on
SET TAB OFF
set heading off
select 'Удаляются из очереди почтового сервера ' from dual;
set heading on
column "Маг." Format A5
column "Тип" Format A25
column "Номер" Format A13
column "Ошибка" Format A40
set heading on
SELECT distinct l.title "Маг.", (select typename from supermag.ssobjecttypes where objtype=q.OBJTYPE) "Тип",q.objid "Номер", to_char(trunc(v.filed),'DD.MM.YYYY') "Создан", f.errmsg "Ошибка"
FROM supermag.smpostvirtpacks v,
supermag.smpostlocations l,
supermag.smpostqueue q,
supermag.smpostfailrp f
WHERE filed < SYSDATE - 5 AND v.target = l.ID AND q.virtpack = v.ID and f.vpname(+)=v.filename
order by title;
spool off
exit

OlegON · █ 29.08.2007 11:52

Одно проблемное место хранения, с которым за пересылкой следят. Отчет о прошедших пакетах за предыдущие сутки по этому месту хранения:

Цитата:

connect supermag/pwd@base
spool cargo.txt
set serveroutput on size 1000000
set trimspool on
set long 5000
set linesize 1000
set pagesize 9999
set trimspool on
SET TAB OFF
set heading off
select 'Отчет по пришедшим накладным за '||to_char(trunc(sysdate-1),'DD.MM.YYYY') from dual;
set heading on
column "Тип" Format A30
column "Номер" Format A20
column "Ошибки" Format A20
select distinct o.typename "Тип",l.objid "Номер",decode(l.failed,0,'Без ошибок',1,'Ошибки') "Ошибки" from supermag.smpostinlog l, supermag.ssobjecttypes o where l.sourcedb='Cargo' and l.importtime>trunc(sysdate-1) and l.importtime<trunc(sysdate) and o.objtype=l.objtype order by 1,2;
set heading off
select 'Простой список накладных (для удобства работы)' from dual;
set heading on
select distinct l.objid "Номер" from supermag.smpostinlog l where l.sourcedb='Cargo' and l.importtime>trunc(sysdate-1) and l.importtime<trunc(sysdate) order by 1;
spool off
exit