From bc0cd5493fd9625a87e28383ec523c596fb831a7 Mon Sep 17 00:00:00 2001
From: Mikhail Chechnev <mim_@mail.ru>
Date: Mon, 10 Dec 2018 21:29:58 +0300
Subject: [PATCH] =?UTF-8?q?=D0=92=20=D0=90=D0=A2=D0=9E=D0=9B=D0=B5=20?=
 =?UTF-8?q?=D1=83=D0=B1=D1=80=D0=B0=D0=BB=20=D0=BC=D1=83=D1=81=D0=BE=D1=80?=
 =?UTF-8?q?,=20=D0=B2=20=D1=82=D0=B5=D1=81=D1=82=D0=B0=D1=85=20-=20=D1=81?=
 =?UTF-8?q?=D0=B4=D0=B5=D0=BB=D0=B0=D0=BB=20=D0=BF=D0=BE=D0=B4=D0=B3=D0=BE?=
 =?UTF-8?q?=D1=82=D0=BE=D0=B2=D0=BA=D1=83=20=D0=BF=D0=BE=D0=B4=20=D0=BD?=
 =?UTF-8?q?=D0=B0=D0=B3=D1=80=D1=83=D0=B7=D0=BE=D1=87=D0=BD=D0=BE=D0=B5=20?=
 =?UTF-8?q?=D1=82=D0=B5=D1=81=D1=82=D0=B8=D1=80=D0=BE=D0=B2=D0=B0=D0=BD?=
 =?UTF-8?q?=D0=B8=D0=B5?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 db/UDO_PKG_EXS_ATOL.pck | 28 ++++++++++++----------------
 db/UDO_PKG_EXS_TEST.pck |  4 ++--
 2 files changed, 14 insertions(+), 18 deletions(-)

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;