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 (