Dollerok/P8-ExchangeService
1
0
Fork 0
forked from CITKParus/P8-ExchangeService
Code Issues Pull Requests Projects Releases Wiki Activity

Серверные обработчики приведены к единому стандарту возврата результата через вызов PKG_EXS.PRC_RESP_RESULT_SET, ликвидирован ненужный параметр NSRV_TYPE в обработчиках

Browse Source
This commit is contained in:
Mikhail Chechnev 2019-01-07 19:22:38 +03:00
parent 8428a733c6
commit 7e0b1ea83a
3 changed files with 54 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
db/UDO_PKG_EXS_ALICE.pck
View File

@ -4,7 +4,6 @@ create or replace package UDO_PKG_EXS_ALICE as
procedure FIND_AGENT procedure FIND_AGENT
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
); );
@ -12,7 +11,6 @@ create or replace package UDO_PKG_EXS_ALICE as
procedure FIND_CONTRACT procedure FIND_CONTRACT
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
); );
@ -20,7 +18,6 @@ create or replace package UDO_PKG_EXS_ALICE as
procedure FIND_CONSUMERORD procedure FIND_CONSUMERORD
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
); );
@ -28,7 +25,6 @@ create or replace package UDO_PKG_EXS_ALICE as
procedure FIND_CONTACT procedure FIND_CONTACT
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
); );
@ -213,7 +209,6 @@ create or replace package body UDO_PKG_EXS_ALICE as
procedure FIND_AGENT procedure FIND_AGENT
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
) )
is is
@ -292,16 +287,19 @@ create or replace package body UDO_PKG_EXS_ALICE as
CRESP := 'Не понятно какого контрагента Вы хотите найти, извините...'; CRESP := 'Не понятно какого контрагента Вы хотите найти, извините...';
end if; end if;
/* Возвращаем ответ */ /* Возвращаем ответ */
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT, PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
SARG => PKG_EXS.SCONT_FLD_BRESP, SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
BVALUE => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8')); BRESP => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8'));
exception
when others then
/* Âåðí¸ì îøèáêó */
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT, SRESULT => PKG_EXS.SPRC_RESP_RESULT_ERR, SMSG => sqlerrm);
end FIND_AGENT; end FIND_AGENT;
/* Обработка запроса на поиск договора */ /* Обработка запроса на поиск договора */
procedure FIND_CONTRACT procedure FIND_CONTRACT
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
) )
is is
@ -393,22 +391,24 @@ create or replace package body UDO_PKG_EXS_ALICE as
CRESP := 'Не понятно какой договор Вы хотите найти, извините...'; CRESP := 'Не понятно какой договор Вы хотите найти, извините...';
end if; end if;
/* Возвращаем ответ */ /* Возвращаем ответ */
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT, PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
SARG => PKG_EXS.SCONT_FLD_BRESP, SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
BVALUE => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8')); BRESP => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8'));
exception
when others then
/* Âåðí¸ì îøèáêó */
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT, SRESULT => PKG_EXS.SPRC_RESP_RESULT_ERR, SMSG => sqlerrm);
end FIND_CONTRACT; end FIND_CONTRACT;
/* Обработка запроса на поиск заказа потребителя */ /* Обработка запроса на поиск заказа потребителя */
procedure FIND_CONSUMERORD procedure FIND_CONSUMERORD
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
) )
is is
HELPER_PATTERNS THELPER_PATTERNS; -- Коллекция шаблонов вспомогательных слов поиска HELPER_PATTERNS THELPER_PATTERNS; -- Коллекция шаблонов вспомогательных слов поиска
REXSQUEUE EXSQUEUE%rowtype; -- Запись позиции очереди REXSQUEUE EXSQUEUE%rowtype; -- Запись позиции очереди
NSTATE_PROP PKG_STD.TREF; -- Ðåã. íîìåð ÄÑ äëÿ õðàíåíèÿ ñîñòîÿíèÿ çàêàçà
CTMP clob; -- Буфер для конвертации CTMP clob; -- Буфер для конвертации
CRESP clob; -- Данные для ответа CRESP clob; -- Данные для ответа
RCTMP sys_refcursor; -- Буфер для измененной позиции очереди RCTMP sys_refcursor; -- Буфер для измененной позиции очереди
@ -476,16 +476,19 @@ create or replace package body UDO_PKG_EXS_ALICE as
CRESP := 'Не понятно какой заказ Вы хотите найти, извините...'; CRESP := 'Не понятно какой заказ Вы хотите найти, извините...';
end if; end if;
/* Возвращаем ответ */ /* Возвращаем ответ */
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT, PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
SARG => PKG_EXS.SCONT_FLD_BRESP, SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
BVALUE => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8')); BRESP => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8'));
exception
when others then
/* Âåðí¸ì îøèáêó */
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT, SRESULT => PKG_EXS.SPRC_RESP_RESULT_ERR, SMSG => sqlerrm);
end FIND_CONSUMERORD; end FIND_CONSUMERORD;
/* Обработка запроса на поиск контактной информации */ /* Обработка запроса на поиск контактной информации */
procedure FIND_CONTACT procedure FIND_CONTACT
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
) )
is is
@ -561,9 +564,13 @@ create or replace package body UDO_PKG_EXS_ALICE as
CRESP := 'Не понятно какую контактную информацию Вы хотите найти, извините...'; CRESP := 'Не понятно какую контактную информацию Вы хотите найти, извините...';
end if; end if;
/* Возвращаем ответ */ /* Возвращаем ответ */
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT, PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
SARG => PKG_EXS.SCONT_FLD_BRESP, SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
BVALUE => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8')); BRESP => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8'));
exception
when others then
/* Âåðí¸ì îøèáêó */
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT, SRESULT => PKG_EXS.SPRC_RESP_RESULT_ERR, SMSG => sqlerrm);
end FIND_CONTACT; end FIND_CONTACT;
end; end;

