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=40510
This commit is contained in:
Erik Groener
2019-01-11 13:39:16 +00:00
parent 6fce83f261
commit 2d40b6bf27
2 changed files with 71 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
BES/BES_PAC.SRC
View File

@@ -609,10 +609,10 @@ AS
-- De actuele prijs is nu geregistreerd
END;
// was: bes_check_or_create_item
// Maakt een artikel (bes_srtdeel) aan binnen een reeds bestaande catalogus (discipline), waarbij zonodig nog de groep
// (srtgroep) wordt aangemaakt. Deze wordt aangeroepen bij een punchout bestelling, en om te voorkomen dat dergelijke
// artikelen rechtstreeks worden besteld wordt direct de verwijderdatum ook gezet. Dat je het weet.
-- was: bes_check_or_create_item
-- Maakt een artikel (bes_srtdeel) aan binnen een reeds bestaande catalogus (discipline), waarbij zonodig nog de groep
-- (srtgroep) wordt aangemaakt. Deze wordt aangeroepen bij een punchout bestelling, en om te voorkomen dat dergelijke
-- artikelen rechtstreeks worden besteld wordt direct de verwijderdatum ook gezet. Dat je het weet.
PROCEDURE upsert_srtdeel (p_ins_discipline_key IN NUMBER,
p_bes_srtgroep_omschrijving IN VARCHAR2, -- VARCHAR2(60)
p_bes_srtdeel_omschrijving IN VARCHAR2, -- VARCHAR2 (60)
@@ -2073,8 +2073,8 @@ AS
FROM bes_bestelling b
WHERE b.bes_bestelling_key = pbes_bestelling_key;
s := REPLACE( REPLACE( REPLACE( s
, '##KEY##', NUMBER_TO_CHAR (pbes_bestelling_key) )
, '##DATUM##', DATE_TO_CHAR (lbes_bestelling_datum, 'DD-MM-YY HH24:MI') )
, '##KEY##', TO_CHAR (pbes_bestelling_key) )
, '##DATUM##', TO_CHAR (lbes_bestelling_datum, 'DD-MM-YY HH24:MI') )
, '##DISC##', pbes_discipline
);
END IF;
@@ -2084,13 +2084,34 @@ AS
FUNCTION opdrsprintf (ps IN VARCHAR2, pbes_bestelopdr_key IN NUMBER)
RETURN VARCHAR2
IS
s VARCHAR2 (2048 CHAR);
s VARCHAR2 (2048 CHAR);
f VARCHAR2 (2048 CHAR);
d NUMBER := 0;
fmt VARCHAR2 (50 CHAR);
s1 VARCHAR2 (2048 CHAR);
d1 NUMBER;
lopdrid bes_bestelopdr.bes_bestelopdr_id%TYPE;
BEGIN
s := ps;
-- We support substitution of placeholders in the messages
-- ##KEY## = bes_bestelopdr_id
-- ##KEYN## = voorloop+bes_bestelopdr_id
IF instr2 (s, '$') > 0
THEN
f := SUBSTR( s, INSTR2( s, '$$')+2);
s := SUBSTR( s, 1, INSTR2( s, '$$')-1);
IF f is not null
THEN
BEGIN
d := TO_NUMBER(f);
EXCEPTION
WHEN OTHERS THEN d := 0;
END;
fmt := LPAD('0', d, '0');
END IF;
END IF;
IF INSTR (s, '#') > 0
THEN
SELECT bes_bestelopdr_id
@@ -2098,7 +2119,19 @@ AS
FROM bes_bestelopdr
WHERE bes_bestelopdr_key = pbes_bestelopdr_key;
s := REPLACE (s, '##KEY##', lopdrid);
IF (INSTR (s, '##KEY##') > 0)
THEN
s := REPLACE (s, '##KEY##', lopdrid);
END IF;
IF (INSTR (s, '##KEYN##') > 0)
THEN
s1 := fmt || lopdrid;
d1 := INSTR(s1, '/');
s1 := SUBSTR(s1, (d1 - d));
IF (d < (INSTR(lopdrid, '/')-1)) THEN s1 := '####'; END IF;
s := REPLACE (s, '##KEYN##', s1);
END IF;
END IF;
RETURN s;