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

FSN#38981 Vele missende oRs.Close() en een 'var' voor de oRs

Browse Source 
svn path=/Website/branches/v2016.3/; revision=32300
This commit is contained in:
Jos Groot Lipman
2017-01-10 15:34:54 +00:00
parent d650c8110d
commit 2f248df87d
1 changed files with 19 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
APPL/MLD/mld.inc
View File

@@ -70,6 +70,7 @@ mld = {setmeldingstatus:
+ " WHERE mld_melding_key = " + mld_key;
var oRs = Oracle.Execute(sql);
var einddatum = new Date(oRs("einddatum").Value);
oRs.Close();
sql = "UPDATE mld_melding"
+ " SET mld_melding_einddatum_std = " + einddatum.toSQL(true)
@@ -196,6 +197,7 @@ mld = {setmeldingstatus:
oRs.MoveNext();
}
oRs.Close();
var added_objects = "";
if (obj_arr.length > 0)
@@ -228,6 +230,7 @@ mld = {setmeldingstatus:
oRs.MoveNext();
}
oRs.Close();
}
// Objecten verwijderen.
@@ -252,7 +255,6 @@ mld = {setmeldingstatus:
+ " (SELECT ins_deel_key FROM mld_v_aanwezigmelding_object WHERE mld_melding_key = " + mld_key + ")";
Oracle.Execute(sql);
}
oRs.Close();
// Track tekst teruggeven.
return (deleted_objects != ""? deleted_objects + "\n" : "") + added_objects;
},
@@ -318,6 +320,7 @@ mld = {setmeldingstatus:
var sql = "SELECT fac.gettrackinguserkey('ORDNEW', " + mld_opdr.opdr_key + ") opdrachtaanmaker FROM DUAL";
var oRs = Oracle.Execute(sql);
pkey = oRs("opdrachtaanmaker").Value || mld_info.behandel_key || user_key;
oRs.Close();
}
if ((S("mld_use_order_approval") &&
@@ -534,6 +537,7 @@ mld = {setmeldingstatus:
+ " WHERE mld_melding_key = " + mld_key;
var oRs = Oracle.Execute(sql);
var mld_einddatum = new Date(oRs("mld_melding_einddatum").Value);
oRs.Close();
if (uitvoertijd)
{
@@ -927,6 +931,7 @@ mld = {setmeldingstatus:
var oRs = Oracle.Execute(ssql);
var xmlnode = oRs("fac_srtnotificatie_xmlnode").Value;
var fac_srtnotificatie_key = oRs("fac_srtnotificatie_key").Value;
oRs.Close();
if (xmlnode == "melding")
{
sql += " AND EXISTS"
@@ -1677,7 +1682,7 @@ mld = {setmeldingstatus:
+ " AND md.ins_discipline_key = s.mld_ins_discipline_key"
+ " AND mdp.mld_ins_discipline_key = s.mld_ins_discipline_key"
+ " AND m.res_rsv_ruimte_key = rr.res_rsv_ruimte_key(+)";
oRs = Oracle.Execute(sql);
var oRs = Oracle.Execute(sql);
if (oRs.Eof)
{
shared.record_not_found(L("lcl_complain") + " " +mld_key);
@@ -1815,7 +1820,7 @@ mld = {setmeldingstatus:
+ " AND s.mld_ins_discipline_key = md.ins_discipline_key"
+ " AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key"
+ " AND m.mld_melding_parentkey = " + mld_key;
oRsC = Oracle.Execute(sql);
var oRsC = Oracle.Execute(sql);
result.childs = new Array();
while (!oRsC.eof)
{
@@ -1981,7 +1986,7 @@ mld = {setmeldingstatus:
+ " AND o.mld_uitvoerende_keys = mu.mld_uitvoerende_key"
+ " AND p2.prs_perslid_key(+) = prs.getkpverantwoordelijke (o.prs_kostenplaats_key, " + S("prs_approvemethod") + ", -1)"
+ " AND o.mld_opdr_key = " + opdr_key;
oRs = Oracle.Execute(sql);
var oRs = Oracle.Execute(sql);
// Numeric values are used (only) here to calculate corr_cost.
@@ -2196,6 +2201,7 @@ mld = {setmeldingstatus:
result.disc_params_pgb = oRs("mld_disc_params_pgb").Value || 0;
result.dis_key = oRs("ins_discipline_key").Value;
result.act_key = (act_key > 0 ? act_key : -1); // fac_activiteit_key vanuit BES?
oRs.Close();
}
// ---
// mld_opdr is nu al deels gevuld. Rest zowel voor nieuw als voor copy
@@ -2246,6 +2252,7 @@ mld = {setmeldingstatus:
+ " FROM DUAL";
oRs = Oracle.Execute(sql);
result.mld_opdr_bedrijfopdr_volgnr = oRs("volg").Value;
oRs.Close();
//
if (result.typeopdr_slamode == 2) // Melding-SLA
@@ -2268,6 +2275,7 @@ mld = {setmeldingstatus:
+ " AND ms.mld_ins_discipline_key = md.ins_discipline_key";
var oRs = Oracle.Execute(sql);
lcl.set_dialect(oRs("ins_srtdiscipline_key").Value, "MLD_SRTDISCIPLINE_KEY");
oRs.Close();
mld.dialectIsSet = true;
},
@@ -2536,6 +2544,7 @@ mld = {setmeldingstatus:
lins_discipline_string += (lins_discipline_string == ""? "" : ", ") + oRs("ins_discipline_key").Value;
oRs.MoveNext();
}
oRs.Close();
}
else // ptype == "D"
var lins_discipline_string = "" + pkey;
@@ -3176,6 +3185,7 @@ mld = {setmeldingstatus:
var lastopdrachtvolgnr = ooRs("lastopdrachtvolgnr").Value;
uitvOpdrNaOfferte = lastopdrachtvolgnr > mld_opdr_bedrijfopdr_volgnr;
}
ooRs.Close();
}
// -- CONTROLE LEESRECHTEN --
@@ -3603,6 +3613,7 @@ mld = {setmeldingstatus:
{
locatiekey = oRs(0).Value;
}
oRs.Close();
}
}
// Dit is de datum volgens de SLA:
@@ -3679,6 +3690,7 @@ mld = {setmeldingstatus:
} else {
lsender = null;
}
oRs.Close();
// notify approver by message & mail as configured in fac_srtnotificatie with MLDAP1
// putnotificationsrtprio doet geen vertaling van ##OPDR_KEY## (notify_tracking zou dat wel doen)
@@ -3830,7 +3842,7 @@ mld = {setmeldingstatus:
+ " AND d.ins_alg_ruimte_type = o.alg_onroerendgoed_type(+)"
+ " AND d.ins_alg_locatie_key = o.alg_locatie_key(+)"
+ " ORDER BY 2";
oRs = Oracle.Execute(sql);
var oRs = Oracle.Execute(sql);
if (!oRs.Eof)
{
BLOCK_START("mldIns", L("lcl_gerelateerdeobjecten"));
@@ -3984,6 +3996,7 @@ mld = {setmeldingstatus:
+ " WHERE mld_melding_key = " + parent_key;
var oRs = Oracle.Execute(sql);
var mldstatus = oRs("mld_melding_status").Value;
oRs.Close();
// pikt de package niet altijd (2 naar 7) mld.setmeldingstatus(child_key, mldstatus);
sql = "UPDATE mld_melding"
+ " SET mld_melding_status = " + (mldstatus==6?5:mldstatus) // niet rechtstreeks verwerkt
@@ -4283,7 +4296,7 @@ mld = {setmeldingstatus:
if (mld_melding.show_ins && mld_melding.srtinst_verplicht)
{ // Verplicht een objecten te selecteren.
var sql = "SELECT COUNT(*) aantal FROM mld_melding_object WHERE mld_melding_key = " + mld_melding.mld_key;
oRs = Oracle.Execute(sql);
var oRs = Oracle.Execute(sql);
var noObjSelected = oRs("aantal").Value == 0;
oRs.close();
emptyRequiredFields = emptyRequiredFields || noObjSelected;