From f80c82b55e448e8919ca95380bb5f333430429e6 Mon Sep 17 00:00:00 2001 From: Dollerino Date: Fri, 31 Oct 2025 13:28:26 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A6=D0=98=D0=A2=D0=9A-994=20-=20=D0=BF=D0=B0?= =?UTF-8?q?=D0=BD=D0=B5=D0=BB=D1=8C=20"=D0=94=D0=BE=D1=81=D0=BA=D0=B8=20?= =?UTF-8?q?=D0=B7=D0=B0=D0=B4=D0=B0=D1=87",=20=D0=B4=D0=BE=D0=B1=D0=B0?= =?UTF-8?q?=D0=B2=D0=BB=D0=B5=D0=BD=D0=BE=20=D0=B4=D0=B5=D0=B9=D1=81=D1=82?= =?UTF-8?q?=D0=B2=D0=B8=D0=B5=20"=D0=9F=D0=B5=D1=80=D0=B5=D0=BC=D0=B5?= =?UTF-8?q?=D1=81=D1=82=D0=B8=D1=82=D1=8C"=20=D0=B4=D0=BB=D1=8F=20=D0=BA?= =?UTF-8?q?=D0=B0=D1=80=D1=82=D0=BE=D1=87=D0=B5=D0=BA=20=D1=81=D0=BE=D0=B1?= =?UTF-8?q?=D1=8B=D1=82=D0=B8=D0=B9?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- db/PKG_P8PANELS_CLNTTSKBRD.pck | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/db/PKG_P8PANELS_CLNTTSKBRD.pck b/db/PKG_P8PANELS_CLNTTSKBRD.pck index 3af6ce6..979b611 100644 --- a/db/PKG_P8PANELS_CLNTTSKBRD.pck +++ b/db/PKG_P8PANELS_CLNTTSKBRD.pck @@ -113,6 +113,13 @@ create or replace package PKG_P8PANELS_CLNTTSKBRD as SNOTE in varchar2 := null -- Примечание (при наличии) ); + /* Перемещение события */ + procedure CLNEVENTS_MOVE + ( + NCLNEVENTS in number, -- Рег. номер события + NCRN in number -- Рег. номер каталога-получателя + ); + /* Переадресация события */ procedure CLNEVENTS_SEND ( @@ -1936,6 +1943,18 @@ create or replace package body PKG_P8PANELS_CLNTTSKBRD as P_EXCEPTION(0, PKG_STATE.SQL_ERRM()); end CLNEVENTS_STATE_CHANGE; + /* Перемещение события */ + procedure CLNEVENTS_MOVE + ( + NCLNEVENTS in number, -- Рег. номер события + NCRN in number -- Рег. номер каталога-получателя + ) + is + begin + /* Перемещение события в другой каталог */ + P_DOCUMENT_MOVE(SUNITCODE => 'ClientEvents', NDOCUMENT => NCLNEVENTS, NTARGET => NCRN); + end CLNEVENTS_MOVE; + /* Переадресация события */ procedure CLNEVENTS_SEND (