28
db/UDO_PKG_EXS_INV.pck
View File

@ -4,7 +4,6 @@ create or replace package UDO_PKG_EXS_INV as
procedure CHECKAUTH procedure CHECKAUTH
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
); );
@ -12,7 +11,6 @@ create or replace package UDO_PKG_EXS_INV as
procedure GETUSERS procedure GETUSERS
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
); );
@ -155,7 +153,6 @@ create or replace package body UDO_PKG_EXS_INV as
procedure CHECKAUTH procedure CHECKAUTH
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
) )
is is
@ -204,19 +201,22 @@ create or replace package body UDO_PKG_EXS_INV as
XRESULT := UTL_CREATENODE(XDOC => XDOC, STAG => SRESULT, SNS => STSD, SVAL => 'true'); XRESULT := UTL_CREATENODE(XDOC => XDOC, STAG => SRESULT, SNS => STSD, SVAL => 'true');
XNODE := DBMS_XMLDOM.APPENDCHILD(N => XCHECKAUTHRESPONSE, NEWCHILD => XRESULT); XNODE := DBMS_XMLDOM.APPENDCHILD(N => XCHECKAUTHRESPONSE, NEWCHILD => XRESULT);
/* Оборачиваем его в конверт */ /* Оборачиваем его в конверт */
CRESPONSE := UTL_CREATERESPONSE(XDOC => XDOC, XCONTENT => XCHECKAUTHRESPONSE); CRESPONSE := UTL_CREATERESPONSE(XDOC => XDOC, XCONTENT => XCHECKAUTHRESPONSE);
end if; end if;
/* Возвращаем ответ */ /* Возвращаем ответ */
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT, PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
SARG => PKG_EXS.SCONT_FLD_BRESP, SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
BVALUE => CLOB2BLOB(LCDATA => CRESPONSE)); BRESP => CLOB2BLOB(LCDATA => CRESPONSE, SCHARSET => 'UTF8'));
exception
when others then
/* Âåðí¸ì îøèáêó */
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT, SRESULT => PKG_EXS.SPRC_RESP_RESULT_ERR, SMSG => sqlerrm);
end CHECKAUTH; end CHECKAUTH;
/* Электронная инвентаризация - считывание пользователей */ /* Электронная инвентаризация - считывание пользователей */
procedure GETUSERS procedure GETUSERS
( (
NIDENT in number, -- Идентификатор процесса NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
) )
is is
@ -282,11 +282,15 @@ create or replace package body UDO_PKG_EXS_INV as
end loop; end loop;
/* Оборачиваем ответ в конверт */ /* Оборачиваем ответ в конверт */
CRESPONSE := UTL_CREATERESPONSE(XDOC => XDOC, XCONTENT => XGETUSERSRESPONSE); CRESPONSE := UTL_CREATERESPONSE(XDOC => XDOC, XCONTENT => XGETUSERSRESPONSE);
end if; end if;
/* Возвращаем ответ */ /* Возвращаем ответ */
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT, PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
SARG => PKG_EXS.SCONT_FLD_BRESP, SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
BVALUE => CLOB2BLOB(LCDATA => CRESPONSE, SCHARSET => 'UTF8')); BRESP => CLOB2BLOB(LCDATA => CRESPONSE, SCHARSET => 'UTF8'));
exception
when others then
/* Âåðí¸ì îøèáêó */
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT, SRESULT => PKG_EXS.SPRC_RESP_RESULT_ERR, SMSG => sqlerrm);
end GETUSERS; end GETUSERS;
end; end;

