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

26
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_FIMP, :F_APP_EVENT_MPOST;
-- Получаем текст EXEC 32 -1
-- Получаем текст EXEC 32 -2
select E.EXEC_BLOCKS_TEXT
from EXEC_BLOCKS E
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
into :EXEC_BLOCK_TEXT_32_NEG_1;
if (:EXEC_BLOCK_TEXT_32_NEG_1 is null) then
begin
output = -1;/*Не найден EXEC BLOCK 32 -1 */
output = -1;/*Не найден EXEC BLOCK 32 -2 */
suspend;
exit;
end
@ -145,6 +145,20 @@ begin
NEW_APP_NOTE_WCR = F_APP_EVENT_WCR;
NEW_APP_NOTE_CH = F_APP_EVENT_CH;
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
else
if (:F_APP_EVENT_VID = 8797) then
@ -154,15 +168,15 @@ begin
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
if (:EXEC_BLOCK_32_NEG_1_OUT_KEY = '8794') then
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
IF (new_id_app_note is null) then
if (NEW_ID_APP_NOTE is null) then
begin
output = -5;/*Не было создано событие о создании Уведомсления (8795) */
suspend;