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

RENAME AND CHAGNE ENCODING

main
Ernest Litvinenko 2024-06-27 16:33:57 +03:00
parent 252c37bce4
commit 29f1ab595a
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
27.06.2024_32_7.sql → 32_7.sql
View File

@ -1,4 +1,4 @@
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_type D_SMALLINT)
@ -38,10 +38,10 @@ 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_type = 0;/* 0- Не выполнено, -1 Ошибка*/
-- Находим событие с переданным идентификатором -- Находим событие с переданным идентификатором
--0. ДЛЯ ПОЧТОВОГО СЕРВЕРА НИЧЕГО НЕ ДЕЛАЕМ --0. ДЛЯ ПОЧТОВОГО СЕРВЕРА НИЧЕГО НЕ ДЕЛАЕМ
if (exists(select 1 if (exists(select 1
from PARSRV A from PARSRV A
where A.PARSRV_VID = 1)) then where A.PARSRV_VID = 1)) then
@ -52,20 +52,20 @@ begin
where E.ID_APP_EVENT = :IN_ID_APP_EVENT 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; 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 if (:CUR_APP_EVENT_VID = 8795 /*Создание уведомления*/ ) then
F_OPER := 1; F_OPER := 1;
if (exists(select 1 if (exists(select 1
from APP_EVENT E from APP_EVENT E
where E.ID_APP_EVENT = :CUR_ID_APP_EVENT)) then where E.ID_APP_EVENT = :CUR_ID_APP_EVENT)) then
begin begin
output = -5;/*Уведомление уже было создано*/ output = -5;/*Уведомление уже было создано*/
suspend; suspend;
exit; exit;
end end
else else
begin begin
output = -2; /*Неизвестная операция*/ output = -2; /*Неизвестная операция*/
suspend; suspend;
exit; exit;
end end
@ -76,7 +76,7 @@ begin
/*Для начала обновим ID_REC в таблице APP_EVENT*/ /*Для начала обновим ID_REC в таблице APP_EVENT*/
@ -87,7 +87,7 @@ begin
) )
end end
/*TODO определить операцию и на ее основе делать FOPER */ /*TODO определить операцию и на ее основе делать FOPER */
) )
values (); values ();