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

initial

main
Ernest Litvinenko 2024-06-27 12:05:45 +03:00
commit 252c37bce4
1 changed files with 97 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
27.06.2024_32_7.sql Normal file
View File

@ -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