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
   (