FCLT#65644 Kan ##OPDRID## in puo_subjectprefixmld?

svn path=/Database/trunk/; revision=49645

MLD/MLD_PAC.SRC

@@ -2659,6 +2659,7 @@ IS
    varplaats VARCHAR2(4000); -- Ook groot genoeg voor locatieomschrijving
    varopdrtype mld_typeopdr.mld_typeopdr_omschrijving%TYPE;
    varextnr mld_opdr.mld_opdr_externnr%TYPE;
+   varopdrid mld_opdr.mld_opdr_id%TYPE;
    varonderwerp mld_melding.mld_melding_onderwerp%TYPE;
 BEGIN
    s := ps;
@@ -2673,6 +2674,7 @@ BEGIN
    -- ##PLAATS## = plaatsaanduidig van plaats service
    -- ##OPDRTYPE## = opdrachttype
    -- ##EXTNR## = extern nummer
+   -- ##OPDRID## = mld_opdr_id
    -- ##SUBJECT## = mld_melding_onderwerp
     IF (instr2 (s, '#') > 0 AND instr2 (s, '$') > 0)
     THEN
@@ -2697,6 +2699,7 @@ BEGIN
                o.mld_opdr_omschrijving,
                o.mld_statusopdr_key,
                o.mld_opdr_externnr,
+               o.mld_opdr_id,
                lcl.x ('mld_typeopdr_omschrijving',
                       o.mld_typeopdr_key,
                       ot.mld_typeopdr_omschrijving)
@@ -2705,6 +2708,7 @@ BEGIN
                lopdr_omschrijving,
                lopdrstatus,
                varextnr,
+               varopdrid,
                varopdrtype
           FROM mld_opdr o, mld_typeopdr ot
          WHERE o.mld_typeopdr_key = ot.mld_typeopdr_key AND o.mld_opdr_key = p_opdr_key;
@@ -2759,7 +2763,7 @@ BEGIN
            varplaats := '';
         END IF;
 
-        s := REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (s,
+        s := REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (s,
               '##OPDRKEYN##', CASE WHEN fmt IS NOT NULL THEN LTRIM(TO_CHAR (lmld_melding_key, fmt)) ELSE TO_CHAR (lmld_melding_key) END || '/' || TO_CHAR (lbedrijfopdr_volgnr)),
               '##OPDRKEY##',  varsrtdisc || TO_CHAR (lmld_melding_key) || '/' || TO_CHAR (lbedrijfopdr_volgnr)),
               '##DISC##',     vardisc),
@@ -2767,6 +2771,7 @@ BEGIN
               '##DESC##',     lopdr_omschrijving),
               '##OPDRTYPE##', varopdrtype),
               '##EXTNR##',    varextnr),
+              '##OPDRID##',   varopdrid),
               '##SUBJECT##',  varonderwerp),
               '##PLAATS##',   varplaats);