admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SVRZ#32152 SVRZ - ##OPDRKEY## in puo_subjectprefixmld zonder prefix

Browse Source 
svn path=/Database/trunk/; revision=40514
This commit is contained in:
Erik Groener
2019-01-14 08:53:54 +00:00
parent 2d40b6bf27
commit 2af48fc499
1 changed files with 22 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
BES/BES_PAC.SRC
View File

@@ -2090,6 +2090,7 @@ AS
fmt VARCHAR2 (50 CHAR); fmt VARCHAR2 (50 CHAR);
s1 VARCHAR2 (2048 CHAR); s1 VARCHAR2 (2048 CHAR);
d1 NUMBER; d1 NUMBER;
d2 NUMBER;
lopdrid bes_bestelopdr.bes_bestelopdr_id%TYPE; lopdrid bes_bestelopdr.bes_bestelopdr_id%TYPE;
BEGIN BEGIN
s := ps; s := ps;
@@ -2123,14 +2124,29 @@ AS
THEN THEN
s := REPLACE (s, '##KEY##', lopdrid); s := REPLACE (s, '##KEY##', lopdrid);
END IF; END IF;
--
IF (INSTR (s, '##KEYN##') > 0) IF (INSTR (s, '##KEYN##') > 0)
THEN THEN
s1 := fmt || lopdrid; IF (fmt IS NOT NULL)
d1 := INSTR(s1, '/'); THEN
s1 := SUBSTR(s1, (d1 - d)); s1 := fmt || lopdrid;
IF (d < (INSTR(lopdrid, '/')-1)) THEN s1 := '####'; END IF; d2 := INSTR(lopdrid, '/')-1;
IF (d2<0)
s := REPLACE (s, '##KEYN##', s1); THEN
d2 := LENGTH(lopdrid);
d1 := LENGTH(s1)+1;
ELSE
d1 := INSTR(s1, '/');
END IF;
s1 := SUBSTR(s1, (d1 - d));
IF (d < d2) THEN
s1 := '####';
END IF;
ELSE
s1 := lopdrid;
END IF;
--
s := REPLACE (s, '##KEYN##', s1||':'||to_number(d)||':'||to_number(d2));
END IF; END IF;
END IF; END IF;