БД: Новая панель ПУП - Графики проектов
This commit is contained in:
Mikhail Chechnev
parent
88984a7804
commit
177b670ca9
@ -100,6 +100,12 @@ create or replace package PKG_P8PANELS_PROJECTS as
|
|||||||
COUT out clob -- Сериализованная таблица данных
|
COUT out clob -- Сериализованная таблица данных
|
||||||
);
|
);
|
||||||
|
|
||||||
|
/* Сфодный график проектов */
|
||||||
|
procedure GRAPH
|
||||||
|
(
|
||||||
|
COUT out clob -- График проектов
|
||||||
|
);
|
||||||
|
|
||||||
/* График по данным проектов - "Топ проблем" */
|
/* График по данным проектов - "Топ проблем" */
|
||||||
procedure CHART_PROBLEMS
|
procedure CHART_PROBLEMS
|
||||||
(
|
(
|
||||||
@ -1517,6 +1523,150 @@ text="Проверить, что для расчётных полей дата-
|
|||||||
COUT := PKG_P8PANELS_VISUAL.TDATA_GRID_TO_XML(RDATA_GRID => RDG, NINCLUDE_DEF => NINCLUDE_DEF);
|
COUT := PKG_P8PANELS_VISUAL.TDATA_GRID_TO_XML(RDATA_GRID => RDG, NINCLUDE_DEF => NINCLUDE_DEF);
|
||||||
end LIST;
|
end LIST;
|
||||||
|
|
||||||
|
/* Сфодный график проектов */
|
||||||
|
procedure GRAPH
|
||||||
|
(
|
||||||
|
COUT out clob -- График проектов
|
||||||
|
)
|
||||||
|
is
|
||||||
|
NCOMPANY PKG_STD.TREF := GET_SESSION_COMPANY(); -- Рег. номер организации
|
||||||
|
DFROM PKG_STD.TLDATE; -- Дата начала всех работ
|
||||||
|
DTO PKG_STD.TLDATE; -- Дата окончания всех работ
|
||||||
|
DFROM_CUR PKG_STD.TLDATE; -- Дата начала текущая
|
||||||
|
DTO_CUR PKG_STD.TLDATE; -- Дата окончания текущая
|
||||||
|
SYEAR_COL_NAME PKG_STD.TSTRING; -- Наименование колонки для года
|
||||||
|
SPRJ_GROUP_NAME PKG_STD.TSTRING; -- Наименование группы для проекта
|
||||||
|
BEXPANDED boolean; -- Флаг раскрытости уровня
|
||||||
|
RDG PKG_P8PANELS_VISUAL.TDATA_GRID; -- Описание таблицы
|
||||||
|
RDG_ROW PKG_P8PANELS_VISUAL.TROW; -- Строка таблицы
|
||||||
|
begin
|
||||||
|
/* Определим даты начала и окончания проектов */
|
||||||
|
select TRUNC(min(DBEGPLAN), 'mm'),
|
||||||
|
LAST_DAY(max(DENDPLAN))
|
||||||
|
into DFROM,
|
||||||
|
DTO
|
||||||
|
from (select min(P.BEGPLAN) DBEGPLAN,
|
||||||
|
max(P.ENDPLAN) DENDPLAN
|
||||||
|
from PROJECT P
|
||||||
|
where P.COMPANY = NCOMPANY
|
||||||
|
and P.STATE in (0, 1, 4)
|
||||||
|
union all
|
||||||
|
select min(PS.BEGPLAN) DBEGPLAN,
|
||||||
|
max(PS.ENDPLAN) DENDPLAN
|
||||||
|
from PROJECT P,
|
||||||
|
PROJECTSTAGE PS
|
||||||
|
where P.COMPANY = NCOMPANY
|
||||||
|
and P.STATE in (0, 1, 4)
|
||||||
|
and P.RN = PS.PRN
|
||||||
|
and PS.STATE in (0, 1, 3)
|
||||||
|
and PS.HRN is null);
|
||||||
|
/* Инициализируем таблицу данных */
|
||||||
|
RDG := PKG_P8PANELS_VISUAL.TDATA_GRID_MAKE();
|
||||||
|
/* Формируем структуру заголовка */
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'NRN',
|
||||||
|
SCAPTION => 'Рег. номер',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_NUMB,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'SJOB',
|
||||||
|
SCAPTION => 'Работы',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'SRESP',
|
||||||
|
SCAPTION => 'Ответственный',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'NSTATE',
|
||||||
|
SCAPTION => 'Состояние',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_NUMB,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'DFROM',
|
||||||
|
SCAPTION => 'Начало работы',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_DATE,
|
||||||
|
BVISIBLE => false);
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => 'DTO',
|
||||||
|
SCAPTION => 'Окончание работы',
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_DATE,
|
||||||
|
BVISIBLE => false);
|
||||||
|
for Y in EXTRACT(year from DFROM) .. EXTRACT(year from DTO)
|
||||||
|
loop
|
||||||
|
SYEAR_COL_NAME := TO_CHAR(Y);
|
||||||
|
if (Y = EXTRACT(year from sysdate)) then
|
||||||
|
BEXPANDED := true;
|
||||||
|
else
|
||||||
|
BEXPANDED := false;
|
||||||
|
end if;
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => SYEAR_COL_NAME,
|
||||||
|
SCAPTION => TO_CHAR(Y),
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
BEXPANDABLE => true,
|
||||||
|
BEXPANDED => BEXPANDED);
|
||||||
|
for M in 1 .. 12
|
||||||
|
loop
|
||||||
|
DFROM_CUR := TO_DATE('01.' || LPAD(TO_CHAR(M), 2, '0') || '.' || TO_CHAR(Y), 'dd.mm.yyyy');
|
||||||
|
DTO_CUR := LAST_DAY(DFROM_CUR);
|
||||||
|
if ((DFROM_CUR >= DFROM) and (DTO_CUR <= DTO)) then
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
|
||||||
|
SNAME => SYEAR_COL_NAME || '_' || TO_CHAR(M),
|
||||||
|
SCAPTION => LPAD(TO_CHAR(M), 2, '0'),
|
||||||
|
SDATA_TYPE => PKG_P8PANELS_VISUAL.SDATA_TYPE_STR,
|
||||||
|
SPARENT => SYEAR_COL_NAME);
|
||||||
|
end if;
|
||||||
|
end loop;
|
||||||
|
end loop;
|
||||||
|
/* Обходим открытые проекты */
|
||||||
|
for PR in (select P.*
|
||||||
|
from PROJECT P
|
||||||
|
where P.COMPANY = NCOMPANY
|
||||||
|
and P.STATE in (0, 1, 4)
|
||||||
|
order by P.BEGPLAN)
|
||||||
|
loop
|
||||||
|
/* Добвим группу для проекта */
|
||||||
|
SPRJ_GROUP_NAME := PR.RN;
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_GROUP(RDATA_GRID => RDG,
|
||||||
|
SNAME => SPRJ_GROUP_NAME,
|
||||||
|
SCAPTION => PR.CODE || ' - ' || PR.NAME,
|
||||||
|
BEXPANDABLE => true,
|
||||||
|
BEXPANDED => true);
|
||||||
|
/* Обходим этапы проекта */
|
||||||
|
for ST in (select PS.RN NRN,
|
||||||
|
trim(PS.NUMB) || ' - ' || PS.NAME SJOB,
|
||||||
|
COALESCE(AG.AGNABBR, IND.NAME) SRESP,
|
||||||
|
PS.STATE NSTATE,
|
||||||
|
PS.BEGPLAN DFROM,
|
||||||
|
PS.ENDPLAN DTO
|
||||||
|
from PROJECTSTAGE PS,
|
||||||
|
AGNLIST AG,
|
||||||
|
INS_DEPARTMENT IND
|
||||||
|
where PS.PRN = PR.RN
|
||||||
|
and PS.STATE in (0, 1, 3)
|
||||||
|
and PS.HRN is null
|
||||||
|
and PS.RESPONSIBLE = AG.RN(+)
|
||||||
|
and PS.SUBDIV_RESP = IND.RN(+)
|
||||||
|
order by PS.NUMB)
|
||||||
|
loop
|
||||||
|
/* Инициализируем строку */
|
||||||
|
RDG_ROW := PKG_P8PANELS_VISUAL.TROW_MAKE(SGROUP => SPRJ_GROUP_NAME);
|
||||||
|
/* Добавляем колонки с данными */
|
||||||
|
PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => 'NRN', NVALUE => ST.NRN);
|
||||||
|
PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => 'SJOB', SVALUE => ST.SJOB);
|
||||||
|
PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => 'SRESP', SVALUE => ST.SRESP);
|
||||||
|
PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => 'NSTATE', NVALUE => ST.NSTATE);
|
||||||
|
PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => 'DFROM', DVALUE => ST.DFROM);
|
||||||
|
PKG_P8PANELS_VISUAL.TROW_ADD_COL(RROW => RDG_ROW, SNAME => 'DTO', DVALUE => ST.DTO);
|
||||||
|
/* Добавим строку для этапа */
|
||||||
|
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW);
|
||||||
|
end loop;
|
||||||
|
end loop;
|
||||||
|
/* Сериализуем описание */
|
||||||
|
COUT := PKG_P8PANELS_VISUAL.TDATA_GRID_TO_XML(RDATA_GRID => RDG, NINCLUDE_DEF => 1);
|
||||||
|
end GRAPH;
|
||||||
|
|
||||||
/* График по данным проектов - "Топ проблем" */
|
/* График по данным проектов - "Топ проблем" */
|
||||||
procedure CHART_PROBLEMS
|
procedure CHART_PROBLEMS
|
||||||
(
|
(
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user