From d6ec6b19b704c9810804c8ef4ee3732ce972539f Mon Sep 17 00:00:00 2001 From: Mikhail Chechnev Date: Sat, 12 Jan 2019 11:03:29 +0300 Subject: [PATCH] =?UTF-8?q?=D0=9F=D1=80=D0=B8=20=D1=83=D0=B4=D0=B0=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D0=B8=D0=B8=20=D1=81=D0=B5=D1=80=D0=B2=D0=B8=D1=81?= =?UTF-8?q?=D0=B0=20=D0=B8=20=D1=84=D1=83=D0=BD=D0=BA=D1=86=D0=B8=D0=B8=20?= =?UTF-8?q?=D1=83=20=D0=BD=D0=B8=D1=85=20=D0=BC=D0=BE=D0=B3=D1=83=D1=82=20?= =?UTF-8?q?=D0=B1=D1=8B=D1=82=D1=8C=20=D0=B7=D0=B0=D0=BF=D0=B8=D1=81=D0=B8?= =?UTF-8?q?=20=D0=B6=D1=83=D1=80=D0=BD=D0=B0=D0=BB=D0=B0=20(=D0=BD=D0=B5?= =?UTF-8?q?=20=D1=81=D0=B2=D1=8F=D0=B7=D0=B0=D0=BD=D0=BD=D1=8B=D0=B5=20?= =?UTF-8?q?=D1=81=20=D0=BE=D1=87=D0=B5=D1=80=D0=B5=D0=B4=D1=8C=D1=8E=20?= =?UTF-8?q?=D0=BE=D0=B1=D0=BC=D0=B5=D0=BD=D0=B0),=20=D0=BF=D1=80=D0=B8=20?= =?UTF-8?q?=D1=83=D0=B4=D0=B0=D0=BB=D0=B5=D0=BD=D0=B8=D0=B8=20=D1=81=D0=BE?= =?UTF-8?q?=20=D1=81=D0=B2=D1=8F=D0=B7=D1=8F=D0=BC=D0=B8=20-=20=D1=83?= =?UTF-8?q?=D0=B4=D0=B0=D0=BB=D1=8F=D0=B5=D0=BC=20=D0=B8=20=D0=B8=D1=85?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- db/P_EXSSERVICEFN_BASE_DELETE_LNK.prc | 34 +++++++++++++++++++++++ db/P_EXSSERVICE_BASE_DELETE_LNK.prc | 40 +++++++++++++++++++++++++++ 2 files changed, 74 insertions(+) create mode 100644 db/P_EXSSERVICEFN_BASE_DELETE_LNK.prc create mode 100644 db/P_EXSSERVICE_BASE_DELETE_LNK.prc diff --git a/db/P_EXSSERVICEFN_BASE_DELETE_LNK.prc b/db/P_EXSSERVICEFN_BASE_DELETE_LNK.prc new file mode 100644 index 0000000..1e466d8 --- /dev/null +++ b/db/P_EXSSERVICEFN_BASE_DELETE_LNK.prc @@ -0,0 +1,34 @@ +create or replace procedure P_EXSSERVICEFN_BASE_DELETE_LNK +( + NRN in number, -- Регистрационный номер + NDLT_LINK_SIGN in number -- Удалить связанные записи журнала работы сервиса интеграции и очереди обмена +) +as +begin + /* Удаление связанных записей очереди обмена */ + for REC in (select T.RN + from EXSQUEUE T + where T.EXSSERVICEFN = NRN + and NDLT_LINK_SIGN = 1) + loop + /* Проверка на существование записи */ + for REC_CHECK in (select 1 from EXSQUEUE T1 where T1.RN = REC.RN) + loop + /* Базовое удаление с зависимостями */ + P_EXSQUEUE_BASE_DELETE_LNK(NRN => REC.RN, NDLT_LINK_SIGN => NDLT_LINK_SIGN); + end loop; + end loop; + + /* Удаление связанных записей журнала работы */ + for REC in (select T.RN + from EXSLOG T + where T.EXSSERVICEFN = NRN + and NDLT_LINK_SIGN = 1) + loop + P_EXSLOG_BASE_DELETE(NRN => REC.RN); + end loop; + + /* Базовое удаление */ + P_EXSSERVICEFN_BASE_DELETE(NRN => NRN); +end; +/ diff --git a/db/P_EXSSERVICE_BASE_DELETE_LNK.prc b/db/P_EXSSERVICE_BASE_DELETE_LNK.prc new file mode 100644 index 0000000..b980617 --- /dev/null +++ b/db/P_EXSSERVICE_BASE_DELETE_LNK.prc @@ -0,0 +1,40 @@ +create or replace procedure P_EXSSERVICE_BASE_DELETE_LNK +( + NRN in number, -- Регистрационный номер + NDLT_LINK_SIGN in number -- Удалить связанные записи журнала работы сервиса интеграции и очереди обмена +) +as +begin + /* Удаление связанных записей очереди обмена */ + for REC in (select T.RN + from EXSQUEUE T + where T.EXSSERVICEFN in (select T1.RN from EXSSERVICEFN T1 where T1.PRN = NRN) + and NDLT_LINK_SIGN = 1) + loop + /* Проверка на существование записи */ + for REC_CHECK in (select 1 from EXSQUEUE T1 where T1.RN = REC.RN) + loop + /* Базовое удаление с зависимостями */ + P_EXSQUEUE_BASE_DELETE_LNK(NRN => REC.RN, NDLT_LINK_SIGN => NDLT_LINK_SIGN); + end loop; + end loop; + + /* Удаление связанных записей журнала работы */ + for REC in (select T.RN + from EXSLOG T + where T.EXSSERVICE = NRN + and NDLT_LINK_SIGN = 1) + loop + P_EXSLOG_BASE_DELETE(NRN => REC.RN); + end loop; + + /* Удаление функций с зависимостями */ + for REC in (select T.RN from EXSSERVICEFN T where T.PRN = NRN) + loop + P_EXSSERVICEFN_BASE_DELETE_LNK(NRN => REC.RN, NDLT_LINK_SIGN => NDLT_LINK_SIGN); + end loop; + + /* Базовое удаление */ + P_EXSSERVICE_BASE_DELETE(NRN => NRN); +end; +/