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

ЦИТК-928

Browse Source
This commit is contained in:
Vladislav 2024-11-21 14:52:36 +03:00
parent 9318d77118
commit 1d6007c4b7
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
db/PKG_P8PANELS_MECHREC.pck
View File

@ -2757,6 +2757,11 @@ create or replace package body PKG_P8PANELS_MECHREC as
if (NTASK_CLASS = NCLASS_PART_DEFICIT) then
/* Определяем пропорции прогресса */
NTASK_PROGRESS := ROUND(C.NREL_FACT / C.NMAIN_QUANT * 100);
/* Если значение прогресса задачи больше 100 */
if (NTASK_PROGRESS > 100) then
/* Устанавливаем максимальное допустимое значение - 100 */
NTASK_PROGRESS := 100;
end if;
else
/* Не требуется */
NTASK_PROGRESS := null;
@ -6190,11 +6195,11 @@ create or replace package body PKG_P8PANELS_MECHREC as
/* Определяем детализацию по прогрессу */
case
when (NPROGRESS >= 70) then
SRESULT := 'Основная сборка: Стыковка агрегатов выполнена';
SRESULT := 'Основная сборка';
when (NPROGRESS >= 40) then
SRESULT := 'Изготовление агрегатов: Фюзеляж и ОЧК не переданы в цех ОС';
SRESULT := 'Изготовление агрегатов';
when (NPROGRESS >= 10) then
SRESULT := 'Изготовление ДСЕ: Фюзеляж и ОЧК не укомлектованы ДСЕ';
SRESULT := 'Изготовление ДСЕ';
else
SRESULT := 'Изготовление ДСЕ не начато';
end case;