From 8872971df8fabc9c387cce42261759e2e4700167 Mon Sep 17 00:00:00 2001
From: Mikhail Chechnev <mim_@mail.ru>
Date: Tue, 25 Dec 2018 12:26:23 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9F=D0=B5=D1=80=D0=B5=D0=BF=D0=B8=D1=81?=
 =?UTF-8?q?=D0=B0=D0=BB=20=D0=BF=D0=BE=D0=B8=D1=81=D0=BA=20=D1=84=D1=83?=
 =?UTF-8?q?=D0=BD=D0=BA=D1=86=D0=B8=D0=B8=20=D0=BF=D0=BE=20=D0=BC=D0=BD?=
 =?UTF-8?q?=D0=B5=D0=BC=D0=BE=D0=BA=D0=BE=D0=B4=D1=83=20(SERVICEFN=5FFIND?=
 =?UTF-8?q?=5FBY=5FSRVCODE)=20=D0=BD=D0=B0=20=D0=B2=D1=8B=D0=B7=D0=BE?=
 =?UTF-8?q?=D0=B2=20API=20=D1=80=D0=B0=D0=B7=D0=B4=D0=B5=D0=BB=D0=B0=20"?=
 =?UTF-8?q?=D0=A1=D0=B5=D1=80=D0=B2=D0=B8=D1=81=D1=8B=20=D0=BE=D0=B1=D0=BC?=
 =?UTF-8?q?=D0=B5=D0=BD=D0=B0"?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 db/PKG_EXS.pck | 23 ++++++++---------------
 1 file changed, 8 insertions(+), 15 deletions(-)

diff --git a/db/PKG_EXS.pck b/db/PKG_EXS.pck
index f825087..558df7c 100644
--- a/db/PKG_EXS.pck
+++ b/db/PKG_EXS.pck
@@ -1152,24 +1152,17 @@ create or replace package body PKG_EXS as
   )
   return                    number        -- Рег. номер функции сервиса обмена
   is
+    NEXSSERVICE             PKG_STD.TREF; -- Рег. номер сервиса обработки
     NEXSSERVICEFN           PKG_STD.TREF; -- Рег. номер функции сервиса обработки
   begin
     /* Найдем функцию сервиса обработки */
-    begin
-      select T.RN
-        into NEXSSERVICEFN
-        from EXSSERVICEFN T,
-             EXSSERVICE   S
-       where S.CODE = SEXSSERVICE
-         and S.RN = T.PRN
-         and T.CODE = SEXSSERVICEFN;
-    exception
-      when NO_DATA_FOUND then
-        P_EXCEPTION(NFLAG_SMART,
-                    'Функция "%s" сервиса обмена "%s" не определена',
-                    SEXSSERVICEFN,
-                    SEXSSERVICE);
-    end;
+    FIND_EXSSERVICE_CODE(NFLAG_SMART => NFLAG_SMART, NFLAG_OPTION => 0, SCODE => SEXSSERVICE, NRN => NEXSSERVICE);
+    /* Найдем функцию сервиса обработки */
+    FIND_EXSSERVICEFN_CODE(NFLAG_SMART  => NFLAG_SMART,
+                           NFLAG_OPTION => 0,
+                           NEXSSERVICE  => NEXSSERVICE,
+                           SCODE        => SEXSSERVICEFN,
+                           NRN          => NEXSSERVICEFN);
     /* Вернем результат */
     return NEXSSERVICEFN;
   end SERVICEFN_FIND_BY_SRVCODE;