forked from CITKParus/P8-ExchangeService
61 lines
2.2 KiB
Plaintext
61 lines
2.2 KiB
Plaintext
create or replace package UDO_PKG_EXS_ATOL as
|
|
|
|
/* Îòðàáîòêà îòâåòîâ ÀÒÎË íà îòïðàâêó ÷åêà */
|
|
procedure PROCESS_BILL_SEND_RESP
|
|
(
|
|
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
|
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
|
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
|
);
|
|
|
|
/* Îòðàáîòêà îòâåòîâ ÎÔÄ íà çàïðîñ ïå÷àòíîé âåðñèè ÷åêà */
|
|
procedure PROCESS_BILL_PRINT_RESP
|
|
(
|
|
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
|
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
|
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
|
);
|
|
|
|
end;
|
|
/
|
|
create or replace package body UDO_PKG_EXS_ATOL as
|
|
|
|
/* Îòðàáîòêà îòâåòîâ ÀÒÎË íà îòïðàâêó ÷åêà */
|
|
procedure PROCESS_BILL_SEND_RESP
|
|
(
|
|
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
|
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
|
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
|
)
|
|
is
|
|
REXSQUEUE EXSQUEUE%rowtype; -- Çàïèñü ïîçèöèè î÷åðåäè
|
|
begin
|
|
/* Ñ÷èòàåì çàïèñü î÷åðåäè */
|
|
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_BILL_PRINT_RESP
|
|
(
|
|
NIDENT in number, -- Èäåíòèôèêàòîð ïðîöåññà
|
|
NSRV_TYPE in number, -- Òèï ñåðâèñà (ñì. êîíñòàíòû PKG_EXS.NSRV_TYPE*)
|
|
NEXSQUEUE in number -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
|
|
)
|
|
is
|
|
begin
|
|
null;
|
|
end PROCESS_BILL_PRINT_RESP;
|
|
|
|
end;
|
|
/
|