forked from CITKParus/P8-ExchangeService
Серверные обработчики приведены к единому стандарту возврата результата через вызов PKG_EXS.PRC_RESP_RESULT_SET, ликвидирован ненужный параметр NSRV_TYPE в обработчиках
This commit is contained in:
Mikhail Chechnev
parent
8428a733c6
commit
7e0b1ea83a
@ -4,7 +4,6 @@ create or replace package UDO_PKG_EXS_ALICE as
|
||||
procedure FIND_AGENT
|
||||
(
|
||||
NIDENT in number, -- Идентификатор процесса
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
|
||||
);
|
||||
|
||||
@ -12,7 +11,6 @@ create or replace package UDO_PKG_EXS_ALICE as
|
||||
procedure FIND_CONTRACT
|
||||
(
|
||||
NIDENT in number, -- Идентификатор процесса
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
|
||||
);
|
||||
|
||||
@ -20,7 +18,6 @@ create or replace package UDO_PKG_EXS_ALICE as
|
||||
procedure FIND_CONSUMERORD
|
||||
(
|
||||
NIDENT in number, -- Идентификатор процесса
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
|
||||
);
|
||||
|
||||
@ -28,7 +25,6 @@ create or replace package UDO_PKG_EXS_ALICE as
|
||||
procedure FIND_CONTACT
|
||||
(
|
||||
NIDENT in number, -- Идентификатор процесса
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
|
||||
);
|
||||
|
||||
@ -213,7 +209,6 @@ create or replace package body UDO_PKG_EXS_ALICE as
|
||||
procedure FIND_AGENT
|
||||
(
|
||||
NIDENT in number, -- Идентификатор процесса
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
|
||||
)
|
||||
is
|
||||
@ -292,16 +287,19 @@ create or replace package body UDO_PKG_EXS_ALICE as
|
||||
CRESP := 'Не понятно какого контрагента Вы хотите найти, извините...';
|
||||
end if;
|
||||
/* Возвращаем ответ */
|
||||
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT,
|
||||
SARG => PKG_EXS.SCONT_FLD_BRESP,
|
||||
BVALUE => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8'));
|
||||
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
|
||||
SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
|
||||
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;
|
||||
|
||||
/* Обработка запроса на поиск договора */
|
||||
procedure FIND_CONTRACT
|
||||
(
|
||||
NIDENT in number, -- Идентификатор процесса
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
|
||||
)
|
||||
is
|
||||
@ -393,22 +391,24 @@ create or replace package body UDO_PKG_EXS_ALICE as
|
||||
CRESP := 'Не понятно какой договор Вы хотите найти, извините...';
|
||||
end if;
|
||||
/* Возвращаем ответ */
|
||||
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT,
|
||||
SARG => PKG_EXS.SCONT_FLD_BRESP,
|
||||
BVALUE => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8'));
|
||||
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
|
||||
SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
|
||||
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;
|
||||
|
||||
/* Обработка запроса на поиск заказа потребителя */
|
||||
procedure FIND_CONSUMERORD
|
||||
(
|
||||
NIDENT in number, -- Идентификатор процесса
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
|
||||
)
|
||||
is
|
||||
HELPER_PATTERNS THELPER_PATTERNS; -- Коллекция шаблонов вспомогательных слов поиска
|
||||
REXSQUEUE EXSQUEUE%rowtype; -- Запись позиции очереди
|
||||
NSTATE_PROP PKG_STD.TREF; -- Ðåã. íîìåð ÄÑ äëÿ õðàíåíèÿ ñîñòîÿíèÿ çàêàçà
|
||||
CTMP clob; -- Буфер для конвертации
|
||||
CRESP clob; -- Данные для ответа
|
||||
RCTMP sys_refcursor; -- Буфер для измененной позиции очереди
|
||||
@ -476,16 +476,19 @@ create or replace package body UDO_PKG_EXS_ALICE as
|
||||
CRESP := 'Не понятно какой заказ Вы хотите найти, извините...';
|
||||
end if;
|
||||
/* Возвращаем ответ */
|
||||
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT,
|
||||
SARG => PKG_EXS.SCONT_FLD_BRESP,
|
||||
BVALUE => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8'));
|
||||
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
|
||||
SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
|
||||
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;
|
||||
|
||||
/* Обработка запроса на поиск контактной информации */
|
||||
procedure FIND_CONTACT
|
||||
(
|
||||
NIDENT in number, -- Идентификатор процесса
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
|
||||
)
|
||||
is
|
||||
@ -561,9 +564,13 @@ create or replace package body UDO_PKG_EXS_ALICE as
|
||||
CRESP := 'Не понятно какую контактную информацию Вы хотите найти, извините...';
|
||||
end if;
|
||||
/* Возвращаем ответ */
|
||||
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT,
|
||||
SARG => PKG_EXS.SCONT_FLD_BRESP,
|
||||
BVALUE => CLOB2BLOB(LCDATA => CRESP, SCHARSET => 'UTF8'));
|
||||
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
|
||||
SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
|
||||
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;
|
||||
|
||||
@ -4,7 +4,6 @@ create or replace package UDO_PKG_EXS_INV as
|
||||
procedure CHECKAUTH
|
||||
(
|
||||
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
||||
);
|
||||
|
||||
@ -12,7 +11,6 @@ create or replace package UDO_PKG_EXS_INV as
|
||||
procedure GETUSERS
|
||||
(
|
||||
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
||||
);
|
||||
|
||||
@ -155,7 +153,6 @@ create or replace package body UDO_PKG_EXS_INV as
|
||||
procedure CHECKAUTH
|
||||
(
|
||||
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
||||
)
|
||||
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');
|
||||
XNODE := DBMS_XMLDOM.APPENDCHILD(N => XCHECKAUTHRESPONSE, NEWCHILD => XRESULT);
|
||||
/* Îáîðà÷èâàåì åãî â êîíâåðò */
|
||||
CRESPONSE := UTL_CREATERESPONSE(XDOC => XDOC, XCONTENT => XCHECKAUTHRESPONSE);
|
||||
CRESPONSE := UTL_CREATERESPONSE(XDOC => XDOC, XCONTENT => XCHECKAUTHRESPONSE);
|
||||
end if;
|
||||
/* Âîçâðàùàåì îòâåò */
|
||||
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT,
|
||||
SARG => PKG_EXS.SCONT_FLD_BRESP,
|
||||
BVALUE => CLOB2BLOB(LCDATA => CRESPONSE));
|
||||
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
|
||||
SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
|
||||
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;
|
||||
|
||||
/* Ýëåêòðîííàÿ èíâåíòàðèçàöèÿ - ñ÷èòûâàíèå ïîëüçîâàòåëåé */
|
||||
procedure GETUSERS
|
||||
(
|
||||
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
||||
)
|
||||
is
|
||||
@ -284,9 +284,13 @@ create or replace package body UDO_PKG_EXS_INV as
|
||||
CRESPONSE := UTL_CREATERESPONSE(XDOC => XDOC, XCONTENT => XGETUSERSRESPONSE);
|
||||
end if;
|
||||
/* Âîçâðàùàåì îòâåò */
|
||||
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT,
|
||||
SARG => PKG_EXS.SCONT_FLD_BRESP,
|
||||
BVALUE => CLOB2BLOB(LCDATA => CRESPONSE, SCHARSET => 'UTF8'));
|
||||
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
|
||||
SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
|
||||
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;
|
||||
|
||||
@ -4,7 +4,6 @@ create or replace package UDO_PKG_EXS_TEST as
|
||||
procedure UTL_LOGIN
|
||||
(
|
||||
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
||||
);
|
||||
|
||||
@ -19,7 +18,6 @@ create or replace package UDO_PKG_EXS_TEST as
|
||||
procedure AGENT_PROCESS_INFO
|
||||
(
|
||||
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
||||
);
|
||||
|
||||
@ -31,7 +29,6 @@ create or replace package body UDO_PKG_EXS_TEST as
|
||||
procedure UTL_LOGIN
|
||||
(
|
||||
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
||||
)
|
||||
is
|
||||
@ -73,16 +70,16 @@ create or replace package body UDO_PKG_EXS_TEST as
|
||||
SAPPLICATION => 'Other',
|
||||
SCOMPANY => SCOMPANY);
|
||||
/* Âûñòàâëÿåì ðåçóëüòàò îáðàáîòêè */
|
||||
PKG_EXS.PRC_RESP_ARG_BLOB_SET(NIDENT => NIDENT,
|
||||
SARG => PKG_EXS.SCONT_FLD_BRESP,
|
||||
BVALUE => CLOB2BLOB(LCDATA => SCONNECT, SCHARSET => 'UTF8'));
|
||||
|
||||
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT,
|
||||
SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK,
|
||||
BRESP => CLOB2BLOB(LCDATA => SCONNECT, SCHARSET => 'UTF8'));
|
||||
else
|
||||
P_EXCEPTION(0, 'Íå óêàçàíî èìÿ ïîëüçîâàòåëÿ, ïàðîëü èëè îðãàíèçàöèÿ.');
|
||||
P_EXCEPTION(0,
|
||||
'Íå óêàçàíî èìÿ ïîëüçîâàòåëÿ, ïàðîëü èëè îðãàíèçàöèÿ.');
|
||||
end if;
|
||||
exception
|
||||
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;
|
||||
|
||||
/* Çàïðîñèòü êîíòðàãåíòà íà óäàë¸ííîì ñåðâåðå */
|
||||
@ -106,7 +103,6 @@ create or replace package body UDO_PKG_EXS_TEST as
|
||||
procedure AGENT_PROCESS_INFO
|
||||
(
|
||||
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
||||
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
||||
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
||||
)
|
||||
is
|
||||
@ -173,9 +169,11 @@ create or replace package body UDO_PKG_EXS_TEST as
|
||||
SAGNABBR => SUBSTR(NIDENT || SAGNABBR, 1, 20),
|
||||
SAGNNAME => SAGNNAME || ' ' || NIDENT,
|
||||
NRN => NAGENT);
|
||||
/* Ôèêñèðóåì èñïåõ èñïîëíåíèÿ */
|
||||
PKG_EXS.PRC_RESP_RESULT_SET(NIDENT => NIDENT, SRESULT => PKG_EXS.SPRC_RESP_RESULT_OK);
|
||||
exception
|
||||
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;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user