22
db/UDO_PKG_EXS_TEST.pck
View File

@ -4,7 +4,6 @@ create or replace package UDO_PKG_EXS_TEST as
procedure UTL_LOGIN procedure UTL_LOGIN
( (
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
); );
@ -19,7 +18,6 @@ create or replace package UDO_PKG_EXS_TEST as
procedure AGENT_PROCESS_INFO procedure AGENT_PROCESS_INFO
( (
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
); );
@ -30,8 +28,7 @@ create or replace package body UDO_PKG_EXS_TEST as
/* Îáðàáîòêà çàïðîñà íà ñîçäàíèå ñåññèè */ /* Îáðàáîòêà çàïðîñà íà ñîçäàíèå ñåññèè */
procedure UTL_LOGIN procedure UTL_LOGIN
( (
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
) )
is is
@ -73,16 +70,16 @@ create or replace package body UDO_PKG_EXS_TEST as
SAPPLICATION => 'Other', SAPPLICATION => 'Other',
SCOMPANY => SCOMPANY); SCOMPANY => SCOMPANY);
/* Âûñòàâëÿåì ðåçóëüòàò îáðàáîòêè */ /* Âûñòàâëÿåì ðåçóëüòàò îáðàáîòêè */
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT, PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
SARG => PKG_EXS.SCONT_FLD_BRESP, SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
BVALUE => CLOB2BLOB(LCDATA => SCONNECT, SCHARSET => 'UTF8')); BRESP => CLOB2BLOB(LCDATA => SCONNECT, SCHARSET => 'UTF8'));
else else
P_EXCEPTION(0, 'Íå óêàçàíî èìÿ ïîëüçîâàòåëÿ, ïàðîëü èëè îðãàíèçàöèÿ.'); P_EXCEPTION(0,
'Íå óêàçàíî èìÿ ïîëüçîâàòåëÿ, ïàðîëü èëè îðãàíèçàöèÿ.');
end if; end if;
exception exception
when others then when others then
PKG_EXS.PRC_RESP_ARG_STR_SET(NIDENT => NIDENT, SARG => PKG_EXS.SCONT_FLD_SERR, SVALUE => sqlerrm); PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT, SRESULT => PKG_EXS.SPRC_RESP_RESULT_ERR, SMSG => sqlerrm);
end UTL_LOGIN; end UTL_LOGIN;
/* Çàïðîñèòü êîíòðàãåíòà íà óäàë¸ííîì ñåðâåðå */ /* Çàïðîñèòü êîíòðàãåíòà íà óäàë¸ííîì ñåðâåðå */
@ -106,7 +103,6 @@ create or replace package body UDO_PKG_EXS_TEST as
procedure AGENT_PROCESS_INFO procedure AGENT_PROCESS_INFO
( (
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
) )
is is
@ -173,9 +169,11 @@ create or replace package body UDO_PKG_EXS_TEST as
SAGNABBR => SUBSTR(NIDENT || SAGNABBR, 1, 20), SAGNABBR => SUBSTR(NIDENT || SAGNABBR, 1, 20),
SAGNNAME => SAGNNAME || ' ' || NIDENT, SAGNNAME => SAGNNAME || ' ' || NIDENT,
NRN => NAGENT); NRN => NAGENT);
/* Ôèêñèðóåì èñïåõ èñïîëíåíèÿ */
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT, SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK);
exception exception
when others then when others then
PKG_EXS.PRC_RESP_ARG_STR_SET(NIDENT => NIDENT, SARG => PKG_EXS.SCONT_FLD_SERR, SVALUE => sqlerrm); PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT, SRESULT => PKG_EXS.SPRC_RESP_RESULT_ERR, SMSG => sqlerrm);
end AGENT_PROCESS_INFO; end AGENT_PROCESS_INFO;
end; end;