ernestlitvinenko
/
jde_exec_blocks
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix errors

main
Ernest Litvinenko 2024-06-28 12:08:25 +03:00
parent 8468755cdf
commit 88fb1894ac
1 changed files with 51 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

117
32_7.sql
View File

@ -1,7 +1,7 @@
execute block ( execute block (
IN_ID_APP_EVENT D_BIGINT = :IN_ID_APP_EVENT) IN_ID_APP_EVENT D_BIGINT = :IN_ID_APP_EVENT)
returns ( returns (
output_type D_SMALLINT) output D_SMALLINT)
as as
-- APP_EVENT VARIABLES -- APP_EVENT VARIABLES
@ -25,7 +25,6 @@ declare variable F_APP_EVENT_OWNERMST type of column APP_EVENT.APP_EVENT_OWNERMS
declare variable F_APP_EVENT_FIMP type of column APP_EVENT.APP_EVENT_FIMP; declare variable F_APP_EVENT_FIMP type of column APP_EVENT.APP_EVENT_FIMP;
declare variable F_APP_EVENT_MPOST type of column APP_EVENT.APP_EVENT_MPOST; declare variable F_APP_EVENT_MPOST type of column APP_EVENT.APP_EVENT_MPOST;
-- APP_NOTE VARIABLES -- APP_NOTE VARIABLES
declare variable NEW_ID_APP_NOTE type of D_BIGINT; 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_SOTR type of D_BIGINT;
@ -54,7 +53,7 @@ declare variable CUR_APP_NOTE_WCH type of D_BIGINT;
declare variable F_OPER type of D_SMALLINT; declare variable F_OPER type of D_SMALLINT;
begin begin
output_type = 0;/* 0- Не выполнено, -1 Ошибка*/ output = 0;/* 0- Не выполнено, -1 Ошибка*/
-- Находим событие с переданным идентификатором -- Находим событие с переданным идентификатором
--0. ДЛЯ ПОЧТОВОГО СЕРВЕРА НИЧЕГО НЕ ДЕЛАЕМ --0. ДЛЯ ПОЧТОВОГО СЕРВЕРА НИЧЕГО НЕ ДЕЛАЕМ
@ -72,78 +71,64 @@ begin
into :F_ID_APP_EVENT, :F_APP_EVENT_ID_SOTR, :F_APP_EVENT_ID_REC, :F_APP_EVENT_VID, :F_APP_EVENT_TIP, :F_APP_EVENT_DT, into :F_ID_APP_EVENT, :F_APP_EVENT_ID_SOTR, :F_APP_EVENT_ID_REC, :F_APP_EVENT_VID, :F_APP_EVENT_TIP, :F_APP_EVENT_DT,
:F_APP_EVENT_TEXT, :F_APP_EVENT_PARAM, :F_APP_EVENT_DATA, :F_APP_EVENT_DEL, :F_APP_EVENT_IMP, :F_APP_EVENT_CR, :F_APP_EVENT_TEXT, :F_APP_EVENT_PARAM, :F_APP_EVENT_DATA, :F_APP_EVENT_DEL, :F_APP_EVENT_IMP, :F_APP_EVENT_CR,
:F_APP_EVENT_WCR, :F_APP_EVENT_CH, :F_APP_EVENT_WCH, :F_APP_EVENT_SEANS, :F_APP_EVENT_OWNERMST, :F_APP_EVENT_WCR, :F_APP_EVENT_CH, :F_APP_EVENT_WCH, :F_APP_EVENT_SEANS, :F_APP_EVENT_OWNERMST,
:F_APP_EVENT_FIMP, :F_APP_EVENT_MPOST :F_APP_EVENT_FIMP, :F_APP_EVENT_MPOST;
if (:CUR_APP_EVENT_VID = 8795 /*Создание уведомления*/ ) then F_OPER := 1; if (:F_APP_EVENT_VID = 8795 /*Создание уведомления*/ ) then
else F_OPER = 1;
begin else begin
output = -2;/*Неизвестная операция*/ output = -2;/*Неизвестная операция*/
suspend; suspend;
exit; exit;
end end
if (:F_APP_EVENT_ID_REC is null or :F_APP_EVENT_ID_REC = 0) then begin if (:F_APP_EVENT_ID_REC is null or :F_APP_EVENT_ID_REC = 0) then
begin
:F_APP_EVENT_ID_REC = :F_ID_APP_EVENT;
update APP_EVENT set APP_EVENT_ID_REC = :F_APP_EVENT_ID_REC where ID_APP_EVENT = :F_ID_APP_EVENT; :F_APP_EVENT_ID_REC = :F_ID_APP_EVENT;
update APP_EVENT
set APP_EVENT_ID_REC = :F_APP_EVENT_ID_REC
where ID_APP_EVENT = :F_ID_APP_EVENT;
end end
/*Получаем все события от начала до конца*/ /*Получаем все события от начала до конца*/
FOR select E.ID_APP_EVENT, E.APP_EVENT_ID_SOTR, E.APP_EVENT_ID_REC, E.APP_EVENT_VID, E.APP_EVENT_TIP,
E.APP_EVENT_DT, E.APP_EVENT_TEXT, E.APP_EVENT_PARAM, E.APP_EVENT_DATA, E.APP_EVENT_DEL,
E.APP_EVENT_IMP, E.APP_EVENT_CR, E.APP_EVENT_WCR, E.APP_EVENT_CH, E.APP_EVENT_WCH, E.APP_EVENT_SEANS,
E.APP_EVENT_OWNERMST, E.APP_EVENT_FIMP, E.APP_EVENT_MPOST
from APP_EVENT E
where E.APP_EVENT_ID_REC = :F_APP_EVENT_ID_REC and E.APP_EVENT_DEL = 0 order by E.APP_EVENT_DT
into :F_ID_APP_EVENT, :F_APP_EVENT_ID_SOTR, :F_APP_EVENT_ID_REC, :F_APP_EVENT_VID, :F_APP_EVENT_TIP, :F_APP_EVENT_DT,
:F_APP_EVENT_TEXT, :F_APP_EVENT_PARAM, :F_APP_EVENT_DATA, :F_APP_EVENT_DEL, :F_APP_EVENT_IMP, :F_APP_EVENT_CR,
:F_APP_EVENT_WCR, :F_APP_EVENT_CH, :F_APP_EVENT_WCH, :F_APP_EVENT_SEANS, :F_APP_EVENT_OWNERMST,
:F_APP_EVENT_FIMP, :F_APP_EVENT_MPOST DO
begin
if (:F_APP_EVENT_VID = 8795) then for select E.ID_APP_EVENT, E.APP_EVENT_ID_SOTR, E.APP_EVENT_ID_REC, E.APP_EVENT_VID, E.APP_EVENT_TIP, E.APP_EVENT_DT,
begin E.APP_EVENT_TEXT, E.APP_EVENT_PARAM, E.APP_EVENT_DATA, E.APP_EVENT_DEL, E.APP_EVENT_IMP, E.APP_EVENT_CR,
NEW_ID_APP_NOTE = :F_APP_EVENT_ID_REC; E.APP_EVENT_WCR, E.APP_EVENT_CH, E.APP_EVENT_WCH, E.APP_EVENT_SEANS, E.APP_EVENT_OWNERMST,
NEW_APP_NOTE_ID_SOTR = :F_APP_EVENT_ID_SOTR; E.APP_EVENT_FIMP, E.APP_EVENT_MPOST
NEW_APP_NOTE_ID_APP_TASK = 0; from APP_EVENT E
NEW_APP_NOTE_STATUS = 0; where E.APP_EVENT_ID_REC = :F_APP_EVENT_ID_REC and
NEW_APP_NOTE_TIP = F_APP_EVENT_TIP; E.APP_EVENT_DEL = 0
NEW_APP_NOTE_TEXT = F_APP_EVENT_TEXT; order by E.APP_EVENT_DT
NEW_APP_NOTE_DEL = F_APP_EVENT_DATA; into :F_ID_APP_EVENT, :F_APP_EVENT_ID_SOTR, :F_APP_EVENT_ID_REC, :F_APP_EVENT_VID, :F_APP_EVENT_TIP,
NEW_APP_NOTE_CR = F_APP_EVENT_CR; :F_APP_EVENT_DT, :F_APP_EVENT_TEXT, :F_APP_EVENT_PARAM, :F_APP_EVENT_DATA, :F_APP_EVENT_DEL,
NEW_APP_NOTE_WCR = F_APP_EVENT_WCR; :F_APP_EVENT_IMP, :F_APP_EVENT_CR, :F_APP_EVENT_WCR, :F_APP_EVENT_CH, :F_APP_EVENT_WCH, :F_APP_EVENT_SEANS,
NEW_APP_NOTE_CH = F_APP_EVENT_CH; :F_APP_EVENT_OWNERMST, :F_APP_EVENT_FIMP, :F_APP_EVENT_MPOST
NEW_APP_NOTE_WCH = F_APP_EVENT_WCH; do
end; begin
end;
update or insert APP_NOTE (ID_APP_NOTE, if (:F_APP_EVENT_VID = 8795) then
APP_NOTE_ID_SOTR, begin
APP_NOTE_ID_APP_TASK, NEW_ID_APP_NOTE = :F_APP_EVENT_ID_REC;
APP_NOTE_STATUS, NEW_APP_NOTE_ID_SOTR = :F_APP_EVENT_ID_SOTR;
APP_NOTE_TIP, NEW_APP_NOTE_ID_APP_TASK = 0;
APP_NOTE_TEXT, NEW_APP_NOTE_STATUS = 0;
APP_NOTE_DEL, NEW_APP_NOTE_TIP = F_APP_EVENT_TIP;
APP_NOTE_CR, NEW_APP_NOTE_TEXT = F_APP_EVENT_TEXT;
APP_NOTE_WCR, NEW_APP_NOTE_DEL = F_APP_EVENT_DATA;
APP_NOTE_CH, NEW_APP_NOTE_CR = F_APP_EVENT_CR;
APP_NOTE_WCH) values ( NEW_APP_NOTE_WCR = F_APP_EVENT_WCR;
NEW_ID_APP_NOTE, NEW_APP_NOTE_CH = F_APP_EVENT_CH;
NEW_APP_NOTE_ID_SOTR, NEW_APP_NOTE_WCH = F_APP_EVENT_WCH;
NEW_APP_NOTE_ID_APP_TASK, end
NEW_APP_NOTE_STATUS,
NEW_APP_NOTE_TIP,
NEW_APP_NOTE_TEXT,
NEW_APP_NOTE_DEL,
NEW_APP_NOTE_CR,
NEW_APP_NOTE_WCR,
NEW_APP_NOTE_CH,
NEW_APP_NOTE_WCH
) matching (ID_APP_NOTE)
end end
update or 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 (:NEW_ID_APP_NOTE, :NEW_APP_NOTE_ID_SOTR, :NEW_APP_NOTE_ID_APP_TASK, :NEW_APP_NOTE_STATUS, :NEW_APP_NOTE_TIP,
:NEW_APP_NOTE_TEXT, :NEW_APP_NOTE_DEL, :NEW_APP_NOTE_CR, :NEW_APP_NOTE_WCR, :NEW_APP_NOTE_CH, :NEW_APP_NOTE_WCH)
matching (ID_APP_NOTE);
end