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