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

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

Browse Source 
svn path=/Website/branches/v2017.1/; revision=34381
This commit is contained in:
Jos Groot Lipman
2017-06-21 07:50:19 +00:00
parent 772c3cb4c4
commit 1f1d1ea2d6
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
APPL/PRS/kpn_edit_mandate_save.asp
View File

@@ -101,6 +101,17 @@ if (prsAdd)
kpnman_keys = []; kpnman_keys = [];
for(var a = 0; a < kpn_prskeys.length; a++) 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++) for (var b = 0; b < kpn_kpnkeys.length; b++)
{ {
upsertPrsKpn(kpn_prskeys[a], kpn_kpnkeys[b]); upsertPrsKpn(kpn_prskeys[a], kpn_kpnkeys[b]);