davay-popozhe/P8-Panels
1
0
Fork 0
forked from CITKParus/P8-Panels
Code Issues Pull Requests Projects Releases Wiki Activity

БД: Панель "Графики проектов" - добавлены проверки на наличие данных в портфеле проектов

Browse Source
This commit is contained in:
Mikhail Chechnev 2024-04-09 19:07:07 +03:00
parent bcf6c674ea
commit 61fabddaba
1 changed files with 107 additions and 96 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
db/PKG_P8PANELS_PROJECTS.pck
View File

@ -1564,6 +1564,8 @@ text="Проверить, что для расчётных полей дата-
from PROJECT P
where P.COMPANY = NCOMPANY
and P.STATE in (0, 1, 4)
and P.BEGPLAN is not null
and P.ENDPLAN is not null
union all
select min(PS.BEGPLAN) DBEGPLAN,
max(PS.ENDPLAN) DENDPLAN
@ -1573,9 +1575,13 @@ text="Проверить, что для расчётных полей дата-
and P.STATE in (0, 1, 4)
and P.RN = PS.PRN
and PS.STATE in (0, 1, 3)
and PS.BEGPLAN is not null
and PS.ENDPLAN is not null
and PS.HRN is null);
/* Инициализируем таблицу данных */
RDG := PKG_P8PANELS_VISUAL.TDATA_GRID_MAKE();
/* Если есть данные о начале и окончании проектов в портфеле */
if ((DFROM is not null) and (DTO is not null)) then
/* Формируем структуру заголовка */
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_COL_DEF(RDATA_GRID => RDG,
SNAME => 'NRN',
@ -1638,6 +1644,8 @@ text="Проверить, что для расчётных полей дата-
from PROJECT P
where P.COMPANY = NCOMPANY
and P.STATE in (0, 1, 4)
and P.BEGPLAN is not null
and P.ENDPLAN is not null
order by P.BEGPLAN)
loop
/* Добвим группу для проекта */
@ -1659,6 +1667,8 @@ text="Проверить, что для расчётных полей дата-
INS_DEPARTMENT IND
where PS.PRN = PR.RN
and PS.STATE in (0, 1, 3)
and PS.BEGPLAN is not null
and PS.ENDPLAN is not null
and PS.HRN is null
and PS.RESPONSIBLE = AG.RN(+)
and PS.SUBDIV_RESP = IND.RN(+)
@ -1677,6 +1687,7 @@ text="Проверить, что для расчётных полей дата-
PKG_P8PANELS_VISUAL.TDATA_GRID_ADD_ROW(RDATA_GRID => RDG, RROW => RDG_ROW);
end loop;
end loop;
end if;
/* Сериализуем описание */
COUT := PKG_P8PANELS_VISUAL.TDATA_GRID_TO_XML(RDATA_GRID => RDG, NINCLUDE_DEF => 1);
end GRAPH;