CITKParus/P8-ExchangeService
7
0
Fork 1
Code Issues Pull Requests 1 Projects Releases Wiki Activity

Переписал поиск функции по мнемокоду (SERVICEFN_FIND_BY_SRVCODE) на вызов API раздела "Сервисы обмена"

Browse Source
This commit is contained in:
Mikhail Chechnev 2018-12-25 12:26:23 +03:00
parent 8f4541208c
commit 8872971df8
1 changed files with 8 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
db/PKG_EXS.pck
View File

@ -1152,24 +1152,17 @@ create or replace package body PKG_EXS as
) )
return number -- Ðåã. íîìåð ôóíêöèè ñåðâèñà îáìåíà return number -- Ðåã. íîìåð ôóíêöèè ñåðâèñà îáìåíà
is is
NEXSSERVICE PKG_STD.TREF; -- Ðåã. íîìåð ñåðâèñà îáðàáîòêè
NEXSSERVICEFN PKG_STD.TREF; -- Ðåã. íîìåð ôóíêöèè ñåðâèñà îáðàáîòêè NEXSSERVICEFN PKG_STD.TREF; -- Ðåã. íîìåð ôóíêöèè ñåðâèñà îáðàáîòêè
begin begin
/* Íàéäåì ôóíêöèþ ñåðâèñà îáðàáîòêè */ /* Íàéäåì ôóíêöèþ ñåðâèñà îáðàáîòêè */
begin FIND_EXSSERVICE_CODE(NFLAG_SMART => NFLAG_SMART, NFLAG_OPTION => 0, SCODE => SEXSSERVICE, NRN => NEXSSERVICE);
select T.RN /* Íàéäåì ôóíêöèþ ñåðâèñà îáðàáîòêè */
into NEXSSERVICEFN FIND_EXSSERVICEFN_CODE(NFLAG_SMART => NFLAG_SMART,
from EXSSERVICEFN T, NFLAG_OPTION => 0,
EXSSERVICE S NEXSSERVICE => NEXSSERVICE,
where S.CODE = SEXSSERVICE SCODE => SEXSSERVICEFN,
and S.RN = T.PRN NRN => NEXSSERVICEFN);
and T.CODE = SEXSSERVICEFN;
exception
when NO_DATA_FOUND then
P_EXCEPTION(NFLAG_SMART,
'Ôóíêöèÿ "%s" ñåðâèñà îáìåíà "%s" íå îïðåäåëåíà',
SEXSSERVICEFN,
SEXSSERVICE);
end;
/* Âåðíåì ðåçóëüòàò */ /* Âåðíåì ðåçóëüòàò */
return NEXSSERVICEFN; return NEXSSERVICEFN;
end SERVICEFN_FIND_BY_SRVCODE; end SERVICEFN_FIND_BY_SRVCODE;