From 252c37bce43249ff490594652d8c544d509d53bd Mon Sep 17 00:00:00 2001
From: Ernest Litvinenko <ernest@elitvinenko.tech>
Date: Thu, 27 Jun 2024 12:05:45 +0300
Subject: [PATCH] initial

---
 27.06.2024_32_7.sql | 97 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 97 insertions(+)
 create mode 100644 27.06.2024_32_7.sql

diff --git a/27.06.2024_32_7.sql b/27.06.2024_32_7.sql
new file mode 100644
index 0000000..162d714
--- /dev/null
+++ b/27.06.2024_32_7.sql
@@ -0,0 +1,97 @@
+execute block (
+    IN_ID_APP_EVENT D_BIGINT = :IN_ID_APP_EVENT)
+returns (
+    output_type D_SMALLINT)
+as
+declare variable CUR_ID_APP_EVENT type of column APP_EVENT.ID_APP_EVENT;
+declare variable CUR_APP_EVENT_ID_SOTR type of column APP_EVENT.APP_EVENT_ID_SOTR;
+declare variable CUR_APP_EVENT_ID_REC type of column APP_EVENT.APP_EVENT_ID_REC;
+declare variable CUR_APP_EVENT_VID type of column APP_EVENT.APP_EVENT_VID;
+declare variable CUR_APP_EVENT_DATA type of column APP_EVENT.APP_EVENT_DATA;
+
+-- APP_NOTE_VARS
+DECLARE VARIABLE NEW_ID_APP_NOTE TYPE OF D_BIGINT;
+DECLARE VARIABLE NEW_APP_NOTE_ID_SOTR TYPE OF D_BIGINT;
+DECLARE VARIABLE NEW_APP_NOTE_ID_APP_TASK TYPE OF D_BIGINT;
+DECLARE VARIABLE NEW_APP_NOTE_STATUS TYPE OF D_SMALLINT;
+DECLARE VARIABLE NEW_APP_NOTE_TIP TYPE OF D_SMALLINT;
+DECLARE VARIABLE NEW_APP_NOTE_TEXT TYPE OF D_STR1024;
+DECLARE VARIABLE NEW_APP_NOTE_DEL TYPE OF D_SMALLINT;
+DECLARE VARIABLE NEW_APP_NOTE_CR TYPE OF D_DATETIME;
+DECLARE VARIABLE NEW_APP_NOTE_WCR TYPE OF D_BIGINT;
+DECLARE VARIABLE NEW_APP_NOTE_CH TYPE OF D_DATETIME;
+DECLARE VARIABLE NEW_APP_NOTE_WCH TYPE OF D_BIGINT;
+
+
+DECLARE VARIABLE CUR_ID_APP_NOTE TYPE OF D_BIGINT;
+DECLARE VARIABLE CUR_APP_NOTE_ID_SOTR TYPE OF D_BIGINT;
+DECLARE VARIABLE CUR_APP_NOTE_ID_APP_TASK TYPE OF D_BIGINT;
+DECLARE VARIABLE CUR_APP_NOTE_STATUS TYPE OF D_SMALLINT;
+DECLARE VARIABLE CUR_APP_NOTE_TIP TYPE OF D_SMALLINT;
+DECLARE VARIABLE CUR_APP_NOTE_TEXT TYPE OF D_STR1024;
+DECLARE VARIABLE CUR_APP_NOTE_DEL TYPE OF D_SMALLINT;
+DECLARE VARIABLE CUR_APP_NOTE_CR TYPE OF D_DATETIME;
+DECLARE VARIABLE CUR_APP_NOTE_WCR TYPE OF D_BIGINT;
+DECLARE VARIABLE CUR_APP_NOTE_CH TYPE OF D_DATETIME;
+DECLARE VARIABLE CUR_APP_NOTE_WCH TYPE OF D_BIGINT;
+
+declare variable F_OPER type of D_SMALLINT;
+
+begin
+  output_type = 0;/* 0- Не выполнено, -1 Ошибка*/
+  --   Находим событие с переданным идентификатором
+
+  --0. ДЛЯ ПОЧТОВОГО СЕРВЕРА НИЧЕГО НЕ ДЕЛАЕМ
+  if (exists(select 1
+             from PARSRV A
+             where A.PARSRV_VID = 1)) then
+    exit;
+
+  select first 1 E.ID_APP_EVENT, E.APP_EVENT_ID_SOTR, E.APP_EVENT_ID_REC, E.APP_EVENT_VID, E.APP_EVENT_DATA
+  from APP_EVENT E
+  where E.ID_APP_EVENT = :IN_ID_APP_EVENT
+  into :CUR_ID_APP_EVENT, :CUR_APP_EVENT_ID_SOTR, :CUR_APP_EVENT_ID_REC, :CUR_APP_EVENT_VID, :CUR_APP_EVENT_DATA;
+
+  if (:CUR_APP_EVENT_VID = 8795 /*Создание уведомления*/ ) then
+    F_OPER := 1;
+  if (exists(select 1
+             from APP_EVENT E
+             where E.ID_APP_EVENT = :CUR_ID_APP_EVENT)) then
+  begin
+    output = -5;/*Уведомление уже было создано*/
+    suspend;
+    exit;
+    end
+
+  else
+  begin
+    output = -2; /*Неизвестная операция*/
+    suspend;
+    exit;
+  end
+
+  if (:F_OPER = 1) then
+  begin
+
+    
+
+
+    /*Для начала обновим ID_REC в таблице APP_EVENT*/
+
+
+
+    insert into APP_NOTE (ID_APP_NOTE, APP_NOTE_ID_SOTR, APP_NOTE_ID_APP_TASK, APP_NOTE_STATUS, APP_NOTE_TIP,
+                        APP_NOTE_TEXT, APP_NOTE_DEL, APP_NOTE_CR, APP_NOTE_WCR, APP_NOTE_CH, APP_NOTE_WCH)
+                        values (
+                        :cur_id_app_event, :cur_app_event_id_sotr,
+                        )
+  end
+
+  /*TODO определить операцию и на ее основе делать FOPER */
+
+)
+  values ();
+
+  suspend;
+  exit;
+end
\ No newline at end of file