RWSN#24937 5.2.2 (22832) vakgroep selecteerbaar als alle meldingen een vervaldatum hebben

svn path=/Website/branches/v5.2.2/; revision=16140

APPL/ALG/alg_edit_wp.asp

@@ -71,6 +71,44 @@ if (wp_key > 0)
         alert("TODO: Next nog niet ondersteund")
     }
 
+function enableArea()
+{
+  if( event.srcElement.id != 'fix0' ) {
+    document.getElementById("wp_opp").disabled = false;
+  } else {
+    document.getElementById("wp_opp").disabled = true;
+    document.getElementById("wp_opp").value = "";
+    document.getElementById("areah").value = 'null';
+  }
+}
+
+function isGoodNumber(str, checkInteger)
+{
+  var anum=/(^\d+$)|(^\d+\.\d*$)|(^\d*\.\d+$)/
+  if ( checkInteger ) {
+    anum=/(^\d+$)/
+  }
+  return anum.test(str);
+}
+
+function checkArea()
+{
+  if( document.getElementById("area").value != ""
+   && !isGoodNumber(document.getElementById("area").value, false )
+   && parseInt(document.getElementById("wp_opp").value,10) > 0
+   && parseInt(document.getElementById("wp_opp").value,10) < 999999.99) {
+    alert(L("lcl_estate_wp_bad_area"));
+    return false;
+
+  }
+  if( document.getElementById("wp_opp").value != "" ) {
+    document.getElementById("areah").value = document.getElementById("area").value;
+  } else {
+    document.getElementById("areah").value = 'null';
+  }
+  return true;
+}
+
 function process_host_info(data)
 {
     $("#wp_volgnr").val(data.volgnr);

APPL/ALG/alg_gebouw_list.inc

@@ -111,9 +111,7 @@ function gebouw_list(pautfunction, params)
        + "       g.alg_gebouw_opmerking,  "
        + "       g.alg_gebouw_bruto_vloeropp,  "
        + "       g.alg_gebouw_omtrek, "
-       + "       g.alg_gebouw_inhoud, "
-       + "       g.alg_gebouw_x, "
-       + "       g.alg_gebouw_y "
+       + "       g.alg_gebouw_inhoud   "
        + "  FROM alg_v_aanweziggebouw g, "
        + "       alg_locatie l, "
        + "       alg_srtgebouw s  "
@@ -193,8 +191,6 @@ function gebouw_list(pautfunction, params)
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_opmerk"), content: "alg_gebouw_opmerking"}));
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_omtrek"), content: "alg_gebouw_omtrek"}));
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_inhoud"), content: "alg_gebouw_inhoud"}));
-    rst.addColumn(new Column({caption: L("lcl_geoxcoord"), content: "alg_gebouw_x"}));
-    rst.addColumn(new Column({caption: L("lcl_geoycoord"), content: "alg_gebouw_y"}));
     }
 
     rst.addAction({ action: "gebouwEdit", caption: L("lcl_edit"), isDefault:  true});

APPL/ALG/alg_locatie_list.inc

@@ -117,9 +117,7 @@ function locatie_list(pautfunction, params)
              + "         l.alg_locatie_land, "
              + "         l.alg_locatie_post_land, "
              + "         l.alg_locatie_verantw, "
-             + "         l.alg_locatie_verantw_tel, "
-             + "         l.alg_locatie_x, "
-             + "         l.alg_locatie_y "
+             + "         l.alg_locatie_verantw_tel "
              + "    FROM alg_v_aanweziglocatie l, "
              + "         alg_district d "
              + "   WHERE d.alg_district_key(+) = l.alg_district_key "
@@ -187,8 +185,7 @@ function locatie_list(pautfunction, params)
       rst.addColumn(new Column({caption: L("lcl_prs_address_post_plaats"), content: "alg_locatie_post_plaats"}));
       rst.addColumn(new Column({caption: L("lcl_prs_address_post_land"), content: "alg_locatie_post_land"}));
       rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_verantw"), content: "alg_locatie_verantw"}));
-      rst.addColumn(new Column({caption: L("lcl_geoxcoord"), content: "alg_locatie_x"}));
-      rst.addColumn(new Column({caption: L("lcl_geoycoord"), content: "alg_locatie_y"}));
+      rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_verantw_tel"), content: "alg_locatie_verantw_tel"}));
     }
 
 

APPL/ALG/alg_ruimteafdeling.js

@@ -127,17 +127,28 @@ function alg_add(oppervlak)
   }
 }
 
