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

db/UDO_PKG_EXS_ATOL.pck

@@ -32,16 +32,8 @@ create or replace package body UDO_PKG_EXS_ATOL as
   begin
     /* Ñ÷èòàåì çàïèñü î÷åðåäè */
     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;
 
   /* Îòðàáîòêà îòâåòîâ ÎÔÄ íà çàïðîñ ïå÷àòíîé âåðñèè ÷åêà */
@@ -52,7 +44,11 @@ create or replace package body UDO_PKG_EXS_ATOL as
     NEXSQUEUE               in number         -- Ðåãèñòðàöèîííûé íîìåð îáðàáàòûâàåìîé ïîçèöèè î÷åðåäè îáìåíà
   )
   is
+    REXSQUEUE               EXSQUEUE%rowtype; -- Çàïèñü ïîçèöèè î÷åðåäè
   begin
+    /* Ñ÷èòàåì çàïèñü î÷åðåäè */
+    REXSQUEUE := GET_EXSQUEUE_ID(NFLAG_SMART => 0, NRN => NEXSQUEUE);
+    /* Ðàçáèðàåì îòâåò */
     null;
   end PROCESS_BILL_PRINT_RESP;
 

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,
+                          SAGNABBR => SUBSTR(NIDENT || SAGNABBR, 1, 20),
-                          SAGNNAME => SAGNNAME,
+                          SAGNNAME => SAGNNAME || ' ' || NIDENT,
                           NRN      => NAGENT);
   end;