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

Изменен EXEC_BLOCK для Парсинга APP_EVENT_DATA на 32 -2, добавлено добавление ID_APP_TASK

main
Ernest Litvinenko 2024-07-05 01:03:24 +03:00
parent b37357ae8c
commit 826327ade0
1 changed files with 26 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
32_7.sql
View File

@ -78,17 +78,17 @@ begin
: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;
-- Получаем текст EXEC 32 -1 -- Получаем текст EXEC 32 -2
select E.EXEC_BLOCKS_TEXT select E.EXEC_BLOCKS_TEXT
from EXEC_BLOCKS E from EXEC_BLOCKS E
where E.EXEC_BLOCKS_VID = 32 and where E.EXEC_BLOCKS_VID = 32 and
E.EXEC_BLOCKS_TIP = -1 and E.EXEC_BLOCKS_TIP = -2 and
E.EXEC_BLOCKS_DEL = 0 rows 1 to 1 E.EXEC_BLOCKS_DEL = 0 rows 1 to 1
into :EXEC_BLOCK_TEXT_32_NEG_1; into :EXEC_BLOCK_TEXT_32_NEG_1;
if (:EXEC_BLOCK_TEXT_32_NEG_1 is null) then if (:EXEC_BLOCK_TEXT_32_NEG_1 is null) then
begin begin
output = -1;/*Не найден EXEC BLOCK 32 -1 */ output = -1;/*Не найден EXEC BLOCK 32 -2 */
suspend; suspend;
exit; exit;
end end
@ -145,6 +145,20 @@ begin
NEW_APP_NOTE_WCR = F_APP_EVENT_WCR; NEW_APP_NOTE_WCR = F_APP_EVENT_WCR;
NEW_APP_NOTE_CH = F_APP_EVENT_CH; NEW_APP_NOTE_CH = F_APP_EVENT_CH;
NEW_APP_NOTE_WCH = F_APP_EVENT_WCH; NEW_APP_NOTE_WCH = F_APP_EVENT_WCH;
/*Парсим параметры JSON-a APP_EVENT_DATA*/
for execute statement(:EXEC_BLOCK_TEXT_32_NEG_1)(IN_PARAM_JSON := :F_APP_EVENT_DATA)
into :EXEC_BLOCK_32_NEG_1_OUT_VAL, :EXEC_BLOCK_32_NEG_1_OUT_KEY
do
begin
if (:EXEC_BLOCK_32_NEG_1_OUT_KEY = '8794') then
NEW_APP_NOTE_STATUS = cast(:EXEC_BLOCK_32_NEG_1_OUT_VAL as D_INTEGER);
else
if (:EXEC_BLOCK_32_NEG_1_OUT_KEY = 'ID_APP_TASK') then
NEW_APP_NOTE_ID_APP_TASK = cast(:EXEC_BLOCK_32_NEG_1_OUT_VAL as D_BIGINT);
end
end end
else else
if (:F_APP_EVENT_VID = 8797) then if (:F_APP_EVENT_VID = 8797) then
@ -154,20 +168,20 @@ begin
into :EXEC_BLOCK_32_NEG_1_OUT_VAL, :EXEC_BLOCK_32_NEG_1_OUT_KEY into :EXEC_BLOCK_32_NEG_1_OUT_VAL, :EXEC_BLOCK_32_NEG_1_OUT_KEY
do do
begin begin
if (:exec_block_32_neg_1_out_key = 8794) then if (:EXEC_BLOCK_32_NEG_1_OUT_KEY = '8794') then
begin begin
NEW_APP_NOTE_STATUS = cast(:exec_block_32_neg_1_out_val as d_integer); NEW_APP_NOTE_STATUS = cast(:EXEC_BLOCK_32_NEG_1_OUT_VAL as D_INTEGER);
end end
end end
end end
end end
IF (new_id_app_note is null) then if (NEW_ID_APP_NOTE is null) then
begin begin
output = -5; /*Не было создано событие о создании Уведомсления (8795) */ output = -5;/*Не было создано событие о создании Уведомсления (8795) */
suspend; suspend;
exit; exit;
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, 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) APP_NOTE_TEXT, APP_NOTE_DEL, APP_NOTE_CR, APP_NOTE_WCR, APP_NOTE_CH, APP_NOTE_WCH)