HCAS#36946: Afgeronde taak nog kunnen aanpassen/verwijderen.

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

APPL/INS/ins.inc

@@ -630,7 +630,9 @@ ins = {checkAutLevel:
                    // Als de inspectie vervallen is moet je alleen nog de lopende inspecties (ingepland of later) kunnen gereedmelden en/of afronden,
                    // zodat deze inspectie afgerond kan worden. Nieuwe inspectie kunnen nooit meer beginnen.
                    // Eerste inspectie of verwerkte inspectie kan niet gewijzigd worden.
-                   iresult.canInspEdit = iresult.canInspect && !vervallen && (ins_deelsrtcontrole_status != -1 && ins_deelsrtcontrole_status != 6) && actief;
+                   iresult.canInspEdit = ((iresult.canInspect && ins_deelsrtcontrole_status != -1 && ins_deelsrtcontrole_status != 6) ||
+                                          (iresult.canChangeAfg && ins_deelsrtcontrole_status == 6)) &&
+                                         !vervallen && actief;
                    iresult.canInspShow = iresult.readuse && !vervallen && (ins_deelsrtcontrole_status >= 0);
                    // Bij eerste inspectie of verwerkte inspectie kan er gepland worden.
                    iresult.canInspPlan = iresult.canInspect && !vervallen && (ins_deelsrtcontrole_status == -1 || ins_deelsrtcontrole_status == 6) && actief;
@@ -739,6 +741,9 @@ ins = {checkAutLevel:
                  iresult.canCopy = iresult.canWrite("WEB_INSMAN"); // Kopi<70>ren.
                }
                iresult.canInspect = iresult.canWrite("WEB_INSUSE"); // Kopi<70>ren.
+               // Let op: WEB_INSMSU is niet discipline gebonden en zit dus niet in iresult
+               var autparamsINSMSU = user.checkAutorisation("WEB_INSMSU", true);
+               iresult.canChangeAfg = autparamsINSMSU && autparamsINSMSU.PRSwritelevel < 9 && autparamsINSMSU.ALGwritelevel < 9; // Wijzigen Afgeronde gegevens.
                iresult.readuse = iresult.canRead("WEB_INSUSE"); // Inzien.
                iresult.canChangeXcp = iresult.canWrite("WEB_INSMAN"); // Interval kenmerken/parameters wijzigen (waarden in ins_srtcontroledl_xcp tabel).
                return iresult;

APPL/INS/ins_edit_inspect.asp

@@ -427,6 +427,10 @@ user.anything_todo_or_abort(tobehandled > 0); // We klagen niet over enkele wel
       <input type="hidden" name="savemode" id="savemode" value="<%=insPlan? "P" : (insClose? "C" : "E")%>">
       <input type="hidden" name="ins_keys" id="ins_keys" value="<%=ingesloten.join(",")%>">
       <input type="hidden" name="srtcont_key_arr" id="srtcont_key_arr" value="<%=ingeslotensc.join(",")%>">
+<%    if (insEdit)
+      { %>
+        <input type="hidden" name="deelsrtcont_key" id="deelsrtcont_key" value="<%=ingeslotendsc[0]%>">
+<%    } %>
       <input type="hidden" name="finish" id="finish" value="0">
 <%    var blocktext = (insPlan? L("lcl_ins_schedule") : (insClose? L("lcl_ins_close") + "/" + L("lcl_ins_finish") : (insEdit? L("lcl_change") : L("lcl_show"))));
       BLOCK_START("insMultiEdit", blocktext);

APPL/INS/ins_inspect_save.asp

@@ -42,6 +42,7 @@ user.auth_required_or_abort(!multi || (ins_key_arr.length == srtcont_key_arr.len
 var deelsrtcontrole_datum;
 var plandatum;
 var nextdate;
+var deelsrtcont_key = -1;
 
 if (savemode == "P") // Inplannen (Plan).
   plandatum = getFParamDate("plandatum");
@@ -53,6 +54,8 @@ else if (savemode == "E")
 
   if (multi)
     abort_with_warning(L("lcl_ins_allow_multi_edit"));
+
+  deelsrtcont_key = getFParamInt("deelsrtcont_key"); // Specifieke inspectie die gewijzigd is.
 }
 
 var warning = "";
@@ -80,7 +83,11 @@ for (var i = 0; i < ins_key_arr.length; i++)
           + "           AND idsc.ins_deel_key(+) = " + ins_key_arr[i]
           + "           AND COALESCE (xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode) > 0"
           + "           AND di.ins_srtcontrole_key = " + srtcont_key_arr[i]
-          + "           AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD'))" + ")"
+          + "           AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD'))"
+          + (deelsrtcont_key > 0
+            ? "           AND idsc.ins_deelsrtcontrole_key = " + deelsrtcont_key
+            : "")
+           + "      )"
           + " ORDER BY ins_deelsrtcontrole_key DESC";
   var oRs = Oracle.Execute(sql);
   // Waarden moeten aanwezig zijn. Mocht dat niet zo zijn dan is er iets fout.