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

В АТОЛе убрал мусор, в тестах - сделал подготовку под нагрузочное тестирование

Browse Source
This commit is contained in:
Mikhail Chechnev 2018-12-10 21:29:58 +03:00
parent 5f6914aa66
commit bc0cd5493f
2 changed files with 14 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
db/UDO_PKG_EXS_ATOL.pck
View File

@ -23,36 +23,32 @@ create or replace package body UDO_PKG_EXS_ATOL as
/* Îòðàáîòêà îòâåòîâ ÀÒÎË íà îòïðàâêó ÷åêà */ /* Îòðàáîòêà îòâåòîâ ÀÒÎË íà îòïðàâêó ÷åêà */
procedure PROCESS_BILL_SEND_RESP procedure PROCESS_BILL_SEND_RESP
( (
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*) NSRV_TYPE in number, -- Тип сервиса (см. константы PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
) )
is is
REXSQUEUE EXSQUEUE%rowtype; -- Çàïèñü ïîçèöèè î÷åðåäè REXSQUEUE EXSQUEUE%rowtype; -- Çàïèñü ïîçèöèè î÷åðåäè
begin begin
/* Ñ÷èòàåì çàïèñü î÷åðåäè */ /* Ñ÷èòàåì çàïèñü î÷åðåäè */
REXSQUEUE := GET_EXSQUEUE_ID(NFLAG_SMART => 0, NRN => NEXSQUEUE); REXSQUEUE := GET_EXSQUEUE_ID(NFLAG_SMART => 0, NRN => NEXSQUEUE);
/* Ýìóëèðóåì ðàáîòó */ /* Разбираем ответ */
/*if (REXSQUEUE.RN = 3) then null;
--dbms_lock.sleep(15);
PKG_EXS.PRC_RESP_ARG_STR_SET(NIDENT => NIDENT,
SARG => PKG_EXS.SCONT_FLD_SERR,
SVALUE => 'Îøèáêà îáðàáîòêè ïîçèöèè î÷åðåäè ' || TO_CHAR(REXSQUEUE.RN));
else*/
dbms_lock.sleep(5);
insert into UDO_T_EXS_ATOL (RN, DT, MSG) values (GEN_ID, sysdate, BLOB2CLOB(LBDATA => REXSQUEUE.RESP));
--end if;
end PROCESS_BILL_SEND_RESP; end PROCESS_BILL_SEND_RESP;
/* Îòðàáîòêà îòâåòîâ ÎÔÄ íà çàïðîñ ïå÷àòíîé âåðñèè ÷åêà */ /* Îòðàáîòêà îòâåòîâ ÎÔÄ íà çàïðîñ ïå÷àòíîé âåðñèè ÷åêà */
procedure PROCESS_BILL_PRINT_RESP procedure PROCESS_BILL_PRINT_RESP
( (
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà NIDENT in number, -- Идентификатор процесса
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*) NSRV_TYPE in number, -- Тип сервиса (см. константы PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена
) )
is is
REXSQUEUE EXSQUEUE%rowtype; -- Запись позиции очереди
begin begin
/* Считаем запись очереди */
REXSQUEUE := GET_EXSQUEUE_ID(NFLAG_SMART => 0, NRN => NEXSQUEUE);
/* Разбираем ответ */
null; null;
end PROCESS_BILL_PRINT_RESP; end PROCESS_BILL_PRINT_RESP;

4
db/UDO_PKG_EXS_TEST.pck
View File

@ -92,8 +92,8 @@ create or replace package body UDO_PKG_EXS_TEST as
/* Ðåãèñòðèðóåì êîíòðàãåíòà */ /* Ðåãèñòðèðóåì êîíòðàãåíòà */
P_AGNLIST_BASE_INSERT(NCOMPANY => NCOMPANY, P_AGNLIST_BASE_INSERT(NCOMPANY => NCOMPANY,
NCRN => NCRN, NCRN => NCRN,
SAGNABBR => SAGNABBR, SAGNABBR => SUBSTR(NIDENT || SAGNABBR, 1, 20),
SAGNNAME => SAGNNAME, SAGNNAME => SAGNNAME || ' ' || NIDENT,
NRN => NAGENT); NRN => NAGENT);
end; end;