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-07 21:11:55 +03:00
parent 03c14eb150
commit a6bd5c74ff
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
db/UDO_PKG_EXS_ATOL.pck
View File

@ -1,7 +1,7 @@
create or replace package UDO_PKG_EXS_ATOL as
/* Îòðàáîòêà îòâåòîâ ÀÒÎË íà îòïðàâêó ÷åêà */
procedure PROCESS_SEND_CHECK_RESP
procedure PROCESS_BILL_SEND_RESP
(
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
@ -9,7 +9,7 @@ create or replace package UDO_PKG_EXS_ATOL as
);
/* Îòðàáîòêà îòâåòîâ ÎÔÄ íà çàïðîñ ïå÷àòíîé âåðñèè ÷åêà */
procedure PROCESS_CHECK_PRINT_RESP
procedure PROCESS_BILL_PRINT_RESP
(
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
@ -21,19 +21,31 @@ end;
create or replace package body UDO_PKG_EXS_ATOL as
/* Îòðàáîòêà îòâåòîâ ÀÒÎË íà îòïðàâêó ÷åêà */
procedure PROCESS_SEND_CHECK_RESP
procedure PROCESS_BILL_SEND_RESP
(
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
)
is
REXSQUEUE EXSQUEUE%rowtype; -- Çàïèñü ïîçèöèè î÷åðåäè
begin
null;
end;
/* Ñ÷èòàåì çàïèñü î÷åðåäè */
REXSQUEUE := GET_EXSQUEUE_ID(NFLAG_SMART => 0, NRN => NEXSQUEUE);
/* Ýìóëèðóåì ðàáîòó */
/*if (REXSQUEUE.RN = 3) then
--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;
/* Îòðàáîòêà îòâåòîâ ÎÔÄ íà çàïðîñ ïå÷àòíîé âåðñèè ÷åêà */
procedure PROCESS_CHECK_PRINT_RESP
procedure PROCESS_BILL_PRINT_RESP
(
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
@ -42,8 +54,7 @@ create or replace package body UDO_PKG_EXS_ATOL as
is
begin
null;
end;
end PROCESS_BILL_PRINT_RESP;
end;
/