Клиентский пакет для режима "Прогнозирование" и скрипт назначения прав доступа
This commit is contained in:
Mikhail Chechnev
parent
25e073731e
commit
9594189131
127
db/UDO_PKG_EQUIPTCF.pck
Normal file
127
db/UDO_PKG_EQUIPTCF.pck
Normal file
@ -0,0 +1,127 @@
|
||||
create or replace package UDO_PKG_EQUIPTCF as
|
||||
|
||||
/* Формирование дерева состава оборудования */
|
||||
procedure EQCONFIG_HIER
|
||||
(
|
||||
NPEQCONFIG in number, -- Рег. номер родительского узла состава оборудования
|
||||
COUT out clob -- Сериализованное XML-представление дерева
|
||||
);
|
||||
|
||||
/* Формирование списка технических объектов для выбранного узла состава оборудования */
|
||||
procedure EQCONFIG_THOBJ_DG
|
||||
(
|
||||
NPEQCONFIG in number -- Рег. номер родительского узла состава оборудования
|
||||
);
|
||||
|
||||
end UDO_PKG_EQUIPTCF;
|
||||
/
|
||||
create or replace package body UDO_PKG_EQUIPTCF as
|
||||
|
||||
/* Формирование ветки дерева состава оборудования */
|
||||
function EQCONFIG_HIER_NODE
|
||||
(
|
||||
NCUR in integer, -- Курсор документа для результата
|
||||
NCOMPANY in number, -- Рег. номер организации
|
||||
NPEQCONFIG in number -- Рег. номер родительского узла состава оборудования
|
||||
) return PKG_XMAKE.TNODE -- XML-описание веток дерева
|
||||
is
|
||||
XLEAF PKG_XMAKE.TNODE; -- Текущий лист
|
||||
XCHILD PKG_XMAKE.TNODE; -- Дочерние листы текущего
|
||||
XRES PKG_XMAKE.TNODE; -- Буфер для результата
|
||||
begin
|
||||
/* Обходим состав оборудования с заданного корня */
|
||||
for C in (select M.RN NRN,
|
||||
M.EQPARENT NHRN,
|
||||
DECODE(M.FICT_REC, 0, M.NAME, DECODE(OL.RN, null, M.NAME, OL.NAME)) SNAME,
|
||||
case
|
||||
when exists
|
||||
(select null
|
||||
from EQCONFIG C
|
||||
where C.EQPARENT = M.RN
|
||||
and exists (select null from V_USERPRIV_HIER_SINGL UP where UP.HIERARCHY = C.RN)) then
|
||||
1
|
||||
else
|
||||
0
|
||||
end NHASCHILDREN
|
||||
from EQCONFIG M,
|
||||
EQOBJLEVEL OL
|
||||
where M.PR_OBJ_LEVEL = OL.RN(+)
|
||||
and ((M.FICT_REC = 0) or ((M.FICT_REC = 1) and (CMP_VC2(M.NAME, F_EQCONFIG_EXTRANAME(0)) = 1)))
|
||||
and exists (select null from V_USERPRIV_HIER_SINGL UP where UP.HIERARCHY = M.RN)
|
||||
and COALESCE(M.EQPARENT, 0) = NPEQCONFIG
|
||||
and M.COMPANY = NCOMPANY)
|
||||
loop
|
||||
/* Если есть дочерние ветки */
|
||||
if (C.NHASCHILDREN = 1) then
|
||||
/* Добавим фиктивную дочернюю запись для индикации наличия дочерних на клиенте */
|
||||
XCHILD := PKG_XMAKE.ELEMENT(ICURSOR => NCUR,
|
||||
SNAME => 'children',
|
||||
RATTRIBUTES => PKG_XMAKE.ATTRIBUTES(ICURSOR => NCUR,
|
||||
RATTRIBUTE00 => PKG_XMAKE.ATTRIBUTE(ICURSOR => NCUR,
|
||||
SNAME => 'id',
|
||||
SVALUE => C.NRN ||
|
||||
'_loader'),
|
||||
RATTRIBUTE01 => PKG_XMAKE.ATTRIBUTE(ICURSOR => NCUR,
|
||||
SNAME => 'label',
|
||||
SVALUE => 'Минуточку...')));
|
||||
else
|
||||
XCHILD := null;
|
||||
end if;
|
||||
/* Соберём лист */
|
||||
XLEAF := PKG_XMAKE.ELEMENT(ICURSOR => NCUR,
|
||||
SNAME => 'children',
|
||||
RATTRIBUTES => PKG_XMAKE.ATTRIBUTES(ICURSOR => NCUR,
|
||||
RATTRIBUTE00 => PKG_XMAKE.ATTRIBUTE(ICURSOR => NCUR,
|
||||
SNAME => 'id',
|
||||
SVALUE => C.NRN),
|
||||
RATTRIBUTE01 => PKG_XMAKE.ATTRIBUTE(ICURSOR => NCUR,
|
||||
SNAME => 'label',
|
||||
SVALUE => C.SNAME)),
|
||||
RNODE00 => XCHILD);
|
||||
/* Соберём листы в ветку */
|
||||
XRES := PKG_XMAKE.CONCAT(ICURSOR => NCUR, RNODE00 => XRES, RNODE01 => XLEAF);
|
||||
end loop;
|
||||
/* Вернём собранное */
|
||||
return XRES;
|
||||
end EQCONFIG_HIER_NODE;
|
||||
|
||||
/* Формирование дерева состава оборудования */
|
||||
procedure EQCONFIG_HIER
|
||||
(
|
||||
NPEQCONFIG in number, -- Рег. номер родительского узла состава оборудования
|
||||
COUT out clob -- Сериализованное XML-представление дерева
|
||||
)
|
||||
is
|
||||
NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации
|
||||
NCUR integer; -- Курсор документа для результата
|
||||
XDOC PKG_XMAKE.TNODE; -- Документ для результата
|
||||
begin
|
||||
/* Открываем документ */
|
||||
NCUR := PKG_XMAKE.OPEN_CURSOR();
|
||||
/* Формируем XML-представление ветки для запрошенного родителя */
|
||||
XDOC := PKG_XMAKE.ELEMENT(ICURSOR => NCUR,
|
||||
SNAME => 'XDATA',
|
||||
RNODE00 => EQCONFIG_HIER_NODE(NCUR => NCUR, NCOMPANY => NCOMPANY, NPEQCONFIG => NPEQCONFIG));
|
||||
/* Конвертируем в CLOB */
|
||||
COUT := PKG_XMAKE.SERIALIZE_TO_CLOB(ICURSOR => NCUR,
|
||||
ITYPE => PKG_XMAKE.CONTENT_,
|
||||
RNODE => XDOC,
|
||||
RHEADER => PKG_XHEADER.WRAP_ALL(SVERSION => PKG_XHEADER.VERSION_1_0_,
|
||||
SENCODING => PKG_XHEADER.ENCODING_UTF_,
|
||||
SSTANDALONE => PKG_XHEADER.STANDALONE_YES_));
|
||||
/* Закрываем документ */
|
||||
PKG_XMAKE.CLOSE_CURSOR(ICURSOR => NCUR);
|
||||
end EQCONFIG_HIER;
|
||||
|
||||
/* Формирование списка технических объектов для выбранного узла состава оборудования */
|
||||
procedure EQCONFIG_THOBJ_DG
|
||||
(
|
||||
NPEQCONFIG in number -- Рег. номер родительского узла состава оборудования
|
||||
)
|
||||
is
|
||||
begin
|
||||
null;
|
||||
end EQCONFIG_THOBJ_DG;
|
||||
|
||||
end UDO_PKG_EQUIPTCF;
|
||||
/
|
||||
2
db/grants.sql
Normal file
2
db/grants.sql
Normal file
@ -0,0 +1,2 @@
|
||||
grant execute on UDO_PKG_EQUIPTCF to public;
|
||||
grant execute on UDO_PKG_EQUIPDS to public;
|
||||
Loading…
x
Reference in New Issue
Block a user