HSLE#37203 Innemen object (uitleenregistratie), kenmerken resetten naar default waarden.

svn path=/Website/trunk/; revision=30371

APPL/API2/model_ins_kenmerk.inc

@@ -143,6 +143,14 @@ function model_ins_kenmerk(fnparams)
             "label": L("ins_kenmerk_meetwaarde"),
             "typ": "check"
         },
+        "clear": {
+            "dbs": "ins_kenmerk_wissen",
+            "label": L("ins_kenmerk_wissen"),
+            "typ": "key",
+            "LOV": L("ins_kenmerk_wissenLOV"),
+            "defaultvalue": "0",
+            "emptyoption": null
+        },
         "location": {
             "dbs": "ins_kenmerk_locatiekolom",
             "label": L("ins_kenmerk_locatiekolom"),

APPL/INS/ins_deel_free_save.asp

@@ -154,8 +154,35 @@ var flextrackarray = ins.updateKenmerkdeel(obj_key);
 if (flextrackarray.length)
   update_string += (update_string != ""? "\n" : "") + flextrackarray.join("\n");
 if (!adapt || flextrackarray.length != 0)
-  shared.trackaction((!isLendOut && (lent_out_person > 0 || bld_key > 0)? "INSOUT" : "INSINN"), obj_key, update_string);
+{   // Eventueel wissen van uitleenkenmerken bij inname of uitgifte.
+    var clr_kenmerk_arr = [];
+    var sql = "SELECT k.ins_kenmerk_key"
+            + "  FROM ins_deel d"
+            + "     , ins_kenmerk k"
+            + "     , ins_v_allsrtinstallatie i"
+            + " WHERE d.ins_discipline_key = i.ins_discipline_key"
+            + "   AND k.ins_srtinstallatie_key = i.ins_srtinstallatie_key"
+            + "   AND k.ins_kenmerk_niveau = i.niveau"
+            + "   AND k.ins_kenmerk_niveau <> 'C'"
+            + "   AND k.ins_kenmerk_verwijder IS NULL"
+            + "   AND k.ins_kenmerk_volgnummer > 900"
+            + "   AND k.ins_kenmerk_wissen = " + (isLendOut ? 1 : 2)  // Als uitgeleend dan wissen bij inname.
+            + "   AND d.ins_deel_key = " + obj_key;
+    var oRs = Oracle.Execute(sql);
+    while (!oRs.eof)
+    {
+        clr_kenmerk_arr.push(oRs("ins_kenmerk_key").Value);
+        oRs.MoveNext();
+    }
+    oRs.Close();
 
+    var clr_kenmerk_sql = "DELETE FROM ins_kenmerkdeel"
+                        + " WHERE ins_deel_key = " + obj_key
+                        + "   AND ins_kenmerk_key IN (" + clr_kenmerk_arr.join(",") + ")";
+    Oracle.Execute(clr_kenmerk_sql);
+
+    shared.trackaction((!isLendOut && (lent_out_person > 0 || bld_key > 0)? "INSOUT" : "INSINN"), obj_key, update_string);
+}
 result.refresh = true;
 Response.Write(JSON.stringify(result));
 %>