UWVA#40974 multi-edit mandatering instelling S("prs_mandaterequiresprofiel") respecteren

svn path=/Website/branches/v2017.1/; revision=34381

APPL/PRS/kpn_edit_mandate_save.asp

@@ -101,6 +101,17 @@ if (prsAdd)
       kpnman_keys = [];
       for(var a = 0; a < kpn_prskeys.length; a++)
       {
+        if (S("prs_mandaterequiresprofiel") == 1)
+        {
+            var sql = "SELECT fac_profiel_key"
+                    + "  FROM prs_perslid"
+                    + " WHERE prs_perslid_key = " + kpn_prskeys[a];
+            var oRs = Oracle.Execute(sql)
+            var hasProfiel = oRs("fac_profiel_key").Value != null;
+            oRs.Close();
+            if (!hasProfiel)
+                continue;
+        }
         for (var b = 0; b <  kpn_kpnkeys.length; b++)
         {
           upsertPrsKpn(kpn_prskeys[a], kpn_kpnkeys[b]);