NOUR#54306 Hoe werkt proces voor werkvergunningen in SaaS?

svn path=/Website/branches/v2019.1/; revision=43917

CUST/NOUR/custfunctions.wsc

@@ -178,16 +178,26 @@ mld_postsave = function (mld_melding, pResult)
     var oRs = Oracle.Execute(sql);
     if (!oRs.eof)
     {
+        var startkey = oRs("mld_melding_start_key").Value;
         // Alleen een kenmerkmelding record toevoegen als deze nog niet bestaat.
-        sql_xst = "SELECT 1"
+        sql_xst = "SELECT mld_kenmerkmelding_key"
                 + "  FROM mld_kenmerkmelding m"
                 + " WHERE m.mld_kenmerk_key IN (SELECT k.mld_kenmerk_key"
                 + "                               FROM mld_kenmerk k"
                 + "                              WHERE k.mld_srtkenmerk_key = 961)"
                + "   AND m.mld_melding_key = " + mld_melding;
         var oRs_xst = Oracle.Execute(sql_xst);
-        if (oRs_xst.eof)
+        if (oRs_xst.eof  || (!oRs_xst.eof && startkey))
         {
+            // Bij een vervolgmelding staat nu de werkvergunning van de originele melding.
+            // Deze weggooien en een nieuwe werkvergunningsdocument aanmaken.
+            if (!oRs_xst.eof && startkey)
+            {
+                km_key = oRs_xst("mld_kenmerkmelding_key").Value;
+                sql_del = "DELETE FROM mld_kenmerkmelding"
+                        + " WHERE mld_kenmerkmelding_key = " + km_key;
+                Oracle.Execute(sql_del);
+            }
             // Haal het volgende bestandsnummer op.
             sql_seq = "SELECT fac_s_user01.nextval new_val FROM DUAL";
             oRs_seq = Oracle.Execute(sql_seq);