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

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