CITKParus/P8-Panels
2
0
Fork 2
Code Issues Pull Requests 1 Projects Releases Wiki Activity

ЦИТК-839 отработка примечания от 27.06.24

Browse Source
This commit is contained in:
Mikhail Chechnev 2024-07-24 14:10:14 +03:00 committed by GitHub
commit 9b4706180c
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
db/PKG_P8PANELS_EQUIPSRV.pck
View File

@ -124,7 +124,8 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as
/* Если графики ТОиР */ /* Если графики ТОиР */
if (NWORKTYPE = 0) then if (NWORKTYPE = 0) then
for C in (select T.RN, for C in (select T.RN,
T.COMPANY T.COMPANY,
T.CRN
from EQTCHSRV T, from EQTCHSRV T,
JURPERSONS J, JURPERSONS J,
EQTECSRVKIND SK, EQTECSRVKIND SK,
@ -162,7 +163,7 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as
NDOCUMENT => C.RN, NDOCUMENT => C.RN,
SUNITCODE => 'EquipTechServices', SUNITCODE => 'EquipTechServices',
SACTIONCODE => null, SACTIONCODE => null,
NCRN => null, NCRN => C.CRN,
NDOCUMENT1 => null, NDOCUMENT1 => null,
SUNITCODE1 => null, SUNITCODE1 => null,
SACTIONCODE1 => null, SACTIONCODE1 => null,
@ -171,7 +172,8 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as
/* Иначе ремонтные ведомости */ /* Иначе ремонтные ведомости */
else else
for C in (select T.RN, for C in (select T.RN,
T.COMPANY T.COMPANY,
T.CRN
from EQRPSHEETS T, from EQRPSHEETS T,
JURPERSONS J, JURPERSONS J,
EQTECSRVKIND SK, EQTECSRVKIND SK,
@ -199,7 +201,7 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as
NDOCUMENT => C.RN, NDOCUMENT => C.RN,
SUNITCODE => 'EquipRepairSheets', SUNITCODE => 'EquipRepairSheets',
SACTIONCODE => null, SACTIONCODE => null,
NCRN => null, NCRN => C.CRN,
NDOCUMENT1 => null, NDOCUMENT1 => null,
SUNITCODE1 => null, SUNITCODE1 => null,
SACTIONCODE1 => null, SACTIONCODE1 => null,
@ -303,10 +305,13 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as
EQS.RN NEQS_RN EQS.RN NEQS_RN
from EQTCHSRV EQV, from EQTCHSRV EQV,
JURPERSONS J, JURPERSONS J,
EQCONFIG EC,
DOCLINKS DL, DOCLINKS DL,
EQRPSHEETS EQS EQRPSHEETS EQS
where EQV.JUR_PERS = J.RN where EQV.JUR_PERS = J.RN
and J.CODE = SBELONG and J.CODE = SBELONG
and EQV.EQCONFIG = EC.RN
and EC.CODE = SPRODOBJ
and EQV.RN = DL.IN_DOCUMENT(+) and EQV.RN = DL.IN_DOCUMENT(+)
and DL.OUT_UNITCODE(+) = 'EquipRepairSheets' and DL.OUT_UNITCODE(+) = 'EquipRepairSheets'
and DL.OUT_DOCUMENT = EQS.RN(+)) B, and DL.OUT_DOCUMENT = EQS.RN(+)) B,
@ -340,13 +345,16 @@ create or replace package body PKG_P8PANELS_EQUIPSRV as
EQS.EQCONFIG NEQCONFIG, EQS.EQCONFIG NEQCONFIG,
EQS.TECSRVKIND NTECSRVKIND EQS.TECSRVKIND NTECSRVKIND
from EQRPSHEETS EQS, from EQRPSHEETS EQS,
JURPERSONS J JURPERSONS J,
EQCONFIG EC
where not exists (select 1 where not exists (select 1
from DOCLINKS DL from DOCLINKS DL
where DL.OUT_DOCUMENT = EQS.RN where DL.OUT_DOCUMENT = EQS.RN
and DL.IN_UNITCODE = 'EquipTechServices') and DL.IN_UNITCODE = 'EquipTechServices')
and EQS.JURPERSONS = J.RN and EQS.JURPERSONS = J.RN
and J.CODE = SBELONG) B, and J.CODE = SBELONG
and EQS.EQCONFIG = EC.RN
and EC.CODE = SPRODOBJ) B,
EQRPSHWRK C EQRPSHWRK C
where B.NEQS_RN = C.PRN(+)) TT, where B.NEQS_RN = C.PRN(+)) TT,
EQTECSRVKIND EK, EQTECSRVKIND EK,