Meer oRs.Close voorkomt out-of-cursors

svn path=/Website/trunk/; revision=35023
This commit is contained in:
Jos Groot Lipman
2017-08-21 10:30:58 +00:00
parent 29ce8e3c5e
commit 5d91ce83f7

View File

@@ -82,11 +82,12 @@ for (var i = 0; i < prs_key_arr.length; i++)
// Heeft de persoon nog verplichtingen
var sql = "SELECT 'x' FROM prs_v_verplichting_keys WHERE prs_perslid_key = " + prs_key_arr[i];
oRs = Oracle.Execute(sql);
var oRs = Oracle.Execute(sql);
if (!oRs.eof)
{
hasverplichtingen = true;
}
oRs.Close();
}
if (level == "K" && kDeleteFACMAN)
{ // Ik heb alleen WEB_FACMAN schrijfrechten
@@ -100,6 +101,7 @@ for (var i = 0; i < prs_key_arr.length; i++)
var oRs = Oracle.Execute(sql);
if (oRs.eof)
canDeleteK = false; // want geen eigen mandaat
oRs.Close();
}
if (level == "B")
{
@@ -109,6 +111,7 @@ for (var i = 0; i < prs_key_arr.length; i++)
var oRs = Oracle.Execute(sql);
if (oRs.eof || ((oRs("intern").value == 1) && !bDeletePRSMAN) || ((oRs("intern").value == 0) && !bDeleteRELMAN))
canDeleteB = false;
oRs.Close();
}
if ((level != "P" || !hasverplichtingen) && (level != "K" || canDeleteK) && (level != "B" || canDeleteB))