From 8d5d4e0c4c6296bfcb253235aaadc662dbdc3ef9 Mon Sep 17 00:00:00 2001
From: Mikhail Chechnev <mim_@mail.ru>
Date: Wed, 12 Dec 2018 15:47:06 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9A=D0=BE=D1=80=D1=80=D0=B5=D0=BA=D1=82?=
 =?UTF-8?q?=D0=BD=D0=B0=D1=8F=20=D1=83=D1=81=D1=82=D0=B0=D0=BD=D0=BE=D0=B2?=
 =?UTF-8?q?=D0=BA=D0=B0=20=D1=80=D0=B5=D0=B7=D1=83=D0=BB=D1=8C=D1=82=D0=B0?=
 =?UTF-8?q?=D1=82=D0=B0=20=D1=80=D0=B0=D0=B1=D0=BE=D1=82=D1=8B=20=D0=BE?=
 =?UTF-8?q?=D0=B1=D1=80=D0=B0=D0=B1=D0=BE=D1=82=D1=87=D0=B8=D0=BA=D0=B0=20?=
 =?UTF-8?q?=D0=91=D0=94?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 db/UDO_PKG_EXS_TEST.pck | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/db/UDO_PKG_EXS_TEST.pck b/db/UDO_PKG_EXS_TEST.pck
index 63f29a4..55be0d7 100644
--- a/db/UDO_PKG_EXS_TEST.pck
+++ b/db/UDO_PKG_EXS_TEST.pck
@@ -92,9 +92,12 @@ create or replace package body UDO_PKG_EXS_TEST as
     /* Регистрируем контрагента */
     P_AGNLIST_BASE_INSERT(NCOMPANY => NCOMPANY,
                           NCRN     => NCRN,
-                          SAGNABBR => SUBSTR(NIDENT || SAGNABBR, 1, 20),
+                          SAGNABBR => SUBSTR(NIDENT || SAGNABBR, 1, 20),                          
                           SAGNNAME => SAGNNAME || ' ' || NIDENT,
                           NRN      => NAGENT);
+  exception
+    when others then
+      PKG_EXS.PRC_RESP_ARG_STR_SET(NIDENT => NIDENT, SARG => PKG_EXS.SCONT_FLD_SERR, SVALUE => sqlerrm);
   end;
 
 end;