diff --git a/db/UDO_PKG_EXS_ATOL.pck b/db/UDO_PKG_EXS_ATOL.pck index 06574d0..5f27bde 100644 --- a/db/UDO_PKG_EXS_ATOL.pck +++ b/db/UDO_PKG_EXS_ATOL.pck @@ -23,36 +23,32 @@ 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 -- Регистрационный номер обрабатываемой позиции очереди обмена + 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; + /* Разбираем ответ */ + null; end PROCESS_BILL_SEND_RESP; /* Отработка ответов ОФД на запрос печатной версии чека */ procedure PROCESS_BILL_PRINT_RESP ( - NIDENT in number, -- Идентификатор процесса - NSRV_TYPE in number, -- Тип сервиса (см. константы PKG_EXS.NSRV_TYPE*) - NEXSQUEUE in number -- Регистрационный номер обрабатываемой позиции очереди обмена + 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); + /* Разбираем ответ */ null; end PROCESS_BILL_PRINT_RESP; diff --git a/db/UDO_PKG_EXS_TEST.pck b/db/UDO_PKG_EXS_TEST.pck index 513466e..63f29a4 100644 --- a/db/UDO_PKG_EXS_TEST.pck +++ b/db/UDO_PKG_EXS_TEST.pck @@ -92,8 +92,8 @@ create or replace package body UDO_PKG_EXS_TEST as /* Регистрируем контрагента */ P_AGNLIST_BASE_INSERT(NCOMPANY => NCOMPANY, NCRN => NCRN, - SAGNABBR => SAGNABBR, - SAGNNAME => SAGNNAME, + SAGNABBR => SUBSTR(NIDENT || SAGNABBR, 1, 20), + SAGNNAME => SAGNNAME || ' ' || NIDENT, NRN => NAGENT); end;