+function isGoodNumber(str, checkInteger)
+{
+  var anum = /^(-?\d{1,6}[.,]?|-?\d{0,6}[.,]\d{1,2})$/
+  if (checkInteger)
+  {
+    anum = /^(-?\d{1,6}[.,]?)$/
+  }
+  return (str.match(anum)&&true);
+}
+
+
 function changeOppervlak(prowIndex)
 {
 	var bereken = true;
-	if (!isGoodNumber($("#bezopp"+prowIndex).val(), false,false,8,2))
+	if (!isGoodNumber($("#bezopp"+prowIndex).val(), false))
 	{
 	  bereken = false;
     alert(L("lcl_alg_bezetting_ongeldig"));
     $("#bezopp"+prowIndex).select();
     $("#bezopp"+prowIndex).focus();
 	}
-	if (bereken && (!isGoodNumber($("#totaalopp"+prowIndex).val(), false,false,8,2)))
+	if (bereken && (!isGoodNumber($("#totaalopp"+prowIndex).val(), false)))
 	  $("#totaalopp"+prowIndex).val($("#bezopp"+prowIndex).val());
 
 	if (bereken)
@@ -155,7 +166,7 @@ function changeOppervlak(prowIndex)
 
 function changeBezetting(prowIndex)
 {
-  if (!isGoodNumber($("#bez"+prowIndex).val(), false,false,8,2) || parseFloat($("#bez"+prowIndex).val().replace(',', '.')) > 100)
+  if (!isGoodNumber($("#bez"+prowIndex).val(), false) || parseFloat($("#bez"+prowIndex).val().replace(',', '.')) > 100)
   {
     alert(L("lcl_alg_bezetting_ongeldig"));
     $("#bez"+prowIndex).select();
@@ -166,7 +177,7 @@ function changeBezetting(prowIndex)
   	if (!multiRuimte)
   	{
       var oppPerc  = parseFloat($("#bez"      +prowIndex).val().replace(',', '.'));
-      if (isGoodNumber($("#totaalopp"+prowIndex).val(), false,false,8,2))
+      if (isGoodNumber($("#totaalopp"+prowIndex).val(), false))
       {
         var oppBruto = parseFloat($("#totaalopp"+prowIndex).val().replace(',', '.'));
         var oppBezet = num2currEditable( ((oppPerc * oppBruto) / 100)	);

APPL/BES/bes.inc

@@ -216,26 +216,12 @@
               }
               oRs.Close();
 
-              // Bestelling opdrachten. Dat kunnen er in de praktijd meerdere zijn.
-              if (l_orders_key.length > 0)
-              {
-%>              <tr>
-                  <td class="label"><label><%=L("lcl_bes_orders") + ":"%></label></td>
-                  <td> <%
-                    for (var i = 0; i < l_orders_key.length; i++)
-                    {
-                      var params = { infoPointer: { Url: "appl/bes/bes_opdr.asp?urole=" + urole + "&ordernr=" + l_orders_key[i] },
-                                                    //xTitle: L("lcl_bes_bestelling") + " " + bes_bestelling.rfoRetourVan,
-                                     suppressEmpty: true };
-                      ROFIELD ("fld", null, l_orders[i],  params);
-                      if (i < (l_orders_key.length - 1))
-                      {
-%>                      <br><%
-                      }
-                    }
-%>                </td> <%
-%>              </tr> <%
-              }
+              // MGE: bes_opdr.asp kan maar 1 bestelopdr_key aan ondanks de l_orders_key.join(","). l_orders_key is in de praktijk nu nog altijd 1 key
+              var params = { infoPointer: { Url: "appl/bes/bes_opdr.asp?urole=" + urole + "&ordernr=" + l_orders_key.join(","),
+                             //xTitle: L("lcl_bes_bestelling") + " " + bes_bestelling.rfoRetourVan,
+                             suppressEmpty: true }}
+              if (l_orders_key.length >0)
+                ROFIELDTR ("fld", L("lcl_bes_orders"), l_orders.join(", "),  params);
 
               // Origineel weergeven indien aanwezig
               if (bes_bestelling.parent_key)
@@ -639,8 +625,7 @@
               bresult.canFactuur  = false;  // Facturen bekijken
               // TODO: Hoe is retour functie-autorisatie afhankelijk? canWrite("WEB_BESUSE") || canWrite("WEB_BESFOF")?
               var bes_disc_info = bes.disc_info(bes_bestelling.dis_key); // alle discipline informatie
-              var _canRetour = (bes_disc_info.disc_params_retour == 1 && bes_bestelling.rfoRetourVan == null) &&
-                                (bresult.canWrite("WEB_BESUSE") || bresult.canWrite("WEB_BESFOF"));
+              var _canRetour = (bes_disc_info.disc_params_retour == 1 && bes_bestelling.rfoRetourVan == null);
               bresult.canRetourURL  = false;  // (Deels) retour via site leverancier
               bresult.canRetourBES  = false;  // (Deels) retour via negatieve levering
 

APPL/BES/bes_edit_bestelling.asp

@@ -470,6 +470,15 @@ else // nieuwe bestelling. Defaults bepalen
             if (p_key > 0)
             {
               $.getJSON("../prs/get_prs_info_ajax.asp?req_info=prs_perslid&prs_aflever=1&prs_profiel=<%=bes_bestelling.dis_key%>&prs_perslid_key=" + p_key + "&setmandaat=" + setmandaat, process_besteller_info);
+              // Droom: niet reloaden igv geen persoonsafhankelijke kenmerken; dat weet ik hier echter niet..
+              // TEST: wat als niet bes_voor?
+              var s = "load_kenmerk.asp?urole=<%=urole%>"
+                    + "&bes_key=<%=bes_bestelling.bes_key%>"
+                    + "&disc_key="+ dis_key
+                    + "&kenmerktype=B"
+                    + (bes_key > 0 && !this_bes.canMainChange? "&reado=1" : "")   // testen
+                    + "&prs_key=" + p_key;
+              $("#besFlexList").load(s, function () { FcltMgr.resized () });
             }
           }
         </script>
@@ -644,6 +653,7 @@ else // nieuwe bestelling. Defaults bepalen
                                    disc_key: bes_bestelling.dis_key,
                                    kenmerktype: "B",
                                    reado: (bes_bestelling.bes_key > 0) && !this_bes.canMainChange,
+                                   prs_key : bes_bestelling.perslid_key_voor,
                                    flexcolumns: S("bes_flexcolumns")
                                  });
           %></td></tr><%

APPL/BES/bes_edit_item_kenmerk.asp

@@ -72,25 +72,33 @@ function doSubmit()
   for (var i=1; i<=window.document.getElementById("k_all").value; i++) {
     if (window.document.getElementById("k" + i + "val")) {
 
-      if (window.document.getElementById("k" + i + "val").value != "")
+      var kval = window.document.getElementById("k" + i + "val")
+      if (kval.value != "")
       {
         var kkey = window.document.getElementById('k' + i + 'key').value;
         objReturn[0][objReturn[0].length] = kkey;
-        objReturn[1][objReturn[1].length] = window.document.getElementById('k' + i + 'val').value;
+        if (kval.type == 'checkbox') {
+          objReturn[1][objReturn[1].length] = (kval.checked?1:0);
+        }
+        else
+          objReturn[1][objReturn[1].length] = kval.value;
         var lbl = $("label[for='k" + i + "val']").text();
         // skip : (haal dubbele punt van de string af)
         lbl = lbl.substring(0, lbl.length - 1)
         objReturn[2][objReturn[2].length] = lbl;
 
         var tp = window.document.getElementById('k' + i + 't').value;
-        if (tp && tp == 'R') {
+        if (kval.type == 'checkbox') {
+          objReturn[3][objReturn[3].length] = (kval.checked?1:0);
+        }
+        else if (tp && tp == 'R') {
           objReturn[3][objReturn[3].length] = $('#k' + i + 'val option:selected').text();
         }
         else if (tp && tp == 'S') {
           objReturn[3][objReturn[3].length] = $('#Suggest' + kkey + '_show').val();
         }
         else {
-          objReturn[3][objReturn[3].length] = window.document.getElementById('k' + i + 'val').value;
+          objReturn[3][objReturn[3].length] = kval.value;
         }
       }
     }
@@ -202,7 +210,8 @@ function changeName(prs_key) {
                   -1,
                   { flexcolumns: 1, // In edit mode kenmerken onder elkaar en niet in 2 kolommen.
                     kenmerk_search: false,
-                    prs_key: prs_key
+                    prs_key: prs_key,
+                    hideVervallen: true // Wijzigen kennen we toch (nog) niet
                     }
                  );
 %>

APPL/BES/bes_list.inc

@@ -580,7 +580,7 @@ function bes_list (pautfunction, params)
                + " AND d.prs_afdeling_key = boom.prs_afdeling_key" + (groupbes == 2? "1" : "2")
                + " AND b.mld_adres_key_lev = adr.mld_adres_key"
                + " AND adr.alg_locatie_key = l.alg_locatie_key"
-               + " AND l.alg_district_key = di.alg_district_key"
+               + " AND l.alg_district_key = di.alg_district_key";
                + where2;
 
           sql += sql_filter;
@@ -1387,13 +1387,9 @@ function bes_list (pautfunction, params)
             // Only orders for persons in my organisation as determined by 3D authorization are visible
             // See NOTE B
             + (((fronto || backo) && (authparams.PRSreadlevel > 0))
-              ? " AND p.prs_afdeling_key IN "
-                + "    (SELECT prs_afdeling_key FROM prs_v_afdeling_familie a"
-                + "      WHERE a.prs_afdeling_elder_key IN"
-                + "        (SELECT aa.prs_afdeling_elder_key"
-                + "           FROM prs_v_afdeling_familie aa"
-                + "          WHERE aa.prs_afdeling_key = " + user.prs_afdeling_key()
-                + "            AND aa.niveau = " + authparams.PRSwritelevel + "))"
+              ? " AND p.prs_afdeling_key IN"
+                + " (SELECT prs_afdeling_key FROM fac_v_my_prs_afdelingen_WRITE"
+                + "  WHERE prs_perslid_key = " + user_key + " AND fac_functie_code = " + safe.quoted_sql(pautfunction) + ")"
               : "")
             + " AND p.prs_afdeling_key = boom.prs_afdeling_key"
             + " AND b.prs_kostenplaats_key = k.prs_kostenplaats_key(+)"

APPL/BES/bes_retour.asp

@@ -27,8 +27,6 @@ var bes_bestelling = bes.bestelling_info(bes_key); // Globale variabele met alle
 var bes_disc_info = bes.disc_info(bes_bestelling.dis_key); // alle discipline informatie
 var count = 0;
 
-var authparams = user.checkAutorisation(["WEB_BESUSE", "WEB_BESFOF"]); // Autorisatie is afhankelijk van beide bes functies
-
 var this_bes = bes.func_enabled_bestelling(bes_bestelling);
 user.auth_required_or_abort(this_bes.canRetourBES);
 %>
@@ -62,17 +60,25 @@ user.auth_required_or_abort(this_bes.canRetourBES);
         }
       }
 
-      // check toetsaanslag
-      function checkInput(evt)
+      function isGoodNumber(str, checkInteger)
       {
-        evt = evt || window.event;
-        var obj = evt.srcElement || evt.target;
-        var val = obj.value;
+        var anum=/(^\d+$)|(^\d+\.\d*$)|(^\d*\.\d+$)/
+        if ( checkInteger ) {
+          anum=/(^\d+$)/
+        }
+        return anum.test(str);
+      }
 
-        if( val == "" || val == 0 || (!isNaN(val) && isGoodNumber(val,true,true,-1,-1) &&
+      // check toetsaanslag
+      function checkInput()
+      {
+        obj = event.srcElement;
+        val = obj.value;
+
+        if( val == "" || val == 0 || (!isNaN(val) && isGoodNumber(val, true) &&
             parseInt(val,10) >= 0 )) {
-          var i = obj.id.substring(3);
-          var remaining = parseInt(document.getElementById('rem'+i).value,10);
+          i = obj.id.substring(3);
+          remaining = parseInt(document.getElementById('rem'+i).value,10);
           if( val == "" ) val = 0;
           if( val > remaining ){
               alert (L("lcl_bes_exceed_value_retour"));
@@ -86,22 +92,20 @@ user.auth_required_or_abort(this_bes.canRetourBES);
         return false;
       }
 
-      function guardMaxLength(evt)
+      function guardMaxLength()
       {
-        evt = evt || window.event;
-        var obj = evt.srcElement || evt.target;
-        if(obj.value.length>=obj.maxlength)
+        var ta=event.srcElement;
+        if(ta.value.length>=ta.maxlength)
         {
-          evt.returnValue = false; //cancel event
+          event.returnValue = false; //cancel event
         }
       }
 
-      function ensureMaxLength(evt)
+      function ensureMaxLength()
       {
-        evt = evt || window.event;
-        if(evt.propertyName=='value')
+        if(window.event.propertyName=='value')
         {
-          var ta = evt.srcElement || evt.target;
+          var ta=window.event.srcElement;
       		if(ta.value.length>ta.maxlength) {
             // indien enter dan stack overflow voorkomen
             // en '/n/' wordt er niet afgehaald. '/r/n' eraf halen.
@@ -117,7 +121,16 @@ user.auth_required_or_abort(this_bes.canRetourBES);
 
   <body class="modal" id="mod_besretour">
 <%
+    var urole = getQParamSafe('urole', 'fe');
+    var autfunction;
+    if (urole == 'fo')
+        autfunction = 'WEB_BESFOF';
+    else
+        autfunction = 'WEB_BESUSE';
+    var authparams = user.checkAutorisation(autfunction);
+
     var submitting = getQParamInt("submit", 0) == 1;
+
     if (submitting)
     {
       // Sla de ingevoerde gegevens op in een nieuwe bestellingsaanvraag
@@ -256,7 +269,7 @@ user.auth_required_or_abort(this_bes.canRetourBES);
     // Maak het retourformulier
 %>
 
-    <form action='bes_retour.asp?submit=1&bes_key=<%=bes_key%>' method='post' name='u2' onsubmit='return false;'>
+    <form action='bes_retour.asp?submit=1&bes_key=<%=bes_key%>&urole=<%=urole%>' method='post' name='u2' onsubmit='return false;'>
 
 <%    BLOCK_START("besretour" , L("lcl_bes_aanvragergegevens"));
 
@@ -319,24 +332,20 @@ user.auth_required_or_abort(this_bes.canRetourBES);
                    "fldtxt required",
                    L("lcl_bes_retour_remark"),
                    odelremark,
-                   {html: "rows='3' cols='30' onkeypress='guardMaxLength(event);' onpropertychange='ensureMaxLength(event);' maxlength='320'"}); %>
+                   {html: "rows='3' cols='30' onkeypress='guardMaxLength();' onpropertychange='ensureMaxLength();' maxlength='320'"}); %>
 
 <%
       sqlD = "SELECT m.mld_adres_key"
            + ", m.mld_adres_naam, m.mld_adres_upper"
            + " FROM mld_v_afleveradres m"
-           + (authparams.ALGreadlevel >= 0
-             ? " WHERE m.alg_locatie_key IN (SELECT alg_locatie_key FROM fac_v_my_locations "
-               + " WHERE prs_perslid_key = " + user_key
-               + " AND niveau = " + authparams.ALGreadlevel + ")"
-             : "")
-           + (bes_bestelling.bes_key > 0 // Huidige waarde ook toevoegen aan lijst
+           + (authparams.ALGreadlevel>=0?" WHERE m.alg_locatie_key IN (SELECT alg_locatie_key FROM fac_v_my_locations "
+           + " WHERE prs_perslid_key="+user_key+" AND niveau="+authparams.ALGreadlevel+")":"")
+           + (bes_bestelling.bes_key>0 // Huidige waarde ook toevoegen aan lijst
              ? " UNION"
-               + " SELECT m.mld_adres_key"
-               + "      , m.mld_adres_naam"
-               + "      , m.mld_adres_upper"
-               + "   FROM mld_v_afleveradres m"
-               + "  WHERE m.mld_adres_key = " + bes_bestelling.mld_adres_key
+               + " SELECT   m.mld_adres_key"
+               + ", m.mld_adres_naam, m.mld_adres_upper"
+               + " FROM mld_v_afleveradres m"
+               + " WHERE m.mld_adres_key = " + bes_bestelling.mld_adres_key
              : "")
            + " ORDER BY mld_adres_upper",
       FCLTselector("deliveryAddr", sqlD,
@@ -375,7 +384,7 @@ user.auth_required_or_abort(this_bes.canRetourBES);
       function fncolRetour(oRs)
       {
         retour = "<input class='fldretour' maxlength='5' type='text'"
-               + " onBlur='checkInput(event);' id='cnt" + count + "' name='cnt" + count + "'"
+               + " onBlur='checkInput();' id='cnt" + count + "' name='cnt" + count + "'"
                + " value=''>"
                + " <input type='hidden' id='bokey" + count + "' name='bokey" + count + "' value='" + oRs("boi_key").value + "'>" // boi.bes_bestelopdr_item_key
                + " <input type='hidden' id='bi_key" + count + "' name='bi_key" + count + "' value='" + oRs("bes_bestelling_item_key").value + "'>"; // bes_bestelling_item_key

APPL/BES/opdr_delivery.asp

@@ -197,7 +197,7 @@ FCLTHeader.Requires({ plugins: ["jQuery"],
             </td>
             <td align='right' valign='top'><NOBR>
                 <input type="text" maxlength=5 style="width:50px;text-align:right"
-                       onBlur='checkInput(event);' id='cnt<%=count%>' name='cnt<%=count%>'
+                       onBlur='checkInput();' id='cnt<%=count%>' name='cnt<%=count%>'
                        value=''>
                 <input type='hidden' id='bokey<%=count%>' name='bokey<%=count%>' value='<%=oikey%>'>
                 <input type='hidden' id='bi_key<%=count%>' name='bi_key<%=count%>' value='<%=bi_key%>'>

APPL/BES/opdr_delivery.js

@@ -10,15 +10,23 @@ function BI(bikey, pkey, akey)
    this.akey = akey;
 }
 
-function checkInput(evt)
+function isGoodNumber(str, checkInteger)
 {
-  evt = evt || window.event;
-  var obj = evt.srcElement || evt.target;
-  var val = obj.value;
+  var anum=/(^-?\d+$)|(^-?\d+\.\d*$)|(^-?\d*\.\d+$)/
+  if ( checkInteger ) {
+    anum=/(^-?\d+$)/
+  }
+  return anum.test(str);
+}
 
-  var i = obj.id.substring(3);
-  var remaining = parseInt(document.getElementById('rem'+i).value,10);
-  if( val == "" || val == 0 || (!isNaN(val) && isGoodNumber(val,true,false,-1,-1) &&
+function checkInput()
+{
+  obj = event.srcElement;
+  val = obj.value;
+
+  i = obj.id.substring(3);
+  remaining = parseInt(document.getElementById('rem'+i).value,10);
+  if( val == "" || val == 0 || (!isNaN(val) && isGoodNumber(val, true) &&
       ((remaining > 0 && parseInt(val,10) >= 0) || (remaining < 0 && parseInt(val,10) <= 0)))) {
     if( val == "" ) val = 0;
     if( (remaining > 0 && val > remaining) || (remaining < 0 && val < remaining) ){

APPL/BES/opdr_list.inc

@@ -136,7 +136,6 @@ function opdr_list (pautfunction, params)
           + ",      be.prs_bedrijf_order_adres"
           + ",      bid.ins_discipline_key"
           + ",      bes_bestelling_parentkey"
-          + ",      bes_bestelopdr_delivery_opmerk"
           + "  FROM bes_bestelopdr b"
           + ",      prs_bedrijf be"
           + ",      mld_adres ma"
@@ -292,10 +291,6 @@ function opdr_list (pautfunction, params)
       rst.addColumn(new Column({caption: L("lcl_bes_del_place"), content: "afleveradres"}));
       rst.addColumn(new Column({caption: L("lcl_bes_deli_date"), content: "bes_bestelling_leverdatum", datatype: "date"}));
       rst.addColumn(new Column({caption: L("lcl_bes_Bes_status"), content: fncolStatusText}));
-      if (outputmode != 0)
-      {
-        rst.addColumn(new Column({caption: L("lcl_bes_comment"), content: "bes_bestelopdr_delivery_opmerk"}));
-      }
 
       // Acties
       rst.addAction({action: "opdrEdit",    caption: L("lcl_edit"),          isDefault: true});

APPL/BES/sel_items_tab.js

@@ -651,6 +651,16 @@ function StaffelKortingResult()
   return;
 }
 
+function isGoodNumber(str, checkInteger)
+{
+  var anum=/(^-?\d+$)|(^-?\d+\.\d*$)|(^-?\d*\.\d+$)/
+  if ( checkInteger ) {
+    anum=/(^-?\d+$)/
+  }
+  return anum.test(str);
+}
+
+
 function checkAmount(aantal_cell)
 {
    var tr = $(aantal_cell).closest("tr")[0];
@@ -659,7 +669,7 @@ function checkAmount(aantal_cell)
    var retour = tr.retour;
    if (aantal_cell.value == '') aantal_cell.value = amount = 1;
    if (aantal_cell.value == '' || isNaN(amount) ||
-      !isGoodNumber(aantal_cell.value, true,false,-1,-1) ||
+      !isGoodNumber(aantal_cell.value, true) ||
       amount > 99999)
    {
       alert(L("lcl_bes_invalidAmount"));

APPL/BEZ/bez.inc

@@ -177,16 +177,6 @@ bez =
           return lmessage;
         },
 
-    trackafspraakupdate:
-        // Let op: dit moet wellicht niet altijd (aangeroepen na save)
-        function (bez_key, ptxt)
-        {
-          if (ptxt)
-            shared.trackaction("BEZUPD", bez_key, ptxt);
-          else
-            shared.trackaction("BEZUPD", bez_key);
-        },
-
     func_enabled_parkeerplaats: // Wat mag ik op parkeerplaatsen?
         function _func_enabled_parkeerplaats()
         {

APPL/BEZ/bez_edit_afspraak_save.asp

@@ -23,22 +23,22 @@
 <!-- #include file="../Shared/json2.js" -->
 
 <%
-FCLTHeader.Requires({plugins: [], js:[] })
+    FCLTHeader.Requires({plugins: [], js:[] })
 
-var urole = getQParamSafe("urole");
-var afspr_key = getQParamInt("afspr_key");
-var fronto = urole=="fo"; // DEPRECATED
-var backo = urole=="bo"; // DEPRECATED
+    var urole = getQParamSafe("urole");
+    var afspr_key = getQParamInt("afspr_key");
+    var fronto = urole=="fo"; // DEPRECATED
+    var backo = urole=="bo"; // DEPRECATED
 
 if (afspr_key < 0)
 {
-  var autfunction = fronto?'WEB_BEZFOF':backo?'WEB_BEZBOF':'WEB_BEZUSE';
-  user.checkAutorisation(autfunction);
+    var autfunction = fronto?'WEB_BEZFOF':backo?'WEB_BEZBOF':'WEB_BEZUSE';
+    user.checkAutorisation(autfunction);
 }
 else
 {
-  var this_bez = bez.func_enabled_afspraak(afspr_key);
-  user.auth_required_or_abort(this_bez.canChange);
+    var this_bez = bez.func_enabled_afspraak(afspr_key);
+    user.auth_required_or_abort(this_bez.canChange);
 }
 
 // De begin/ eind zoals door de gebruiker ingevoerd
@@ -46,16 +46,16 @@ var date_from = getFParamDate("date_from");
 var date_to = getFParamDate("date_to");
 if (S("bez_multiday")!=1)
 {
-  date_to.setYear(date_from.getFullYear());
-  date_to.setMonth(date_from.getMonth());
-  date_to.setDate(date_from.getDate());
+    date_to.setYear(date_from.getFullYear());
+    date_to.setMonth(date_from.getMonth());
+    date_to.setDate(date_from.getDate());
 }
 
 var date_limit1 = new Date();
 var date_limit2 = new Date();
 var date_chk1 = new Date();
 var date_chk2 = new Date();
-
+//
 date_limit1.setHours(Math.floor(S("vis_t1")));
 date_limit1.setMinutes((S("vis_t1") - Math.floor(S("vis_t1"))) * 60, 0, 0);
 date_limit2.setHours(Math.floor(S("vis_t2")));
@@ -78,181 +78,132 @@ if ((date_chk2 < date_limit1) || (date_chk2 > date_limit2))
 }
 
 
-var alert_txt = "";
+    var alert_txt = "";
 
 
-// Deze velden altijd opslaan
-var fields =  [ { dbs: "prs_perslid_key",          typ: "key",      val: user_key,          track: L("lcl_prs_name"), foreign: "prs_perslid" },
-                { dbs: "bez_afspraak_datum",       typ: "datetime", val: date_from,         track: L("lcl_vis_start_date") },
-                { dbs: "bez_actie_key",            typ: "key",      frm: "actie",           track: L("lcl_action"), foreign: "bez_actie" },
-                { dbs: "bez_afspraak_eind",        typ: "datetime", val: date_to,           track: L("lcl_vis_end_date") },
-                { dbs: "bez_afspraak_telefoonnr",  typ: "varchar",  frm: "phone",           track: L("lcl_phone"),  len: 15 },
-                { dbs: "alg_locatie_key",          typ: "key",      frm: "locatiekey",
-                                                                    savewhen: "locatiekey", track: true /* afzonderlijke tracking, wel oldjsval */ },
-                { dbs: "bez_afspraak_contact_key", typ: "key",      frm: "person",          track: L("lcl_vis_contactperson"), foreign: "prs_perslid" }
-              ];
+    // Deze velden altijd opslaan
+    var fields =  [ { dbs: "prs_perslid_key",          typ: "key",      val: user_key },
+                    { dbs: "bez_afspraak_datum",       typ: "datetime", val: date_from },
+                    { dbs: "bez_actie_key",            typ: "key",      frm: "actie" },
+                    { dbs: "bez_afspraak_eind",        typ: "datetime", val: date_to },
+                    { dbs: "bez_afspraak_telefoonnr",  typ: "varchar",  frm: "phone",  len: 15 },
+                    { dbs: "alg_locatie_key",          typ: "key",      frm: "locatiekey" },
+                    { dbs: "bez_afspraak_contact_key", typ: "key",      frm: "person" }
+                  ];
 
-if (S("vis_afspraak_host_uses_keys") == 0)
-  fields.push({ dbs: "bez_afspraak_gastheer", typ: "varchar", frm: "personH", track: L("lcl_vis_visit") });
-else
-    fields.push({ dbs: "bez_afspraak_host_key", typ: "key",     frm: "personH", track: L("lcl_vis_visit"), foreign: "prs_perslid" });
+    if (S("vis_afspraak_host_uses_keys")==0)
+        fields.push({dbs: "bez_afspraak_gastheer", typ: "varchar", frm: "personH"});
+    else
+        fields.push({dbs: "bez_afspraak_host_key", typ: "key",     frm: "personH"});
 
-if (S("vis_afspraak_onrgoed_uses_keys") == 0)
-  fields.push({ dbs: "bez_afspraak_ruimte",  typ: "varchar", frm: "room", savewhen: "locatiekey", track: true /* afzonderlijke tracking, wel oldjsval */ });
-else
-{
-  var loc   = getFParamInt("locatiekey",-1);
-  var bld   = getFParamInt("gebouwkey",-1);
-  var floor = getFParamInt("verdiepingkey",-1);
-  var rooms = getFParamInt("ruimtekey",-1);
+    if (S("vis_afspraak_onrgoed_uses_keys") == 0)
+        fields.push({ dbs: "bez_afspraak_ruimte",  typ: "varchar", frm: "room" });
+    else
+    {
+        var loc   = getFParamInt("locatiekey",-1);
+        var bld   = getFParamInt("gebouwkey",-1);
+        var floor = getFParamInt("verdiepingkey",-1);
+        var rooms = getFParamInt("ruimtekey",-1);
 
-  if (rooms!=-1)
-      alg_onrg_key = rooms;
-  else if (floor!=-1)
-      alg_onrg_key = floor;
-  else if (bld!=-1)
-      alg_onrg_key = bld;
-  else alg_onrg_key = -1;
-  fields.push({ dbs: "alg_onrgoed_keys",      typ: "key",   val: alg_onrg_key, savewhen: "locatiekey", track: true /* afzonderlijke tracking, wel oldjsval */ });
-}
+        if (rooms!=-1)
+            alg_onrg_key = rooms;
+        else if (floor!=-1)
+            alg_onrg_key = floor;
+        else if (bld!=-1)
+            alg_onrg_key = bld;
+        else alg_onrg_key = -1;
+        fields.push({ dbs: "alg_onrgoed_keys",      typ: "key",   val: alg_onrg_key });
+    }
 
 
-var verynew = false;
-if (afspr_key != -1)
-{
-  fields.push({ dbs: "bez_afspraak_opmerking",      typ: "varchar", frm: "remark", track: L("lcl_vis_remark"), len: 320 });
-
-  var sql = "SELECT alg_locatie_key, bez_afspraak_datum, bez_afspraak_eind"
-          + "  FROM bez_afspraak"
-          + " WHERE bez_afspraak_key = " + afspr_key;
-  oRs = Oracle.Execute(sql);
-  var changed =  oRs("alg_locatie_key").Value != getFParamInt("locatiekey",-1)
-              || new Date(oRs("bez_afspraak_datum").Value).getTime() != date_from.getTime()
-              || new Date(oRs("bez_afspraak_eind").Value).getTime() != date_to.getTime();
-  if (changed)
+  var verynew = false;
+  if (afspr_key!=-1)
   {
-    __Log("Afspraak locatie of tijd gewijzigd. Parkeerplaatsen worden opnieuw geclaimd");
-  }
+    fields.push({ dbs: "bez_afspraak_opmerking",      typ: "varchar", frm: "remark", len: 320 });
 
-  // bezUpd heeft na afloop handige oldjsvals
-  var bezUpd = buildTrackingUpdate("bez_afspraak", " bez_afspraak_key = " + afspr_key, fields);
-  // SUBMIT THE CHANGED DATA
-  oRs = Oracle.Execute(bezUpd.sql);
-
-  var result = saveBezoekers(afspr_key, -1, { urole: urole, loctimechanged: changed });
-  if (result.beztrack && result.beztrack.length > 0)
-    bezUpd.trackarray.push(result.beztrack.join("\n"));
-
-  alert_txt = result.warning;
-  // TODO: doen of niet? shared.trackaction("BEZUPD", afspr_key);
-
-  // tracking plaats is ingewikkelder (drie velden maar slechts <20><>n track gewenst), die doen we handmatig
-  // locatiekey, alg_onrgoed_keys en bez_afspraak_ruimte bevatten reeds de nieuwe waardes
-  if (S("vis_afspraak_onrgoed_uses_keys") == 0)
-  { // Alleen locatie (verplicht) en ruimte omschrijving
-    var bez_afspraak_ruimte = getQParam("room");
-    if (bez_afspraak_ruimte == "")
+    var sql = "SELECT alg_locatie_key, bez_afspraak_datum, bez_afspraak_eind"
+            + "  FROM bez_afspraak"
+            + " WHERE bez_afspraak_key = " + afspr_key;
+    oRs = Oracle.Execute(sql);
+    var changed =  oRs("alg_locatie_key").Value != getFParamInt("locatiekey",-1)
+                || new Date(oRs("bez_afspraak_datum").Value).getTime() != date_from.getTime()
+                || new Date(oRs("bez_afspraak_eind").Value).getTime() != date_to.getTime();
+    if (changed)
     {
-      newsql = "SELECT alg_locatie_code FROM alg_locatie WHERE alg_locatie_key = " + locatiekey;
-      var newtxt = Oracle.Execute(newsql)(0).value;
+        __Log("Afspraak locatie of tijd gewijzigd. Parkeerplaatsen worden opnieuw geclaimd");
     }
-    else
-      var newtxt = bez_afspraak_ruimte;
 
-    var obez_afspraak_ruimte = bezUpd.oldjsvals["bez_afspraak_ruimte"];
-    if (obez_afspraak_ruimte == "")
-    {
-      var oloc_key = bezUpd.oldjsvals["alg_locatie_key"];
-      var oldsql = "SELECT alg_locatie_code FROM alg_locatie WHERE alg_locatie_key = " + oloc_key;
-      var oldtxt = Oracle.Execute(oldsql)(0).value;
+    // update appointment;
+    sql = buildUpdate("bez_afspraak", fields)
+        + "     bez_afspraak_key = " + afspr_key;
+
+    oRs = Oracle.Execute(sql);
+
+    var result = saveBezoekers(afspr_key, -1, { urole: urole, loctimechanged: changed });
+    alert_txt = result.warning;
+    // TODO: doen of niet? shared.trackaction("BEZUPD", afspr_key);
+  }
+  else
+  { // Nieuwe afspraak
+    fields.push({ dbs: "bez_afspraak_key", typ: "key", seq: "bez_s_bez_afspraak_key" });
+
+    var nr_park_needed=0;
+    var nr_park_reserved=0;
+
+    // Bepaal aantal dagen tussen begin en einddatum.
+    var diff = date_to - date_from;
+    var days = Math.floor(diff / (1000 * 60 * 60 * 24));
+
+    var remark = getFParam("remark", '');
+    if (days>0) { // komt niet voor bij reserveren van ruimten
+      if (remark=="") remark += L("lcl_vis_more_days");
+      else remark += "\n" + L("lcl_vis_more_days");
+    }
+    fields.push({ dbs: "bez_afspraak_opmerking",      typ: "varchar", val: remark, len: 320 });
+
+    // TODO: bez_afspr_room
+    var bezIns = buildInsert("bez_afspraak", fields);
+    var afspr_key = bezIns.sequences["bez_afspraak_key"];
+    Oracle.Execute(bezIns.sql);
+
+    var result = saveBezoekers(afspr_key, -1, {urole: urole, verynew: true}); // true voor verynew
+    alert_txt = result.warning;
+    verynew = true;
+
+    shared.trackaction("BEZMUT", afspr_key);
+//              // TODO Nu alles bezoekers bekend zijn, kan een fatsoenlijke notificatie worden gegeven.
+//            sql = "UPDATE bez_afspraak SET bez_afspraak_key=bez_afspraak_key WHERE bez_afspraak_key=" + afspr_key;
+//            oRs = Oracle.Execute(sql);
+
+
+  } // nieuwe/bestaande reservering
+
+  // report errors during visitors hook
+
+  if (S("vis_warning_limit") != -1) { // 't is wel heel erg laat, volgende keer vroeger graag
+    var startdate = new Date(date_from);
+    var starttime = date_from.getHours() + date_from.getMinutes()/60;
+
+    var nowdate = new Date();
+    var nowtime = nowdate.getHours() + nowdate.getMinutes()/60;
+
+    var diffdate =  Math.round((startdate - nowdate)/(1000 * 60 * 60 * 24));
+
+    var limittimesplit = S("vis_warning_limit").split(':')
+    var limittime = parseInt(limittimesplit[0], 10) + parseFloat(limittimesplit[1])/60;
+
+    if (diffdate < 1 || (diffdate == 1 && nowtime > limittime))
+    { // Niet fataal overigens
+      alert_txt = L("lcl_vis_warning_limit_cossed1") + S("vis_warning_limit") + L("lcl_vis_warning_limit_cossed2");
     }
-    else
-      var oldtxt = obez_afspraak_ruimte;
   }
-  else // S("vis_afspraak_onrgoed_uses_keys") == 1
-  { // Locatie t/m ruimte (plaatsselector). Verplichtheid afhankelijk van setting "vis_mandatory_alg_level".
-    if (alg_onrg_key > 0)
-      var newsql = "SELECT alg_plaatsaanduiding FROM alg_v_plaatsaanduiding WHERE alg_onroerendgoed_keys = " + alg_onrg_key;
-    else
-      var newsql = "SELECT alg_locatie_code FROM alg_locatie WHERE alg_locatie_key = " + locatiekey;
-    var newtxt = Oracle.Execute(newsql)(0).value;
 
-    var oalg_onrg_key = bezUpd.oldjsvals["alg_onrgoed_keys"];
-    var oloc_key = bezUpd.oldjsvals["alg_locatie_key"];
-    if (oalg_onrg_key > 0)
-      var oldsql = "SELECT alg_plaatsaanduiding FROM alg_v_plaatsaanduiding WHERE alg_onroerendgoed_keys = " + oalg_onrg_key;
-    else // locatie key is er altijd
-      var oldsql = "SELECT alg_locatie_code FROM alg_locatie WHERE alg_locatie_key = " + oloc_key;
-    var oldtxt = Oracle.Execute(oldsql)(0).value;
-  }
-  if (oldtxt != newtxt)
-    bezUpd.trackarray.push(L("lcl_plaatsgegevens") + ": " + buildTrackText("varchar", oldtxt, newtxt, { nodiff: true }));
-}
-else
-{ // Nieuwe afspraak
-  fields.push({ dbs: "bez_afspraak_key", typ: "key", seq: "bez_s_bez_afspraak_key" });
+  var closeParams = { afspr_key: afspr_key,
+                      bezkeyArr: result.bezkeyArr,
+                      verynew: verynew == 1,
+                      warning: alert_txt
+                    }
 
-  var nr_park_needed=0;
-  var nr_park_reserved=0;
-
-  // Bepaal aantal dagen tussen begin en einddatum.
-  var diff = date_to - date_from;
-  var days = Math.floor(diff / (1000 * 60 * 60 * 24));
-
-  var remark = getFParam("remark", '');
-  if (days>0) { // komt niet voor bij reserveren van ruimten
-    if (remark=="") remark += L("lcl_vis_more_days");
-    else remark += "\n" + L("lcl_vis_more_days");
-  }
-  fields.push({ dbs: "bez_afspraak_opmerking",      typ: "varchar", val: remark, len: 320 });
-
-  // TODO: bez_afspr_room
-  var bezIns = buildInsert("bez_afspraak", fields);
-  var afspr_key = bezIns.sequences["bez_afspraak_key"];
-  Oracle.Execute(bezIns.sql);
-
-  var result = saveBezoekers(afspr_key, -1, {urole: urole, verynew: true}); // true voor verynew
-  alert_txt = result.warning;
-  verynew = true;
-
-  shared.trackaction("BEZMUT", afspr_key);
-//          // TODO Nu alles bezoekers bekend zijn, kan een fatsoenlijke notificatie worden gegeven.
-//          sql = "UPDATE bez_afspraak SET bez_afspraak_key=bez_afspraak_key WHERE bez_afspraak_key=" + afspr_key;
-//          oRs = Oracle.Execute(sql);
-} // nieuwe/bestaande reservering
-
-if (afspr_key != -1)
-{
-  if (bezUpd && bezUpd.trackarray && (bezUpd.trackarray.length)) {
-    bez.trackafspraakupdate(afspr_key, L("lcl_bez_is_bezupd") + "\n" + bezUpd.trackarray.join("\n"));
-  }
-}
-
-// report errors during visitors hook
-if (S("vis_warning_limit") != -1)
-{ // 't is wel heel erg laat, volgende keer vroeger graag
-  var startdate = new Date(date_from);
-  var starttime = date_from.getHours() + date_from.getMinutes()/60;
-
-  var nowdate = new Date();
-  var nowtime = nowdate.getHours() + nowdate.getMinutes()/60;
-
-  var diffdate =  Math.round((startdate - nowdate)/(1000 * 60 * 60 * 24));
-
-  var limittimesplit = S("vis_warning_limit").split(':')
-  var limittime = parseInt(limittimesplit[0], 10) + parseFloat(limittimesplit[1])/60;
-
-  if (diffdate < 1 || (diffdate == 1 && nowtime > limittime))
-  { // Niet fataal overigens
-    alert_txt = L("lcl_vis_warning_limit_cossed1") + S("vis_warning_limit") + L("lcl_vis_warning_limit_cossed2");
-  }
-}
-
-var closeParams = { afspr_key: afspr_key,
-                    bezkeyArr: result.bezkeyArr,
-                    verynew: verynew == 1,
-                    warning: alert_txt
-                  }
 %>
 
 <html>

APPL/BEZ/bez_edit_bezoekers_save.asp

@@ -38,12 +38,9 @@ if (afspraak_key == -1)
 var this_bez = bez.func_enabled_afspraak(afspraak_key);
 user.auth_required_or_abort(this_bez.canReadAny);
 
-var beztrack = [];
 var result = saveBezoekers(afspraak_key, rsv_ruimte_key, { urole: urole });
 afspraak_key = result.afspr_key;
 warning = result.warning;
-if (result.beztrack && result.beztrack.length > 0)
-  bez.trackafspraakupdate(afspraak_key, L("lcl_bez_is_bezupd") + "\n" + result.beztrack.join("\n"));
 
 var closeParams = { afspraak_key: afspraak_key,
                     bezkeyArr: result.bezkeyArr,

APPL/BEZ/bez_edit_bezoekers_save.inc

@@ -66,7 +66,6 @@ function saveBezoekers(afspraak_key, rsv_ruimte_key, params)
   var nr_park_reserved = 0;
   var bznum = 1;
   var bezkeyArr = new Array();
-  var beztrack = [];
 
   while ((bznum < next_vis)) {
 
@@ -84,8 +83,6 @@ function saveBezoekers(afspraak_key, rsv_ruimte_key, params)
     if (result.hasPark) nr_park_reserved++;
     if (result.bez_key > 0)
       bezkeyArr.push(result.bez_key);
-    if (result.beztrack && result.beztrack.length > 0)
-      beztrack.push(result.beztrack);
     bznum++;
   }
   bez.cleanAfspraak(afspraak_key); // weg als alles leeg
@@ -103,7 +100,7 @@ function saveBezoekers(afspraak_key, rsv_ruimte_key, params)
       alert_text = nr_park_reserved + L("lcl_park_alert1") + nr_park_needed + L("lcl_park_alert2");
   }
 
-return { afspr_key: afspraak_key, bezkeyArr: bezkeyArr, warning: alert_text, beztrack: beztrack };
+return { afspr_key: afspraak_key, bezkeyArr: bezkeyArr, warning: alert_text };
 }
 
 // Maak er eentje aan voor onder de reservering
@@ -213,29 +210,9 @@ function createAfspraak(rsv_ruimte_key)
       + ", " + rsv_ruimte_key
       + " FROM res_rsv_ruimte"
       + " WHERE res_rsv_ruimte_key = " + rsv_ruimte_key;
-  oRs = Oracle.Execute(sql);
-  shared.trackaction("BEZMUT", afspraak_key); // Tracking onder afspraak.
-  return afspraak_key;
-}
 
-function getPrkOmschrijving(key, keytype)
-{
-  var sqlPOB = "SELECT og.alg_onroerendgoed_omschrijving"
-             + "  FROM res_rsv_deel rrd"
-             + "     , res_deel rd"
-             + "     , ins_deel d"
-             + "     , alg_v_onroerendgoed_gegevens og"
-             + " WHERE rrd.res_deel_key = rd.res_deel_key"
-             + "   AND rd.res_ins_deel_key = d.ins_deel_key"
-             + "   AND d.ins_alg_ruimte_key = og.alg_onroerendgoed_keys"
-             + (keytype == "B"
-               ? " AND rrd.bez_bezoekers_key = " + key
-               : " AND rrd.res_rsv_deel_key = " + key); // keytype ==  "R" (res_rsv_deel_key)
-  oRsPOB = Oracle.Execute(sqlPOB);
-  if (!oRsPOB.eof)
-    return oRsPOB("alg_onroerendgoed_omschrijving").value;
-  else
-    return null;
+  oRs = Oracle.Execute(sql);
+  return afspraak_key;
 }
 
 // leest in principe uit Request.Form nummer bznum behalve als bznum==-1, dan uit params.
@@ -250,7 +227,6 @@ function saveOneBezoeker(afspraak_key, rsv_ruimte_key, bznum, params)
 {
   var hasPark = false;
   var prk = "off";
-  var beztrack = [];
   if (bznum > 0)
   {
     var bez_key = getFParamInt("bez_key" + bznum, -1);
@@ -265,25 +241,16 @@ function saveOneBezoeker(afspraak_key, rsv_ruimte_key, bznum, params)
   }
 
   if (bez_key < -1)
-  {
     bez.deleteBezoekers(-bez_key, false);
-    beztrack = L("lcl_bez_is_bezdel") + "\n" + buildTrackText("varchar", beznaam, null, { nodiff: true });
-  }
   else if ((beznaam == '' && bed == '') || bez_key == 0)
   { // Geen waarden (bezoekersnaam en bedrijfsnaam) ingevuld of verwijderde nieuwe bezoeker
     if (bez_key > 0)
-    {
       bez.deleteBezoekers(bez_key, false);
-      beztrack = L("lcl_bez_is_bezdel") + "\n" + buildTrackText("varchar", beznaam, null, { nodiff: true });
-    }
   }
   else
   {
     if (afspraak_key == -1)
-    {
       afspraak_key = createAfspraak(rsv_ruimte_key);
-      params.verynew = true;
-    }
 
     var prk = getFParam("prk" + bznum, "off");
     var prkselect = getFParam("prkselect" + bznum, "");
@@ -294,11 +261,11 @@ function saveOneBezoeker(afspraak_key, rsv_ruimte_key, bznum, params)
     var vis_done = null;
 
     var bezfields = [ { dbs: "bez_afspraak_key",       typ: "key",     val: afspraak_key },
-                      { dbs: "prs_contactpersoon_key", typ: "key",     frm: "contkey" + bznum, track: L("lcl_vis_contactperson"), foreign: "prs_contactpersoon" },
-                      { dbs: "prs_perslid_key",        typ: "key",     frm: "prskey" + bznum,  track: L("lcl_intern_pers"),       foreign: "prs_perslid" },
-                      { dbs: "bez_afspraak_naam",      typ: "varchar", val: beznaam,           track: L("lcl_vis_name"), len: 30 },
-                      { dbs: "bez_afspraak_bedrijf",   typ: "varchar", val: bed,               track: L("lcl_vis_company") + (S("bez_sel_internpersoon") == 1? "/" + L("lcl_department") : ""), len: 60 },
-                      { dbs: "bez_bezoekers_pasnr",    typ: "varchar", val: bdg,               track: L("lcl_vis_badgenr") }
+                      { dbs: "prs_contactpersoon_key", typ: "key",     frm: "contkey" + bznum },
+                      { dbs: "prs_perslid_key",        typ: "key",     frm: "prskey" + bznum },
+                      { dbs: "bez_afspraak_naam",      typ: "varchar", val: beznaam, len: 30 },
+                      { dbs: "bez_afspraak_bedrijf",   typ: "varchar", val: bed, len: 60 },
+                      { dbs: "bez_bezoekers_pasnr",    typ: "varchar", val: bdg }
                     ];
 
     if (bez_key == -1)
@@ -314,31 +281,21 @@ function saveOneBezoeker(afspraak_key, rsv_ruimte_key, bznum, params)
       var bezIns = buildInsert("bez_bezoekers", bezfields);
       var bez_key = bezIns.sequences["bez_bezoekers_key"];
       Oracle.Execute(bezIns.sql);
-      if (!params.verynew)
-        var bezUpd = {trackarray: [L("lcl_vis_name") + ": " + buildTrackText("varchar", null, beznaam, { nodiff: true })]};
     }
     else // bestaande bezoeker
     {
-      // bezUpd heeft na afloop handige oldjsvals
-      var bezUpd = buildTrackingUpdate("bez_bezoekers", " bez_bezoekers_key = " + bez_key, bezfields);
-      // SUBMIT THE CHANGED DATA
-      oRs = Oracle.Execute(bezUpd.sql);
-
       sql = "SELECT rrd.res_rsv_deel_key"
           + "     , b.bez_bezoekers_pasnr"
           + "     , bez_bezoekers_done"
           + "     , id.ins_alg_ruimte_key"
-          + "     , og.alg_onroerendgoed_omschrijving"
           + "  FROM bez_bezoekers b"
           + "     , res_rsv_deel rrd"
           + "     , res_deel rd"
           + "     , ins_deel id"
-          + "     , alg_v_onroerendgoed_gegevens og"
           + " WHERE b.bez_bezoekers_key = rrd.bez_bezoekers_key(+)"
           + "   AND b.bez_bezoekers_key = " + bez_key
           + "   AND rrd.res_deel_key = rd.res_deel_key(+)"
-          + "   AND rd.res_ins_deel_key = id.ins_deel_key(+)"
-          + "   AND id.ins_alg_ruimte_key = og.alg_onroerendgoed_keys(+)";
+          + "   AND rd.res_ins_deel_key = id.ins_deel_key(+)";
       oRs = Oracle.Execute(sql);
       var badge_prev = oRs("bez_bezoekers_pasnr").value || "";
       park_prev = oRs("res_rsv_deel_key").value;
@@ -348,10 +305,10 @@ function saveOneBezoeker(afspraak_key, rsv_ruimte_key, bznum, params)
           sql = "DELETE FROM res_rsv_deel WHERE bez_bezoekers_key = " + bez_key;
           Oracle.Execute(sql);
           park_prev = null; // sta opnieuw claimen toe
-          oldtxt = oRs("alg_onroerendgoed_omschrijving").value;
-          bezUpd.trackarray.push(L("lcl_park") + ": " + buildTrackText("varchar", oldtxt, null, { nodiff: true }));
       }
       vis_done = new Date(oRs("bez_bezoekers_done").value);
+      sql = buildUpdate("bez_bezoekers", bezfields) + " bez_bezoekers_key = " + bez_key;
+      Oracle.Execute(sql);
     }
 
     if (bdg != badge_prev)
@@ -373,72 +330,51 @@ function saveOneBezoeker(afspraak_key, rsv_ruimte_key, bznum, params)
 
     if (prk == "on" && park_prev == null && (prkselect == "S" || prkselect == "C"))
     {
-      var gebouwterreinkey = "null";
-      if (prkselect == "S")
-        gebouwterreinkey = prkgebter;
-      sql = "BEGIN bez.claim_parking(" + bez_key + ", " + gebouwterreinkey + "); END;"
-      Oracle.Execute(sql);
-      sql = "SELECT bez.hasparking(" + bez_key + ") FROM DUAL"
-      var oRsP = Oracle.Execute(sql);
+        var gebouwterreinkey = "null";
+        if (prkselect == "S")
+          gebouwterreinkey = prkgebter; // de gekozen
+        else
+        {
+           var prkgebter = onlyGebouw(afspraak_key)
+           gebouwterreinkey = prkgebter > 0? prkgebter: "null"; // de enige goede
+        }
+        sql = "BEGIN bez.claim_parking(" + bez_key + ", " + gebouwterreinkey + "); END;"
+        Oracle.Execute(sql);
+        sql = "SELECT bez.hasparking(" + bez_key + ") FROM DUAL"
+        var oRsP = Oracle.Execute(sql);
 
-      hasPark = (oRsP(0).value > 0);
-      oRsP.close();
-      if (hasPark)
-      {
-        new_prk_oms = getPrkOmschrijving(bez_key, "B");
-        bezUpd.trackarray.push(L("lcl_park") + ": " + buildTrackText("varchar", null, new_prk_oms, { nodiff: true }));
-      }
+        hasPark = (oRsP(0).value > 0);
+        oRsP.close();
     }
     else if (prk == "off" && park_prev != null)
     {
-      sql = "DELETE FROM res_rsv_deel WHERE bez_bezoekers_key = " + bez_key;
-      Oracle.Execute(sql);
-      old_prk_oms = getPrkOmschrijving(park_prev, "R");
-      bezUpd.trackarray.push(L("lcl_park") + ": " + buildTrackText("varchar", old_prk_oms, null, { nodiff: true }));
+        sql = "DELETE FROM res_rsv_deel WHERE bez_bezoekers_key = " + bez_key;
+        Oracle.Execute(sql);
     }
     else if (prk == "on" && park_prev != null)
-    {
-      hasPark = true; // wel meetellen
-      new_prk_oms = getPrkOmschrijving(bez_key, "B");
-      old_prk_oms = getPrkOmschrijving(park_prev, "R");
-      if (new_prk_oms != old_prk_oms)
-        bezUpd.trackarray.push(L("lcl_park") + ": " + buildTrackText("varchar", old_prk_oms, new_prk_oms, { nodiff: true }));
-    }
+        hasPark = true; // wel meetellen
 
     if (bznum > 0) // pacta/deeplink heeft geen flexkenmerken/k_all
     {
-      var currentKenmerkenSQL = "SELECT kl.bez_kenmerk_key "
-                              + "     , kl.bez_kenmerkwaarde_waarde"
-                              + "  FROM bez_kenmerkwaarde kl, bez_kenmerk k "
-                              + " WHERE  k.bez_kenmerk_key = kl.bez_kenmerk_key "
-                              + "   AND bez_kenmerkwaarde_VERWIJDER IS NULL "
-                              + "   AND bez_bezoekers_key = " + bez_key;
+      currentKenmerkenSQL = "SELECT kl.bez_kenmerk_key " +
+                            "     , kl.bez_kenmerkwaarde_waarde" +
+                            "  FROM bez_kenmerkwaarde kl, bez_kenmerk k " +
+                            " WHERE  k.bez_kenmerk_key = kl.bez_kenmerk_key " +
+                            "   AND bez_kenmerkwaarde_VERWIJDER IS NULL " +
+                            "   AND bez_bezoekers_key = " + bez_key;
 
-      var allKenmerkenSQL = " SELECT " + lcl.xsql('k.bez_kenmerk_omschrijving', 'k.bez_kenmerk_key') + " kenmerk_omschrijving"
-                          + "      , bez_kenmerk_key srtkenmerk_key"
-                          + "   FROM bez_kenmerk k"
-                          + "  WHERE k.bez_kenmerk_verwijder IS NULL"
-                          + "    AND k.bez_kenmerk_key = "; /* wordt in saveFlexkenmerken uitgebreid */
-
-      var flextrack = saveFlexKenmerken(bez_key, 
-                                        { kenmerkTable: "bez_kenmerkwaarde",
-                                          kenmerkParentKey : "bez_bezoekers_key",
-                                          kenmerkWaarde: "bez_kenmerkwaarde_waarde",
-                                          kenmerkKey: "bez_kenmerk_key",
-                                          currentKenmerkenSQL: currentKenmerkenSQL,
-                                          allKenmerkenSQL: allKenmerkenSQL,
-                                          requestQF: Request.Form,
-                                          nameprefix: "flex" + bznum + "_",
-                                          isNew: (bez_key < 0),
-                                          flexPath: "BEZ/B",
-                                          tracking: true,
-                                          module: "BEZ"
-                                        })
+      saveFlexKenmerken(bez_key, { kenmerkTable: "bez_kenmerkwaarde",
+                                   kenmerkParentKey : "bez_bezoekers_key",
+                                   kenmerkWaarde: "bez_kenmerkwaarde_waarde",
+                                   kenmerkKey: "bez_kenmerk_key",
+                                   currentKenmerkenSQL: currentKenmerkenSQL,
+                                   requestQF: Request.Form,
+                                   nameprefix: "flex" + bznum + "_",
+                                   isNew: (bez_key<0),
+                                   flexPath: "BEZ/B"})
     }
-    if (bezUpd && bezUpd.trackarray && (bezUpd.trackarray.length || flextrack.length))
-      beztrack = "(" + L("lcl_vis_name") + ": " + beznaam + ")\n" + bezUpd.trackarray.concat(flextrack).join("\n");
   }
 
-  return { afspr_key: afspraak_key, bez_key: bez_key, needPark: prk == "on", hasPark: hasPark, beztrack: beztrack };
+  return { afspr_key: afspraak_key, bez_key: bez_key, needPark: prk == "on", hasPark: hasPark };
 }
 %>

APPL/BEZ/bez_list.inc

@@ -427,14 +427,12 @@ function bez_list(pautfunction, params)
             + ((authparams.PRSreadlevel == 0)
               ? "SELECT a.prs_afdeling_key"
                 + " FROM prs_v_afdeling a"
-                + " WHERE a.prs_bedrijf_key IN (" + bedrKeys + ")"
-              : "SELECT prs_afdeling_key FROM prs_v_afdeling_familie a"
-                + " WHERE a.prs_afdeling_elder_key IN"
-                + "   (SELECT aa.prs_afdeling_elder_key"
-                + "      FROM prs_v_afdeling_familie aa"
-                + "     WHERE aa.prs_afdeling_key = " + user.prs_afdeling_key()
-                + "       AND aa.niveau = " + authparams.PRSreadlevel + ")")
-            + ")";
+                + " WHERE a.prs_bedrijf_key IN (" + bedrKeys + "))"
+              : "SELECT prs_afdeling_key"
+                + " FROM fac_v_my_prs_afdelingen_read"
+                + " WHERE prs_perslid_key IN (" + prsKeys + ")"
+                + " AND fac_functie_code = " + safe.quoted_sql(autfunction)
+                + ")");
       }
 
       if (!frontend)

APPL/CAD/cad_selectbylegend.asp

@@ -66,7 +66,7 @@ var sql = "SELECT sync." + colKey
         + "  FROM " + syncView + " SYNC, " + viewName + " thema"
         + " WHERE thema." + colKey + "=sync." + colKey
         + "   AND sync." + syncParent + "=" + pvKey
-        + "   AND thema.waarde = " + safe.quoted_sql(legenddesc)
+        + "   AND thema.waarde = " + safe.quoted_sql(legenddesc);
         + scenFilter;
 var keys = [];
 var oRs = Oracle.Execute(sql);

APPL/CAD/fullscreen.asp

@@ -35,7 +35,7 @@ function myRefresh()
 {
     MMap.Reset();
     MMap.SetIMGGenerator("../CAD/mySlnk2IMG.asp");
-    MMap.SetPaperColor(<%=("fg_paperColor")%>);
+    MMap.SetPaperColor(<%=S("fg_paperColor")%>);
     MMap.SetLabelPosition(<%=labelPos%>);
     MMap.SetCustomParameters("&<%=safe.jsstring(String(Request.ServerVariables("QUERY_STRING")))%>")
 

APPL/CAD/rap_move.asp

@@ -65,12 +65,10 @@ if (floorKey != -1)
   else
   {
     if (authparams.PRSwritelevel>-1)
-      autsql = "(SELECT prs_afdeling_key FROM prs_v_afdeling_familie a"
-             + "  WHERE a.prs_afdeling_elder_key IN"
-             + "    (SELECT aa.prs_afdeling_elder_key"
-             + "       FROM prs_v_afdeling_familie aa"
-             + "      WHERE aa.prs_afdeling_key = " + user.prs_afdeling_key()
-             + "        AND aa.niveau = " + authparams.PRSwritelevel + "))";
+      autsql = "(SELECT fpw.prs_afdeling_key FROM fac_v_my_prs_afdelingen_write fpw"
+             + " WHERE d.prs_afdeling_key = fpw.prs_afdeling_key "
+             + "   AND prs_perslid_key = " + user_key
+             + "   AND fac_functie_code = " + safe.quoted_sql(autfunction) + ")";
     else
       autsql = "1";
   }

APPL/CNT/cnt_edit_scope.asp

@@ -210,7 +210,7 @@ var cnt_srtcontract_type = oRs("cnt_srtcontract_type").value;
                                    { label: L("lcl_cnt_objects"),
                                      multi: true,
                                      size: 10,
-                                     onDblClick: "showObjDetail(event);"
+                                     onDblClick: "showObjDetail();"
                                    }); %>
                     </tr>
                     </table>
@@ -273,7 +273,7 @@ var cnt_srtcontract_type = oRs("cnt_srtcontract_type").value;
                         <%=safe.html("" + oRs("plaats").value)%>
                       </td>
                       <td class=selectable>
-                        <input type="text" class="fldshort float" maxlength="12" id=akn<%=j%> name=akn<%=j%> id=akn onBlur="checkWeight(event);" value=<%=safe.editablefloat(oRs("cnt_contract_plaats_gewicht").value)%>>
+                        <input type="text" class="fldshort float" maxlength="12" id=akn<%=j%> name=akn<%=j%> id=akn onBlur="checkWeight();" value=<%=safe.editablefloat(oRs("cnt_contract_plaats_gewicht").value)%>>
                         <input type="hidden" id="ak<%=j%>" name="ak<%=j%>" value="<%=oRs("cnt_contract_plaats_key").value%>">
                         <input type="hidden" id="akd<%=j%>" name="akd<%=j%>" value="<%=oRs("cnt_alg_plaats_key").value%>">
                         <input type="hidden" id="aks<%=j%>" name="aks<%=j%>" value="<%=safe.htmlattr(oRs("plaats").value)%>">

APPL/CNT/cnt_edit_scope.js

@@ -37,12 +37,10 @@ function updateBld(pautfunction)
                           });
 }
 
-function showObjDetail(evt)
+function showObjDetail(x)
 {
-  evt = evt || window.event;
-  var obj = evt.srcElement || evt.target;
-  var obj_str = "";
-  var obj_key = obj.value;
+  obj_str = "";
+  obj_key = event.srcElement.value;
   if (obj_key && obj_key > 0 && $("#objs").length)
   {
     var url = "appl/INS/ins_show_deel.asp?ins_key=" + obj_key + "&urole=bo";
@@ -436,7 +434,7 @@ function insertLocRow(name, key, type)
    html += "<tr id='row" + j+ "' OnClick='javascript:selectLocRow(" + j + ");'>"
          + "<td class=selectable align=left id=loc>" + name + "</td>"
          + "<td class=selectable>"
-         + "<input type=text size=10 maxlength=12 id=akn" + j + " name=akn" + j + " onBlur='checkWeight(event);'>"
+         + "<input type=text size=10 maxlength=12 id=akn" + j + " name=akn" + j + " onBlur='checkWeight();'>"
          + "<input type=hidden id=ak" + j + " name=ak" + j + " value=-1>"
          + "<input type=hidden id=akd" + j + " name=akd" + j + " value=" + key + ">"
          + "<input type=hidden id=aks" + j + " name=aks" + j + " value=-1>"    //needed -pf?
@@ -450,18 +448,17 @@ function insertLocRow(name, key, type)
      parent.ExpandFrame(window.name);
 }
 
-function checkWeight(evt)
+function checkWeight()
 {
-  evt = evt || window.event;
-  var obj = evt.srcElement || evt.target;
-  var ival = parseInt(obj.value,10);
-  var retVal = false;
-  if (( !isNaN(ival) && ival >= 0 && ival < 1000000000) || obj.value =="")
+  ival = parseInt(event.srcElement.value,10);
+  if (( !isNaN(ival) && ival >= 0 && ival < 1000000000) || event.srcElement.value =="")
     retVal = true;
+  else
+    retVal = false;
   if ( !retVal )
   {
     alert(L("lcl_cnt_invalid_kenmerk_value"));
-    obj.focus();
+    event.srcElement.focus();
   }
   return retVal;
 }

APPL/FAC/fac_edit_faq.asp

@@ -52,7 +52,7 @@ if (faq_key > -1)
          + "     , fac_faq_datum"
          + "     , fac_faq_lang"
          + "     , prs_perslid_key"
-         + "     , COALESCE(ins_discipline_key,mld_ins_discipline_key) discipline_key"
+         + "     , mld_ins_discipline_key"
          + "     , stdm.mld_stdmelding_key"
          + "     , " + lcl.xsqla('stdm.mld_stdmelding_omschrijving','stdm.mld_stdmelding_key')
          + "  FROM fac_faq f"
@@ -72,7 +72,7 @@ if (faq_key > -1)
     lang = oRs("fac_faq_lang").value;
     stdm_key = oRs("mld_stdmelding_key").value;
     stdm = oRs("mld_stdmelding_omschrijving").value;
-    disc_key = oRs("discipline_key").value;
+    disc_key = oRs("mld_ins_discipline_key").value;
 }
 %>
 

APPL/FAC/fac_edit_faq_save.asp

@@ -30,7 +30,6 @@
                   { dbs: "fac_faq_url",        typ: "varchar",  frm: "fac_url" },
                   { dbs: "fac_faq_level",      typ: "number",   frm: "fac_faq_level" },
                   { dbs: "mld_stdmelding_key", typ: "key",      frm: "stdm" },
-                  { dbs: "ins_discipline_key", typ: "key",      frm: "disc" },
                   { dbs: "prs_perslid_key",    typ: "key",      val: user_key },
                   { dbs: "fac_faq_datum",      typ: "date",     frm: "date_from" },
                   { dbs: "fac_faq_lang",       typ: "varchar",  frm: "fac_faq_lang" }

APPL/FAC/fac_faq_list.asp

@@ -51,7 +51,7 @@ if (searchtext != null)
           + "        OR " + fac.createOrOrClause("UPPER(fac_faq_answer)", supper, (authparamsBOF||authparamsFOF)?0:2)
           + "       )"
           + (disc_key_arr
-            ? " AND COALESCE(sm.mld_ins_discipline_key, f.ins_discipline_key) IN (" + disc_key_arr + ")"
+            ? " AND sm.mld_ins_discipline_key IN (" + disc_key_arr + ")"
             : "")
           + (stdm_key_arr
             ? " AND sm.mld_stdmelding_key IN (" + stdm_key_arr + ")"

APPL/FAC/fac_setting.asp

@@ -13,8 +13,7 @@
 <!-- #include file="fac.inc" -->
 
 <%
-FCLTHeader.Requires({ plugins:["jQuery"],
-                      js: ["num2curr.js"] })
+FCLTHeader.Requires({ plugins:["jQuery"] })
 
 var fac_key = getQParamInt("fac_key");
 
@@ -37,6 +36,15 @@ var canChange = (user.oslogin() == "_FACILITOR" || oRs("fac_setting_flags").Valu
   <head>
 <%  FCLTHeader.Generate(); %>
     <script type="text/javascript" >
+      function isGoodNumber(str, checkInteger)
+      { // positive and negative values are valid.
+        var anum=/(^\d+$)|(^\d+\.\d*$)|(^\d*\.\d+$)|(^-\d+$)|(^-\d+\.\d*$)|(^-\d*\.\d+$)/
+
+        if ( checkInteger ) {
+          anum=/(^\d+$)|(^-\d+$)/
+        }
+        return anum.test(str);
+      }
 
       function doSubmit()
       {
@@ -74,7 +82,7 @@ var canChange = (user.oslogin() == "_FACILITOR" || oRs("fac_setting_flags").Valu
   	      		{
 	        			rtype = (isNaN(parseInt(vtype, 10))
         								? 1
-        								: (isGoodNumber(vtype,true,false,-1,-1)
+        								: (isGoodNumber(vtype, true)
         									? 0
         									: 1)
         								);
@@ -84,7 +92,7 @@ var canChange = (user.oslogin() == "_FACILITOR" || oRs("fac_setting_flags").Valu
   	      		{
 	        			rtype = (!isFinite(parseFloat(vtype))
         								? 1
-        								: (isGoodNumber(vtype,false,false,-1,-1)
+        								: (isGoodNumber(vtype , false)
         									? 0
         									: 1)
         								);

APPL/FAC/fac_setting_search.asp

@@ -20,7 +20,6 @@ FCLTHeader.Requires({plugins:["jQuery"], js: []});
 var autosearch = getQParamInt("autosearch", 0) == 1;
 var autfunction = "WEB_PRSSYS";
 var authparams = user.checkAutorisation(autfunction);
-var module = getQParam("module", "");
 %>
 <html>
 <head>
@@ -57,7 +56,6 @@ var module = getQParam("module", "");
 								+ "       fac_setting_module fac_module,"
 								+ "       fac_setting_module fac_module "
 								+ "FROM fac_setting "
-                + (module!="" ? " WHERE fac_setting_module = " + safe.quoted_sql(module) :"")
 								+ "ORDER BY fac_setting_module";
 						FCLTselector("sModule",
 												 sql,

APPL/FAC/fac_usrrap.inc

@@ -114,12 +114,9 @@ __Log("Column names: has3D_LOC="+has3D_LOC+", has3D_PRS="+has3D_PRS+", has3D_INS
     {
         if (where3D != "") where3D += " AND "
         where3D += " FCLT_3D_AFDELING_KEY IN"
-                 + "    (SELECT prs_afdeling_key FROM prs_v_afdeling_familie a"
-                 + "      WHERE a.prs_afdeling_elder_key IN"
-                 + "        (SELECT aa.prs_afdeling_elder_key"
-                 + "           FROM prs_v_afdeling_familie aa"
-                 + "          WHERE aa.prs_afdeling_key = " + user.prs_afdeling_key()
-                 + "            AND aa.niveau = " + authparams.PRSreadlevel + "))"
+                 +   "(SELECT prs_afdeling_key FROM fac_v_my_prs_afdelingen_read "
+                 +   "  WHERE fac_functie_code ='"+autfunction+"'"
+                 +   "    AND prs_perslid_key="+user_key+")"
     }
     if (has3D_USR )
     {

APPL/FAC/help.asp

@@ -36,27 +36,7 @@ else
 var module = pathparts[pathparts.length-2]; // <20><>n na laatste folder
 var file = pathparts[pathparts.length-1];
 
-var helppage_url = S("helppage_url");
-var sql = "SELECT fac_setting_default"
-        + "     , fac_setting_pvalue"
-        + "  FROM fac_setting fs"
-        + " WHERE fs.fac_setting_name = 'helppage_url'";
-var oRs = Oracle.Execute(sql);
-if (!oRs("fac_setting_pvalue").value)
-{ // Default waarde wordt niet overruled
-  var fac_setting_default = "" + oRs("fac_setting_default").value;
-  var linkProtocol = fac_setting_default.substr(0, 5) == "https"? "https" : "http";
-  var isProtocol = (Request.ServerVariables("SERVER_PORT") == "443")? "https" : "http";
-  if (isProtocol != linkProtocol)
-  { // Nu helppage_url aanpassen aan het protocol wat gebruikt wordt.
-    if (isProtocol == "https")
-      helppage_url.replace("http", "https");
-    else
-      helppage_url.replace("https", "http");
-  }
-}
-
-var url = helppage_url+"?mod="+Server.URLencode(module)+"&file="+Server.URLencode(file)+"&cust="+customerId
+var url = S("helppage_url")+"?mod="+Server.URLencode(module)+"&file="+Server.URLencode(file)+"&cust="+customerId
 if (S("iLearning_enabled")==1)
     url += '&ilearning=1';
 

APPL/FAC/prodsearch.asp

@@ -67,7 +67,7 @@ function fncolType(oRs)
         {
             if (wrds[i].length)
             {
-                re= new RegExp(wrds[i], 'ig');
+                re= new RegExp(escapeRegExp(wrds[i]), 'ig');
                 resstr = resstr.replace (re, "<strong>$&</strong>");
             }
             i ++;
@@ -185,6 +185,10 @@ function fncolAction(oRs)
     return '<img class="details" height="100px" src="' + icon +'" title="'+ hint + '">';
 }
 
+function escapeRegExp(str) {
+  return str.replace(/[\-\[\]\/\{\}\(\)\*\+\?\.\\\^\$\|]/g, "\\$&");
+}
+
 function fncolProduct(oRs)
 {
     var re;
@@ -197,7 +201,7 @@ function fncolProduct(oRs)
     {
         if (wrds[i].length)
         {
-            re= new RegExp(wrds[i], 'ig');
+            re= new RegExp(escapeRegExp(wrds[i]), 'ig');
             resstr = resstr.replace (re, "<strong>$&</strong>");
         }
         i ++;
@@ -565,7 +569,6 @@ if (authparamsPHB)
              +  "     " + S("prs_dep_string") + " extra,"
              + "      -1 disc_key,"
              + "      NULL foto,"
-             + "      prs_perslid_naam,"
              + "      prs_srtperslid_omschrijving"
              + " FROM prs_v_aanwezigperslid p"
              + "    , prs_v_aanwezigafdeling d"
@@ -584,14 +587,11 @@ if (authparamsPHB)
   	             + " WHERE a.prs_bedrijf_key = " + user.afdeling().prs_bedrijf_key() + ")"
   	           : "")
              + (authparamsPHB.PRSreadlevel > 0  // Zit de afdeling van de persoon in mijn scope
-               ? " AND D.prs_afdeling_key IN "
-                 + "    (SELECT prs_afdeling_key FROM prs_v_afdeling_familie a"
-                 + "      WHERE a.prs_afdeling_elder_key IN"
-                 + "        (SELECT aa.prs_afdeling_elder_key"
-                 + "           FROM prs_v_afdeling_familie aa"
-                 + "          WHERE aa.prs_afdeling_key = " + user.prs_afdeling_key()
-                 + "            AND aa.niveau = " + authparamsPHB.PRSreadlevel + "))"
-               : "")
+               ? " AND d.prs_afdeling_key IN "
+                 + " (SELECT prs_afdeling_key FROM fac_v_my_prs_afdelingen_read"
+  	             + " WHERE prs_perslid_key = " + user_key
+  	             + " AND fac_functie_code = 'WEB_PHONEB')"
+  	           : "")
   	         + (authparamsPHB.ALGreadlevel > -1 // Zit de werkplek van de persoon in mijn scope
   	           ? " AND pwg.alg_ruimte_key IN"
                  + " (SELECT alg_ruimte_key FROM fac_v_my_rooms"
@@ -599,12 +599,8 @@ if (authparamsPHB)
                  + " AND niveau = " + authparamsPHB.ALGreadlevel + ")"
                : "")
              + " GROUP BY p.prs_perslid_key" // Er kunnen meerdere werkplekken zijn die dezelfde resultatenopleveren.
-               + "      , p.prs_perslid_naam"
-               + "      , p.prs_perslid_voorletters"
-               + "      , p.prs_perslid_tussenvoegsel"
-               + "      , p.prs_perslid_voornaam"
+               + "      , "+S("prs_pers_string")
                + "      , "+S("prs_dep_string")
-               + "      , prs_perslid_naam"
                + "      , prs_srtperslid_omschrijving",
             icon : "../Pictures/person.png",
             intern: L("lcl_srch_personen"),

APPL/FIN/fin.inc

@@ -112,7 +112,11 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
                          break;
                 case 6:  // Akkoord
                          fresult.canUnapprove      = (fresult.canWrite("WEB_FINBOF") || kpverantwoordelijke == user_key) && (kpverantwoordelijke > 0);
-                         fresult.canChange         = fresult.canWrite("WEB_FINFOF"); // Maar na wijzigen moet er opnieuw gefiatteed worden door BO.
+                         // Maar na wijzigen moet er opnieuw gefiatteed worden door BO.
+                         fresult.canChange         = fresult.canWrite("WEB_FINFOF");
+                         fresult.canDateChange     = fresult.canWrite("WEB_FINFOF");
+                         fresult.canRemarkChange   = fresult.canWrite("WEB_FINFOF");
+                         fresult.canInvLinChange   = fresult.canWrite("WEB_FINFOF");
                          break;
                 case 7:  // Verwerkt
                          break;
@@ -121,6 +125,17 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
             return fresult;
           },
 
+        isGoodNumber:
+          function _isGoodNumber(str, checkInteger)
+          {
+            var anum=/^(-?\d{1,6}[.,]?|-?\d{0,6}[.,]\d{1,2})$/
+            if ( checkInteger ) {
+              anum=/^(-?\d{1,6}[.,]?)$/
+            }
+            return (str.match(anum)&&true);
+          },
+
+
         analysereferentie:
           function _analysereferentie(ref)
           { // Levert info op van de meegegeven referentie
@@ -225,7 +240,7 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
                 }
               }
 
-              if (!find || opdr_s[0] == null || !shared.isGoodNumber(opdr_s[0],true,false,6,-1) || (opdr_s[1] && !shared.isGoodNumber(opdr_s[1],true,false,6,-1)))
+              if (!find || opdr_s[0] == null || !fin.isGoodNumber(opdr_s[0], true) || (opdr_s[1] && !fin.isGoodNumber(opdr_s[1], true)))
               {
                 result.message = L("lcl_fin_invalid_ref");
                 return result;
@@ -271,7 +286,7 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
               var besopdr = ref;
               var besopdr_s = ref_s;
               // check of het nummer voor de / en eventueel erachter een geldig nummer is. Bestelnummer bevatten geen prefix.
-              if (!shared.isGoodNumber(besopdr_s[0],true,false,6,-1) || (besopdr_s[1] && !shared.isGoodNumber(besopdr_s[1],true,false,6,-1)))
+              if (!fin.isGoodNumber(besopdr_s[0], true) || (besopdr_s[1] && !fin.isGoodNumber(besopdr_s[1], true)))
               {
                 result.message = L("lcl_fin_invalid_ref");
                 return result;
@@ -909,6 +924,7 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
                           var result = { message: L("lcl_fin_not_exist")
                                        };
                         }
+                        oRs.close();
 
                         // Locations + Buildings
                         sql = "SELECT 0"
@@ -993,6 +1009,7 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
                                      });
                 oRs.moveNext();
               }
+              oRs.close();
             }
 
             if (result.lev_uit_key)
@@ -1035,6 +1052,7 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
               result.aantalfacturen = oRs("aantal_facturen").value;
               result.totaalbedrag = oRs("totaal_bedrag").value;
               result.totaalbtwbedrag = oRs("totaal_btw_bedrag").value;
+              oRs.close();
             }
 
             return result;
@@ -1059,6 +1077,7 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
                            aantal: oRs("aantal").value? oRs("aantal").value : 0,
                            totaal: oRs("totaal").value? safe.curr(oRs("totaal").value) : 0
                          };
+            oRs.close();
             return result;
           },
 

APPL/FIN/fin_edit_factuur_save.asp

@@ -182,7 +182,7 @@ while (frnum <= rowIndex)
         + fin_key
         + ", " + regelnr
         + ", " + sum
-        + ", " + (sum * ((verlegd == 0? BTW : 0) / 100))
+        + ", " + (verlegd ? 0 : (sum * BTW / 100))
         + ", " + safe.quoted_sql(descr)
         + ", " + safe.quoted_sql(ref)
         + ", " + BTWkey

APPL/FIN/sel_items_tab.js

@@ -87,7 +87,7 @@ function CreateRow(sum, BTW, btwkey, sumBTW, descr, ref, ksrt_key, ksrt_oms, ver
   var table = $("#sel_items")[0];
 
   // Insert data rows
-  var tr = table.insertRow(-1);
+  tr = table.insertRow(-1);
 
   if (canInvLinChange)
   {
@@ -120,13 +120,13 @@ function CreateRow(sum, BTW, btwkey, sumBTW, descr, ref, ksrt_key, ksrt_oms, ver
 
     if (canInvLinChange)
     {
-      var x = new Suggest({ objectName: "sgCostCentre" + rowIndex,
-                            queryField: $("#fincostsrt" + rowIndex + "_show")[0],
-                            queryUrl: "../shared/suggest/SuggestKostensoort.asp?a=1",
-                            initKey: ksrt_key,
-                            keyField: $("#fincostsrt" + rowIndex)[0],
-                            highlightDescript: true
-                          });
+      x = new Suggest({ objectName: "sgCostCentre" + rowIndex,
+                        queryField: $("#fincostsrt" + rowIndex + "_show")[0],
+                        queryUrl: "../shared/suggest/SuggestKostensoort.asp?a=1",
+                        initKey: ksrt_key,
+                        keyField: $("#fincostsrt" + rowIndex)[0],
+                        highlightDescript: true
+                      });
       window["sgCostCentre" + rowIndex] = x;
     }
   }
@@ -231,9 +231,9 @@ function CancelOrder(index)
     document.getElementById("totalBTW_txt").innerHTML = currency_pref + num2curr(totalBTW) + currency_suff;
     document.forms.u2.total.value = num2curr(total);
 
-    var tr = selectedItems[index].row;
+    tr = selectedItems[index].row;
 
-    var trIndex = tr.rowIndex;
+    trIndex = tr.rowIndex;
     document.getElementById("sel_items").deleteRow(trIndex);
 
     selectedItems[index].row = null;
@@ -241,23 +241,34 @@ function CancelOrder(index)
   }
 }
 
+function isGoodNumber(str, checkInteger)
+{
+  var anum = /^(-?\d{1,6}[.,]?|-?\d{0,6}[.,]\d{1,2})$/
+  if (checkInteger)
+  {
+    anum = /^(-?\d{1,6}[.,]?)$/
+  }
+  return (str.match(anum)&&true);
+}
+
 function SumChanged(evt)
 {
-  evt = evt || window.event;
-  var obj = evt.srcElement || evt.target;
-  var sum = parseFloat(obj.value.replace(',', '.'));
-  var defaultamount = 0;
+    evt = evt || window.event;
+  obj =evt.srcElement;
+  sum = parseFloat(obj.value.replace(',', '.'));
+  defaultamount = 0;
   if (obj.value == '')
     obj.value = sum = defaultamount;
   if (obj.value == '' || isNaN(sum > 0? sum : -sum) ||
-     !isGoodNumber(obj.value + "", false,false,8,2))
+     !isGoodNumber(obj.value + "", false))
   {
      alert(L("lcl_fin_invalidSum"));
      obj.focus();
      return;
   }
   obj.value = num2curr(sum);
-  var index = obj.id.substring(3);
+  index = obj.id.substring(3);
+
 
   selectedItems[index].sum = sum;
 
@@ -266,9 +277,9 @@ function SumChanged(evt)
 
 function BTWChanged(evt)
 {
-  evt = evt || window.event;
-  var obj = evt.srcElement || evt.target;
-  var index = obj.id.substring(3);
+    evt = evt || window.event;
+  obj = evt.srcElement;
+  index = obj.id.substring(3);
 
   selectedItems[index].BTW = obj.options[obj.selectedIndex].getAttribute("value2");
   selectedItems[index].verlegd = obj.options[obj.selectedIndex].getAttribute("verlegd");

APPL/IMP/imp_shared.js

@@ -139,6 +139,9 @@ function impReadStream(fileStream, import_app_key, params)
     if (fileDataArr.length == 1)
         var fileDataArr = fileData.split(/\x0A/); // Misschien alleen UNIX LF's?
 
+    if (fileDataArr.length == 1)
+        var fileDataArr = fileData.split(/\x0D/); // Misschien alleen MAC CR's?
+
     var sqllen = 0;
     for (var regel in fileDataArr)
     {

APPL/INS/ins_edit_deel.asp

@@ -223,11 +223,11 @@ var tekenbaar = false;
     oRs = Oracle.Execute(sql);
     if (!oRs.eof)
     {
-      disc_key    = oRs('ins_discipline_key').value;
       // Als ik een onderdeel toevoeg (parent_key>0 en ins_key<0) is het niet waarschijnlijk
-      // dat groep/soort/omschrijving gelijk zijn  aan die van de parent
+      // dat disc/groep/soort/omschrijving gelijk zijn  aan die van de parent
       if (ins_key > 0 || copy)
       {
+        disc_key    = oRs('ins_discipline_key').value;
         srtdeel_key  = oRs('ins_srtdeel_key').value;
         srtgroep_key = oRs('ins_srtgroep_key').value;
         srtcode   = oRs('ins_srtdeel_code').value;

APPL/INS/ins_edit_deel_multi.asp

@@ -108,14 +108,15 @@ user.auth_required_or_abort(tobeedited > 0); // We klagen niet over enkele wel e
       else
       {
         generateFlexKenmerkBlock({
-            fnpre: function () {BLOCK_START("insMultiEdit"+(S("ins_flexcolumns")!=1?"2":""), L("lcl_flexible_properties"));},
+            fnpre: function () {BLOCK_START("insMultiEdit", L("lcl_flexible_properties"));},
             fnpost: BLOCK_END,
             urole: urole,
             ins_key: -1,
             srtdeel_key: ins_srtdeel_key,
             nodefaults: true,
             reado: false,
-            flexcolumns: S("ins_flexcolumns")
+            multi: true,
+            flexcolumns: 1 // altijd want popup
           });
       }
       var buttons =  [];

APPL/INS/ins_flexkenmerk.inc

@@ -217,6 +217,12 @@ function generateFlexKenmerkBlock(params)
         nrflexcolumns = flexcolumns;
       }
 
+      function isInvisible(volgnummer, ktype)
+      {
+        if (params.multi)
+          return (ktype == 'M' || ktype == 'F' || ktype == 'E'); // onzichtbaar bij multi
+      }
+
       listKenmerk(sql,
                   "INS",
                   ins_key,
@@ -225,6 +231,7 @@ function generateFlexKenmerkBlock(params)
                     fnIsReadonly: isReadonly,
                     hideVervallen: ins_key < 0,
                     fnpre: params.fnpre,
+                    fnIsInvisible: isInvisible,
                     fnpost: params.fnpost,
                     parentKey: ins_key,
                     nameprefix: nameprefix,

APPL/INS/ins_history_add.asp

@@ -14,8 +14,7 @@
 <!-- #include file="../Shared/iface.inc" -->
 <!-- #include file="../Shared/calendar.inc" -->
 
-<% FCLTHeader.Requires({ plugins:["jQuery"],
-                         js: ["num2curr.js"] })
+<% FCLTHeader.Requires({ plugins:["jQuery"] })
 
 var inskenmerkkey = getQParamInt("inskenmerkkey", -1);
 var inskenmerkdeelkey = getQParamInt("inskenmerkdeelkey", -1);
@@ -28,6 +27,15 @@ var new_value = "";
   <head>
 <%  FCLTHeader.Generate(); %>
     <script type="text/javascript">
+      function isGoodNumber(str, checkInteger)
+      {
+        var anum=/(^\d+$)|(^\d+\.\d*$)|(^\d*\.\d+$)/
+        if ( checkInteger ) {
+          anum=/(^\d+$)/
+        }
+        return anum.test(str);
+      }
+
       function doSubmit()
       {
         document.forms.u2.submit();
@@ -35,7 +43,7 @@ var new_value = "";
 
       function ins_submit()
       {
-        if (!isGoodNumber($("#new_value").val(),true,true,-1,-1))
+        if (!isGoodNumber($("#new_value").val(), true))
         {
           alert(L("lcl_ins_bad_value"));
           return false;

APPL/INS/ins_inspect_list.asp

@@ -55,49 +55,43 @@ var authparams = user.checkAutorisation("WEB_INSUSE");
     // dan de inspecties die gedaan zijn.
 
     // mogelijke insepcties op dit object
-    var sqlA = "SELECT 1 seq"
-            + "     , id.ins_deel_key"
-            + "     , ins_deel_aanmaak"
-            + "     , TO_DATE(NULL) ins_deelsrtcontrole_datum"
-            + "     , COALESCE((SELECT MAX(idsc.ins_deelsrtcontrole_datum) ins_deelsrtcontrole_datum"
-              + "                 FROM ins_deelsrtcontrole idsc"
-              + "                WHERE isc.ins_srtcontrole_key = idsc.ins_srtcontrole_key"
-              + "                  AND idsc.ins_deel_key = id.ins_deel_key), ins_deel_aanmaak) + ins_srtcontrole_periode inspectie_next"
-            + "     , isc.ins_srtcontrole_key"
-            + "     , ins_srtcontrole_omschrijving"
-            + "     , -1 ins_deelsrtcontrole_key"
-            + "     , ins_srtcontrole_periode"
-            + "     , '' ins_deelsrtcontrole_opmerking"
-            + "     , null inspecteur"
-            + "  FROM ins_deel id"
-            + "     , ins_srtdeel s"
-            + "     , ins_srtcontrole isc"
+    var sqlA = "SELECT 1 seq,"
+            + "       id.ins_deel_key,"
+            + "       ins_deel_aanmaak,"
+            + "       TO_DATE(NULL) ins_deelsrtcontrole_datum,"
+            + "       COALESCE((SELECT MAX(idsc.ins_deelsrtcontrole_datum) ins_deelsrtcontrole_datum"
+            + "                   FROM ins_deelsrtcontrole idsc"
+            + "                  WHERE isc.ins_srtcontrole_key = idsc.ins_srtcontrole_key"
+            + "                    AND idsc.ins_deel_key = id.ins_deel_key), ins_deel_aanmaak) + ins_srtcontrole_periode inspectie_next,"
+            + "       isc.ins_srtcontrole_key,"
+            + "       ins_srtcontrole_omschrijving,"
+            + "       -1 ins_deelsrtcontrole_key,"
+            + "       ins_srtcontrole_periode,"
+            + "       '' ins_deelsrtcontrole_opmerking"
+            + "  FROM ins_deel id,"
+            + "       ins_srtdeel s,"
+            + "       ins_srtcontrole isc"
             + " WHERE s.ins_srtdeel_key = id.ins_srtdeel_key"
-            + "    AND (   isc.ins_srtcontrole_niveau = 'S' AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key"
-              + "       OR isc.ins_srtcontrole_niveau = 'G' AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key"
-              + "       OR isc.ins_srtcontrole_niveau = 'D' AND isc.ins_srtinstallatie_key = id.ins_discipline_key"
-              + "     )"
+            + "    AND (    isc.ins_srtcontrole_niveau = 'S' AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key"
+            + "         OR isc.ins_srtcontrole_niveau = 'G' AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key"
+            + "         OR isc.ins_srtcontrole_niveau = 'D' AND isc.ins_srtinstallatie_key = id.ins_discipline_key"
+            + "       )"
             + "   AND id.ins_deel_key = " + ins_key;
 
     // Combineren met uitgevoerde inspecties op dit object
-    var sqlB = "SELECT 2 seq"
-            + "     , id.ins_deel_key"
-            + "     , ins_deel_aanmaak"
-            + "     , idsc.ins_deelsrtcontrole_datum"
-            + "     , TO_DATE(NULL) inspectie_next"
-            + "     , idsc.ins_srtcontrole_key"
-            + "     , ins_srtcontrole_omschrijving"
-            + "     , idsc.ins_deelsrtcontrole_key"
-            + "     , ins_srtcontrole_periode"
-            + "     , idsc.ins_deelsrtcontrole_opmerking"
-            + "     , " + S("prs_pers_string") + " inspecteur"
-            + "  FROM ins_deel id"
-            + "     , ins_deelsrtcontrole idsc"
-            + "     , ins_srtcontrole isc"
-            + "     , prs_perslid p"
+    var sqlB = "SELECT 2 seq,"
+            + "       id.ins_deel_key,"
+            + "       ins_deel_aanmaak,"
+            + "       idsc.ins_deelsrtcontrole_datum,"
+            + "       TO_DATE(NULL) inspectie_next,"
+            + "       idsc.ins_srtcontrole_key,"
+            + "       ins_srtcontrole_omschrijving,"
+            + "       idsc.ins_deelsrtcontrole_key,"
+            + "       ins_srtcontrole_periode,"
+            + "       idsc.ins_deelsrtcontrole_opmerking"
+            + "  FROM ins_deel id, ins_deelsrtcontrole idsc, ins_srtcontrole isc"
             + " WHERE idsc.ins_srtcontrole_key = isc.ins_srtcontrole_key"
             + "   AND idsc.ins_deel_key = id.ins_deel_key"
-            + "   AND idsc.prs_perslid_key = p.prs_perslid_key(+)"
             + "   AND id.ins_deel_key = " + ins_key;
 
     var sql = sqlA + " UNION ALL " + sqlB
@@ -161,7 +155,6 @@ var authparams = user.checkAutorisation("WEB_INSUSE");
     rst.addColumn(new Column({caption: L("lcl_ins_controle_oms"), content: "ins_srtcontrole_omschrijving"}));
 //    rst.addColumn(new Column({caption: "ins_srtcontrole_periode", content: "ins_srtcontrole_periode"}));
     rst.addColumn(new Column({caption: L("lcl_ins_controle_opm"), content: "ins_deelsrtcontrole_opmerking"}));
-    rst.addColumn(new Column({caption: L("lcl_ins_inspecteur"), content: "inspecteur"}));
 
     rst.addAction({ action: "ins_edit", caption: L("lcl_edit"), isDefault: true});
 

APPL/INS/ins_inspect_save.asp

@@ -56,8 +56,7 @@ for (var i = 0; i < ingesloten.length; i++)
                   { dbs: "ins_srtcontrole_key",           typ: "key",      frm: "sel_srtcontrole" },
                   { dbs: "ins_deelsrtcontrole_datum",     typ: "datetime", val: datum },
                   { dbs: "ins_controlemode_key",          typ: "key",      frm: "sel_controlemode" },
-                  { dbs: "ins_deelsrtcontrole_opmerking", typ: "varchar",  frm: "opmerk", len: 2000 },
-                  { dbs: "prs_perslid_key",               typ: "key",      val: user_key }
+                  { dbs: "ins_deelsrtcontrole_opmerking", typ: "varchar",  frm: "opmerk", len: 2000 }
                  ];
 
   if (deelsrtcont_key < 0) // Nieuwe inspectie

APPL/INS/ins_list.inc

@@ -59,8 +59,9 @@
 
 <%
 FCLTHeader.Requires({ plugins:["jQuery"],
-                      js: ["../INS/ins_list.js", "num2curr.js"]
+                      js: ["../INS/ins_list.js"]
                     });
+
 function ins_list (pautfunction, params)
 {
  var buttons = [];
@@ -278,7 +279,7 @@ function ins_list (pautfunction, params)
             }
 
             newInput += '<input type="text" maxlength="10" style="width:100;text-align:right"'
-                      + ' onBlur="checkInput(event);" onKeyPress="return checkEnter(event);"'
+                      + ' onBlur="checkInput();" onKeyPress="return checkEnter(event);"'
                       + ' id="cnt' + rst.rowNum + '" name="cnt' + rst.rowNum + '" value=""'
                       + ' value1="' + oRs("ins_srtkenmerk_kenmerktype").value + '"'
                       + ' value2="' + oRs("ins_srtkenmerk_lengte").value + '"'
@@ -1187,7 +1188,7 @@ function ins_list (pautfunction, params)
         function fnInspectie(oRs) // TODO: Of via RowClass
         {
             var dt = new Date(oRs("inspectie_next").Value);
-            var dttxt = toDateTimeString(oRs("inspectie_next").Value);
+            var dttxt = toDateString(oRs("inspectie_next").Value);
 
             return dttxt;
         }

APPL/INS/ins_list.js

@@ -40,10 +40,18 @@ function insSave(rowArray)
   }
 }
 
-function checkEnter(evt)
+function isGoodNumber(str, checkInteger)
+{
+  var anum = /(^\d+$)|(^\d+\.\d*$)|(^\d*\.\d+$)/
+  if (checkInteger)
+    anum=/(^\d+$)/
+  return anum.test(str);
+}
+
+function checkEnter(e)
 { // e is event object passed from function invocation
-  evt = evt || window.event;
-  var characterCode = evt.keyCode; // literal character code will be stored in this variable, character code is contained in IE's keyCode property
+  e = event;
+  var characterCode = e.keyCode; // literal character code will be stored in this variable, character code is contained in IE's keyCode property
 
   if (characterCode == 13) // if generated character code is equal to ascii 13 (if enter key)
     return false;
@@ -51,24 +59,23 @@ function checkEnter(evt)
     return true;
 }
 
-function checkInput(evt)
+function checkInput()
 {
-  evt = evt || window.event;
-  var obj = evt.srcElement || evt.target;
-  var new_val = obj.value;
-  var sk_kenmerktype = obj.value1;
-  var sk_lengte = parseInt(obj.value2, 10);
-  var sk_nmin = parseInt(obj.value3, 10);
-  var sk_nmax = parseInt(obj.value4, 10);
+  obj = event.srcElement;
+  new_val = obj.value;
+  sk_kenmerktype = obj.value1;
+  sk_lengte = parseInt(obj.value2, 10);
+  sk_nmin = parseInt(obj.value3, 10);
+  sk_nmax = parseInt(obj.value4, 10);
 
   if (sk_kenmerktype == 'N')
   {
     if (new_val == "" ||
       new_val >= 0 ||
-      (!isNaN(new_val) && isGoodNumber(new_val,true,true,-1,-1) && parseInt(new_val,10) >= 0))
+      (!isNaN(new_val) && isGoodNumber(new_val, true) && parseInt(new_val,10) >= 0))
     {
       i = obj.id.substring(3);
-      var last_value = parseInt(document.getElementById("last_val" + i).value,10);
+      last_value = parseInt(document.getElementById("last_val" + i).value,10);
       if (new_val == "") new_val = last_value;
       if (new_val < last_value)
       {

APPL/INS/ins_search.asp

@@ -360,7 +360,7 @@ var authparams = user.checkAutorisation(autfunction);
       if (backo)
       {
           buttons.push ( {title: L("lcl_shared_more"),  action:"iface_toggleSecondarySearchblock()", id : "btnMoreLess" } );
-          buttons.push ( {title: L("lcl_obj_advanced"), action:"myModal()", id: "btnAdvanced" } );
+          buttons.push ( {title: L("lcl_obj_advanced"), action: "myModal()" } );
       }
       CreateButtons(buttons, { entersubmit: true} );
 %>

APPL/INS/ins_search.js

@@ -39,7 +39,6 @@ function onChangeSrtgroep(srtgroep_key)
 
 function onChangeSrtdeel(srtdeel_key)
 { // Zet de soortgroep indien niet ingevuld.
-  resetFilter(); // filter (geavanceerd zoeken) leeg maken
   if (srtdeel_key > 0 && $("#srtgroep").val() <= 0 && typeof sgSrtgroep != "undefined")
   {
     $.getJSON("../Shared/get_ins_info.asp",

APPL/INS/ins_verbruik.js

@@ -2,19 +2,39 @@
      $Revision$
      $Id$
 */
-
-function checkInput(evt)
+function isGoodNumber(str, checkInteger)
 {
-  evt = evt || window.event;
-  var obj = evt.srcElement || evt.target;
-  var new_val = obj.value;
-  var sk_kenmerktype = obj.value1;
-  var sk_lengte = parseInt(obj.value2,10);
-  var sk_nmin = parseInt(obj.value3,10);
-  var sk_nmax = parseInt(obj.value4,10);
+  var anum=/(^\d+$)|(^\d+\.\d*$)|(^\d*\.\d+$)/
+  if ( checkInteger ) {
+    anum=/(^\d+$)/
+  }
+  return anum.test(str);
+}
+
+function checkEnter(e){ //e is event object passed from function invocation
+  var characterCode //literal character code will be stored in this variable
+  e = event;
+  characterCode = e.keyCode; //character code is contained in IE's keyCode property
+
+  if(characterCode == 13) {//if generated character code is equal to ascii 13 (if enter key)
+    return false;
+  }
+  else {
+    return true;
+  }
+}
+
+function checkInput()
+{
+  obj = event.srcElement;
+  new_val = obj.value;
+  sk_kenmerktype = obj.value1;
+  sk_lengte = parseInt(obj.value2,10);
+  sk_nmin = parseInt(obj.value3,10);
+  sk_nmax = parseInt(obj.value4,10);
 
   if (sk_kenmerktype == 'N') {
-    if( new_val == "" || new_val >= 0 || (!isNaN(new_val) && isGoodNumber(new_val,true,true,-1,-1) &&
+    if( new_val == "" || new_val >= 0 || (!isNaN(new_val) && isGoodNumber(new_val, true) &&
         parseInt(new_val,10) >= 0 )) {
 
       i = obj.id.substring(3);

APPL/INS/ins_verbruik_list.inc

@@ -18,7 +18,7 @@
 
 <%
 FCLTHeader.Requires({ plugins:["jQuery"],
-                      js: ["../ins/ins_verbruik.js", "num2curr.js"]
+                      js: ["../ins/ins_verbruik.js"]
                     })
 
 
@@ -184,7 +184,7 @@ function verbruik_list(pautfunction, params)
           }
 
           var result = "<input type='text' maxlength=10 style='width:100;text-align:right'"
-                     + " onBlur='checkInput(event);'"
+                     + " onBlur='checkInput();'"
                      + " id='cnt" + count + "' name='cnt" + count + "' value=''"
                      + " value1='" + oRs("ins_srtkenmerk_kenmerktype").value + "' value2='" + oRs("ins_srtkenmerk_lengte").value + "' value3='" + oRs("ins_srtkenmerk_nmin").value + "' value4='" + oRs("ins_srtkenmerk_nmax").value + "'"
 

APPL/Localscripts/FcltJquery.js

@@ -43,7 +43,7 @@ var FcltCallback = FcltCallbackAndThen(null);
 
 var FcltCallbackRefresh = FcltCallbackAndThen(function ()
     {
-      FcltMgr.reload();
+        FcltMgr.reload();
     });
 
 var FcltCallbackClose = FcltCallbackAndThen(function (json)
@@ -54,23 +54,13 @@ var FcltCallbackClose = FcltCallbackAndThen(function (json)
 
 var FcltCallbackDirtyLine = FcltCallbackAndThen(function (json)
     {
-      // Bestaat json.key uit 1 of meerdere keys?
-      if (json.key.indexOf(",") >= 0)
-      {
-        var key = json.key.split(",");
-        for (var i = 0; i < key.length; i++)
-        {
-          $("#row" + key[i]).addClass('dirty');
-        }
-      }
-      else
-        $("#row" + json.key).addClass('dirty');
+       $("#row" + json.key).addClass('dirty');
     });
 
 // Roep met Ajax syncroon(!) een asp bestand aan en lever de JSON data op.
 function FcltSyncgetJSON(url, data)
 {
-  var globalData;
+    var globalData;
   jQuery.ajax({ type: "GET",
                 url: url,
                 async: false,
@@ -79,10 +69,10 @@ function FcltSyncgetJSON(url, data)
                 success: function (data, textStatus) { globalData = data; }
               });
   if (globalData && globalData.warning)
-    alert(globalData.warning);
+      alert(globalData.warning);
   if (globalData && globalData.error)
-    alert(globalData.error);
-  return globalData;
+      alert(globalData.error);
+    return globalData;
 }
 
 // TODO Alleen als Logging aan?

APPL/Localscripts/modal_kenmerken.js

@@ -64,7 +64,7 @@ function showKenmerkModal(purl, ptitle)
       this.val = $("#k" + n + "val").val();
     this.key = $("#k" + n + "key").val();
     this.typ = $("#k" + n + "t").val();
-    this.op = $("#ko" + n).val();
+    this.op = $("#k" + n + "o").val();
     this.suggest = (this.typ == "S"? $("#Suggest" + $("#k" + n + "key").val() + "_show").val(): "");
   }
 
@@ -98,15 +98,14 @@ function showKenmerkModal(purl, ptitle)
     }
 
     if (toggle)
-      $("li:contains('" + L("lcl_advanced") + "')").addClass("selected");  // zoek op "Geavanceerd", dus zonder ".." erachter!
+      $("li:contains('" + L("lcl_shared_advanced") + "')").addClass("selected");
     else
-      $("li:contains('" + L("lcl_advanced") + "')").removeClass("selected");
+      $("li:contains('" + L("lcl_shared_advanced") + "')").removeClass("selected");
   }
 
   function _doReset()
   {
-    var aantal_kenm = $("#k_all").val();
-    for (i = 1; i <= aantal_kenm; i++)
+    for (i = 0; i < $('#k_all').val(); i++)
     {
       $('#ko' + i).val("=");
       $('#k' + i + 'val').val("");
@@ -168,24 +167,8 @@ function showKenmerkModal(purl, ptitle)
                               else
                                 $("#k" + (n + 1) + "val").val(kenmerk_waarden[n].val);
                               $("#k" + (n + 1) + "key").val(kenmerk_waarden[n].key);
-                              $("#ko" + (n + 1)).val(kenmerk_waarden[n].op);
+                              $("#k" + (n + 1) + "o").val(kenmerk_waarden[n].op);
                             }
                           }
                         });
 }
-
-function resetFilter()
-{
-    if (kenmerk_waarden && kenmerk_waarden.length > 0)
-    {
-        alert(kenmerk_waarden.length + ' kenmerken');
-        var aantal_kenm = $("#k_all").val();
-        for (i = 1; i <= aantal_kenm; i++)
-        {
-            $('#ko' + i).val("=");
-            $('#k' + i + 'val').val("");
-            $('#Suggest' + $('#k' + i + 'key').val() + '_show').val(""); // Mocht het een Suggestbox zijn dan text ook legen
-        }
-    }
-    $("li:contains('" + L("lcl_advanced") + "')").removeClass("selected");
-}

APPL/Localscripts/num2curr.js

@@ -24,24 +24,4 @@ function num2currEditable(fnum, decimals)
     fnum = fnum.substring(0, fnum.length - decimals - 1) + waarde2.substring(2, 1) + fnum.substring(fnum.length - decimals);
 
     return fnum;
-}
-
-function isGoodNumber(str, intOnly, posOnly, numLen, numDec)
-{
-    var posOnlyStr = (posOnly ? "" : "\\-?");
-    var numLenStr  = (numLen == -1 ? "" : (numDec == -1 ? numLen : (intOnly ? numLen : numLen - numDec)));
-    var numDecStr  = (numDec == -1 ? "" : numDec);
-
-    var intOnlyStr = "\\d{1," + numLenStr + "}[.,]?";
-    var dblOnlyStr = "\\d{0," + numLenStr + "}[.,]\\d{1," + numDecStr + "}" + "|"
-                   + "\\d{1," + numLenStr + "}[.,]\\d{0," + numDecStr + "}" ;
-
-    var anum = "^"
-             + posOnlyStr + "(" + intOnlyStr
-                                + (intOnly ? "" : "[.,]?" + "|" + dblOnlyStr)
-                          + ")"
-             + "$";
-
-    var patt = new RegExp(anum);
-    return patt.test(str);
-}
+}

APPL/MLD/mld.inc

@@ -1225,7 +1225,7 @@ mld = {setmeldingstatus:
                var sql = "SELECT ins_discipline_key"
                        + "     , DECODE(COALESCE(sd.ins_srtdiscipline_prefix, ''), '', '', sd.ins_srtdiscipline_prefix) prefix"
                        + "     , " + lcl.xsqla('md.ins_discipline_omschrijving', 'md.ins_discipline_key')
-                       + "     , ms.mld_stdmelding_uitvoertijd" // Uitvoertijd is in werkdagen
+                       + "     , COALESCE(ms.mld_stdmelding_uitvoertijd," + S("mld_melding_uitvoertijd") + ") mld_stdmelding_uitvoertijd" // Uitvoertijd is in werkdagen
                        + "     , ms.mld_stdmelding_uitvoertijd_pr1" // Uitvoertijd is in werkdagen
                        + "     , ms.mld_stdmelding_uitvoertijd_pr2"
                        + "     , ms.mld_stdmelding_uitvoertijd_pr4" // Uitvoertijd is in werkdagen
@@ -1559,7 +1559,7 @@ mld = {setmeldingstatus:
                         case 3: // Ingezien ('te accepteren') komt alleen nog voor als BO op edit drukt maar niet saved
                                 mresult.canUnlink       = (mresult.canWrite("WEB_MLDBOF"));
                                 break;
-                        case 4: // Geaccepteerd ('In behandeling') (expliciet mld_accept_save_save.asp of als backoffice bewerkt en opslaat)
+                        case 4: // Geaccepteerd ('In behandeling') (expliciet mld_accept.asp of als backoffice bewerkt en opslaat)
                                 mresult.canUnlink       = (mresult.canWrite("WEB_MLDBOF") || mresult.canWrite("WEB_MLDBO3"))
                                 break;
                         case 7: // Uitgegeven
@@ -1636,7 +1636,7 @@ mld = {setmeldingstatus:
                                 mresult.canPrioChange   = mresult.canStdmChange && (mresult.canWrite("WEB_MLDFOF") || (mresult.canFEwrite && frontendprio));
                                 mresult.canTerugzet     = (is_fo_vakgroep && mresult.canWrite("WEB_MLDBOF"));
                                 break;
-                        case 4: // Geaccepteerd ('In behandeling') (expliciet mld_accept_save.asp of als backoffice bewerkt en opslaat)
+                        case 4: // Geaccepteerd ('In behandeling') (expliciet mld_accept.asp of als backoffice bewerkt en opslaat)
                                 mresult.canStdmChange   = (mresult.canWrite("WEB_MLDBOF") || mresult.canWrite("WEB_MLDBO3"))
                                 mresult.canKostChange   = (mresult.canWrite("WEB_MLDBOF") || mresult.canWrite("WEB_MLDBO3") || mresult.canFEwrite);
                                 mresult.canFlexChange   = (mresult.canWrite("WEB_MLDBOF") || mresult.canWrite("WEB_MLDBO3"));
@@ -1974,8 +1974,7 @@ mld = {setmeldingstatus:
                             mresult.canFlexChange     = (mresult.haveORDFINrights || mresult.haveORDSUPrights) ||
                                                         (myBO2Change && mresult.canWrite("WEB_ORDAFR"));  /* AANS#22655 */
                             mresult.canKostChange     = (mresult.haveORDFINrights && S("mld_ord_show_kostenplaats") == 1);
-                            mresult.canFinish         = (!isofferte && typehas_cost && mresult.canWrite("WEB_ORDAFR")) ||
-                                                        (myBO2Change && mresult.canWrite("WEB_ORDAFR"));  /* AANS#22655 */
+                            mresult.canFinish         = (!isofferte && typehas_cost && mresult.canWrite("WEB_ORDAFR"));
                             mresult.canAcceptOffer    = (isofferte && (!lopende_offertes || !offerteauto) && mresult.haveORDOAPrights && mresult.canRead("WEB_ORDBOF"));
                             mresult.canRejectOffer    = (isofferte && mresult.haveORDOAPrights && mresult.canRead("WEB_ORDBOF"));
                             mresult.canOpmChange      = (mresult.haveORDSUPrights || mresult.canAcceptOffer || mresult.canRejectOffer) ||

APPL/MLD/mld.js

@@ -7,26 +7,26 @@
 
 function doAccept(json, callback)
 {
-  json.multi |= 0;
+    json.multi |= 0;
 
-  if (setting_mld_accept_confirm)
-  {
-	  var url = "../mld/mld_accept_confirm.asp?urole=" + urole
-	                                     + "&mld_key=" + json.mld_key
-	                                     + "&multi=" + json.multi
-	                                     + "&maybeDouble=" + (json.maybeDouble? 1 : 0);
-	  FcltMgr.openModalDetail(url, L("lcl_mld_complain"), {callback: callback});
-  }
-  else
-  {
+    if (setting_mld_accept_confirm)
+    {
+	    var url = "../mld/mld_accept_confirm.asp?urole=" + urole
+	                                       + "&mld_key=" + json.mld_key
+	                                       + "&multi=" + json.multi
+	                                       + "&maybeDouble=" + (json.maybeDouble? 1 : 0);
+	    FcltMgr.openModalDetail(url, L("lcl_mld_complain"), {callback: callback});
+	}
+	else
+	{
         if (json.multi || confirm(L("lcl_mld_accept_1") + json.prefix + json.mld_key + L("lcl_mld_accept_2")))
-          $.post("../mld/mld_accept_save.asp",
-                      { mld_key: json.mld_key,
-                        multi: json.multi,
-                        maybeDouble: (json.maybeDouble? 1 : 0) },
-                      FcltCallbackAndThen(callback),
-                      "json");
-  }
+            $.post("../mld/mld_accept.asp",
+                        { mld_key: json.mld_key,
+                          multi: json.multi,
+                          maybeDouble: (json.maybeDouble? 1 : 0) },
+                        FcltCallbackAndThen(callback),
+                        "json");
+    }
 }
 
 function doublecheckCallback(json, modalParams)
@@ -42,8 +42,10 @@ function doublecheckCallback(json, modalParams)
   {
     if (reloadmld)
       parent.location.href = "mld_melding.asp?urole=" + urole + "&mld_key=" + mld_key_arr + "&embedded=1";
+    else if (reject)
+      parent.FcltMgr.reload();
     else
-      FcltCallbackDirtyLine(json1, modalParams1);
+      FcltMgr.reload();
   }
 
   if (json.maybeDouble && !(multi == 1))
@@ -109,7 +111,7 @@ function opdrCloseCallback(json, textStatus)
       if (json.message)
         FcltCallback(json, textStatus); // Geef message weer
 
-      var url = "../mld/mld_close_confirm.asp?mld_key=" + json.mld_key + "&opdr_opm=" + json.opdr_opm;
+      var url = "../mld/mld_close_confirm.asp?mld_key=" + json.mld_key;
       url += "&lastopdr=1";
       FcltMgr.openModalDetail(url, L("lcl_mld_final_close"),
                                    { width: 400,

APPL/MLD/mld_accept.asp

@@ -10,7 +10,7 @@
 */ %>
 
 <%
-var JSON_Result = true;
+DOCTYPE_Disable = 1;
 %>
 
 <!-- #include file="../Shared/common.inc" -->
@@ -23,9 +23,6 @@ var multi = getFParamInt("multi", 0) == 1;
 var maybeDouble = getFParamInt("maybeDouble", 0) == 1;
 var urole = getFParam("urole", "bo");
 
-var opmerk = getFParam("opmerk", "");
-var has_opmerk = hasFParam("opmerk");
-
 // Geen autfunction bepaald. Je komt bij FIN niet binnen met een bepaalde rol (urole).
 // Alleen PRSreadlevel en PRSwritelevel van belang want fac_functie_min_level = 7 (lezen en schrijven organisatie)
 var authparamsMLDBOF = user.checkAutorisation("WEB_MLDBOF", true);
@@ -56,9 +53,6 @@ user.anything_todo_or_abort(toberejected > 0); // We klagen niet over enkele wel
 for (var i = 0; i < ingesloten.length; i++)
 {
   var behsql = "UPDATE mld_melding SET mld_melding_behandelaar_key = " + user_key
-             + (has_opmerk
-               ? "   , mld_melding_opmerking = " + safe.quoted_sql(opmerk)
-               : "")
              + " WHERE mld_melding_key = " + ingesloten[i];
 
   if (urole == "bo" && (authparamsMLDBOF || authparamsMLDBO3))
@@ -75,6 +69,6 @@ for (var i = 0; i < ingesloten.length; i++)
   }
 }
 
-var result = {success: true, message: "", key: mld_key_arr.join(",")};
+var result = {success: true, message: ""};
 Response.Write(JSON.stringify(result));
 %>

APPL/MLD/mld_accept_confirm.asp

@@ -23,10 +23,9 @@ var mld_key_arr = getQParamIntArray("mld_key");
 var multi = getQParamInt("multi", 0) == 1;
 var maybeDouble = getQParamInt("maybeDouble", 0) == 1;
 var urole = getQParam("urole", "bo");
+var submitting = getQParamInt("submit", 0) == 1;
 var opmerk = getFParam("opmerk", "");
 
-var TransitParam = buildTransitParam(["mld_key", "multi", "maybeDouble", "urole", "opmerk"]);
-
 // Geen autfunction bepaald. Je komt bij FIN niet binnen met een bepaalde rol (urole).
 // Alleen PRSreadlevel en PRSwritelevel van belang want fac_functie_min_level = 7 (lezen en schrijven organisatie)
 var authparamsMLDBOF = user.checkAutorisation("WEB_MLDBOF", true);
@@ -57,33 +56,72 @@ user.anything_todo_or_abort(toberejected > 0); // We klagen niet over enkele wel
 <html>
 	<head>
 <%	FCLTHeader.Generate(); %>
-		<script type="text/javascript">
-      jQuery(document).ready(function()
-                             {
-                               $('textarea').resize(function () { FcltMgr.resized(window) } );
-                               $('textarea').autogrow();
-                               $("#opmerk").focus();
-                             });
 
-			function mld_accept()
+<%
+		if (submitting)
+		{
+			var message = "";
+
+			for (var i = 0; i < ingesloten.length; i++)
 			{
-				if (!validateForm("u2"))
-					return false;
+				var fields = [{ dbs: "mld_melding_behandelaar_key", typ: "key",     val: user_key },
+                      { dbs: "mld_melding_opmerking",       typ: "varchar", val: opmerk }];
 
-        $.post($("form[name=acceptform]")[0].action, $("[name=acceptform]").serialize() + "<%=TransitParam%>", FcltCallbackClose, "json");
+  			var behsql = buildUpdate("mld_melding", fields)
+      			       + "     mld_melding_key = " + ingesloten[i];
+
+			  if (urole == "bo" && (authparamsMLDBOF || authparamsMLDBO3))
+  			{
+    			// Zetten van de status op geaccepteerd en afhandelen van de tracking.
+    			mld.setmeldingstatus(ingesloten[i], 4);
+    			Oracle.Execute(behsql);
+    			// Geen message "De melding PXXX/Y is geaccepteerd" meer geven (AADS#20339)
+	  		}
+  			else if (urole == "fo" && authparamsMLDFOF)
+  			{
+    			mld.setmeldingstatus(ingesloten[i], 0);
+    			Oracle.Execute(behsql);
+  			}
 			}
+%>
+			<script type="text/javascript">
+				FcltMgr.closeDetail( window, { warning: "<%=message%>", success: true });
+			</script>
+<%
+			Response.End;
+    }
+    else // gewone formulier
+    {
+%>
+			<script type="text/javascript">
+        jQuery(document).ready(function()
+                               {
+                                 $('textarea').resize(function () { FcltMgr.resized(window) } );
+                                 $('textarea').autogrow();
+                                 $("#opmerk").focus();
+                               });
 
-			function mld_cancel()
-			{
-				FcltMgr.closeDetail(window, { cancel: true } );
-			}
+				function mld_accept(close)
+				{
+					if (!validateForm("u2"))
+						return false;
+					document.acceptform.submit();
+				}
 
-		</script>
+				function mld_cancel()
+				{
+					FcltMgr.closeDetail(window, { cancel: true } );
+				}
+
+			</script>
+<%
+		}
+%>
 	</head>
 
 	<body class="modal" id="mod_mldaccept">
 
-    <form id="acceptform" name="acceptform" action="mld_accept_save.asp" method="post">
+		<form id="acceptform" name="acceptform" action="mld_accept_confirm.asp?submit=1&mld_key=<%=ingesloten.join(",")%>" method="post">
 <%
       var mld_stdm = "";
       var prefix = "";

APPL/MLD/mld_close_confirm.asp

@@ -23,8 +23,6 @@
 var mld_key_arr = getQParamIntArray("mld_key");
 
 var verynew = getQParamInt("verynew", 0) == 1;
-var opdr_opm = getQParam("opdr_opm", "");
-var has_opdr_opm = hasQParam("opdr_opm");
 var lastopdr = (getQParamInt("lastopdr", 0) == 1)
 var TransitParam = buildTransitParam(["mld_key", "verynew", "lastopdr"]);
 
@@ -92,11 +90,6 @@ user.anything_todo_or_abort(tobeclosed > 0); // We klagen niet over enkele wel e
   <head>
 <%  FCLTHeader.Generate(); %>
       <script type="text/javascript">
-        function mld_opmpaste()
-        {
-            $("#opmerk").append("<%=safe.jsstring(opdr_opm)%>")
-        }
-
         function mld_cancel()
         {
             FcltMgr.closeDetail(window, { cancel: true } );
@@ -161,8 +154,7 @@ user.anything_todo_or_abort(tobeclosed > 0); // We klagen niet over enkele wel e
             <%
         }
       BLOCK_END();
-      var buttons =  [ (has_opdr_opm? {title: L("lcl_mld_opm_paste"), icon: "accept.png", action: "mld_opmpaste()" } : {}),
-                       {title: L("lcl_close"), icon: "accept.png", action: "mld_close()" },
+      var buttons =  [ {title: L("lcl_close"), icon: "accept.png", action: "mld_close()" },
                        {title: L("lcl_cancel"), icon: "cancel.png", action: "mld_cancel()" } ];
       CreateButtons(buttons);
 %>

APPL/MLD/mld_close_save.asp

@@ -87,7 +87,7 @@ for (var i = 0; i < mld_key_arr.length; i++)
 user.auth_required_or_abort(!(mld_key_arr.length == 1 && futureOpdr), L("lcl_mld_einddatum_to_late_mld")); // Bij enkele melding met toekomstige opdrachten een aparte melding geven
 user.anything_todo_or_abort(tobeclosed > 0); // We klagen niet over enkele wel en enkele niet
 
-var result = { key: ingesloten.join(","), message: "", success: false };
+var result = { opdr_key: ingesloten.join(","), message: "", success: false };
 
 for (var i = 0; i < ingesloten.length; i++)
 {

APPL/MLD/mld_continue.asp

@@ -13,21 +13,12 @@
 <!-- #include file="mld.inc" -->
 
 <%
-FCLTHeader.Requires({ plugins: ["suggest", "jQuery"],
-                      js: ["../mld/mld_continue.js"] });
+FCLTHeader.Requires({ plugins: ["suggest", "jQuery"] });
 var urole = getQParamSafe("urole");
-var fronto = urole == "fo";
-var backo  = urole == "bo";
-var minfo  = urole == "mi";
-var frontend = (!fronto & !backo & !minfo);
-
 var mld_key = getQParamInt('mld_key');
 var this_mld = mld.func_enabled_melding(mld_key);
 user.auth_required_or_abort(this_mld.canContinue);
 
-// De functie checkAutorisation(autfunction) geeft een Response.End indien er geen autorisatie voor autfunction wordt gevonden
-//var authparams = user.checkAutorisation("WEB_MLDFOF");
-
     sql = "SELECT std.mld_ins_discipline_key"
         + "     , std.mld_stdmelding_key"
         + "     , mld_melding_opmerking"
@@ -60,10 +51,6 @@ user.auth_required_or_abort(this_mld.canContinue);
 <%  FCLTHeader.Generate(); %>
 
     <script type="text/javascript">
-      var mld_key = <%=mld_key%>;
-      var melder_key = <%=melder_key%>
-      var frontend = (<%=frontend? 1 : 0%> == 1);
-
       function mld_cont()
       {
         document.activeElement.blur(); // trigger laatste onChanges
@@ -87,6 +74,25 @@ user.auth_required_or_abort(this_mld.canContinue);
         sgStdm.CheckJustOne();
       }
 
+      function process_stdm_info(data, textStatus)
+      {
+        // Zet de discipline indien niet ingevuld
+        if ($("#disc").val() <= 0)
+          sgDisc.setValue(data.ins_discipline_key, (data.ins_srtdiscipline_prefix != null ? data.ins_srtdiscipline_prefix + "-" : "") + data.discipline_omschrijving, false /*doonChange*/, true /*checkExist*/);
+      }
+
+      function onChangeStdMelding(stdmelding_key)
+      {
+        if (stdmelding_key > 0)
+        {
+          $.getJSON("./get_mld_info_ajax.asp",
+                    { req_info: "mld_stdmelding",
+                      mld_stdmelding_key: stdmelding_key,
+                      mld_key: <%=mld_key%>,
+                      caller_key: <%=user_key%> },
+                      process_stdm_info);
+        }
+      }
     </script>
   </head>
 
@@ -103,7 +109,7 @@ user.auth_required_or_abort(this_mld.canContinue);
                                perslidKey: melder_key,
                                autfunctionKey: -1, // alles is toegestaan! authparams.autfunctionkey,
                                srtdisc_key: (S("mld_forward_all") == 1 ? null : srtdisc),
-                               filtercode: this_mld.canContinue? "VDK" : "VD",
+                               filtercode: "VD",
                                onChange: "onChangeVakgroep",
                                required: true
                              });
@@ -116,7 +122,7 @@ user.auth_required_or_abort(this_mld.canContinue);
                                srtdisc_key: (S("mld_forward_all") == 1 ? null : srtdisc),
                                urlAdd: [{urlParam: "disc_key", field: "disc"}],
                                stdmelding_key: null,
-                               filtercode: this_mld.canContinue? "VDK" : "VD",
+                               filtercode: "VD",
                                onChange: "onChangeStdMelding",
                                required: true
                              } );

APPL/MLD/mld_continue.js

@@ -1,139 +0,0 @@
-/*
-     $Revision$
-     $Id$
-
-     File:        mld_continue.js
-*/
-
-
-var stdm_info = {}; // globaal onthouden
-function process_stdm_info(data, stdmChanged) // stdmChanged is optioneel.
-{
-    window.stdm_info = data;
-    if ((window.stdm_info.mld_stdmelding_key||-1) < 0) // Als er geen melding (stdmelding) is geselecteerd dan return.
-      return;
-
-    var stdm_level = 1;
-    var stdm_aantal = stdm_info.aantal_fefaq;
-    if (!frontend)
-    {
-        stdm_level = 2;
-        stdm_aantal = stdm_info.aantal_fofaq;
-    }
-
-    if (stdm_aantal > 0 && stdm_info.canFAQUSEread && stdmChanged)
-    {
-      var url = "../mld/mld_faq.asp?stdm_key="+ $("#stdm").val() + "&faq_level=" + stdm_level;
-      FcltMgr.openModalDetail(url, L("lcl_mld_faq_stdmanswers"), { height: 200, width: 700, callback: mld_faq_list_callback } );
-    }
-
-    // Zet de discipline indien niet ingevuld.
-    if ($("#disc").val() <= 0 || frontend)
-    {
-      if (typeof sgDisc != "undefined")
-      {
-        sgDisc.setValue(stdm_info.ins_discipline_key, (stdm_info.ins_srtdiscipline_prefix != null ? stdm_info.ins_srtdiscipline_prefix + "-" : "") + stdm_info.discipline_omschrijving, false /*doonChange*/, true /*checkExist*/);
-      }
-      else
-      {
-        // PF: is het niet een beetje illegaal om zo direct de show-waarde te zetten?
-        $("#disc_show").val((stdm_info.ins_srtdiscipline_prefix != null ? stdm_info.ins_srtdiscipline_prefix + "-" : "") + stdm_info.discipline_omschrijving);
-        $("#disc").val(stdm_info.ins_discipline_key);
-      }
-    }
-
-    if (stdm_info.freetext == 2 && !$("#opmerk")[0].readOnly)
-    { // class required zetten
-      $("#opmerk").addClass("required");
-    }
-    else
-    { // class required verwijderen
-      $("#opmerk").removeClass("required");
-    }
-}
-
-
-function onChangeStdMelding(stdmelding_key)
-{
-  if (stdmelding_key > 0)
-  {
-    $.getJSON("./get_mld_info_ajax.asp",
-              { req_info: "mld_stdmelding",
-                mld_stdmelding_key: stdmelding_key,
-                mld_key: mld_key,
-                caller_key: melder_key
-              },
-                callback_stdm_info);
-  }
-  else
-  { // stdmelding is verplicht en moet toch verplicht ingevuld worden, de rest komt dan wel
-    // Als vakgroep/productgroep readonly is dan deze leeg maken.
-    if ($("#disc_show").attr("readOnly") == "readonly")
-    {
-      $("#disc_show").val("");
-      $("#disc").val(-1);
-    }
-  }
-}
-
-
-function callback_stdm_info(data, textStatus, jqXHR)
-{
-    process_stdm_info(data, true); // Tweede parameter stdmChanged is true.
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-function mld_cancel()
-{
-  FcltMgr.closeDetail(window, { cancel: true } );
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-function onChangeVakgroep(vakgroep_key)
-{
-  $("#gebouw").removeClass("required");
-  $("#verdieping").removeClass("required");
-  $("#ruimte").removeClass("required");
-
-  $("#req_r_objs,#r_objs,#r_objs option").removeClass("required");
-
-  //sgStdm.setValue($("#stdm").val(), $("#stdm_show").val(), true, true, null, true);
-  // Regel hierboven werkt niet goed omdat CheckExist een get call veroorzaakt om te kijken of waarde bestaat.
-  // In de tussentijd verstoort CheckJustOne dit process met een $.getJSON()
-  // Dus gewoon Melding leegmaken
-  sgStdm.setValue(-1, "", true, false, null, true);
-  sgStdm.CheckJustOne();
-}
-
-
-
-

APPL/MLD/mld_continue_save.asp

@@ -116,7 +116,7 @@ var prs_bedrijf_key = mld.dienst_controle(stdm_key, mld_melding.loc_key, mld_mel
         + ", SYSDATE"
         + ", mld_melding_omschrijving"
         + ", " + stdm_key
-        + ", " + stdm_info.prioriteiten[3].uitvoertijd // Is altijd gevuld. Er staat een NOT NULL contraint op mld_melding.mld_melding_uitvoertijd.
+        + ", " + (stdm_info.uitvoertijd||S("mld_melding_uitvoertijd"))
         + ", mld_melding_geprint"
         + ", mld_kosten_klant"
         + ", mld_melding_document"

APPL/MLD/mld_doorzet.asp

@@ -19,7 +19,8 @@ var mld_key_arr = getFParamIntArray("mld_key");
 var terug = getFParamInt("terug", 0) == 1;
 
 
-var tobeset = 0;
+var result = {};
+var tobezet = 0;
 var ingesloten = [];
 // Bepaal de meldingen in de selectie die
 // ook echt afgewezen kunnen of mogen worden.
@@ -30,10 +31,10 @@ for (var i = 0; i < mld_key_arr.length; i++)
   if (!hasChild && ((!terug && this_mld.canDoorzet) || (terug && this_mld.canTerugzet)))
   {
     ingesloten.push(mld_key_arr[i]);
-    tobeset++;
+    tobezet++;
   }
 }
-user.anything_todo_or_abort(tobeset > 0); // We klagen niet over enkele wel en enkele niet
+user.anything_todo_or_abort(tobezet > 0); // We klagen niet over enkele wel en enkele niet
 
 for (var i = 0; i < ingesloten.length; i++)
 {
@@ -42,6 +43,6 @@ for (var i = 0; i < ingesloten.length; i++)
   Oracle.Execute(resetsql);
 }
 
-var result = { key: ingesloten.join(","), success: true };
+result.success = true;
 Response.Write(JSON.stringify(result));
 %>

APPL/MLD/mld_edit_melding.asp

@@ -513,7 +513,7 @@ function gen_flex() // ik weet nog niet waar
                                  readonly: ((mld_key > 0 && !this_mld.canVakgChange) || mld_melding.kto_type) || (frontend && (S("mld_selector_mode") == 1 || S("mld_selector_mode") == 2)),  // of moet je dat dan in de canchange opnemen?
                                  dohide: (frontend && (S("mld_selector_mode") == 2)? true : false),
                                  required: (mld_key < 0 || this_mld.canVakgChange),
-                                 filtercode: (frontend? "FE" : "")
+                                 filtercode: (frontend? "FE" : ((fronto && (mld_key < 0)) ? "VD" : ""))
                                });
 
         var urlAdd = [{urlParam: "perslidKey", field: "person", init: mld_melding.melder_key }]
@@ -533,7 +533,7 @@ function gen_flex() // ik weet nog niet waar
                                       onChange: "onChangeStdMelding",
                                       initOnChange: (mld_key < 0), // Geen initialisatie van sgonChange (ingevulde einddatum niet aanpassen aan de uitvoertijd) bij bestaande meldingen
                                       required: (mld_key < 0 || this_mld.canStdmChange),
-                                      filtercode: (frontend? "FE" : "")
+                                      filtercode: (frontend? "FE" : ((fronto && (mld_key < 0)) ? "VD" : ""))
                                     });
         if (res.stdmelding_key > 0 && !(mld_melding.stdm>0))
         {   // We hebben er wel eentje maar hadden er geen

APPL/MLD/mld_edit_opdr_save.asp

@@ -340,24 +340,10 @@ for (var u = 0; u < uitvkeyArray.length; u++)
                     + "  FROM mld_opdr_uren"
                     + " WHERE mld_opdr_key = " + opdr_key;
           var oRs = Oracle.Execute(ddsql);
-          if (oRs("ddmin").value != null && oRs("ddmax").value != null)
+          if (oRs("ddmin").Value!=null && oRs("ddmax").Value != null)
           {
-            var ddmin = new Date(oRs("ddmin").value);
-            var ddmax = new Date(oRs("ddmax").value);
-            
-            // Vallen de geschreven uren (ddmin...ddmax) BINNEN DE WEEK van de looptijd?
-            // Daarom ddfrom (begindatum) naar begin van de week (maandag) en ddto (einddatum) naar eind van de week (zondag) verschuiven.
-            var ddfrom_day = new Date(ddfrom).getDay();
-            if (ddfrom_day == 0) // Zondag.
-              ddfrom = new Date(ddfrom - 6);
-            else // Maandag(1)...Zaterdag(5).
-              //ddfrom = new Date(ddfrom - (ddfrom_day - 1));
-              ddfrom.setDate(ddfrom.getDate() - (ddfrom_day - 1));
-             var ddto_day = new Date(ddto).getDay();
-            if (ddto_day > 0) // Maandag(1)...Zaterdag(5).
-              //ddto = new Date(ddto + (7 - ddto_day));
-              ddto.setDate(ddto.getDate() + (7 - ddto_day));
-
+            var ddmin = new Date(oRs("ddmin").Value);
+            var ddmax = new Date(oRs("ddmax").Value);
             if (ddmin < ddfrom || ddmax > ddto)
               abort_with_warning(L("lcl_mlduren_booked_from") + toDateString(ddmin) + L("lcl_mlduren_booked_until") + toDateString(ddmax));
           }

APPL/MLD/mld_faq.asp

@@ -61,9 +61,9 @@ var faq_level = getQParamInt("faq_level", -1);
 <%      if (oRs("fac_faq_url").value)
         {
           fac_url = oRs("fac_faq_url").value;
-          ppos = fac_url.indexOf('|');
-          hurl = (ppos == 0 ? fac_url : fac_url.substring(0,ppos));
-          hlnk = (ppos == 0 ? fac_url : fac_url.substring(ppos+1));
+          var arr = fac_url.split("|");
+          hurl = arr[0];;
+          hlnk = arr.length>1?arr[1]:hurl;
 %>             <a href="<%=safe.htmlattr(hurl)%>" target="_new"><%=safe.html(hlnk)%></a><br/>
 <%      } %>
                <div id="faqsolved" onClick="FcltMgr.closeDetail(window, { accept: true })" class="ref"><div class="button">

APPL/MLD/mld_kenmerk.asp

@@ -297,7 +297,7 @@ else
                                      readonly: (mode=='show')
                                    });
         }
-        myFIELD("volgnummer", "fldshort", L("lcl_mld_kenmerk_volgnummer"), kenmerk.kenmerk_volgnummer, {required: true});
+        myFIELD("volgnummer", "fldshort", L("lcl_mld_kenmerk_volgnummer"), kenmerk.kenmerk_volgnummer);
         sql = "SELECT -1, " + safe.quoted_sql(L("lcl_mld_niet_verplicht")) + " FROM DUAL"
             + " UNION SELECT  1, " + safe.quoted_sql(L("lcl_mld_altijd_verplicht")) + " FROM DUAL"
             + " UNION SELECT  2, " + safe.quoted_sql(L("lcl_mld_groepsverplichting") + " 2") + " FROM DUAL"

APPL/MLD/mld_list.js

@@ -105,7 +105,7 @@ function mld_close(rowArray, isMulti)
   FcltMgr.openModalDetail("../mld/mld_close_confirm.asp?mld_key=" + mldKeyString,
                            L("lcl_mld_final_close"),
                            { width: 600,
-                             callback: FcltCallbackDirtyLine
+                             callback: FcltCallbackRefresh
                            });
 }
 
@@ -127,7 +127,7 @@ function mld_doorzet(rowArray, isMulti)
   if (isMulti || confirm(L("lcl_mld_doorzetten_1") + mldKeyString + L("lcl_mld_doorzetten_2")))
     $.post("../mld/mld_doorzet.asp",
            { mld_key: mldKeyString },
-           FcltCallbackDirtyLine,
+           FcltCallbackRefresh,
            "json");
 }
 
@@ -138,7 +138,7 @@ function mld_terugzet(rowArray, isMulti)
     $.post("../mld/mld_doorzet.asp",
            { mld_key: mldKeyString,
              terug: 1 },
-           FcltCallbackDirtyLine,
+           FcltCallbackRefresh,
            "json");
 }
 

APPL/MLD/mld_object.asp

@@ -28,18 +28,17 @@ var mld_key = getQParamInt("mld_key");
   <head>
 <%  FCLTHeader.Generate() %>
     <script>
-
       $(document).ready(function ()
                         {
                           var params = FcltMgr.dialogArguments();
                           $("#fldobjExist").html(params.obj_html); // De options (html) komen tussen <SELECT id="fldobjExist" ...> en </SELECT>
-                        });
+                        }
+      );
 
       function moveRight(obj)
       {
         var object_key_str = new Array();
         var object_text_str = new Array();
-        var object_title_str = new Array();
         $('#fldobjPossible :selected').each(function(j, selected)
                                             {
                                               object_key_str[j] = $(selected).val();
@@ -98,18 +97,8 @@ var mld_key = getQParamInt("mld_key");
           if (!isNaN(alg_key))
           {
             var sql = get_objecten_sql(alg_key, alg_niveau, prs_key, null, stdmld_key);
-            var sqlt = "SELECT SK.ins_srtkenmerk_omschrijving || ': '|| SD.ins_kenmerkdeel_waarde"
-                     + "  FROM ins_v_srtdeel_kenmerkdeel SD"
-                     + "  ,    ins_v_aanwezigkenmerk K"
-                     + "  ,    ins_srtkenmerk SK"
-                     + " WHERE K.ins_kenmerk_key = SD.ins_kenmerk_key"
-                     + "   AND SK.ins_srtkenmerk_key = K.ins_srtkenmerk_key"
-                     + "   AND SK.ins_srtkenmerk_kenmerktype NOT IN ('L','M')"
-                     + "   AND ROWNUM < 3"         // maximaal aantal kenmerken dat getoond wordt
-                     + "   AND SD.ins_deel_key ="; // waarde van eerste kolom uit 'sql' moet hier ingevuld worden
-                     // De order by wordt in selector.inc toegevoegd.
 
-            FCLTselector("fldobjPossible", sql, {multi: true, size: 12, titleCol: "tooltip", tooltipsql: sqlt} );
+            FCLTselector("fldobjPossible", sql, {multi: true, size: 12} );
 %>
             </td>
             <td class="fldobjmidcolumn">
@@ -123,11 +112,6 @@ var mld_key = getQParamInt("mld_key");
 %>
         </td>
       </tr>
-      <tr>
-        <td>
-          <div id="obj_info"></div>
-        </td>
-      </tr>
 <%    BLOCK_END()
 
     var buttons = [{title: L("lcl_submit"), icon: "opslaan.png", action: "FcltMgr.closeDetail(window, { obj_html: $('#fldobjExist').html() })"},

APPL/MLD/mld_opdr_materiaal.js

@@ -81,6 +81,12 @@ function moveLeft()
   moveLeftRight("L");
 }
 
+function isGoodNumber(str)
+{
+  var anum = /^(\d{1,4})$/
+  return anum.test(str);
+}
+
 function isGoodCurrency(str, digits)
 {
   var anum = /^([-\+]?\d{1,6}[.,]?|[-\+]?\d{0,6}[.,]\d{1,2})$/
@@ -90,7 +96,7 @@ function isGoodCurrency(str, digits)
 
 function checkInput(str, field, typeNC)
 {
-  if (str != "" && ((typeNC == "C" && !isGoodCurrency(str.replace(',', '.'))) || (typeNC == "N" && !isGoodNumber(str,true,true,4,-1))))
+  if (str != "" && ((typeNC == "C" && !isGoodCurrency(str.replace(',', '.'))) || (typeNC == "N" && !isGoodNumber(str))))
   {
     alert(L("lcl_shared_invalid_format"));
     field.select();
@@ -102,6 +108,10 @@ function checkInput(str, field, typeNC)
 
 function onChangeAmount(key)
 {
+  //var valid = true;
+  //var field = window.event.srcElement;
+  //var value = field.value;
+
   var amount = parseInt($("#amount" + key).val(), 10) || 0;
   var price = $("#price" + key).val().replace(',', '.') || 0;
   if (!checkInput(amount, $("#amount" + key), "N")) return;
@@ -136,12 +146,11 @@ function onChangePrice(key)
   setTotal(-1);
 }
 
-function checkKey(evt, mode)
+function checkKey(mode)
 {
-  evt = evt || window.event;
-  kc = evt.keyCode;
+  kc = window.event.keyCode;
   if ((kc < 48 || kc > 57) && !(mode == 1 && (kc == 44 || kc == 46)))
-    evt.returnValue = false;
+    event.returnValue = false;
 }
 
 
@@ -177,14 +186,14 @@ function makeMaterialHtml(matExistArray)
              + "<input class='fldmatamount number' type='text' name='amount" + matExistArray[i].key + "'"
              + " id='amount" + matExistArray[i].key + "' value='" + matExistArray[i].amount + "'"
              + " index='" + i + "' maxlength='6' onChange='onChangeAmount(" + matExistArray[i].key + ");'"
-             + " size='6' onKeyPress='checkKey(event, 0);'>&nbsp;"
+             + " size='6' onKeyPress='checkKey(0);'>&nbsp;"
              + "</td>"
              + "<td>"
              + "<input class='fldmatprice currency' type='text' name='price" + matExistArray[i].key + "'"
              + " id='price" + matExistArray[i].key + "' value='" + num2curr(parseFloat(matExistArray[i].price)) + "'"
              + " index='" + i + "' maxlength='10'" + (matExistArray[i].roprice? " readonly" : "")
              + " size='10' onChange='onChangePrice(" + matExistArray[i].key + ")'"
-             + " onKeyPress='checkKey(event, 1);'>&nbsp;"
+             + " onKeyPress='checkKey(1);'>&nbsp;"
              + "</td>"
              + "<td>"
              + "<input class='fldmattotal currency' type='text' name='total" + matExistArray[i].key + "'"
@@ -341,7 +350,7 @@ function CreateRow(qty, prc, descr, key)
   cell = tr.insertCell(-1);
   cell.innerHTML = "<input type='text' class='fldfinsom'"
                  + " onfocus='this.select();'"
-                 + " onblur='QtyChanged(event);'"
+                 + " onblur='QtyChanged();'"
                  + " id='qty" + rowIndex + "' name='qty" + rowIndex + "' maxlength=10 value='" + parseInt(qty) + "'>&nbsp;";
   cell.align = 'right';
 
@@ -349,7 +358,7 @@ function CreateRow(qty, prc, descr, key)
   cell = tr.insertCell(-1);
   cell.innerHTML = "<input type='text' class='fldfinsom'"
                  + " onfocus='this.select();'"
-                 + " onblur='PrcChanged(event);'"
+                 + " onblur='PrcChanged();'"
                  + " id='prc" + rowIndex + "' name='prc" + rowIndex + "' maxlength=10 value='" + num2curr(parseFloat(prc)) + "'>&nbsp;";
   cell.align = 'right';
 
@@ -363,7 +372,7 @@ function CreateRow(qty, prc, descr, key)
   // Create description field
   cell = tr.insertCell(-1);
   cell.innerHTML = "<input type='text' class='fld required'"
-                 + " onblur='DesChanged(event);'"
+                 + " onblur='DesChanged();'"
                  + " id='descript" + rowIndex + "' name='descript" + rowIndex + "' maxlength='50'>";
   $("input", cell).val(descr); // safe oplossing
 
@@ -371,34 +380,32 @@ function CreateRow(qty, prc, descr, key)
   matUserArray[rowIndex].row = tr;
 }
 
-function QtyChanged(evt)
+function QtyChanged()
 {
-  evt = evt || window.event;
-  var obj = evt.srcElement || evt.target;
-  var qty = parseFloat(obj.value.replace(',', '.'));
-  var defaultamount = 0;
+  obj = event.srcElement;
+  qty = parseFloat(obj.value.replace(',', '.'));
+  defaultamount = 0;
   if (obj.value == '')
     obj.value = qty = defaultamount;
   if (obj.value == '' || isNaN(qty > 0? qty : -qty) ||
-     !isGoodNumber(str,true,true,4,-1))
+     !isGoodNumber(obj.value + "", true))
   {
      alert(L("lcl_mld_opdr_invalid_quantity"));
      obj.focus();
      return;
   }
   obj.value = qty;
-  var index = obj.id.substring(3);
+  index = obj.id.substring(3);
 
   matUserArray[index].amount = qty;
   setTotal(index);
 }
 
-function PrcChanged(evt)
+function PrcChanged()
 {
-  evt = evt || window.event;
-  var obj = evt.srcElement || evt.target;
-  var sum = parseFloat(obj.value.replace(',', '.'));
-  var defaultprice = 0;
+  obj = event.srcElement;
+  sum = parseFloat(obj.value.replace(',', '.'));
+  defaultprice = 0;
   if (obj.value == '')
     obj.value = sum = defaultprice;
   if (obj.value == '' || isNaN(sum > 0? sum : -sum) ||
@@ -409,16 +416,15 @@ function PrcChanged(evt)
      return;
   }
   obj.value = num2curr(sum);
-  var index = obj.id.substring(3);
+  index = obj.id.substring(3);
 
   matUserArray[index].price = sum;
   setTotal(index);
 }
 
-function DesChanged(evt)
+function DesChanged()
 {
-  evt = evt || window.event;
-  var obj = evt.srcElement || evt.target;
+	var obj = event.srcElement;
 	var des = obj.value;
 	var index = obj.id.substr(8);
 
@@ -461,8 +467,8 @@ function CancelMaterial(index)
   if (matUserArray[index] != null)
   {
     // remove from total
-    var tr = matUserArray[index].row;
-    var trIndex = tr.rowIndex;
+    tr = matUserArray[index].row;
+    trIndex = tr.rowIndex;
     document.getElementById("sel_items").deleteRow(trIndex);
 
     matUserArray[index].row = null;

APPL/MLD/mld_reject.asp

@@ -85,7 +85,7 @@ user.anything_todo_or_abort(toberejected > 0); // We klagen niet over enkele wel
       <script type="text/javascript">
         FcltMgr.closeDetail( window,
                              {
-                               key: "<%=ingesloten.join(",")%>",
+                               key: <%=ingesloten.join(",")%>,
                                warning: "<%=safe.jsstring(warning)%>",
                                success: "<%=success? 1 : 0%>"
                              });

APPL/MLD/mld_search.asp

@@ -307,15 +307,15 @@ var authparams = user.checkAutorisation(autfunction);
               if (minfo)
               { %>
                 <!-- Meldingstatusen -->
-<%              sql = "SELECT 0, '" + mld.getmldstatustext(0) + "' FROM DUAL"
-                    + " UNION SELECT  1, '" + mld.getmldstatustext(1) + "' FROM DUAL"
-                    + " UNION SELECT  2, '" + mld.getmldstatustext(2) + "' FROM DUAL"
-                    + " UNION SELECT  3, '" + mld.getmldstatustext(3) + "' FROM DUAL"
-                    + " UNION SELECT  4, '" + mld.getmldstatustext(4) + "' FROM DUAL"
-                    + " UNION SELECT  5, '" + mld.getmldstatustext(5) + "' FROM DUAL"
-                    + " UNION SELECT  6, '" + mld.getmldstatustext(6) + "' FROM DUAL"
-                    + " UNION SELECT  7, '" + mld.getmldstatustext(7) + "' FROM DUAL"
-                    + " UNION SELECT 99, '" + mld.getmldstatustext(99) + "' FROM DUAL"
+<%              sql = "SELECT         0, " + safe.quoted_sql(mld.getmldstatustext(0)) + " FROM DUAL"
+                    + " UNION SELECT  1, " + safe.quoted_sql(mld.getmldstatustext(1)) + " FROM DUAL"
+                    + " UNION SELECT  2, " + safe.quoted_sql(mld.getmldstatustext(2)) + " FROM DUAL"
+                    + " UNION SELECT  3, " + safe.quoted_sql(mld.getmldstatustext(3)) + " FROM DUAL"
+                    + " UNION SELECT  4, " + safe.quoted_sql(mld.getmldstatustext(4)) + " FROM DUAL"
+                    + " UNION SELECT  5, " + safe.quoted_sql(mld.getmldstatustext(5)) + " FROM DUAL"
+                    + " UNION SELECT  6, " + safe.quoted_sql(mld.getmldstatustext(6)) + " FROM DUAL"
+                    + " UNION SELECT  7, " + safe.quoted_sql(mld.getmldstatustext(7)) + " FROM DUAL"
+                    + " UNION SELECT 99, " + safe.quoted_sql(mld.getmldstatustext(99)) + " FROM DUAL"
                     + " ORDER BY 1";
                 FCLTselector("mldstatusmulti",
                              sql,
@@ -335,16 +335,16 @@ var authparams = user.checkAutorisation(autfunction);
                 </tr>
 
                 <!-- Opdrachtstatusen -->
-<%              sql = "SELECT 1, '" + status.getopdrstatustext(1) + "' FROM DUAL"
-                    + " UNION SELECT  2, '" + status.getopdrstatustext(2) + "' FROM DUAL"
-                    + " UNION SELECT  3, '" + status.getopdrstatustext(3) + "' FROM DUAL"
-                    + " UNION SELECT  4, '" + status.getopdrstatustext(4) + "' FROM DUAL"
-                    + " UNION SELECT  5, '" + status.getopdrstatustext(5) + "' FROM DUAL"
-                    + " UNION SELECT  6, '" + status.getopdrstatustext(6) + "' FROM DUAL"
-                    + " UNION SELECT  7, '" + status.getopdrstatustext(7) + "' FROM DUAL"
-                    + " UNION SELECT  8, '" + status.getopdrstatustext(8) + "' FROM DUAL"
-                    + " UNION SELECT  9, '" + status.getopdrstatustext(9) + "' FROM DUAL"
-                    + " UNION SELECT 10, '" + status.getopdrstatustext(10) + "' FROM DUAL"
+<%              sql = "SELECT         1, " + safe.quoted_sql(status.getopdrstatustext(1)) + " FROM DUAL"
+                    + " UNION SELECT  2, " + safe.quoted_sql(status.getopdrstatustext(2)) + " FROM DUAL"
+                    + " UNION SELECT  3, " + safe.quoted_sql(status.getopdrstatustext(3)) + " FROM DUAL"
+                    + " UNION SELECT  4, " + safe.quoted_sql(status.getopdrstatustext(4)) + " FROM DUAL"
+                    + " UNION SELECT  5, " + safe.quoted_sql(status.getopdrstatustext(5)) + " FROM DUAL"
+                    + " UNION SELECT  6, " + safe.quoted_sql(status.getopdrstatustext(6)) + " FROM DUAL"
+                    + " UNION SELECT  7, " + safe.quoted_sql(status.getopdrstatustext(7)) + " FROM DUAL"
+                    + " UNION SELECT  8, " + safe.quoted_sql(status.getopdrstatustext(8)) + " FROM DUAL"
+                    + " UNION SELECT  9, " + safe.quoted_sql(status.getopdrstatustext(9)) + " FROM DUAL"
+                    + " UNION SELECT 10, " + safe.quoted_sql(status.getopdrstatustext(10)) + " FROM DUAL"
                     + " ORDER BY 1";
                 FCLTselector("opdrstatusmulti",
                              sql,
@@ -503,7 +503,7 @@ var authparams = user.checkAutorisation(autfunction);
                                trclass: (minfo ? "primsearch" : "secsearch"),
                                multi: true,
                                emptyOption: L("lcl_all")
-                             }); 
+                             });
 
                 if (backo)
                 {
@@ -515,7 +515,7 @@ var authparams = user.checkAutorisation(autfunction);
                   if (!oRs.eof)
                     RWCHECKBOXTR("offertes", "fldoffertes", L("lcl_mld_offertes"), false, { html: " value='1' "});
                 }
- 
+
                 // Meldinggroep
                 // LET OP!!
                 // deze selector wordt on-change dynamisch en totaal vervangen door ../Shared/loadmldgroep.asp!

APPL/MLD/mld_show_melding.asp

@@ -229,6 +229,24 @@ var urlMail="../shared/queuemail.asp?pcode=MLDMAI&defemail_key=" + mld_melding.m
 
 function gen_flex() // ik weet nog niet waar
 {
+    var parent_list = []; // Ook knoppen met bijlagen van de 'parent'-chain
+    var sk = mld_melding.Startkey;
+    var mk = mld_key;
+    while (sk && sk != mk)
+    {
+        parent_list.push ( { label:  mld.mld_prefix(mld_melding.Startkey)+mld_melding.Startkey + " ({0})",
+                             module:  "MLD",
+                             key: mld_melding.Startkey
+                           }
+                         ); // TODO: Recursief
+        var sql = "SELECT mld_melding_start_key"
+                + "  FROM mld_melding"
+                + " WHERE mld_melding_key = " + sk;
+        var oRs = Oracle.Execute(sql);
+        mk = sk;
+        sk = oRs("mld_melding_start_key").Value;
+    }
+
     generateFlexKenmerkBlock({stdm_arr     : [mld_melding.stdm],
                               mld_key      : mld_key,
                               parent_list  : parent_list,
@@ -377,24 +395,6 @@ function gen_flex() // ik weet nog niet waar
 
     mld.generate_relobject_block(mld_key);
 
-    var parent_list = []; // Ook knoppen met bijlagen van de 'parent'-chain
-    var sk = mld_melding.Startkey;
-    var mk = mld_key;
-    while (sk && sk != mk)
-    {
-        parent_list.push ( { label:  mld.mld_prefix(mld_melding.Startkey)+mld_melding.Startkey + " ({0})",
-                             module:  "MLD",
-                             key: mld_melding.Startkey
-                           }
-                         ); // TODO: Recursief
-        var sql = "SELECT mld_melding_start_key"
-                + "  FROM mld_melding"
-                + " WHERE mld_melding_key = " + sk;
-        var oRs = Oracle.Execute(sql);
-        mk = sk;
-        sk = oRs("mld_melding_start_key").Value;
-    }
-
     if (S("mld_flexcolumns") == 2)
         gen_flex(); // dan hier....
 

APPL/MLD/mld_show_melding.js

@@ -65,7 +65,11 @@ function mld_reject()
     url = "../mld/mld_reject.asp?urole=" + urole + "&mld_key=" + mld_key
     FcltMgr.openModalDetail(url,
                             L("lcl_mld_complain") + ' ' + mldPrefix + mld_key,
-                            {callback: function() { mld_melding_reload(mld_key); }} // Reload zonder verynew=1. Geen parent.FcltMgr.reload() omdat dan verynew=1 wel meegegeven wordt.
+                            {callback: function()
+                                {
+                                    FcltMgr.closeDetail(window, {close: true});
+                                    mld_melding_reload(mld_key); // Reload zonder verynew=1. Geen parent.FcltMgr.reload() omdat dan verynew=1 wel meegegeven wordt.
+                                }}
                            );
   }
 }
@@ -99,7 +103,11 @@ function mld_close(verynew)
   FcltMgr.openModalDetail(url,
                           L("lcl_mld_final_close"),
                           { width: 400,
-                            callback: function() { mld_melding_reload(mld_key); } // door parent ook opdrachtenframe refreshen als ik opdrachten sluit
+                            callback: function()
+                                {
+                                    FcltMgr.closeDetail(window, {close: true});
+                                    mld_melding_reload(mld_key); // door parent ook opdrachtenframe refreshen als ik opdrachten sluit
+                                }
                           });
 }
 
@@ -134,11 +142,9 @@ function saveLink()
           }),
           "json");
 }
-
 function createLink()
 {
-  if (!evt) var evt = window.event; // PNBR#24239 evt is hier de globale var uit iface.js/iface.button.click
-                                    // Lelijk maar werkend
+  if (!evt) var evt = window.event;
 
   if (mld_allow_parentmelding)
   {
@@ -151,7 +157,7 @@ function mld_orders()
 {
   // Maakt -direct na invoer melding- een nieuwe order aan in huidige tab (let op: autoswitch naar bo-rechten?)
   // Moeten we nu ook eerst wel even accepteren!
-  $.post("mld_accept_save.asp",
+  $.post("mld_accept.asp",
          { mld_key: mld_key },
          FcltCallbackAndThen(function ()
          {
@@ -164,7 +170,7 @@ function mld_orders()
 function mld_bestel()
 {
   // Moeten we nu ook eerst wel even accepteren!
-  $.post("mld_accept_save.asp",
+  $.post("mld_accept.asp",
          { mld_key: mld_key },
          FcltCallbackAndThen(function ()
          {

APPL/MLD/opdr_close_save.asp

@@ -67,7 +67,6 @@ for (var i = 0; i < ingesloten.length; i++)
   if (this_opdr.canOpmChange)
   {
     var opdr_opm = getFParam("opdr_opm", "");
-    result.opdr_opm = opdr_opm;
     if (ingesloten.length > 1)
     {
       var sql = "SELECT mld_opdr_opmerking"

APPL/MLD/opdr_list.inc

@@ -325,7 +325,9 @@ function opdr_list (params)
              : "")
            + " AND o.cnt_contract_key= c.cnt_contract_key(+)"
            + " AND m.mld_stdmelding_key = std.mld_stdmelding_key"
-           + " AND p.prs_perslid_key(+) = m.prs_perslid_key_voor";
+           + " AND p.prs_perslid_key(+) = COALESCE(m.prs_perslid_key_voor, m.prs_perslid_key)";
+                            // Met FSN#24664 (5.2.3) wordt gezorgd dat prs_perslid_key_voor
+                            // *altijd* is gevuld. Dan kan de coalesce en outer join weg.
 
       if (frontend && params.mld_key)
         sql += " AND t.mld_typeopdr_zichtbaarfe = 1";

APPL/MLD/opdr_search.asp

@@ -211,28 +211,19 @@ var authparams = user.checkAutorisation(autfunction);
             sql = "";
             if (!exhandler)
             { // aan personen toegekend
-              sql = " SELECT p.prs_perslid_key"
-                  + ", '" + L("lcl_mld_person_prefix") + "' || " + S("prs_pers_string")
-                  + ", 'P'"
-                  + " FROM prs_perslid p"
-                  + " WHERE p.prs_perslid_key IN (SELECT mld_uitvoerende_keys FROM mld_opdr)";
-              if (authparams.PRSreadlevel > 0)
-              {
-                sql += " AND prs_afdeling_key IN "
-                     + "    (SELECT prs_afdeling_key FROM prs_v_afdeling_familie a"
-                     + "      WHERE a.prs_afdeling_elder_key IN"
-                     + "        (SELECT aa.prs_afdeling_elder_key"
-                     + "           FROM prs_v_afdeling_familie aa"
-                     + "          WHERE aa.prs_afdeling_key = " + user.prs_afdeling_key()
-                     + "            AND aa.niveau = " + authparams.PRSreadlevel + "))";
-
-              }
-              if (authparams.PRSreadlevel == 0)
-              {
-                sql += " AND prs_afdeling_key IN (SELECT a.prs_afdeling_key FROM prs_v_afdeling a "
-                     + " WHERE a.prs_bedrijf_key = " + user.afdeling().prs_bedrijf_key() + " )";
-              }
-              sql += " UNION ALL ";
+             sql = " SELECT p.prs_perslid_key"
+                 + ", '" + L("lcl_mld_person_prefix") + "' || " + S("prs_pers_string")
+                 + ", 'P'"
+                 + " FROM prs_perslid p"
+                 + " WHERE p.prs_perslid_key IN (SELECT mld_uitvoerende_keys FROM mld_opdr)"
+                 + ((authparams.PRSreadlevel > 0)
+                   ? " AND prs_afdeling_key IN (SELECT prs_afdeling_key FROM fac_v_my_prs_afdelingen_read "
+                     + " WHERE prs_perslid_key = " + user_key + " AND fac_functie_code=" + safe.quoted_sql(autfunction) + ")"
+                   : ((authparams.PRSreadlevel == 0)
+                     ? " AND prs_afdeling_key IN (SELECT a.prs_afdeling_key FROM prs_v_afdeling a "
+                       + " WHERE a.prs_bedrijf_key = " + user.afdeling().prs_bedrijf_key() + " )"
+                     : ""))
+                 + " UNION ALL ";
             }
 
             // plus die aan bedrijven toegekend

APPL/MLD/opdr_uren_list.inc

@@ -159,7 +159,7 @@ function opdr_uren_list (pautfunction, params)
                 + "       SUM(mld_opdr_uren) planuren"
                 + "  FROM ("+uitvweekSQL+") uitv "
                 + "  LEFT OUTER JOIN ("+opdrSQL+") opdrachten"
-                + "          ON opdrachten.mld_opdr_datumbegin <= startdatum+6"
+                + "          ON (opdrachten.mld_opdr_datumbegin+0) <= startdatum+6" // AAIT#24062 de +0 voorkomt dat hij index mld_i_mld_opdr11 pakt. Killing voor performance
                 + "         AND opdrachten.mld_opdr_einddatum >= startdatum"
                 + "         AND COALESCE(fac.gettrackingdate('ORDAFM', mld_opdr_key), startdatum) >= startdatum" // hij was *toen* nog niet afgemeld
                 + "         AND opdrachten.mld_uitvoerende_keys = prs_perslid_key"

APPL/MRK/mrk.inc

@@ -102,7 +102,35 @@
             mresult = mrk.func_enabled_mrk(prs_key);
 
             return mresult;
-          }
+          },
+
+       bericht_foto:
+         function _bericht_foto(vAttachPath)
+         {
+           var bestandsnaam = "";
+           fso = Server.CreateObject("Scripting.FileSystemObject");
+           if (fso.FolderExists(vAttachPath))
+           { // Haal de fotonaam op
+             var f = fso.GetFolder(vAttachPath);
+             var fc = new Enumerator(f.files);
+             if (!fc.atEnd())
+             {
+               bestandsnaam = fc.item().Name;
+             }
+           }
+           return bestandsnaam;
+         },
+       bericht_attachPath:
+         function _bericht_attachPath(subfolder)
+         {
+           return S("flexFilesPath") + "/MRK/" + subfolder + "/1/";
+         },
+
+       bericht_imageFile:
+         function _bericht_imageFile(subfolder, bestandsnaam)
+         {
+           return "../../.." + custpath + "/flexfiles/MRK/" + subfolder + "/1/" + bestandsnaam;
+         }
     }
 
  %>

APPL/MRK/mrk_edit_bericht.asp

@@ -14,6 +14,7 @@
 
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/iface.inc" -->
+<!-- #include file="../Shared/kenmerk_common.inc" -->
 <!-- #include file="../Shared/selector.inc" -->
 <!-- #include file="../Shared/persoonselector.inc" -->
 <!-- #include file="mrk.inc" -->
@@ -157,25 +158,15 @@ else // nieuwe factuur. Defaults bepalen
                   (mrk_bericht.prijs? safe.curreditable(mrk_bericht.prijs) : "")
                  );
 
-        var bestandsnaam = ""
-        var vAttachPath = S("flexFilesPath") + "/MRK/" + mrk_key + "/" + 1 + "/";
-        fso = Server.CreateObject("Scripting.FileSystemObject");
-        if (fso.FolderExists(vAttachPath))
-        { // Haal de foto op
-          var f = fso.GetFolder(vAttachPath);
-          var fc = new Enumerator(f.files);
-          if (!fc.atEnd())
-          {
-            bestandsnaam = fc.item().Name;
-            bestandsnaam= bestandsnaam.replace(/\.jpg$/i, "");
-          }
-        }
+        var vSubFolder = subfolderKey("M", mrk_key);
+        var vAttachPath = mrk.bericht_attachPath(vSubFolder);
+        var vBestandnaam = mrk.bericht_foto(vAttachPath);
 
         // Foto upload
         RWFIELDTR("fotoupload",
                   "details",
                   L("lcl_mrk_upload_foto"),
-                  bestandsnaam == ""? L("lcl_mrk_upload") : bestandsnaam,
+                  vBestandnaam == ""? L("lcl_mrk_upload") : vBestandnaam,
                   { type: "button",
                     html: 'onClick="fotoUpload();return false;"'
                   });

APPL/MRK/mrk_edit_bericht_save.asp

@@ -13,12 +13,13 @@
         omschrijving
         prijs
         categorie
-    Context:            
+    Context:
     Note:               Eventueel wordt een MRK_BERICHT record aangemaakt
 */ %>
 
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/iface.inc" -->
+<!-- #include file="../Shared/kenmerk_common.inc" -->
 <!-- #include file="../Shared/save2db.inc" -->
 <!-- #include file="./mrk.inc" -->
 
@@ -74,29 +75,37 @@ else
       warning = err.friendlyMsg;
 
   // De foto's in het tijdelijke path ("__NEW__" + Session.SessionId) nog verplaatsen naar de juiste plek (indien aanwezig)
-  var tmp_folder =  "__NEW__" + Session.SessionId;
-  var vAttachPath = S("flexFilesPath") + "/MRK/__NEW__" + Session.SessionId;
-  var vAttachPath2 = S("flexFilesPath") + "/MRK/" + mrk_key;
+  var vAttachPath1 = S("flexFilesPath") + "/MRK/M__NEW__" + Session.SessionId;
+  var vAttachPath2 = S("flexFilesPath") + "/MRK/" + subfolderKey("M",mrk_key);
+
   var fso = Server.CreateObject("Scripting.FileSystemObject")
-  if (fso.FolderExists(vAttachPath))
+  if (vAttachPath1 == vAttachPath2)
+    __Log("Skip want twee keer " + vAttachPath);
+  else
   {
-      __Log("Hernoem " + vAttachPath + " naar " + vAttachPath2);
-      try
+    try
+    {
+      __Log("Zoeken " + vAttachPath1+ "/1");
+      if (fso.FolderExists(vAttachPath1+ "/1"))
       {
-          fso.MoveFolder(vAttachPath, vAttachPath2);
-      }
-      catch (ee)
-      {
-          __Log("MoveFolder in eerste instantie mislukt: " + ee.description + "<br>Nog eens proberen met wildcard move.");
-          try
-          {
-              fso.MoveFolder(vAttachPath + "/*.*", vAttachPath2);
-          }
-          catch (ee)
-          {
-              __DoLog("MoveFolder " + vAttachPath + " naar " + vAttachPath2 + " nog steeds mislukt: " + ee.description);
-          }
+        CreateFullPath(vAttachPath2+ "/1"); // het 1000-tal was er misschien nog niet.
+        if (fso.FolderExists(vAttachPath2+ "/1"))
+        {
+          __Log("Verplaats inhoud " + vAttachPath1 + "/1/*.* naar " + vAttachPath2 + "/1/");
+          fso.MoveFile(vAttachPath1 + "/1/*.*", vAttachPath2 + "/1/");
+          fso.DeleteFolder(vAttachPath1);
+        }
+        else
+        {
+          __Log("Hernoem " + vAttachPath1+ "/1" + " naar " + vAttachPath2+ "/1");
+          fso.MoveFolder(vAttachPath1+ "/1", vAttachPath2+ "/1");
+        }
       }
+    }
+    catch(ee)
+    {
+      __DoLog("Moving files from " + vAttachPath1+ "/1" + "<br>to " + vAttachPath2+ "/1" + " failed:<br>" + ee.description, "#00FF00");
+    }
   }
   fso = null;
 }

APPL/MRK/mrk_list.inc

@@ -15,6 +15,7 @@
 
 <!-- #include file="../Shared/discxprs3d.inc" -->
 <!-- #include file="../Shared/json2.js" -->
+<!-- #include file="../Shared/kenmerk_common.inc" -->
 <!-- #include file="../Shared/resultset_table_v2.inc" -->
 <!-- #include file="mrk.inc" -->
 
@@ -66,7 +67,7 @@ function mrk_list (pautfunction, params)
                               $(".photo").click(function(event)
                                              {
                                                FcltMgr.stopPropagation(event); // This prevents the event from bubbling up to the onclick event handler for the line.
-                                               var obj = event.srcElement || event.target;
+                                               var obj = event.srcElement;
                                                var src = obj.src;
                                                window.open(src);
                                              });
@@ -133,26 +134,19 @@ function mrk_list (pautfunction, params)
       }
 
       function fnplaatje(oRs)
-      {
+      { // Er kan maar 1 plaatje getoond worden per bericht. Meer kan men ook niet uploaden.
         var mrk_key = oRs("mrk_bericht_key").value;
-        var bestandsnaam = ""
-        var imgage = ""
-        var vAttachPath = S("flexFilesPath") + "/MRK/M" + mrk_key + "/" + 1 + "/";
-        //='C:\Inetpub\wwwroot\sm44\Facilitor5iwork\cust\UWVA\flexfiles/MRK/5/1/Waterfall.jpg'
-        fso = Server.CreateObject("Scripting.FileSystemObject");
-        if (fso.FolderExists(vAttachPath))
-        { // Haal de foto op
-          var f = fso.GetFolder(vAttachPath);
-          var fc = new Enumerator(f.files);
-          if (!fc.atEnd())
-          {
-            bestandsnaam = fc.item().Name;
-            var imagePathFile = "../../.." + custpath + "/flexfiles/MRK/M" + mrk_key + "/" + 1 + "/" + bestandsnaam;
-            bestandsnaam = bestandsnaam.replace(/\.jpg$/i, "");
-            imgage += "<img title='" + bestandsnaam + "' class='photo' src='" + safe.html(imagePathFile) + "'>";
-          }
+
+        var imgage = "";
+        var vSubFolder = subfolderKey("M", mrk_key);
+        var vAttachPath = mrk.bericht_attachPath(vSubFolder);
+        var vBestandnaam = mrk.bericht_foto(vAttachPath);
+        if (vBestandnaam)
+        {
+          var imagePathFile = mrk.bericht_imageFile(vSubFolder, vBestandnaam);
+          imgage = "<img title='" + vBestandnaam + "' class='photo' src='" + safe.html(imagePathFile) + "'>";
         }
-        return imgage
+        return imgage;
       }
 
       /**************************************

APPL/MRK/mrk_show_bericht.asp

@@ -13,6 +13,7 @@
 
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/iface.inc" -->
+<!-- #include file="../Shared/kenmerk_common.inc" -->
 <!-- #include file="../Shared/persoonselector.inc" -->
 <!-- #include file="mrk.inc" -->
 
@@ -83,26 +84,15 @@ user.auth_required_or_abort(this_mrk.canRead);
                             });
         ROFIELDTR("fldmrkprijs", L("lcl_mrk_prijs") + " " + S("currency_pref").replace(" ", "") + S("currency_suff").replace(" ", ""), safe.curr(mrk_bericht && mrk_bericht.prijs? mrk_bericht.prijs : "0")); // Prijs
 
+        var vSubFolder = subfolderKey("M", mrk_key);
+        var vAttachPath = mrk.bericht_attachPath(vSubFolder);
+        var vBestandnaam = mrk.bericht_foto(vAttachPath);
 
-        var bestandsnaam = ""
-        var vAttachPath = S("flexFilesPath") + "/MRK/" + mrk_key + "/" + 1 + "/";
-        fso = Server.CreateObject("Scripting.FileSystemObject");
-        if (fso.FolderExists(vAttachPath))
-        { // Haal de foto op
-          var f = fso.GetFolder(vAttachPath);
-          var fc = new Enumerator(f.files);
-          if (!fc.atEnd())
-          {
-            bestandsnaam = fc.item().Name;
-            //bestandsnaam= bestandsnaam.replace(/\.jpg$/i, "");
-          }
-        }
-
-        if (bestandsnaam != "")
+        if (vBestandnaam != "")
         { // Foto upload
-            var imagePathFile = "../../.." + custpath + "/flexfiles/MRK/" + mrk_key + "/" + 1 + "/" + bestandsnaam;
+            var imagePathFile = mrk.bericht_imageFile(vSubFolder, vBestandnaam);
             %><tr><td class='label'><label><%=L("lcl_mrk_foto")%></label></td>
-                  <td><img title='<%=safe.htmlattr(bestandsnaam)%>' class='photo' src='<%=safe.htmlattr(imagePathFile)%>'></td>
+                  <td><img title='<%=safe.htmlattr(vBestandnaam)%>' class='photo' src='<%=safe.htmlattr(imagePathFile)%>'></td>
               </tr>
             <%
         }

APPL/PDA/ins_deel.asp

@@ -99,7 +99,7 @@ var subject = oRs("ins_srtdeel_omschrijving").value+ " " +oRs("ins_deel_omschrij
     if (trackinglines>0) {
         BUTTON(L("lcl_history"), {linkid: "#ins-2-"+ins_key, dataicon: "arrow-d", transition: "pop", datarel: "dialog"});
     }
-    if (user.checkAutorisation( "WEB_MLDBOF", true)) {
+    if (user.checkAutorisation( "WEB_MLDUSE", true)) {
         var tsql = "SELECT COUNT(m.mld_melding_key) FROM mld_melding_object mo, mld_melding m WHERE mo.mld_melding_object_verwijder IS NULL"
                  + " AND mo.mld_melding_key = m.mld_melding_key"
                  + " AND m.mld_melding_status IN (0,2,3,4,7)"  // lopende meldingen

APPL/PDA/melding.asp

@@ -43,20 +43,39 @@ if (mld_key == -1) {
     // Optioneel:
     var ins_key = getQParamInt("ins_key", -1);  // test 5009 Het kan zijn dat ik vanuit de lijst deze meekrijg om een nieuwe aan te maken
     var ruimte_key = getQParamInt("ruimte_key", -1);  // Het kan zijn dat ik vanuit de lijst deze meekrijg om een nieuwe aan te maken
-    if (ruimte_key==-1 && ins_key > -1) {
+    if (ruimte_key==-1 && ins_key > -1)
+    {
         // Als ik een object heb kan ik zelf de plaats precies bepalen (ruimte; TODO: werkplek of terrein?)
-        var sql = " SELECT aog.alg_ruimte_key, d.ins_alg_ruimte_type"
-                + "   FROM alg_v_onroerendgoed aog, ins_deel d"
-                + "  WHERE d.ins_alg_ruimte_key = aog.alg_ruimte_key "
-                + "    AND d.ins_deel_key = " + ins_key;
-        var oRs = Oracle.Execute(sql);
-        ruimte_key = oRs("alg_ruimte_key").value;
-    }
+        var sql = " SELECT aog.alg_ruimte_key,"
+                + "        aog.alg_verdieping_key,"
+                + "        aog.alg_gebouw_key,"
+                + "        aog.alg_locatie_key,"
+                + "        ins_deel_omschrijving,"
+                +          lcl.xsqla('sd.ins_srtdeel_omschrijving', 'sd.ins_srtdeel_key')
+                + "   FROM alg_v_onroerendgoed_gegevens aog, ins_deel id, ins_srtdeel sd "
+                + "  WHERE id.ins_alg_ruimte_key = aog.alg_ruimte_key "
+                + "    AND id.ins_alg_ruimte_type = 'R'"   // waarom eigenlijk?
+                + "    AND sd.ins_srtdeel_key = id.ins_srtdeel_key"
+                + "    AND id.ins_deel_verwijder IS NULL"
+                + "    AND id.ins_deel_key = " + ins_key;
 
-    // Deze zijn niet waarschijnlijk meegegeven, maar de defaultwaarde is ook al handig
-    var locatie_key = getQParamInt("locatie_key", user.alg_locatie_key({withcurrent:true})); // Locatie
-    var gebouw_key = getQParamInt("gebouw_key", user.alg_gebouw_key({withcurrent:true})); // Gebouw, kan -1 zijn, dan niet gebruiken
-    var verdieping_key = getQParamInt("verdieping_key", user.alg_verdieping_key({withcurrent:true}));
+        var oRs = Oracle.Execute(sql);
+        var locatie_key = oRs("alg_locatie_key").value;
+        var gebouw_key = oRs("alg_gebouw_key").value;
+        var verdieping_key = oRs("alg_verdieping_key").value;
+        ruimte_key = oRs("alg_ruimte_key").value;
+
+        var ins_name = oRs("ins_srtdeel_omschrijving").value+ " " +oRs("ins_deel_omschrijving").value;
+        oRs.Close();
+
+    }
+    else
+    {
+        // Deze zijn niet waarschijnlijk meegegeven, maar de defaultwaarde is ook al handig
+        var locatie_key = getQParamInt("locatie_key", user.alg_locatie_key({withcurrent:true})); // Locatie
+        var gebouw_key = getQParamInt("gebouw_key", user.alg_gebouw_key({withcurrent:true})); // Gebouw, kan -1 zijn, dan niet gebruiken
+        var verdieping_key = getQParamInt("verdieping_key", user.alg_verdieping_key({withcurrent:true}));
+    }
 }
 
 if ( mld_key > -1)
@@ -171,7 +190,7 @@ var subject = mld_key > -1 ? (oRs("ins_srtdiscipline_prefix").Value || "")+ mld_
         function mld_accept()
         {
             $.post($("form[name=meld]")[0].action, $("[name=meld]").serialize(), null, "json");
-            $.post("../mld/mld_accept_save.asp?mld_key=<%=mld_key%>", $("[name=meld]").serialize(), McltCallbackRefresh, "json");
+            $.post("../mld/mld_accept.asp?mld_key=<%=mld_key%>", $("[name=meld]").serialize(), McltCallbackRefresh, "json");
             return false;
         };
         function mld_close()
@@ -180,11 +199,29 @@ var subject = mld_key > -1 ? (oRs("ins_srtdiscipline_prefix").Value || "")+ mld_
             $.post("../mld/mld_close_save.asp?mld_key=<%=mld_key%>", $("[name=meld]").serialize(), McltCallbackRefresh, "json");
             return false;
         };
+
+        function mld_submit_callback(json)
+        {
+          if (json.success)
+          {
+            jqToast("Gegevens zijn opgeslagen"); // ' onder nummer ... '
+            <% if (qrc) { %>
+                // Waarschijnlijk QR-code op koffieautomaat. Niet naar andere schermen springen.
+                $("input[name=mld_key]").val(json.mld_key);
+            <% } else { %>
+                // Anders is het waarschijnlijk een BO-medewerker en moeten we een reload doen
+                // de 'Accept' button te voorschijn te halen en dergelijke. Even te complex
+                window.history.back(1);
+            <% } %>
+          }
+        };
+
         function mld_submit()
         {
             // TODO: Wat met doublecheck
             // Misschien automatisch forcesave of juist alert dat probleem al gemeld is?
-            $.post($("form[name=meld]")[0].action, $("[name=meld]").serialize(), McltCallbackClose, "json");
+            // 5.2.2 Gold D: inderdaad vooralsnog forcesafe
+            $.post($("form[name=meld]")[0].action, $("form[name=meld]").serialize(), McltCallbackAndThen(mld_submit_callback), "json");
             return false;
         }
     </script>
@@ -195,11 +232,13 @@ var subject = mld_key > -1 ? (oRs("ins_srtdiscipline_prefix").Value || "")+ mld_
       PAGE_START({id: "page-1-"+mld_key});
       HEADER({title: (mld_key>-1 ? oRs("ins_srtdiscipline_omschrijving").value :"")+" "+subject, back:!qrc, home: !qrc});
       CONTENT_START();
-%>
 
+// Altijd forcesave omdat we geen doublecheck aankunnen
+%>
       <form name="meld" id="meld" action="../mld/mld_edit_melding_save.asp" method="post">
         <input name="mld_key" value="<%=mld_key%>" type="hidden">
-        <input name="urole" value="bo" type="hidden">
+        <input name="forcesave" value="1" type="hidden">
+        <input name="urole" value="<%=mld_key>0?"bo":"fe"%>" type="hidden">
 <%
          if (mld_key == -1) { // Nieuw, maar deze velden kunnen we zelf verzinnen
             %><input name="person" value="<%=user_key%>" type="hidden">
@@ -277,6 +316,9 @@ var subject = mld_key > -1 ? (oRs("ins_srtdiscipline_prefix").Value || "")+ mld_
         }
         //BLOCK_END(); is in alle takken al geplaatst
 
+        if (ins_key > 0)
+            ROFIELD("fld", L("lcl_gerelateerdeobjecten"), ins_name);
+
         ROFIELD("fld", L("lcl_place")                                , plaats_string, {suppressEmpty: true} );
         if (mld_key > -1) {
 

APPL/PDA/mobile.js

@@ -38,8 +38,8 @@ function jqToast (msg)
     		padding: "7px",
     		"text-align": "center",
     		width: "270px",
-    		left: ($(window).width() - 284)/2,
-    		top: $(window).height()/2 })
+    		left: (($(window).width() - 284)/2)+"px",
+    		top: ($(window).scrollTop() + $(window).height()/2)+"px" })
     	.appendTo( $.mobile.pageContainer ).delay( 1500 )
     	.fadeOut( 400, function(){
 		    $(this).remove();

APPL/PDA/order.asp

@@ -136,7 +136,6 @@
             else
                 ROFIELD("fld"  , L("lcl_mld_final_remark"), mld_opdr.opdr_opmerking );
 
-            var vlabel = L("lcl_order_description")+L("lcl_opdr_close_2");
             if (this_opdr.canClose) {
                BUTTON(L("lcl_close"), {click: "opdr_close()", dataicon: "check"});
             }

APPL/PDA/setlocation.asp

@@ -38,13 +38,13 @@ if (flr_key > -1 || bld_key > -1 || loc_key > -1) {
 
 // Kies heel ruim waar je autorisatie op hebt
 // Let op dat je hier alleen autorisaties met plaats-component toevoegt (fac_functie_minlevel & 8)
-var sql = "SELECT MIN(fac_gebruiker_alg_level_write) writelevel"
+var sql = "SELECT COALESCE(MIN(fac_gebruiker_alg_level_write), 9) writelevel"
         + "  FROM fac_v_webgebruiker g, fac_functie f "
         + " WHERE g.fac_functie_key = f.fac_functie_key "
         + "   AND f.fac_functie_code IN ('WEB_MLDUSE', 'WEB_INSMAN', 'WEB_INSUSE', 'WEB_ALGMAN', 'WEB_ALGUSE', 'WEB_MLDBO2', 'WEB_ORDBO2')" // is dit wat?
         + "   AND g.prs_perslid_key = " + user_key;
 var oRs = Oracle.Execute(sql);
-var autlevel = oRs("writelevel").Value || 9;
+var autlevel = oRs("writelevel").Value; // Pas op: kan ook '0' zijn (regio)
 oRs.Close();
 
 // Als keys meegegeven, dan globallocation zetten op die key en refresh naar Facilitor.asp (die toont de locatie)

APPL/PRJ/edit_bezetting.asp

@@ -18,7 +18,6 @@
 <!-- #include file="../CAD/FGII.inc" -->
 
 <%
-FCLTHeader.Requires({ js: ["num2curr.js"]})
 user.auth_required_or_abort(func_enabled["WEB_PRJBOF"]);
 
 %>
@@ -113,15 +112,13 @@ user.auth_required_or_abort(func_enabled["WEB_PRJBOF"]);
         if ($("#wp_bez").val() != "")
           document.forms.u2.submit();
       }
-      function checkOccupation(evt)
+      function checkOccupation()
       {
-        evt = evt || window.event;
-        var obj = evt.srcElement || evt.target;
         var anum=/(^\d+$)/
-        var retVal = anum.test(obj.value);
+        retVal = anum.test(event.srcElement.value);
         if (retVal)
         {
-          var ival = parseInt(obj.value,10);
+          ival = parseInt(event.srcElement.value,10);
 
           if (!isNaN(ival) && ival >= 0 && ival <= 100)
             retVal = true;
@@ -131,7 +128,7 @@ user.auth_required_or_abort(func_enabled["WEB_PRJBOF"]);
         if (!retVal)
         {
           alert(L("lcl_prs_wp_bad_occupation"));
-          obj.focus();
+          event.srcElement.focus();
         }
         return retVal;
       }
@@ -149,14 +146,22 @@ user.auth_required_or_abort(func_enabled["WEB_PRJBOF"]);
           }
       }
 
-      function checkSeq(evt)
+      function isGoodNumber(str, checkInteger)
       {
-        evt = evt || window.event;
-        var obj = evt.srcElement || evt.target;
-        if( obj.value == "" || !isGoodNumber(obj.value,true,true,-1,-1))
+        var anum=/(^\d+$)|(^\d+\.\d*$)|(^\d*\.\d+$)/
+        if (checkInteger)
+        {
+          anum=/(^\d+$)/
+        }
+        return anum.test(str);
+      }
+
+      function checkSeq()
+      {
+        if( event.srcElement.value == "" || !isGoodNumber(event.srcElement.value, true))
         {
           alert(L("lcl_estate_wp_bad_seq"));
-          obj.focus();
+          event.srcElement.focus();
           return false;
         }
         return true;
@@ -165,7 +170,7 @@ user.auth_required_or_abort(func_enabled["WEB_PRJBOF"]);
       function checkArea()
       {
         if ($("#wp_opp").val() != ""
-             && !isGoodNumber($("#wp_opp").val(),false,true,-1,-1)
+             && !isGoodNumber($("#wp_opp").val(), false)
              && parseInt($("#wp_opp").val(),10) > 0
              && parseInt($("#wp_opp").val(),10) < 999999.99)
         {
@@ -190,7 +195,7 @@ user.auth_required_or_abort(func_enabled["WEB_PRJBOF"]);
             ROFIELDTR("fld", L("lcl_floor"), oRs("alg_verdieping_omschrijving").value);
             ROFIELDTR("fld", L("lcl_room"), oRs("prj_ruimte_nr").value + " (" + oRs("prj_ruimte_omschrijving").Value + ")");
 
-            RWFIELDTR("wp_seq", "fldshort", L("lcl_estate_wp_seq"), oRs("prj_werkplek_volgnr").value, {html: 'onblur="return checkSeq(event);"', reuired: true, datatype: "number"});
+            RWFIELDTR("wp_seq", "fldshort", L("lcl_estate_wp_seq"), oRs("prj_werkplek_volgnr").value, {html: 'onblur="return checkSeq();"', reuired: true, datatype: "number"});
             RWFIELDTR("wp_oms", "fld", L("lcl_workplace"), oRs("prj_werkplek_omschrijving").value, {maxlength: 30});
 %>
             <tr>
@@ -213,7 +218,7 @@ user.auth_required_or_abort(func_enabled["WEB_PRJBOF"]);
 <%
             ROFIELDTR("fld", L("lcl_name"), oRs("naam").Value);
             ROFIELDTR("fld", L("lcl_department"), oRs("afdnaam").Value);
-            RWFIELDTR("wp_bez", "fldprocent", L("lcl_occupation_perc"), oRs("prj_perslidwerkplek_bezetting").Value, {html: 'onblur="return checkOccupation(event);"'});
+            RWFIELDTR("wp_bez", "fldprocent", L("lcl_occupation_perc"), oRs("prj_perslidwerkplek_bezetting").Value, {html: 'onblur="return checkOccupation();"'});
 %>
           </table>
         </td>

APPL/PRS/kpn_edit_kpn.asp

@@ -19,8 +19,7 @@
 <!-- #include file="../Shared/calendar.inc" -->
 
 <%
-FCLTHeader.Requires({plugins:["suggest", "jQuery"],
-                     js: ["num2curr.js"]})
+FCLTHeader.Requires({plugins:["suggest", "jQuery"]})
 
 var kpn_key  = getQParamInt("kpn_key", -1);
 
@@ -65,13 +64,22 @@ else
 <%  FCLTHeader.Generate();
 %>
     <script>
-      function checkLimit(evt)
+      function isGoodNumber(str, checkInteger)
       {
-        evt = evt || window.event;
-        var obj = evt.srcElement || evt.target;
-        var limit = obj.value;
+        var anum = /^(-?\d{1,8}[.,]?|-?\d{0,8}[.,]\d{1,2})$/
+        if (checkInteger)
+        {
+          anum = /^(-?\d{1,8}[.,]?)$/
+        }
+        return (str.match(anum) && true);
+      }
+
+      function checkLimit()
+      {
+        obj = event.srcElement;
+        limit = obj.value;
         if (limit != ""
-             && (!isGoodNumber(limit,true,false,8,-1)
+             && (!isGoodNumber(limit, true)
              || parseInt(limit, 10) < 0
              || parseInt(limit, 10) > 99999999))
         {
@@ -155,7 +163,7 @@ else
                        initEmpty: !kpn_eind || kpn_key <= 0
                      });
 
-        RWFIELDTR("kpn_limiet", "fldkpnlimiet", L("lcl_prs_budget") + "&nbsp;" + S("currency_pref"), kpn_limiet, {datatype: "number", maxlength: 8, html: "onChange='checkLimit(event)'"});
+        RWFIELDTR("kpn_limiet", "fldkpnlimiet", L("lcl_prs_budget") + "&nbsp;" + S("currency_pref"), kpn_limiet, {datatype: "number", maxlength: 8, html: "onChange='checkLimit()'"});
 
         sql =  "SELECT 0, '' FROM DUAL"
             +  " UNION SELECT 1, " + safe.quoted_sql(L("lcl_prs_per_month")) + " FROM DUAL"

APPL/PRS/kpn_mandate_list.inc

@@ -113,12 +113,9 @@ function kpn_mandate_list(authparams, params)
         if ( authparams.PRSreadlevel > 0)
         {
           sqln += " AND p.prs_afdeling_key IN "
-               +  "    (SELECT prs_afdeling_key FROM prs_v_afdeling_familie a"
-               +  "      WHERE a.prs_afdeling_elder_key IN"
-               +  "        (SELECT aa.prs_afdeling_elder_key"
-               +  "           FROM prs_v_afdeling_familie aa"
-               +  "          WHERE aa.prs_afdeling_key = " + user.prs_afdeling_key()
-               +  "            AND aa.niveau = " + authparams.PRSreadlevel + "))";
+                +  "(SELECT prs_afdeling_key FROM fac_v_my_prs_afdelingen_read "
+                +   " WHERE prs_perslid_key = " + user_key
+                +    " AND fac_functie_code='" + authparams.autfunction + "')";
         }
         if ( authparams.PRSreadlevel == 0 )
         {

APPL/PRS/prs.inc

@@ -219,12 +219,10 @@ prs =
     }
     else
     {
-      var sql = "SELECT prs_afdeling_key FROM prs_v_afdeling_familie a"
-              + " WHERE a.prs_afdeling_elder_key IN"
-              + "      (SELECT aa.prs_afdeling_elder_key"
-              + "         FROM prs_v_afdeling_familie aa"
-              + "        WHERE aa.prs_afdeling_key = " + user.prs_afdeling_key()
-              + "          AND aa.niveau = " + authparams.PRSwritelevel + ")";
+      var sql = "SELECT prs_afdeling_key FROM fac_v_my_prs_afdelingen_write"
+              + " WHERE prs_perslid_key="+user_key
+              + "   AND prs_afdeling_key = " + pafdeling_key
+              + "   AND fac_functie_code = " + safe.quoted_sql(autfunction)
 
       var oRs = Oracle.Execute(sql);
 

APPL/PRS/prs_afdeling_list.inc

@@ -164,13 +164,10 @@ function afdeling_list(pautfunction, params)
       var sqln = "";
       if (authparams.PRSreadlevel > 0)
       {  // Er is een scope-beperking van kracht
-        sqln += " AND dd.prs_afdeling_key IN "
-             +  "    (SELECT prs_afdeling_key FROM prs_v_afdeling_familie a"
-             +  "      WHERE a.prs_afdeling_elder_key IN"
-             +  "        (SELECT aa.prs_afdeling_elder_key"
-             +  "           FROM prs_v_afdeling_familie aa"
-             +  "          WHERE aa.prs_afdeling_key = " + user.prs_afdeling_key()
-             +  "            AND aa.niveau = " + authparams.PRSreadlevel + "))";
+          sqln += " AND dd.prs_afdeling_key IN"
+                  + " (SELECT prs_afdeling_key FROM fac_v_my_prs_afdelingen_read"
+                  + " WHERE prs_perslid_key = " + user_key
+                  + " AND fac_functie_code = " + safe.quoted_sql(autfunction) + ")";
       }
       if (authparams.PRSreadlevel == 0) // (PRSreadlevel == 0) ==> prs_bedrijf
       {

APPL/PRS/prs_perslid_list.inc

@@ -149,12 +149,9 @@ function perslid_list(pautfunction, params)
       if (authparams.PRSreadlevel > 0)
       {
         sqln += " AND d.prs_afdeling_key IN "
-             +  "    (SELECT prs_afdeling_key FROM prs_v_afdeling_familie a"
-             +  "      WHERE a.prs_afdeling_elder_key IN"
-             +  "        (SELECT aa.prs_afdeling_elder_key"
-             +  "           FROM prs_v_afdeling_familie aa"
-             +  "          WHERE aa.prs_afdeling_key = " + user.prs_afdeling_key()
-             +  "            AND aa.niveau = " + authparams.PRSreadlevel + "))";
+             +  " ( SELECT prs_afdeling_key FROM fac_v_my_prs_afdelingen_read "
+  	         +  " WHERE prs_perslid_key="+user_key
+  	         +  " AND fac_functie_code = '"+autfunction+"')";
       }
 
       if (authparams.PRSreadlevel == 0) // (PRSreadlevel == 0) ==> prs_bedrijf

APPL/PRS/prs_perslid_qr.asp

@@ -16,6 +16,8 @@
   <head>
 <%  FCLTHeader.Generate(); %>
 <%
+    var qr_auth_expire = 5; // TODO: Setting
+
     sessionId = shared.random(32);
 
     // verwijder oudere sessies om te voorkomen dat bij innemen van de telefoon nog steeds gebruik gemaakt
@@ -33,12 +35,12 @@
         + "   '" + sessionId + "', "
         +     user_key + ", "
         + "   'QR identification', "
-        + "   sysdate+(2/24/60) )" // je hebt twee minuten om de QR code te scannen.
+        + "   sysdate+("+qr_auth_expire+"/24/60) )" // je hebt twee minuten om de QR code te scannen.
     Oracle.Execute(sql);
 
     // /default.asp?session=fhfhIPFUHEIhFE in de QR-code zou genoeg zijn
-    // maar (richtlijne) qrcodes gaan altijd via een short-url/ bookmark
-    bookmarkId = shared.random(32); // Bij uitzondering voor security 32
+    // maar (richtlijnen) qrcodes gaan altijd via een short-url/ bookmark
+    bookmarkId = shared.random(12); // Toch maar 5 minuten geldig, en sommige mensen moeten overtikken
     sql = "INSERT INTO fac_bookmark ( "
         + "   fac_bookmark_id, "
         + "   prs_perslid_key, "
@@ -52,15 +54,21 @@
         + "   'PRS QR code indentificatie', "
         + "   'default.asp', " // via de root
         +     safe.quoted_sql("session=" + sessionId) + ", "
-        + "   sysdate+(2/24/60) )"
+        + "   sysdate+("+qr_auth_expire+"/24/60) )"
     Oracle.Execute(sql);
 
+var proto = (Request.ServerVariables("SERVER_PORT") == "443")?"https":"http";
+var sitenoroot = proto + "://" + Request.ServerVariables("SERVER_NAME");
+var site = sitenoroot + rooturl;
+var url = site + "/?u=" + bookmarkId;
 %>
   </head>
 
   <body class="modal" id="authQR" scroll="no">
     <div id="myQR""><h3><%=L("lcl_qrc_apiconfig_titel")%></h3><br><label><%=L("lcl_qrc_apiconfig_header")%></label></div>
-  <center><img class="QRC" src='../shared/qrcode.asp?size=4&text=<%=Server.URLEncode("/?u=" + bookmarkId)%>'></center>
+  <center><img class="QRC" src='../shared/qrcode.asp?size=4&text=<%=Server.URLEncode("/?u=" + bookmarkId)%>'><br>
+    Of browse op uw mobiel binnen <%=qr_auth_expire%> minuten naar:<p><xmp style='font-size:14px'><%= safe.html(site + "/?u=" + bookmarkId) %></xmp></p>
+    </center>
     <div id="footer"><%=L("lcl_qrc_apiconfig_footer")%></div>
   </body>
 </html>

APPL/PRS/prs_show_dienst.asp

@@ -1,13 +1,12 @@
 <%@language = "javascript" %>
 <%
 /*  $Revision$Id: $
+    $Id$
 
     File:           prs_show_dienst.asp
-    Status:         90%
     Description:    edit or add dienst
     Parameters:     dloc_key (required)
 
-
     Context:
     Note:
 
@@ -34,45 +33,46 @@ var authparams = user.checkAutorisation(autfunction)
 
 if (dloc_key > -1)
 {
- sql = "SELECT   b.prs_bedrijf_key, "
-     + "         b.prs_bedrijf_naam, "
-     + "         d.prs_dienst_key, "
-     + lcl.xsqla('d.prs_dienst_omschrijving', 'd.prs_dienst_key')
-     + "    FROM prs_bedrijf b, "
-     + "         prs_bedrijfdienstlocatie dl, "
-     + "         prs_dienst d "
-     + "   WHERE b.prs_bedrijf_intern IS NULL "
-     + "     AND b.prs_bedrijf_verwijder IS NULL "
-     + "     AND b.prs_bedrijf_key = dl.prs_bedrijf_key "
-     + "     AND dl.prs_dienst_key = d.prs_dienst_key "
-     + "     AND prs_bedrijfdienstlocatie_key = " + dloc_key
-     + "   ORDER BY UPPER (" + lcl.xsql("d.prs_dienst_omschrijving", "d.prs_dienst_key") + ") ASC "
+  sql = "SELECT b.prs_bedrijf_key"
+      + "     , b.prs_bedrijf_naam"
+      + "     , d.prs_dienst_key"
+      + "     , " + lcl.xsqla('d.prs_dienst_omschrijving', 'd.prs_dienst_key')
+      + "     , dl.prs_bedrijfdienstlocatie_key"
+      + "  FROM prs_bedrijf b"
+      + "     , prs_bedrijfdienstlocatie dl"
+      + "     , prs_dienst d"
+      + " WHERE b.prs_bedrijf_intern IS NULL"
+      + "   AND b.prs_bedrijf_verwijder IS NULL"
+      + "   AND b.prs_bedrijf_key = dl.prs_bedrijf_key"
+      + "   AND dl.prs_dienst_key = d.prs_dienst_key"
+      + "   AND prs_bedrijfdienstlocatie_key = " + dloc_key
+      + " ORDER BY UPPER (" + lcl.xsql("d.prs_dienst_omschrijving", "d.prs_dienst_key") + ") ASC"
 }
 else
 {
-  sql = "SELECT   b.prs_bedrijf_key, "
-      + "         b.prs_bedrijf_naam, "
-      + "         d.prs_dienst_key, "
-      + lcl.xsqla('d.prs_dienst_omschrijving', 'd.prs_dienst_key')
-      + "    FROM prs_bedrijf b, "
-      + "         prs_bedrijfdienstlocatie dl, "
-      + "         prs_dienst d "
-      + "   WHERE b.prs_bedrijf_intern IS NULL "
-      + "     AND b.prs_bedrijf_verwijder IS NULL "
-      + "     AND b.prs_bedrijf_key = dl.prs_bedrijf_key "
-      + "     AND dl.prs_dienst_key = d.prs_dienst_key "
-      + "     AND dl.prs_bedrijf_key = " + bedrijf_key
-      + "     AND dl.prs_dienst_key = " + dienst_key
-      + "   ORDER BY UPPER (" + lcl.xsql("d.prs_dienst_omschrijving", "d.prs_dienst_key") + ") ASC "
+  sql = "SELECT b.prs_bedrijf_key"
+      + "     , b.prs_bedrijf_naam"
+      + "     , d.prs_dienst_key"
+      + "     , " + lcl.xsqla('d.prs_dienst_omschrijving', 'd.prs_dienst_key')
+      + "     , dl.prs_bedrijfdienstlocatie_key"
+      + "  FROM prs_bedrijf b"
+      + "     , prs_bedrijfdienstlocatie dl"
+      + "     , prs_dienst d"
+      + " WHERE b.prs_bedrijf_intern IS NULL"
+      + "   AND b.prs_bedrijf_verwijder IS NULL"
+      + "   AND b.prs_bedrijf_key = dl.prs_bedrijf_key"
+      + "   AND dl.prs_dienst_key = d.prs_dienst_key"
+      + "   AND dl.prs_bedrijf_key = " + bedrijf_key
+      + "   AND dl.prs_dienst_key = " + dienst_key
+      + " ORDER BY UPPER (" + lcl.xsql("d.prs_dienst_omschrijving", "d.prs_dienst_key") + ") ASC"
 }
 oRs = Oracle.Execute(sql);
-
 var prs_bdrkey  = oRs("prs_bedrijf_key").value;
 var prs_dnstkey = oRs("prs_dienst_key").value;
-
+dloc_key = oRs("prs_bedrijfdienstlocatie_key").value; // dloc_key heeft nu altijd een geldige waarde.
 oRs.Close();
-
 %>
+
 <html>
   <head>
 <%  FCLTHeader.Generate(); %>

APPL/RES/res.inc

@@ -72,67 +72,6 @@ res = {
             Oracle.Execute( sql );
         },
 
-       trackreserveringupdate:
-       // Let op: dit moet wellicht niet altijd (aangeroepen na save)
-       function (rsv_ruimte_key, ptxt)
-       {
-         if (ptxt)
-           shared.trackaction("RESUPD", rsv_ruimte_key, ptxt);
-         else
-           shared.trackaction("RESUPD", rsv_ruimte_key);
-       },
-
-       trackobject:
-       function (deel_key, actie)
-       {
-         sql = "SELECT id.ins_deel_omschrijving"
-             + "  FROM res_deel rd"
-             + "     , ins_deel id"
-             + " WHERE rd.res_ins_deel_key = id.ins_deel_key"
-             + "   AND rd.res_deel_key = " + deel_key;
-         oRs = Oracle.Execute(sql);
-         var obj_oms = oRs("ins_deel_omschrijving").value;
-         var track = "";
-         switch (actie)
-         {
-           case "delete": track = L("lcl_res_insdelete") + ": " + obj_oms;
-                          break;
-           case "insert": track = L("lcl_res_insinsert") + ": " + obj_oms;
-                          break;
-         }
-         return track;
-       },
-
-       trackartikel:
-       function (artikel_key, actie, params)
-       {
-         sql = "SELECT ra.res_artikel_omschrijving"
-             + "  FROM res_artikel ra"
-             + " WHERE ra.res_artikel_key = " + artikel_key;
-         oRs = Oracle.Execute(sql);
-         var art_oms = oRs("res_artikel_omschrijving").value;
-         var track = "";
-         switch (actie)
-         {
-           case "delete": track = L("lcl_res_artdelete") + ": " + art_oms;
-                          break;
-           case "insert": track = L("lcl_res_artinsert") + ": " + art_oms;
-                          break;
-           case "update": track = L("lcl_res_artupdate") + ": " + art_oms
-                                + (params.old_number != params.new_number
-                                  ? "\n" + buildTrackText("integer", params.old_number, params.new_number, { nodiff: true })
-                                  : "")
-                                + (params.old_price != params.new_price
-                                  ? "\n" + buildTrackText("float", params.old_price, params.new_price, { nodiff: true })
-                                  : "")
-                                + (params.old_date.getTime() != params.new_date.getTime()
-                                  ? "\n" + buildTrackText("datetime", params.old_date, params.new_date, { nodiff: true })
-                                  : "");
-                          break;
-         }
-         return track;
-       },
-
        res_set_dialect:
         function (rsv_ruimte_key)
         {
@@ -577,9 +516,9 @@ res = {
                   + "  FROM res_v_aanwezigrsv_ruimte rs"
                   + " WHERE rs.res_rsv_ruimte_key = " + rsv_ruimte_key;
             }
-            sql = "SELECT MAX(res_status_bo_key) max_bo"
-                + "     , MIN (res_status_bo_key) min_bo"
-                + "  FROM (" + sql + ")";
+            sql = "SELECT MAX(res_status_bo_key) max_bo, "
+                + "       MIN (res_status_bo_key) min_bo"
+                + "  FROM ("+sql+")";
 
             oRs = Oracle.Execute( sql );
             rresult.min_bo = oRs("min_bo").Value;

APPL/RES/res_edit_objcat_save.asp

@@ -241,7 +241,6 @@ for (i = 1; i <= Request.Form.Count; i++)
   }
 }
 
-var trackarray = [];
 //=================================================
 // DEEL TWEE: DE OBJECTEN BIJWERKEN
 // Onze checkboxen hebben een hidden veld 'has_xxx' waaraan je kunt zien dat het object gereservereerd was
@@ -253,7 +252,7 @@ for (i = 1; i <= Request.Form.Count; i++)
   if (name.match(/has_[0-9].*/)) // bestaand object
   {
     var deel_key = parseInt(name.substring(4));
-    var present = Request.Form("chk_" + deel_key).Count > 0;
+    var present = Request.Form("chk_"+deel_key).Count > 0;
     if (!present)
     {
       sql = "DELETE from res_rsv_deel"
@@ -262,9 +261,6 @@ for (i = 1; i <= Request.Form.Count; i++)
       Oracle.Execute(sql);
       __Log("removed " + name + " : " + deel_key);
       //+ "  res.set_delen_clean(" + aDel[i].res_deel + "," + res_van.toSQL() + "); " // Anderen 'clean' geworden vandaag?
-      // Tracking toevoegen.
-      var deletetrack = res.trackobject(deel_key, "delete");
-      trackarray.push(deletetrack);
     }
     else
     {
@@ -278,7 +274,7 @@ for (i = 1; i <= Request.Form.Count; i++)
     if (name.match(/chk_[0-9].*/))
     {
       var deel_key = parseInt(name.substring(4));
-      var old = Request.Form("has_" + deel_key).Count > 0;
+      var old = Request.Form("has_"+deel_key).Count > 0;
       if (!old)
       {
         sql = "INSERT into res_rsv_deel"
@@ -292,12 +288,10 @@ for (i = 1; i <= Request.Form.Count; i++)
             + "," + res_van.toSQL(true) // Vooralsnog geen eigen tijdstippen
             + "," + res_tot.toSQL(true)
             + ", 1)";
+
         // Nu de echte update.
         Oracle.Execute(sql);
         __Log("added " + name + " : " +deel_key);
-        // Tracking toevoegen.
-        var inserttrack = res.trackobject(deel_key, "insert");
-        trackarray.push(inserttrack);
       }
     }
   }
@@ -379,9 +373,6 @@ for (i = 0; i < r_a_key.length; i++)
           + " WHERE res_rsv_ruimte_key=" + rsv_ruimte_key
           + "   AND res_artikel_key = " + r_a_key[i].key;
       Oracle.Execute(sql);
-      // Tracking toevoegen.
-      var deletetrack = res.trackartikel(r_a_key[i].key, "delete");
-      trackarray.push(deletetrack);
       continue;
     }
     cur_price = Request.Form("inpbp_c_" + r_a_key[i].key);
@@ -401,8 +392,6 @@ for (i = 0; i < r_a_key.length; i++)
       var oudeAantal = r_a_key[i].quantity;
       var oudeLevH = r_a_key[i].lev_h;
       var oudeLevM = r_a_key[i].lev_m;
-      var oudePrijs = r_a_key[i].price;
-      var oudeDatum = new Date(year, month-1, day, oudeLevH, oudeLevM)
       // FO kan alleen aantal en tijd aanpassen
       sql = "UPDATE res_rsv_artikel"
           + " SET res_rsv_artikel_aantal = " + cnt
@@ -422,19 +411,6 @@ for (i = 0; i < r_a_key.length; i++)
           + " WHERE res_rsv_ruimte_key = " + rsv_ruimte_key
           + " AND res_artikel_key = " + r_a_key[i].key;
       Oracle.Execute(sql);
-      if (oudeAantal != cnt || oudePrijs != cur_price || oudeDatum.getTime() != jsDate.getTime())
-      {
-        var updatetrack = res.trackartikel(r_a_key[i].key,
-                                           "update",
-                                           { old_number: oudeAantal,
-                                             new_number: cnt,
-                                             old_price: oudePrijs,
-                                             new_price: cur_price,
-                                             old_date: oudeDatum,
-                                             new_date: jsDate
-                                           });
-        trackarray.push(updatetrack);
-      }
 
       reserved++;
       continue;
@@ -488,9 +464,6 @@ for (i = 0; i < a_arIns.length; i++)
     }
     sql += "," + jsDate.toSQL(true) + ")";
     Oracle.Execute(sql);
-    // Tracking toevoegen.
-    var inserttrack = res.trackartikel(a_arIns[i].res_deel, "insert");
-    trackarray.push(inserttrack);
 
     reserved++;
   }
@@ -517,10 +490,7 @@ oRs = Oracle.Execute(sql);
 var hasAnyCV = !oRs.Eof;
 
 if (restype == "R")
-{
-  if (trackarray.length > 0)
-    res.trackreserveringupdate(rsv_ruimte_key, trackarray.length? L("lcl_res_is_resupd") + "\n" + trackarray.join("\n") : null);
-}
+  shared.trackaction("RESUPD", rsv_ruimte_key);
 else
 { // CV
   sql = "UPDATE res_rsv_ruimte"
@@ -529,14 +499,15 @@ else
   Oracle.Execute(sql);
   if(hasAnyCV)
   {
-    if (verynew == 1 && !this_res.min_bo) // misbruik this_res.min_bo: er was niets
+    if (verynew==1 && !this_res.min_bo) // misbruik this_res.min_bo: er was niets
       shared.trackaction("RESNEW", rsv_ruimte_key);
     else
-      res.trackreserveringupdate(rsv_ruimte_key, trackarray.length? L("lcl_res_is_resupd") + "\n" + trackarray.join("\n") : null);
+      shared.trackaction("RESUPD", rsv_ruimte_key);
   }
 }
 
-doneParams = { hasAnyCV: hasAnyCV,
+doneParams = {
+               hasAnyCV: hasAnyCV,
                warning: warning,
                success: true
              };

APPL/RES/res_edit_rsv_ruimte.asp

@@ -396,14 +396,7 @@ FCLTHeader.Requires({plugins: ["jQuery", "kenmerk"],
       function res_submit_callback(json)
       {
           if (json.success)
-          {
-              if (json.park_na < json.park_voor)
-              {
-                alert_text = json.park_na + L("lcl_park_alert1") + json.park_voor + L("lcl_park_alert2");
-                alert(alert_text);
-              }
               FcltMgr.closeDetail(window, json);
-          }
           else
               iface.button.enable("btn_res_submit");
       }

APPL/RES/res_edit_rsv_ruimte_save.asp

@@ -120,10 +120,10 @@ if (restype=="R")
 
     oRs.Close();
     // Mag deze activiteit in deze ruimte wel
-    sql = "SELECT res_activiteit_key"
-        + "  FROM res_activiteitdiscipline rad"
-        + " WHERE rad.res_discipline_key = " + disc_key
-        + "   AND rad.res_activiteit_key = " + act_key;
+    sql = "select res_activiteit_key"
+        + "  from res_activiteitdiscipline rad"
+        + " where rad.res_discipline_key = " + disc_key
+        + "   and rad.res_activiteit_key = " + act_key;
     var oRs = Oracle.Execute(sql);
     if (oRs.Eof)
     {
@@ -154,80 +154,44 @@ if (getFParamInt("bezoekers", 1) <= 0)
 // ========== Nu het echte bijwerken
 // ==========
 
-function countParking(rsv_ruimte_key)
-{
-  var sqlprk = "SELECT COUNT (*)"
-             + "  FROM res_rsv_deel"
-             + " WHERE bez_bezoekers_key IN"
-               + "     (SELECT B.bez_bezoekers_key"
-               + "      FROM   bez_bezoekers B"
-               + "      ,      bez_afspraak A"
-               + "      WHERE  B.bez_afspraak_key = A.bez_afspraak_key"
-               + "        AND  A.res_rsv_ruimte_key = " + rsv_ruimte_key
-               + "     )";
-  var oRsp = Oracle.Execute(sqlprk);
-  var aantal = oRsp(0).value;
-  oRsp.close();
-  return aantal;
-}
-
-function getRuimteOpstelling(opstel_key)
-{
-  var sqlro = "SELECT ro.res_opstelling_omschrijving"
-            + "     , rg.res_ruimte_nr"
-            + "  FROM res_ruimte_opstelling rro"
-            + "     , res_opstelling ro"
-            + "     , res_v_alg_ruimte_gegevens rg"
-            + " WHERE rro.res_opstelling_key = ro.res_opstelling_key"
-            + "   AND rro.res_ruimte_key = rg.res_ruimte_key"
-            + "   AND rro.res_ruimte_opstel_key = " + opstel_key;
-  var oRsRO = Oracle.Execute(sqlro);
-  var opstelling_oms = oRsRO("res_opstelling_omschrijving").value;
-  var ruimte_oms = oRsRO("res_ruimte_nr").value;
-  oRsRO.close();
-  return {opstelling_oms: opstelling_oms, ruimte_oms: ruimte_oms};
-}
-
-
 // Deze velden altijd opslaan
-var fields =  [ { dbs: "res_rsv_ruimte_omschrijving", typ: "varchar",  frm: "descript",     track: L("lcl_descr") },
-                { dbs: "res_rsv_ruimte_opmerking",    typ: "varchar",  frm: "opmerk",       track: L("lcl_remark") },
-                { dbs: "alg_ruimte_key",              typ: "key",      frm: "ruimtekey",    track: L("lcl_room"), foreign: "alg_v_plaatsaanduiding" },
-                { dbs: "res_ruimte_opstel_key",       typ: "key",      val: opstel_key,     track: true /* afzonderlijke tracking, wel oldjsval */ },
-                { dbs: "res_rsv_ruimte_van",          typ: "datetime", frm: "date_from",    track: (restype=="CV"? L("lcl_res_starttime_CV") : L("lcl_res_starttime")) },
-                { dbs: "res_rsv_ruimte_tot",          typ: "datetime", val: date_to,        track: (restype=="CV"? L("lcl_res_endtime_CV") : L("lcl_res_endtime")) },
-                { dbs: "prs_kostenplaats_key",        typ: "key",      frm: "account",      track: L("lcl_account"), foreign: "prs_kostenplaats" },
-                { dbs: "res_rsv_ruimte_host_key",     typ: "key",      frm: "personH",      track: L("lcl_host"), foreign: "prs_perslid" },
-                { dbs: "res_activiteit_key",          typ: "key",      frm: "sel_activity", track: L("lcl_activity"), foreign: "res_activiteit" },
-                { dbs: "res_status_fo_key",           typ: "number",   frm: "status_fo",    track: true /* afzonderlijke tracking, wel oldjsval */ },
-                { dbs: "res_rsv_ruimte_ordernr",      typ: "varchar",  frm: "ordernr",      track: L("lcl_mld_inf_Ordernr") },
-                { dbs: "res_rsv_ruimte_kosten_klant", typ: "check",    frm: "kostenklant",  track: L("lcl_res_inf_kostenklant") },
-                { dbs: "res_rsv_ruimte_contact_key",  typ: "key",      frm: "person",       track: L("lcl_name"), foreign: "prs_perslid" },
-                { dbs: "res_rsv_ruimte_bezoekers",    typ: "number",   frm: "bezoekers",    track: L("lcl_visitors") },
-                { dbs: "res_rsv_ruimte_telefoon",     typ: "varchar",  frm: "phone" } // MGE: Wordt volgens mij niet gebruikt!!
+var fields =  [ { dbs: "res_rsv_ruimte_omschrijving", typ: "varchar",  frm: "descript" },
+                { dbs: "res_rsv_ruimte_opmerking",    typ: "varchar",  frm: "opmerk" },
+                { dbs: "alg_ruimte_key",              typ: "key",      frm: "ruimtekey" },
+                { dbs: "res_ruimte_opstel_key",       typ: "key",      val: opstel_key },
+                { dbs: "res_rsv_ruimte_van",          typ: "datetime", frm: "date_from" },
+                { dbs: "res_rsv_ruimte_tot",          typ: "datetime", val: date_to },
+                { dbs: "prs_kostenplaats_key",        typ: "key",      frm: "account" },
+                { dbs: "res_rsv_ruimte_host_key",     typ: "key",      frm: "personH" },
+                { dbs: "res_activiteit_key",          typ: "key",      frm: "sel_activity" },
+                { dbs: "res_status_fo_key",           typ: "key",      frm: "status_fo", track: true /* afzonderlijke tracking, wel oldjsval */ },
+                { dbs: "res_rsv_ruimte_ordernr",      typ: "varchar",  frm: "ordernr" },
+                { dbs: "res_rsv_ruimte_kosten_klant", typ: "check",    frm: "kostenklant" },
+                { dbs: "res_rsv_ruimte_contact_key",  typ: "key",      frm: "person" },
+                { dbs: "res_rsv_ruimte_bezoekers",    typ: "number",   frm: "bezoekers" },
+                { dbs: "res_rsv_ruimte_telefoon",     typ: "varchar",  frm: "phone" }
               ];
 
 // Afhalen of bezorgen alleen voor CV reserveringen
 if (restype == "CV")
 {
-  fields.push({ dbs: "res_rsv_ruimte_cvab_mode",      typ: "number",   frm: "ab_mode", track: (L("lcl_res_bezorgen_fixed") +"/" + L("lcl_res_afhalen_fixed")) });
+  fields.push({ dbs: "res_rsv_ruimte_cvab_mode",      typ: "number",   frm: "ab_mode" });
 }
 
 // We kennen de checkbox res_noshow en invulveld bezshown (RWSN#19201)
 if (S("res_noshow_detailed") == 1) // aantal methode
 {
-    fields.push({ dbs: "res_rsv_ruimte_bezoekers_shown",  typ: "number",   frm: "bezshown", track: L("lcl_res_real_visitors") });
+    fields.push({ dbs: "res_rsv_ruimte_bezoekers_shown",  typ: "number",   frm: "bezshown" });
 }
 else // vinkje methode
 {
-    fields.push({ dbs: "res_rsv_ruimte_noshow",           typ: "check",    frm: "res_noshow", track: L("lcl_res_no_show") });
+    fields.push({ dbs: "res_rsv_ruimte_noshow",           typ: "check",    frm: "res_noshow" });
     //fields.push({ dbs: "res_rsv_ruimte_bezoekers_shown",  typ: "number",   val: 0 })
 }
 
-var isNew = (rsv_ruimte_key == -1);
-if (isNew) // Nieuw, dan moeten we ook nog een res_reservering record aanmaken
+if (rsv_ruimte_key==-1) // Nieuw, dan moeten we ook nog een res_reservering record aanmaken
 {
-    if (rsv_copy_key == -1)
+    if (rsv_copy_key==-1)
     {
         var resfields = [ { dbs: "res_reservering_key",      typ: "key",      seq: "res_s_res_reservering_key" },
                           { dbs: "res_reservering_aanmaak",  typ: "datetime", val: new Date() }
@@ -283,7 +247,7 @@ if (isNew) // Nieuw, dan moeten we ook nog een res_reservering record aanmaken
     else // CV
     {   // een ruimte zonder catering heeft ook een dirtlevel 16. De code doet er verder niet echt iets mee.
         fields = fields.concat(
-                        [ { dbs: "res_rsv_ruimte_dirtlevel",  typ: "number",    val: (res_deel_key? 0 : res.dirtlevel.ruimte.nocatering) }
+                        [ { dbs: "res_rsv_ruimte_dirtlevel",  typ: "number",    val: res_deel_key?0:res.dirtlevel.ruimte.nocatering }
                         ]);
     }
 
@@ -294,10 +258,10 @@ if (isNew) // Nieuw, dan moeten we ook nog een res_reservering record aanmaken
     // CV kan nog niet echt dirty zijn? Jawel, als je planbord lang laat staan
     // dirty is te forceren door nodirty mee te submitten
     var check_fail_sql = "";
-    if (getFParamInt("nodirty",0) == 1 || (S("res_fe_allow_dirty") != 1 && urole == 'fe'))
+    if (getFParamInt("nodirty",0)==1 || (S("res_fe_allow_dirty") != 1 && urole == 'fe'))
     {
         check_fail_sql = " if res.dirty_level_all(" + rsv_ruimte_key + ") <> 0 then"
-                       + "    raise_application_error (-20000, 'res_m999 " + L("lcl_res_fe_no_dirty") + "');"
+                       + "    raise_application_error (-20000, 'res_m999 "+L("lcl_res_fe_no_dirty")+"');"
                        + " end if;"
     }
 
@@ -356,11 +320,11 @@ else // update
     // ons eigen tijdstip/zaal is mogelijk gewijzigd waardoor andere *dirty* reserveringen
     // clean wordt. Even onze oude datum onthouden zodat we niet *alles* hoeven te controleren
     // Ook even noshow onthouden
-    oRs = Oracle.Execute("SELECT res_rsv_ruimte_van"
-                       + "     , res_rsv_ruimte_tot"
-                       + "     , res_rsv_ruimte_noshow"
-                       + "  FROM res_rsv_ruimte"
-                       + " WHERE res_rsv_ruimte_key = " + rsv_ruimte_key);
+    oRs = Oracle.Execute("select res_rsv_ruimte_van,"
+                       + "       res_rsv_ruimte_tot,"
+                       + "       res_rsv_ruimte_noshow"
+                       + "  from res_rsv_ruimte"
+                       + " where res_rsv_ruimte_key = " + rsv_ruimte_key);
     var oldvan = new Date(oRs("res_rsv_ruimte_van").Value);
     var oldtot = new Date(oRs("res_rsv_ruimte_tot").Value);
     var oldnoshow = oRs("res_rsv_ruimte_noshow").Value == 1;
@@ -372,13 +336,11 @@ else // update
     if (S("res_fe_allow_dirty") != 1 && urole == 'fe')
     {
         check_fail_sql = " if res.dirty_level_all(" + rsv_ruimte_key + ") <> 0 then"
-                       + "    raise_application_error (-20000, 'res_m999 " + L("lcl_res_fe_no_dirty") + "');"
+                       + "    raise_application_error (-20000, 'res_m999 "+L("lcl_res_fe_no_dirty")+"');"
                        + " end if;"
     }
     // Nu de echte update.
     // Daarbij ook diverse controles/ updates uitvoeren op 'andere zaken'
-    var Pvoor = countParking(rsv_ruimte_key); // Aantal gereserveerde parkeerplaatsen voor update
-
     sql = "BEGIN "
         + resUpd.sql + ";"
         + "  res.set_ruimte_dirty (" + rsv_ruimte_key + "); " // Zelf dirty geworden?
@@ -393,8 +355,7 @@ else // update
     if (err.friendlyMsg)
         abort_with_warning(err.friendlyMsg);
 
-    var Pna = countParking(rsv_ruimte_key); // Aantal gereserveerde parkeerplaatsen na update
-
+    shared.trackaction("RESUPD", rsv_ruimte_key);
     var newstatus = getFParamInt("status_fo", -1)
     if (newstatus > 0 && newstatus != resUpd.oldjsvals["res_status_fo_key"])
     {
@@ -414,62 +375,31 @@ else // update
         if (!oldnoshow && newnoshow)
             shared.trackaction("RESNOS", rsv_ruimte_key);
     }
-
-  if (restype == 'R')
-  {
-    new_opstel_key = opstel_key;
-    old_opstel_key = resUpd.oldjsvals["res_ruimte_opstel_key"];
-    if (new_opstel_key != old_opstel_key)
-    {
-      new_opst_geg = getRuimteOpstelling(new_opstel_key);
-      old_opst_geg = getRuimteOpstelling(old_opstel_key);
-      if (new_opst_geg.ruimte_oms != old_opst_geg.ruimte_oms)
-        resUpd.trackarray.push(L("lcl_room") + ": " + buildTrackText("varchar", old_opst_geg.ruimte_oms, new_opst_geg.ruimte_oms, { nodiff: true }));
-      if (new_opst_geg.opstelling_oms != old_opst_geg.opstelling_oms)
-        resUpd.trackarray.push(L("lcl_config") + ": " + buildTrackText("varchar", old_opst_geg.opstelling_oms, new_opst_geg.opstelling_oms, { nodiff: true }));
-    }
-  }
 }
 
-var currentKenmerkenSQL = "SELECT kl.res_kenmerk_key"
-                        + "     , kl.res_kenmerkreservering_waarde"
-                        + "  FROM res_kenmerkwaarde kl"
-                        + "     , res_kenmerk k"
-                        + "     , res_rsv_ruimte rr"
-                        + "     , res_activiteit ra"
-                        + "     , res_srtactiviteit rsa"
-                        + " WHERE k.res_kenmerk_key = kl.res_kenmerk_key"
-                        + "   AND k.res_activiteit_key = ra.res_activiteit_key"
-                        + "   AND rr.res_activiteit_key = ra.res_activiteit_key"
-                        + "   AND rr.res_rsv_ruimte_key = kl.res_rsv_ruimte_key"
-                        + "   AND ra.res_srtactiviteit_key = rsa.res_srtactiviteit_key"
-                        + "   AND res_kenmerkwaarde_verwijder IS NULL"
-                        + "   AND rr.res_rsv_ruimte_key = " + rsv_ruimte_key;
+ var currentKenmerkenSQL = "SELECT kl.res_kenmerk_key"
+                         + "     , kl.res_kenmerkreservering_waarde"
+                         + "  FROM res_kenmerkwaarde kl"
+                         + "     , res_kenmerk k"
+                         + "     , res_rsv_ruimte rr"
+                         + "     , res_activiteit ra"
+                         + "     , res_srtactiviteit rsa"
+                         + " WHERE k.res_kenmerk_key = kl.res_kenmerk_key"
+                         + "   AND k.res_activiteit_key = ra.res_activiteit_key"
+                         + "   AND rr.res_activiteit_key = ra.res_activiteit_key"
+                         + "   AND rr.res_rsv_ruimte_key = kl.res_rsv_ruimte_key"
+                         + "   AND ra.res_srtactiviteit_key = rsa.res_srtactiviteit_key"
+                         + "   AND res_kenmerkwaarde_verwijder IS NULL"
+                         + "   AND rr.res_rsv_ruimte_key = " + rsv_ruimte_key;
 
-var allKenmerkenSQL = "SELECT " + lcl.xsql('t.res_srtkenmerk_omschrijving', 't.res_srtkenmerk_key') + " kenmerk_omschrijving"
-                    + "     , b.res_srtkenmerk_key srtkenmerk_key"
-                    + "  FROM res_kenmerk b"
-                    + "     , res_srtkenmerk t"
-                    + " WHERE b.res_srtkenmerk_key = t.res_srtkenmerk_key"
-                    + "   AND b.res_kenmerk_key = "; /* wordt in saveFlexkenmerken uitgebreid */
-
-var flextrack = saveFlexKenmerken(rsv_ruimte_key,
-                                  { kenmerkTable: "RES_KENMERKWAARDE",
-                                    kenmerkParentKey : "RES_RSV_RUIMTE_KEY",
-                                    kenmerkWaarde: "RES_KENMERKRESERVERING_WAARDE",
-                                    kenmerkKey: "RES_KENMERK_KEY",
-                                    currentKenmerkenSQL: currentKenmerkenSQL,
-                                    allKenmerkenSQL: allKenmerkenSQL,
-                                    requestQF: Request.Form,
-                                    isNew: (rsv_ruimte_key<0),
-                                    flexPath: "RES/R",
-                                    tracking: true,
-                                    module: "RES"
-                                  })
-
-// Nu nog de tracking.
-if (!isNew)
-  res.trackreserveringupdate(rsv_ruimte_key, resUpd.trackarray.length || flextrack.length? L("lcl_res_is_resupd") + "\n" + resUpd.trackarray.concat(flextrack).join("\n") : null);
+ saveFlexKenmerken(rsv_ruimte_key, { kenmerkTable: "RES_KENMERKWAARDE",
+                             kenmerkParentKey : "RES_RSV_RUIMTE_KEY",
+                             kenmerkWaarde: "RES_KENMERKRESERVERING_WAARDE",
+                             kenmerkKey: "RES_KENMERK_KEY",
+                             currentKenmerkenSQL: currentKenmerkenSQL,
+                             requestQF: Request.Form,
+                             isNew: (rsv_ruimte_key<0),
+                             flexPath: "RES/R"})
 
 // Klantspecifieke check functie (hookfunction) voor de invoer
 var pResult = new HookResult();
@@ -479,8 +409,6 @@ if (!custfunc.res_postsave(rsv_ruimte_key, pResult))
 }
 
 doneParams = { rsv_ruimte_key: rsv_ruimte_key,
-               park_voor: Pvoor,
-               park_na: Pna,
                warning: warning,
                success: true // anders hadden we wel abort_with_warning gedaan.
              };

APPL/RES/res_reservering.asp

@@ -28,7 +28,7 @@ FCLTHeader.Requires({plugins: ["jQuery"],
 var urole = getQParamSafe("urole", "xx");
 
 var rsv_ruimte_key = getQParamInt("rsv_ruimte_key", -1);
-var verynew = getQParamInt("verynew", 0) == 1 && getQParamInt("nowold", 0) != 1;
+var verynew = getQParamInt("verynew",0) == 1 && getQParamInt("nowold",0) != 1;
 
 var transitParam = "";
 if (verynew)
@@ -521,7 +521,7 @@ else // Bestaande reservering
         if (verynew && restype == "CV")
           var page = "../shared/empty.html"; // komt wel in document.ready
         else
-          var page = "res_show_objcat.asp?urole=" + urole + "&rsv_ruimte_key=" + rsv_ruimte_key + transitParam;
+          var page = "res_show_objcat.asp?urole=" + urole + "&rsv_ruimte_key=" + rsv_ruimte_key;
 
         IFRAMER("objcatFrame", page, { title: L("lcl_res_frame_voorziening"), FcltClose: "objcatClose" });
       }

APPL/RES/res_search_plan_obj.asp

@@ -98,7 +98,7 @@ var res_tot = new Date(<%=date_to.getTime()%>);
                                    var res_deel_key = $(this).closest('tr')[0].id;
                                    if (res_deel_key)
                                    {
-                                       var url = "./res_update_obj.asp?rsv_deel_key="+ui.draggable[0].rsv_deel_key
+                                       var url = "./res_update_obj.asp?rsv_deel_key="+ui.draggable[0].getAttribute("rsv_deel_key")
                                                + "&res_deel_key="+$(this).closest('tr')[0].id
                                                + "&fres_van="+dx;
                                        FcltMgr.openModalDetail(url, "",

APPL/SLE/sle_srtdeel.asp

@@ -106,7 +106,7 @@ if (ins_srtdeel_key > 0)
     IFRAMER("sleFrame", page, { FcltClose: "sleClose" } );
 
     // Bijbehorende onderdelen, ook als er geen zijn (om toe te kunnen voegen) //TODO: alleen zien bij bo, klopt dat? volgens mij niet nodig bij uitlenen innemen.
-    if ((authparamsSLEFOF && authparamsSLEFOF.ALGwritelevel < 9 && authparamsSLEFOF.PRSwritelevel < 9) &&
+    if ((authparamsSLEFOF && authparamsSLEFOF.ALGreadlevel < 9 && authparamsSLEFOF.PRSreadlevel < 9) &&
         (ins_srtdeel_key > 0))
     {
       page = "slecil_list.asp?tiny=1&ins_srtdeel_key=" + ins_srtdeel_key + transitParam;
@@ -118,7 +118,7 @@ if (ins_srtdeel_key > 0)
                });
     }
 
-    if ((authparamsSLEBOF && authparamsSLEBOF.ALGwritelevel < 9 && authparamsSLEBOF.PRSwritelevel < 9) &&
+    if ((authparamsSLEBOF && authparamsSLEBOF.ALGreadlevel < 9 && authparamsSLEBOF.PRSreadlevel < 9) &&
         (ins_srtdeel_key > 0 && couple))
     {
       // Vind gekoppelde ruimten (cilinders)