Die hoort weg te zijn

svn path=/Website/branches/v5.4.1/; revision=22097

APPL/ALG/alg.inc

@@ -20,8 +20,6 @@
             RegioInScope etc. zou een beel betere benaming zijn geweest
  */
 
-FCLTHeader.Requires({ lcl: ["ALG"] });
-
 alg = {
         // merk op: ALGMAN heeft geen PRS-scope, ALGUSE wel maar die negeren we
         checkAutorisation: function (isOptional)

APPL/ALG/alg_delete.asp

@@ -13,11 +13,12 @@
     Note:
 
 */
-DOCTYPE_Disable = 1;
+var JSON_Result = true;
 %>
 <!--#include file="../Shared/common.inc"-->
 <!--#include file="../Shared/json2.js" -->
 <%
+protectRequest.validateToken();
 
 var level = getFParam("level");
 var dis_key_arr = getFParamIntArray("key");
@@ -44,36 +45,42 @@ var table = {D : "ALG_DISTRICT",
              W : "PRS_WERKPLEK",
              PW: "PRS_PERSLIDWERKPLEK"}[level];
 
-result = { success: true };
+result = { success: true, deleted: true };
 for (var i = 0; i < dis_key_arr.length; i++)
 {
-  sql = "UPDATE " + table
-      + "   SET " + table + "_VERWIJDER = " + "SYSDATE"
-      + " WHERE " + table + "_key IN (" + dis_key_arr[i] + ")";
-
-  var err = Oracle.Execute(sql, true);
-  if (err.friendlyMsg)
-  {
-    result.message = err.friendlyMsg;
-    break;
-  }
-
-  // Bij impliciet ook de werkplek weggooien die nu leeg is.
-  if (result.success && level == "PW" && S("prs_werkplek_implicit") == 1)
-  {
-    sql = "UPDATE prs_werkplek"
-        + "   SET prs_werkplek_verwijder = SYSDATE"
-        + " WHERE prs_werkplek_key IN "
-        + "     (SELECT prs_werkplek_key "
-        + "        FROM prs_perslidwerkplek"
-        + "        WHERE prs_perslidwerkplek_key IN (" + dis_key_arr[i] + "))"
+    // W en WP hebben geen verwijderveld (meer), die gaan echt weg.
+    if (level == "W" || level == "PW")
+    {
+        // Een WP gooit via de cascade zijn bezetting mee weg.
+        // Een bezetting verwijderen doet niets extra
+        // Bij impliciet verwijderen van wp-bezetting dus ook de werkplek weggooien
+        // die nu (per definitie) leeg wordt. Dit moet eerst, want straks weet
+        // ik niet meer genoeg
+        if (level == "PW" && S("prs_werkplek_implicit") == 1)
+        {
+            sql = "DELETE FROM prs_werkplek"
+                + " WHERE prs_werkplek_key IN "
+                + "     (SELECT prs_werkplek_key "
+                + "        FROM prs_perslidwerkplek"
+                + "        WHERE prs_perslidwerkplek_key IN (" + dis_key_arr[i] + "))"
+            var err = Oracle.Execute(sql, true);
+            if (err.friendlyMsg)
+              abort_with_warning(err.friendlyMsg);
+        }
+        // En dit moet ongeacht impliciet of expliciet.
+        // Alleen bij PW&implicit zal dit niets meer verwijderen vanwege de cascade hiervoor
+        sql = "DELETE FROM " + table
+            + " WHERE " + table + "_key IN (" + dis_key_arr[i] + ")";
+    }
+    else
+    {
+        sql = "UPDATE " + table
+            + "   SET " + table + "_VERWIJDER = " + "SYSDATE"
+            + " WHERE " + table + "_key IN (" + dis_key_arr[i] + ")";
+    }
     var err = Oracle.Execute(sql, true);
     if (err.friendlyMsg)
-    {
-      result.message = err.friendlyMsg;
-      break;
-    }
-  }
+      abort_with_warning(err.friendlyMsg);
 }
 
 Response.Write(JSON.stringify(result));

APPL/ALG/alg_district_list.inc

@@ -57,11 +57,16 @@ function fnrowData(oRs)
   {
     var disKeyString = getKeyString(rowArray);
     if (isMulti || confirm(L("lcl_alg_del_txt_district")))
+    {
+      var data = { key: disKeyString,
+                   level: "D"
+                 };
+      <% protectRequest.dataToken("data"); %>
       $.post("alg_delete.asp",
-             { key: disKeyString,
-               level: "D" },
+             data,
              FcltCallbackRefresh,
              "json");
+    }
   }
 </script>
 <%
@@ -80,13 +85,22 @@ function district_list(pautfunction, params)
   var reg_key = params.reg_key;
   var dis_key = params.dis_key;
 
-    function fnrowActionEnabler(oRs)
-    {
-        var eDelete = false;
-        if (alg.canWriteDistrict(oRs("alg_district_key").value, authparams.mALGwritelevel))
-            eDelete = true;
-        return ({eDelete: eDelete})
-    }
+  function fnrowActionEnabler(oRs)
+  {
+      var eDelete = false;
+      if (alg.canWriteDistrict(oRs("alg_district_key").value, authparams.mALGwritelevel))
+          eDelete = true;
+      return ({eDelete: eDelete})
+  }
+
+  function fnrowFlexParams(oRs)
+  {
+    var dis_key = oRs("alg_district_key").Value;
+    var this_alg = alg.func_enabled(dis_key, "D");
+
+    var flexParams = { readman: this_alg.readman, readuse: this_alg.readuse};
+    return flexParams;
+  }
 %>
   <html>
     <head>
@@ -141,6 +155,7 @@ function district_list(pautfunction, params)
                                    rowActionEnabler: fnrowActionEnabler,
                                    flexModule: "ALG",
                                    flexId: "alg_district_key",
+                                   flexParams: fnrowFlexParams,
                                    filterParams: params,
                                    outputmode: outputmode,
                                    buttons: addButton

APPL/ALG/alg_district_search.asp

@@ -64,7 +64,7 @@ var authparams = alg.checkAutorisation();
 <%    BLOCK_END();
   var buttons =  [ {title: L("lcl_search"), action: "doSubmit()", id: "bSearch" },
                    {title: L("lcl_obj_advanced"), action: "myModal()", id: "bAdvanced" } ];
-  CreateButtons(buttons); %>
+  CreateButtons(buttons, { entersubmit: true }); %>
     </form>
 
     </div> <!-- search -->

APPL/ALG/alg_edit_district.asp

@@ -103,6 +103,7 @@ generateFlexKenmerkBlock ({
      flexcolumns    : S("alg_flexcolumns"),
      this_alg       : this_alg
 });
+IFACE.FORM_END();
 %>
 </form>
 <iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>

APPL/ALG/alg_edit_gebouw.asp

@@ -216,6 +216,7 @@ generateFlexKenmerkBlock ({
      flexcolumns    : S("alg_flexcolumns"),
      this_alg       : this_alg
 });
+IFACE.FORM_END();
 %>
 </form>
 <iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>

APPL/ALG/alg_edit_gebouw_save.asp

@@ -16,6 +16,14 @@
 <%
   var bld_key = getQParamInt( "bld_key" );;
 
+  var beginuur = getFParamFloat("bld_beginuur", -2);
+  if (beginuur == -1)
+    beginuur = "";
+
+  var einduur = getFParamFloat("bld_einduur", -2);
+  if (einduur == -1)
+    einduur = "";
+
   var fields =  [ { dbs: "alg_locatie_key",           typ: "key",     frm: "locatiekey" },
                   { dbs: "ALG_SRTGEBOUW_KEY",         typ: "key",     frm: "bld_srtkey" },
                   { dbs: "ALG_GEBOUW_NAAM",           typ: "varchar", frm: "bld_naam" },
@@ -30,17 +38,20 @@
                   { dbs: "PRS_KOSTENPLAATS_KEY",      typ: "key",     frm: "prs_kstpl" },
                   { dbs: "MLD_DIENSTNIVEAU_KEY",      typ: "key",     frm: "dienstniveau" },
                   { dbs: "ALG_GEBOUW_ORDERNR",        typ: "varchar", frm: "bld_ordrnr" },
-                  { dbs: "ALG_GEBOUW_DWGX",           typ: "number",  frm: "bld_dwgx" },
-                  { dbs: "ALG_GEBOUW_DWGY",           typ: "number",  frm: "bld_dwgy" },
-                  { dbs: "ALG_GEBOUW_X",              typ: "number",  frm: "bld_x" },
-                  { dbs: "ALG_GEBOUW_Y",              typ: "number",  frm: "bld_y" },
+                  { dbs: "ALG_GEBOUW_DWGX",           typ: "float",   frm: "bld_dwgx" },
+                  { dbs: "ALG_GEBOUW_DWGY",           typ: "float",   frm: "bld_dwgy" },
+                  { dbs: "ALG_GEBOUW_X",              typ: "float",   frm: "bld_x" },
+                  { dbs: "ALG_GEBOUW_Y",              typ: "float",   frm: "bld_y" },
                   { dbs: "ALG_GEBOUW_BEZ",            typ: "check",   frm: "bld_bez" },
-                  { dbs: "alg_gebouw_beginuur",       typ: "float",   frm: "bld_beginuur" },
-                  { dbs: "alg_gebouw_einduur",        typ: "float",   frm: "bld_einduur" },
-                  { dbs: "ALG_GEBOUW_WERKDAGEN",      typ: "check",   frm: "bld_werkdagen" }];
+                  { dbs: "ALG_GEBOUW_WERKDAGEN",      typ: "check0",  frm: "bld_werkdagen" }];
 
-var warning = "";
-if (bld_key > 0)
+  if (beginuur != -2)
+    fields.push({ dbs: "alg_gebouw_beginuur",       typ: "float",   val: beginuur });
+  if (einduur != -2)
+    fields.push({ dbs: "alg_gebouw_einduur",        typ: "float",   val: einduur });
+
+  var warning = "";
+  if (bld_key > 0)
   {
     sql = buildUpdate("alg_gebouw", fields)
         + "     alg_gebouw_key = " + bld_key;
@@ -49,7 +60,7 @@ if (bld_key > 0)
     if (err.friendlyMsg)
         warning = err.friendlyMsg;
   }
-else
+  else
   {
     fields.push({  dbs: "alg_gebouw_key",         typ: "key",      seq: "alg_s_alg_onroerendgoed_keys" });
     var regIns = buildInsert("alg_gebouw", fields);

APPL/ALG/alg_edit_locatie.asp

@@ -106,7 +106,7 @@ BLOCK_START("algLoc1", "");
           readonly: !this_alg.writeman,
           required: true });
 
-manRWFIELD("loc_omsch",  "fld",          L("lcl_estate_locatie_man_descr"),        loc_omsch, {required: true, maxlength: 30});
+manRWFIELD("loc_omsch",  "fld",          L("lcl_estate_locatie_man_descr"),        loc_omsch, {required: true, maxlength: 60});
 manRWFIELD("loc_code",  "fld",          L("lcl_estate_locatie_man_code"),        loc_code, {required: true, maxlength: 10});
 manRWFIELD("bez_adres",  "fld",          L("lcl_prs_address_bezoek_adres"),        bez_adres, {maxlength: 35});
 manRWFIELD("bez_postc",  "fld",          L("lcl_prs_address_bezoek_postcode"),        bez_postc, {maxlength: 12});
@@ -148,6 +148,7 @@ generateFlexKenmerkBlock ({
      flexcolumns    : S("alg_flexcolumns"),
      this_alg       : this_alg
 });
+IFACE.FORM_END();
 %>
 </form>
 <iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>

APPL/ALG/alg_edit_regio.asp

@@ -82,6 +82,7 @@ BLOCK_START("algInfo", "");
 manRWFIELD("reg_oms",  "fld",          L("lcl_region"),        reg_oms, {required: true, maxlength: 30});
 
 BLOCK_END();
+IFACE.FORM_END();
 %>
 </form>
 <iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>

APPL/ALG/alg_edit_ruimte.asp

@@ -55,6 +55,9 @@ if  (room_key > 0)
       + ", g.alg_ruimte_omtrek"
       + ", g.alg_ruimte_inhoud"
       + ", g.alg_ruimte_opmerking"
+      + ", g.alg_ruimte_beginuur"
+      + ", g.alg_ruimte_einduur"
+      + ", g.alg_ruimte_werkdagen"
       + ", sync.cad_imp_contour_opp"
       + ", sync.cad_imp_contour_opp_alt1"
       + ", sync.cad_imp_contour_opp_alt2"
@@ -75,6 +78,9 @@ if  (room_key > 0)
       var room_opm   = oRs("ALG_RUIMTE_OPMERKING").value;
       var room_oppa1 = oRs("ALG_RUIMTE_OPP_ALT1").value;
       var room_oppa2 = oRs("ALG_RUIMTE_OPP_ALT2").value;
+      var beginuur   = oRs("alg_ruimte_beginuur").value;
+      var einduur    = oRs("alg_ruimte_einduur").value;
+      var werkdagen  = oRs("alg_ruimte_werkdagen").value;
       var contour_opp = oRs("cad_imp_contour_opp").value;
       var contour_opp1 = oRs("cad_imp_contour_opp_alt1").value;
       var contour_opp2 = oRs("cad_imp_contour_opp_alt2").value;
@@ -188,10 +194,44 @@ BLOCK_START("algLoc2", "");
       manRWFIELD("room_oppa2",  "fldshort",          L("lcl_estate_ruimte_opp_alt2"),        room_oppa2, {maxlength: 10, datatype: "float"});
       ROFIELDTR("fldshort", L("lcl_fg_tek_room_opp_g_alt2"), contour_opp2);
   }
-  manRWFIELD("room_omt",  "fldshort",          L("lcl_estate_ruimte_man_omtrek"),        room_omt, {maxlength: 10, datatype: "float"});
-  manRWFIELD("room_inh",  "fldshort",          L("lcl_estate_ruimte_man_inhoud"),        room_inh, {maxlength: 13, datatype: "float"});
+  manRWFIELD("room_omt",  "fldshort",     L("lcl_estate_ruimte_man_omtrek"),        room_omt, {maxlength: 10, datatype: "float"});
+  manRWFIELD("room_inh",  "fldshort",     L("lcl_estate_ruimte_man_inhoud"),        room_inh, {maxlength: 13, datatype: "float"});
   manRWFIELD("room_opm",  "fld",          L("lcl_estate_ruimte_man_opmerk"),        room_opm, {maxlength: 50});
 
+   var times = [];
+   for (i=0; i<24; i++)
+   {
+       sql = "           SELECT " + String(i+0/4) + ", '" + String(i) + ":00' FROM DUAL"
+           + " UNION ALL SELECT " + String(i+1/4) + ", '" + String(i) + ":15' FROM DUAL"
+           + " UNION ALL SELECT " + String(i+2/4) + ", '" + String(i) + ":30' FROM DUAL"
+           + " UNION ALL SELECT " + String(i+3/4) + ", '" + String(i) + ":45' FROM DUAL"
+       times.push(sql);
+   }
+   FCLTselector("room_beginuur", times.join(" UNION ALL "),
+                   {  label: L("lcl_estate_gebouw_beginuur"),
+                      initKey: beginuur,
+                      emptyOption: "",
+                      readonly: !this_alg.writeman
+                   }
+                 );
+   FCLTselector("room_einduur", times.join(" UNION ALL "),
+                   {  label: L("lcl_estate_gebouw_einduur"),
+                      initKey: einduur,
+                      emptyOption: "",
+                      readonly: !this_alg.writeman
+                   }
+                 );
+   sql = "           SELECT null, " + safe.quoted_sql(L("lcl_alg_ruimte_volgens_gebouw")) + " FROM DUAL"
+       + " UNION ALL SELECT 0, "    + safe.quoted_sql(L("lcl_No"))  + " FROM DUAL"
+       + " UNION ALL SELECT 1, "    + safe.quoted_sql(L("lcl_Yes")) + " FROM DUAL";
+   FCLTselector("room_werkdagen", sql,
+                   {  label: L("lcl_estate_gebouw_werkdagen"),
+                      initKey: werkdagen,
+                      readonly: !this_alg.writeman
+                   }
+                 );
+
+
 BLOCK_END();
 
   generateFlexKenmerkBlock ({
@@ -201,6 +241,7 @@ BLOCK_END();
      flexcolumns    : S("alg_flexcolumns"),
      this_alg       : this_alg
      });
+IFACE.FORM_END();
 %>
 </form>
 <iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>

APPL/ALG/alg_edit_ruimte_save.asp

@@ -18,6 +18,19 @@
   var room_key = getQParamInt( "room_key" );
   var isNew = (room_key < 0);
 
+  var beginuur = getFParamFloat("room_beginuur", -2);
+  if (beginuur == -1)
+    beginuur = "";
+
+  var einduur = getFParamFloat("room_einduur", -2);
+  if (einduur == -1)
+    einduur = "";
+
+  function uurForeign(tm)
+  {
+    return toTimeString(tm, false); // geen seconden
+  }
+
   var fields =  [ { dbs: "ALG_VERDIEPING_KEY",            typ: "key",      frm: "verdiepingkey" },
                   { dbs: "ALG_SRTRUIMTE_KEY",             typ: "key",      frm: "room_srt",      track: L("lcl_estate_ruimte_man_sort") , foreign: "alg_srtruimte" },
                   { dbs: "ALG_RUIMTE_NR",                 typ: "varchar",  frm: "room_nr",       track: L("lcl_estate_ruimte_man_nr") },
@@ -34,8 +47,15 @@
                   { dbs: "ALG_RUIMTE_OPP_GEVELBEKLEDING", typ: "float",    frm: "room_gebe" },
                   { dbs: "ALG_RUIMTE_OPP_ALT1",           typ: "float",    frm: "room_oppa1",    track: L("lcl_estate_ruimte_opp_alt1") },
                   { dbs: "ALG_RUIMTE_OPP_ALT2",           typ: "float",    frm: "room_oppa2",    track: L("lcl_estate_ruimte_opp_alt2") },
-                  { dbs: "MLD_DIENSTNIVEAU_KEY",          typ: "key",      frm: "dienstniveau",  track: L("lcl_mld_dienst_niveau"), foreign: "mld_dienstniveau" }
+                  { dbs: "MLD_DIENSTNIVEAU_KEY",          typ: "key",      frm: "dienstniveau",  track: L("lcl_mld_dienst_niveau"),      foreign: "mld_dienstniveau" },
+                  { dbs: "ALG_RUIMTE_WERKDAGEN",          typ: "number",   frm: "room_werkdagen" }
                 ];
+
+  if (beginuur != -2)
+    fields.push({ dbs: "ALG_RUIMTE_BEGINUUR",           typ: "float",    val: beginuur,        track: L("lcl_estate_gebouw_beginuur"), foreign: uurForeign });
+  if (einduur != -2)
+    fields.push({ dbs: "ALG_RUIMTE_EINDUUR",            typ: "float",    val: einduur,         track: L("lcl_estate_gebouw_einduur"),  foreign: uurForeign });
+
   var warning="";
   if (room_key > 0)
   {
@@ -67,8 +87,9 @@
                           + "    AND alg_onrgoed_niveau = 'R' "
                           + "    AND alg_onrgoed_key = " + room_key;
 
-      allKenmerkenSQL     = " SELECT "+lcl.xsql('k.alg_kenmerk_omschrijving','k.alg_kenmerk_key')+" kenmerk_omschrijving, "
-                          + "        alg_kenmerk_key srtkenmerk_key"
+      allKenmerkenSQL     = " SELECT "+lcl.xsql('k.alg_kenmerk_omschrijving','k.alg_kenmerk_key')+" kenmerk_omschrijving"
+                          + "      , alg_kenmerk_key srtkenmerk_key"
+                          + "      , fac_kenmerkdomein_key"
                           + "   FROM alg_kenmerk k"
                           + "  WHERE k.alg_kenmerk_verwijder IS NULL"
                           + "    AND k.alg_kenmerk_niveau = 'R'"

APPL/ALG/alg_edit_ruimtefunctie.asp

@@ -128,6 +128,7 @@ if (srtruimte_lg_key > -1)
       RWFIELDTR("prijs5", "fldalgprijs", L("lcl_alg_alg_tariefD"), safe.editablefloat(prijs5, 5), {maxlength: 17, datatype: "float"});
 
       BLOCK_END();
+IFACE.FORM_END();
 %>
     </form>
     <iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>

APPL/ALG/alg_edit_terreinsector.asp

@@ -157,6 +157,7 @@ generateFlexKenmerkBlock ({
      this_alg       : this_alg
 });
 
+IFACE.FORM_END();
 %>
 </form>
 <iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>

APPL/ALG/alg_edit_verdieping.asp

@@ -114,13 +114,14 @@ BLOCK_START("algLoc1", "");
 BLOCK_END();
 
 generateFlexKenmerkBlock ({
-     onrgoed_key    : bld_key,
+     onrgoed_key    : flr_key,
      onrgoed_niveau : onrgoedlvl,
      reado          : false,
      flexcolumns    : S("alg_flexcolumns"),
      this_alg       : this_alg
 });
 
+IFACE.FORM_END();
 %>
 </form>
 <iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>

APPL/ALG/alg_edit_wp.asp

@@ -46,6 +46,10 @@ if (wp_key > 0)
 
     oRs.Close();
 }
+else if (S("prs_werkplek_implicit") == 1)
+{
+    wp_type = 1; // Bij impliciet altijd flex
+}
 %>
 
 <html>
@@ -143,10 +147,12 @@ BLOCK_START("algInfo", "");
      + " UNION SELECT 1, " + safe.quoted_sql(L("lcl_wptype_1")) + " FROM DUAL";
   FCLTselector("wp_type", sql,
               {  label: L("lcl_wptype"),
-                 initKey: wp_type
+                 initKey: wp_type,
+                 readonly: S("prs_werkplek_implicit") == 1
               });
 
 BLOCK_END();
+IFACE.FORM_END();
 %>
 </form>
 <iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>

APPL/ALG/alg_edit_wp_save.asp

@@ -16,13 +16,16 @@ var wp_key = getQParamInt( "wp_key" );
 
 var virtueel = (getFParamInt("has_wp_virt", 0) == 1) && (Request.Form("wp_virt").count == 1); // virtueel
 
+// Bij impliciet altijd flex
+var wp_type = (S("prs_werkplek_implicit") == 1)?1:getFParamInt("wp_type");
+
 var fields =  [// { dbs: "PRS_WERKPLEK_MODULE", typ: "varchar",  frm: "" },
                 { dbs: "PRS_WERKPLEK_VOLGNR", typ: "number",  frm: "wp_volgnr" },
                 { dbs: "PRS_WERKPLEK_OMSCHRIJVING", typ: "varchar",  frm: "wp_oms" },
                 { dbs: "PRS_WERKPLEK_VASTOPP", typ: "number",  frm: "wp_vstopp_v" },
                 { dbs: "PRS_WERKPLEK_OPP", typ: "number",  frm: "wp_opp" },
                 { dbs: "PRS_WERKPLEK_VIRTUEEL", typ: "number",  val: (virtueel? 1 : 0) },
-                { dbs: "PRS_WERKPLEK_TYPE", typ: "number",  frm: "wp_type" },
+                { dbs: "PRS_WERKPLEK_TYPE", typ: "number",  val: wp_type },
                 { dbs: "PRS_ALG_RUIMTE_KEY", typ: "key",  frm: "ruimtekey" } /*,
                 { dbs: "PRS_WERKPLEK_GETEKEND", typ: "date",  frm: "" },
                 { dbs: "PRS_WERKPLEK_DWGX", typ: "number",  frm: "" },

APPL/ALG/alg_flexkenmerk.inc

@@ -20,10 +20,18 @@
 <%
 function generateFlexKenmerkBlock(params)
 {
-    if (!params.fnpre) // Mobile geeft die zelf eme
+    if (!params.fnpre) // Mobile geeft die zelf mee
     {
-        params.fnpre = function () { BLOCK_START("algFlex"+(S("alg_flexcolumns")!=1?"2":""), L("lcl_alg_flexblok")); }
-        params.fnpost = BLOCK_END;
+        if (params.advanced) // Simpel houden
+        {
+            params.fnpre = function () { Response.Write('<table id="flextable" cellpadding="0" cellspacing="0">'); };
+            params.fnpost = function () { Response.Write('</table'); };
+        }
+        else
+        {
+            params.fnpre = function () { BLOCK_START("algFlex"+(S("alg_flexcolumns")!=1?"2":""), L("lcl_alg_flexblok")); }
+            params.fnpost = BLOCK_END;
+        }
     }
     var onrgoed_key = params.onrgoed_key; // Onroerendgoed key
     var onrgoed_niveau = params.onrgoed_niveau; // Onroerendgoed niveau
@@ -41,18 +49,6 @@ function generateFlexKenmerkBlock(params)
             return true;
     }
 
-    function isInvisible(volgnummer)
-    {
-        if (volgnummer<100 && !params.this_alg.readman )
-            return true; // Invisible
-
-        if (volgnummer>100 && !params.this_alg.readuse)
-            return true; // Invisible
-
-        return false;
-    }
-
-
     var sql = "SELECT    k.alg_kenmerk_key              kenmerk_key, "
              + lcl.xsql('k.alg_kenmerk_omschrijving', 'k.alg_kenmerk_key') +" kenmerk_omschrijving, "
              + "         k.alg_kenmerk_kenmerktype      kenmerk_kenmerktype, "
@@ -82,6 +78,8 @@ function generateFlexKenmerkBlock(params)
              + "    FROM alg_kenmerk k "
              + "   WHERE k.alg_kenmerk_niveau = " + safe.quoted_sql(onrgoed_niveau)
              + "     AND k.alg_kenmerk_verwijder IS NULL "
+             + (!params.this_alg.readman? " AND alg_kenmerk_volgnr >= 100":"")
+             + (!params.this_alg.readuse? " AND alg_kenmerk_volgnr <= 100":"")
              + "ORDER BY k.alg_kenmerk_volgnr, "
              + lcl.xsql('k.alg_kenmerk_omschrijving', 'k.alg_kenmerk_key');
 
@@ -93,13 +91,12 @@ function generateFlexKenmerkBlock(params)
                 { flexcolumns: (!advanced ? flexcolumns : 1), // advanced is een popup. Dan passen twee kolommen slecht
                   kenmerk_search: advanced,
                   fnIsReadonly: isReadonly,
-                  fnIsInvisible: isInvisible,
                   hideVervallen: onrgoed_key<0,
                   fnpre: params.fnpre,
                   fnpost: params.fnpost,
                   mobile: params.mobile,
-                  parentKey: onrgoed_key }   //?????
+                  parentKey: onrgoed_key,
+                  kenmerk_module: onrgoed_niveau }
                );
 }
 %>
-

APPL/ALG/alg_gebouw_list.inc

@@ -57,11 +57,16 @@ function doDelete(rowArray, isMulti)
 {
   var bldKeyString = getKeyString(rowArray);
   if (isMulti || confirm(L("lcl_alg_del_txt_gebouw")))
+  {
+    var data = { key: bldKeyString,
+                 level: "G"
+               };
+    <% protectRequest.dataToken("data"); %>
     $.post("alg_delete.asp",
-           { key: bldKeyString,
-             level: "G" },
+           data,
            FcltCallbackRefresh,
            "json");
+  }
 }
 </script>
 <%
@@ -85,13 +90,22 @@ function gebouw_list(pautfunction, params)
   var bld_key = params.bld_key;
   var bld_func = params.bld_func;
 
-    function fnrowActionEnabler(oRs)
-    {
-        var eDelete = false;
-        if (alg.canWriteGebouw(oRs("alg_gebouw_key").value, authparams.mALGwritelevel))
-            eDelete = true;
-        return ({eDelete: eDelete})
-    }
+  function fnrowActionEnabler(oRs)
+  {
+      var eDelete = false;
+      if (alg.canWriteGebouw(oRs("alg_gebouw_key").value, authparams.mALGwritelevel))
+          eDelete = true;
+      return ({eDelete: eDelete})
+  }
+
+  function fnrowFlexParams(oRs)
+  {
+    var bld_key = oRs("alg_gebouw_key").Value;
+    var this_alg = alg.func_enabled(bld_key, "G");
+
+    var flexParams = { readman: this_alg.readman, readuse: this_alg.readuse};
+    return flexParams;
+  }
 %>
 
   <html>
@@ -176,6 +190,7 @@ function gebouw_list(pautfunction, params)
                                    rowActionEnabler: fnrowActionEnabler,
                                    flexModule: "ALG",
                                    flexId: "alg_gebouw_key",
+                                   flexParams: fnrowFlexParams,
                                    filterParams: params,
                                    outputmode: outputmode,
                                    buttons: addButton
@@ -183,11 +198,10 @@ function gebouw_list(pautfunction, params)
 
     rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_descr"), content: "alg_locatie_omschrijving"}));
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_code"), content: "alg_gebouw_code"}));
-    rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_name"), content: "alg_gebouw_naam", hasActions: true}));
+    rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_name"), content: "alg_gebouw_naam" }));
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_srtgebouw"), content: "alg_srtgebouw_omschrijving"}));
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_bruto_vloeropp"), content: "alg_gebouw_bruto_vloeropp"}));
 
-
     if (outputmode != 0)
     {
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_opmerk"), content: "alg_gebouw_opmerking"}));

APPL/ALG/alg_gebouw_search.asp

@@ -45,8 +45,8 @@ var authparams = alg.checkAutorisation();
   </head>
   <body id="searchbody">
     <div id="search">
-<%    BLOCK_START("searchtable", L("lcl_filterblok"));%>
       <form name="u2" target="workFrame" action="alg_gebouw_search_list.asp" method="get">
+<%    BLOCK_START("searchtable", L("lcl_filterblok"));%>
           <tr>
             <td class="searchkolom1">
               <table><!-- x rijen, 2 kolommen: label + veld -->
@@ -82,13 +82,13 @@ var authparams = alg.checkAutorisation();
               </table>
             </td><!-- end column 1 -->
           </tr>
-      </form>
 <%    BLOCK_END();
 
   var buttons =  [ {title: L("lcl_search"), action: "doSubmit()", id: "bSearch" },
                    {title: L("lcl_obj_advanced"), action: "myModal()", id: "bAdvanced" } ];
-  CreateButtons(buttons);
+  CreateButtons(buttons, { entersubmit: true });
 %>
+      </form>
     </div> <!-- search -->
 
     <div id="result">

APPL/ALG/alg_locatie_list.inc

@@ -64,11 +64,16 @@ function fnrowData(oRs)
   {
     var locKeyString = getKeyString(rowArray);
     if (isMulti || confirm(L("lcl_alg_del_txt_locatie")))
+    {
+      var data = { key: locKeyString,
+                   level: "L"
+                 };
+      <% protectRequest.dataToken("data"); %>
       $.post("alg_delete.asp",
-             { key: locKeyString,
-               level: "L" },
+             data,
              FcltCallbackRefresh,
              "json");
+    }
   }
 </script>
 <%
@@ -96,6 +101,15 @@ function locatie_list(pautfunction, params)
         eDelete = true;
     return ({eDelete: eDelete})
   }
+
+  function fnrowFlexParams(oRs)
+  {
+    var loc_key = oRs("alg_locatie_key").Value;
+    var this_alg = alg.func_enabled(loc_key, "L");
+
+    var flexParams = { readman: this_alg.readman, readuse: this_alg.readuse};
+    return flexParams;
+  }
 %>
 
 <html>
@@ -168,13 +182,14 @@ function locatie_list(pautfunction, params)
                                    outputmode: outputmode,
                                    flexModule: "ALG",
                                    flexId: "alg_locatie_key",
+                                   flexParams: fnrowFlexParams,
                                    filterParams: params,
                                    buttons: addButton
                                  });
 
     rst.addColumn(new Column({caption: L("lcl_estate_district_man_descr"), content: "alg_district_omschrijving"}));
     rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_code"), content: "alg_locatie_code"}));
-    rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_descr"), content: "alg_locatie_omschrijving", hasActions:true}));
+    rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_descr"), content: "alg_locatie_omschrijving" }));
     rst.addColumn(new Column({caption: L("lcl_prs_address_bezoek_adres"), content: "alg_locatie_adres"}));
     rst.addColumn(new Column({caption: L("lcl_prs_address_bezoek_postcode"), content: "alg_locatie_postcode"}));
     rst.addColumn(new Column({caption: L("lcl_prs_address_bezoek_plaats"), content: "alg_locatie_plaats"}));

APPL/ALG/alg_locatie_search.asp

@@ -43,8 +43,8 @@ var authparams = alg.checkAutorisation();
   </head>
   <body id="searchbody">
     <div id="search">
-<%    BLOCK_START("searchtable", L("lcl_filterblok"));%>
       <form name="u2" target="workFrame" action="alg_locatie_search_list.asp" method="get">
+<%    BLOCK_START("searchtable", L("lcl_filterblok"));%>
           <tr>
             <td class="searchkolom1">
               <table><!-- x rijen, 2 kolommen: label + veld -->
@@ -63,13 +63,13 @@ var authparams = alg.checkAutorisation();
             <td class="searchkolom2">
             </td><!-- end column 1 -->
           </tr>
-      </form>
 <%    BLOCK_END();
 
   var buttons =  [ {title: L("lcl_search"), action: "doSubmit()", id: "bSearch" },
                    {title: L("lcl_obj_advanced"), action: "myModal()", id: "bAdvanced" } ];
-  CreateButtons(buttons);
+  CreateButtons(buttons, { entersubmit: true });
 %>
+      </form>
     </div> <!-- search -->
 
     <div id="result">

APPL/ALG/alg_regio_list.inc

@@ -52,11 +52,16 @@ function fnrowData(oRs)
   {
     var regKeyString = getKeyString(rowArray);
     if (isMulti || confirm(L("lcl_alg_del_txt_regio")))
-    $.post("alg_delete.asp",
-           { key: regKeyString,
-             level: "RE" },
-           FcltCallbackRefresh,
-           "json");
+    {
+      var data = { key: regKeyString,
+                   level: "RE"
+                 };
+      <% protectRequest.dataToken("data"); %>
+      $.post("alg_delete.asp",
+             data,
+             FcltCallbackRefresh,
+             "json");
+    }
   }
     </script>
 <%

APPL/ALG/alg_regio_search.asp

@@ -50,11 +50,11 @@ var authparams = alg.checkAutorisation();
           </tr>
 
 <%    BLOCK_END(); %>
-      </form>
 <%
   var buttons =  [{title: L("lcl_search"), action: "document.forms.u2.submit();", id: "bSearch" }];
-  CreateButtons(buttons);
+  CreateButtons(buttons, { entersubmit: true });
 %>
+      </form>
     </div> <!-- search -->
 
     <div id="result">

APPL/ALG/alg_ruimte.asp

@@ -58,7 +58,7 @@ else
     addString = (loc_key > 0? "&loc_key=" + loc_key : "")
               + (geb_key > 0? "&geb_key=" + geb_key : "")
               + (ver_key > 0? "&ver_key=" + ver_key : "")
-              + (cad_ruimte_nr?"&cad_ruimte_nr="+cad_ruimte_nr:"");
+              + (cad_ruimte_nr?"&cad_ruimte_nr="+safe.url(cad_ruimte_nr):"");
   }
 }
 %>

APPL/ALG/alg_ruimte_list.inc

@@ -80,11 +80,16 @@ function ruimte_list(pautfunction, params)
           $(row).addClass('dirty');
           var room_key = row.getAttribute("ROWKEY");
           if (isMulti || confirm(L("lcl_alg_del_txt_ruimte")))
+          {
+            var data = { key: room_key,
+                         level: "R"
+                       };
+            <% protectRequest.dataToken("data"); %>
             $.post("alg_delete.asp",
-                   { key: room_key,
-                     level: "R" },
+                   data,
                    FcltCallbackRefresh,
                    "json");
+          }
         }
       </script>
     </head>
@@ -194,6 +199,15 @@ function ruimte_list(pautfunction, params)
         return (floorCache[oRs("alg_verdieping_key").value]);
       }
 
+      function fnrowFlexParams(oRs)
+      {
+        var room_key = oRs("alg_ruimte_key").Value;
+        var this_alg = alg.func_enabled(room_key, "R");
+
+        var flexParams = { readman: this_alg.readman, readuse: this_alg.readuse};
+        return flexParams;
+      }
+
       var addurl = "appl/alg/alg_ruimte.asp?a=1";
       addurl += buildTransitParam(["locatiekey", "gebouwkey", "verdiepingkey", "ruimtekey"], params)  // TODO: welke allemaal?
 
@@ -212,6 +226,7 @@ function ruimte_list(pautfunction, params)
                                      outputmode: outputmode,
                                      flexModule: "ALG",
                                      flexId: "alg_ruimte_key",
+                                     flexParams: fnrowFlexParams,
                                      filterParams: params,
                                      buttons: addButton
                                    });
@@ -221,7 +236,7 @@ function ruimte_list(pautfunction, params)
 
       rst.addColumn(new Column({caption: L("lcl_estate_ruimte_man_nr"), content: "alg_ruimte_nr"}));
 
-      rst.addColumn(new Column({caption: L("lcl_estate_ruimte_man_descr"), content: "alg_ruimte_omschrijving", hasActions: true}));
+      rst.addColumn(new Column({caption: L("lcl_estate_ruimte_man_descr"), content: "alg_ruimte_omschrijving" }));
       rst.addColumn(new Column({caption: L("lcl_estate_ruimte_man_sort"), content: "alg_srtruimte_omschrijving"}));
       rst.addColumn(new Column({caption: L("lcl_estate_ruimte_bruto_vloeropp"), content: "alg_ruimte_bruto_vloeropp", datatype: "float", decimals: 2 }));
 

APPL/ALG/alg_ruimte_search.asp

@@ -49,8 +49,8 @@ var authparams = alg.checkAutorisation();
   </head>
   <body id="searchbody">
     <div id="search">
-<%    BLOCK_START("searchtable", L("lcl_filterblok"));%>
       <form name="u2" target="workFrame" action="alg_ruimte_search_list.asp" method="get">
+<%    BLOCK_START("searchtable", L("lcl_filterblok"));%>
           <tr>
             <td class="searchkolom1">
               <table><!-- x rijen, 2 kolommen: label + veld -->
@@ -98,13 +98,13 @@ var authparams = alg.checkAutorisation();
 %>              </table>
             </td><!-- end column 1 -->
           </tr>
-      </form>
 <%    BLOCK_END();
 
   var buttons =  [ {title: L("lcl_search"), action: "doSubmit()", id: "bSearch" },
                    {title: L("lcl_obj_advanced"), action: "myModal()", id: "bAdvanced" } ];
-  CreateButtons(buttons);
+  CreateButtons(buttons, { entersubmit: true });
 %>
+      </form>
     </div> <!-- search -->
 
     <div id="result">

APPL/ALG/alg_ruimteafdeling.asp

@@ -29,6 +29,8 @@ var ruimte_key_arr = getQParamIntArray("ruimte_keys");
 var submitting = getQParamInt("submit", 0) == 1;
 if (submitting)
 {
+  protectRequest.validateToken();
+
   FCLTHeader.Generate();
 
   var nrRows = getFParamInt("nrRows", 0);
@@ -186,6 +188,7 @@ else
           var buttons =  [ {title: L("lcl_add"),    icon: "submit.png", action: "alg_add('"+ safe.displayfloat(tot_oppervlak, 2) +"')" },
                            {title: L("lcl_submit"), icon: "undo.png",   action: "alg_submit()" } ];
           CreateButtons(buttons);
+IFACE.FORM_END();
 %>
         </form>
       </div>

APPL/ALG/alg_ruimteafdeling.js

@@ -112,9 +112,9 @@ function alg_add(oppervlak)
   if ($("#afdeling_key").val() > 0)
   {
     var exist = false;
-    $("tr[value]").each(function(i, value)
+    $("#afdbezettingtable tr").each(function(i, value)
                               {
-                                if ($("#afdeling_key").val() == $(value)[0].myData.afd_key)
+                                if (this.myData && $("#afdeling_key").val() == this.myData.afd_key)
                                   exist = true;
                               });
     if (!exist)

APPL/ALG/alg_ruimtefunctie_delete.asp

@@ -6,7 +6,7 @@
     File:                  alg_ruimtefunctie_delete.asp
     Description:           Verwijderen ruimtefunctie locatie/gebouw relatie
 
-    Parameters:          
+    Parameters:
         key                Strin van ruimtefunctie locatie/gebouw keys (required)
     Context:               Vanuit show-schermen en of vanuit overzichten
     Result:                JSON object
@@ -18,6 +18,7 @@ DOCTYPE_Disable = 1;
 <!--#include file="../Shared/common.inc"-->
 <!--#include file="../Shared/json2.js" -->
 <%
+protectRequest.validateToken();
 
 var autfunction = "WEB_ALGMAN";
 

APPL/ALG/alg_ruimtefunctie_list.inc

@@ -56,10 +56,15 @@ function ruimtefunctie_list(pautfunction, params)
           $(row).addClass('dirty');
           var srtruimte_lg_key = row.getAttribute("ROWKEY");
           if (isMulti || confirm(L("lcl_alg_del_txt_ruimtefunctie")))
+          {
+            var data = { key: srtruimte_lg_key
+                       };
+            <% protectRequest.dataToken("data"); %>
             $.post("alg_ruimtefunctie_delete.asp",
-                   { key: srtruimte_lg_key },
+                   data,
                    FcltCallbackRefresh,
                    "json");
+          }
         }
       </script>
     </head>

APPL/ALG/alg_show_district.asp

@@ -48,11 +48,16 @@ oRs.Close();
       function dis_delete()
       {
         if (confirm(L("lcl_alg_del_txt_district")))
-          $.post("alg_delete.asp",
-                 { key: <%=dis_key%>,
-                   level: "D" },
-                 FcltCallbackClose,
-                 "json");
+        {
+            var data = { key: <%=dis_key%>,
+                         level: "D"
+                       };
+            <% protectRequest.dataToken("data"); %>
+            $.post("alg_delete.asp",
+                   data,
+                   FcltCallbackClose,
+                   "json");
+        }
       }
     </script>
   </head>

APPL/ALG/alg_show_gebouw.asp

@@ -71,9 +71,12 @@ oRs.Close();
       {
         if (confirm(L("lcl_alg_del_txt_gebouw")))
         {
+          var data = { key: <%=bld_key%>,
+                       level: "G"
+                     };
+          <% protectRequest.dataToken("data"); %>
           $.post("alg_delete.asp",
-                 { key: <%=bld_key%>,
-                   level: "G" },
+                 data,
                  FcltCallbackClose,
                  "json");
         }
@@ -161,18 +164,9 @@ oRs.Close();
         ROFIELDTR("fld", L("lcl_geoycoord"), bld_y, {suppressEmpty:true});
         ROCHECKBOXTR("fldalgbez", L("lcl_estate_gebouw_bez"), bld_bez==1);
 
-        if (beginuur >= 0 && einduur > 0)
-        {
-            var dd = new Date();
-            var hh = Math.floor(beginuur);
-            var mm = (beginuur*60) % 60;
-            dd.setHours(hh,mm,0,0);
-            ROFIELDTR("fld", L("lcl_estate_gebouw_beginuur"), toTimeString(dd), {suppressEmpty:true});
-            var hh = Math.floor(einduur);
-            var mm = (beginuur*60) % 60;
-            dd.setHours(hh,mm,0,0);
-            ROFIELDTR("fld", L("lcl_estate_gebouw_einduur"), toTimeString(dd), {suppressEmpty:true});
-        }
+        ROFIELDTR("fld", L("lcl_estate_gebouw_beginuur"), toTimeString(beginuur), {suppressEmpty:true} );
+        ROFIELDTR("fld", L("lcl_estate_gebouw_einduur"), toTimeString(einduur), {suppressEmpty:true} );
+
         ROCHECKBOXTR("fldalgwerk", L("lcl_estate_gebouw_werkdagen"), werkdagen==1);
 
         BLOCK_END();

APPL/ALG/alg_show_locatie.asp

@@ -60,7 +60,7 @@ oRs.Close();
 
       function alg_showphotos()
       {
-        FcltMgr.openDetail("appl/shared/show_foto.asp?urole=bo&root_path=<%=custpath%>/location_images/&loc_key=<%=loc_key%>", "<%=L("lcl_photos")%>");
+        FcltMgr.openDetail("appl/shared/show_foto.asp?urole=bo&loc_key=<%=loc_key%>", "<%=L("lcl_photos")%>");
       }
 
       function loc_change()
@@ -71,13 +71,16 @@ oRs.Close();
 
       function loc_delete()
       {
-         if (confirm(L("lcl_alg_del_txt_locatie")))
-         {
-             $.post("alg_delete.asp",
-                    { key: <%=loc_key%>,
-                      level: "L" },
-                    FcltCallbackClose,
-                    "json");
+        if (confirm(L("lcl_alg_del_txt_locatie")))
+        {
+          var data = { key: <%=loc_key%>,
+                       level: "L"
+                     };
+          <% protectRequest.dataToken("data"); %>
+          $.post("alg_delete.asp",
+                 data,
+                 FcltCallbackClose,
+                 "json");
          }
       }
     </script>
@@ -88,7 +91,7 @@ oRs.Close();
     buttons.push({title: L("lcl_photos"),  icon: "camera.png", action: "alg_showphotos()"});
     if (!loc_deleted)
     {
-      if (this_alg.writeman || this_alg.writeman)
+      if (this_alg.writeman || this_alg.writeuse)
         buttons.push({title: L("lcl_change"), action: "loc_change()",  icon: "wijzigen.png"});
       if (this_alg.writeman) // ALGMAN nodig
         buttons.push({title: L("lcl_delete"), action: "loc_delete()",  icon: "delete.png"});
@@ -137,7 +140,7 @@ oRs.Close();
         ROFIELDTR("fld", L("lcl_prs_address_post_land"), pst_land, {suppressEmpty: true});
         ROFIELDTR("fld", L("lcl_estate_locatie_man_verantw"), loc_vw, {suppressEmpty: true});
         ROFIELDTR("fld", L("lcl_estate_locatie_man_verantw_tel"), loc_vwtel, {suppressEmpty: true});
-        ROFIELDTR("fld", L("lcl_noti_email"), loc_mail, {suppressEmpty: true});
+        AFIELDTR('fldmailto details', L("lcl_noti_email"), "mailto:" + loc_mail, loc_mail, { suppressEmpty: true });
 
         BLOCK_END();
 

APPL/ALG/alg_show_regio.asp

@@ -50,9 +50,12 @@ oRs.Close();
       {
         if (confirm(L("lcl_alg_del_txt_regio")))
         {
+          var data = { key: <%=regio_key%>,
+                       level: "RE"
+                     };
+          <% protectRequest.dataToken("data"); %>
           $.post("alg_delete.asp",
-                 { key: <%=regio_key%>,
-                   level: "RE" },
+                 data,
                  FcltCallbackClose,
                  "json");
         }
@@ -64,7 +67,7 @@ oRs.Close();
 <%  var buttons = [];
     if (!reg_deleted)
     {
-      if (this_alg.writeman || this_alg.writeman)
+      if (this_alg.writeman || this_alg.writeuse)
         buttons.push({title: L("lcl_change"), action:"reg_change()", icon: "wijzigen.png" });
       if (this_alg.writeman) // ALGMAN nodig
         buttons.push({title: L("lcl_delete"), action:"reg_delete()", icon: "delete.png" });

APPL/ALG/alg_show_ruimte.asp

@@ -50,6 +50,9 @@ var sql = "SELECT g.alg_ruimte_key"
         + "     , g.alg_ruimte_omtrek"
         + "     , g.alg_ruimte_inhoud"
         + "     , g.alg_ruimte_opmerking"
+        + "     , g.alg_ruimte_beginuur"
+        + "     , g.alg_ruimte_einduur"
+        + "     , g.alg_ruimte_werkdagen"
         + "     , g.alg_ruimte_verwijder"
         + "     , sync.cad_imp_contour_opp"
         + "     , sync.cad_imp_contour_opp_alt1"
@@ -69,6 +72,9 @@ var room_inh     = oRs("alg_ruimte_inhoud").value;
 var room_opm     = oRs("alg_ruimte_opmerking").value;
 var room_oppa1   = oRs("alg_ruimte_opp_alt1").value;
 var room_oppa2   = oRs("alg_ruimte_opp_alt2").value;
+var beginuur     = oRs("alg_ruimte_beginuur").value;
+var einduur      = oRs("alg_ruimte_einduur").value;
+var werkdagen    = oRs("alg_ruimte_werkdagen").value;
 var room_deleted = oRs("alg_ruimte_verwijder").value != null;
 var contour_opp  = oRs("cad_imp_contour_opp").value;
 var contour_opp1 = oRs("cad_imp_contour_opp_alt1").value;
@@ -90,11 +96,14 @@ oRs.Close();
       {
           if (confirm(L("lcl_alg_del_txt_ruimte")))
           {
-             $.post("alg_delete.asp",
-                    { key: <%=room_key%>,
-                      level: "R" },
-                    FcltCallbackClose,
-                    "json");
+            var data = { key: <%=room_key%>,
+                         level: "R"
+                       };
+            <% protectRequest.dataToken("data"); %>
+            $.post("alg_delete.asp",
+                   data,
+                   FcltCallbackClose,
+                   "json");
           }
       }
       function openFG()
@@ -184,6 +193,17 @@ oRs.Close();
         ROFIELDTR("fldshort", L("lcl_estate_ruimte_man_inhoud"), room_inh, {suppressEmpty:true});
         ROFIELDTR("fld", L("lcl_estate_ruimte_man_opmerk"), room_opm, {suppressEmpty:true});
 
+        ROFIELDTR("fld", L("lcl_estate_gebouw_beginuur"), toTimeString(beginuur), {suppressEmpty:true} );
+        ROFIELDTR("fld", L("lcl_estate_gebouw_einduur"), toTimeString(einduur), {suppressEmpty:true} );
+
+        switch (werkdagen)
+        {
+          case 0:  werkdagentekst = L("lcl_No"); break;
+          case 1:  werkdagentekst = L("lcl_Yes"); break;
+          default: werkdagentekst = L("lcl_alg_ruimte_volgens_gebouw");
+        }
+        ROFIELDTR("fld", L("lcl_estate_gebouw_werkdagen"), werkdagentekst);
+
         BLOCK_END();
 
         generateFlexKenmerkBlock ({

APPL/ALG/alg_show_terreinsector.asp

@@ -25,7 +25,7 @@ FCLTHeader.Requires({ plugins: ["jQuery"],
 
 var ter_key  = getQParamInt("ter_key");
 var onrgoedlvl = "T";
-var this_alg = alg.func_enabled(loc_key, onrgoedlvl);
+var this_alg = alg.func_enabled(ter_key, onrgoedlvl);
 user.auth_required_or_abort(this_alg.readman || this_alg.readuse);
 
 var sql = "SELECT ts.alg_locatie_key"
@@ -89,12 +89,15 @@ oRs.Close();
       {
           if (confirm(L("lcl_alg_del_txt_terreinsector")))
           {
-             var ter_key = <%=ter_key%>
-             $.post("alg_delete.asp",
-                    { key: <%=ter_key%>,
-                      level: "T" },
-                    FcltCallbackClose,
-                    "json");
+            var data = { key: <%=ter_key%>,
+                         level: "T"
+                       };
+            <% protectRequest.dataToken("data"); %>
+            var ter_key = <%=ter_key%>
+            $.post("alg_delete.asp",
+                   data,
+                   FcltCallbackClose,
+                   "json");
           }
       }
     </script>

APPL/ALG/alg_show_verdieping.asp

@@ -54,9 +54,12 @@ oRs.Close();
       {
         if (confirm(L("lcl_alg_del_txt_verdieping")))
         {
+          var data = { key: <%=flr_key%>,
+                       level: "V"
+                     };
+          <% protectRequest.dataToken("data"); %>
           $.post("alg_delete.asp",
-                 { key: <%=flr_key%>,
-                   level: "V" },
+                 data,
                  FcltCallbackClose,
                  "json");
         }

APPL/ALG/alg_show_wp.asp

@@ -40,7 +40,6 @@ var wp_opp    = oRs("prs_werkplek_opp").value;
 var wp_vstopp = oRs("prs_werkplek_vastopp").value;
 var wp_virt   = oRs("prs_werkplek_virtueel").value;
 var room_key  = oRs("prs_alg_ruimte_key").value;
-var wp_deleted = oRs("prs_werkplek_verwijder").value != null;
 var wp_type   = oRs("PRS_WERKPLEK_TYPE").value;
 oRs.Close();
 
@@ -60,33 +59,30 @@ var wp_typ_str = (wp_type == 1 ? L("lcl_wptype_1") : L("lcl_wptype_0"));
       {
          var wp_key = <%=wp_key%>;
          if (confirm(L("lcl_alg_del_txt_werkplek")))
-             $.post("alg_delete.asp",
-                 { key: <%=wp_key%>,
-                   level: "W" },
-                   FcltCallbackClose,
-                   "json");
+         {
+           var data = { key: <%=wp_key%>,
+                        level: "W"
+                      };
+           <% protectRequest.dataToken("data"); %>
+           $.post("alg_delete.asp",
+                  data,
+                  FcltCallbackClose,
+                  "json");
+         }
       }
     </script>
   </head>
 
   <body id="showbody">
 <%  var buttons = [];
-    if (!wp_deleted)
+    if (alg.canWriteRuimte(room_key, authparams.uALGwritelevel)) // ALGUSE schrijfrechten nodig
     {
-      if (alg.canWriteRuimte(room_key, authparams.uALGwritelevel)) // ALGUSE schrijfrechten nodig
-      {
-      var buttons =  [ {title: L("lcl_change"), action:"wp_change()", icon: "wijzigen.png" },
-                       {title: L("lcl_delete"), action:"wp_delete()", icon: "delete.png" } ];
-      }
+    var buttons =  [ {title: L("lcl_change"), action:"wp_change()", icon: "wijzigen.png" },
+                     {title: L("lcl_delete"), action:"wp_delete()", icon: "delete.png" } ];
     }
     IFRAMER_HEADER(L("lcl_alg_wp_frame"), buttons);
 %>
     <div id="show">
-<%    if (wp_deleted == 1)
-      {
-%>      <div class="prs_deleted"><%=L("lcl_record_is_deleted")%></div><%
-      }
-%>
       <form name=u2 onSubmit="return false;">
 <%      BLOCK_START("algInfo", "");
         FCLTplaatsselector(authparams.ALGreadlevel,
@@ -111,12 +107,9 @@ var wp_typ_str = (wp_type == 1 ? L("lcl_wptype_1") : L("lcl_wptype_0"));
           </td>
         </tr>
 <%      ROFIELDTR("fld", L("lcl_estate_wp_area"), wp_opp, {suppressEmpty:true});
-%>
-        <tr>
-          <td class="label"><label><%=L("lcl_estate_wp_virt")%>:</label></td>
-          <td><input class="fldalgbez" type="checkbox" id="wp_virt" name="wp_virt" value="<%=wp_virt%>" <%= wp_virt==1 ? " checked " : "" %>disabled></td>
-        </tr>
-<%     ROFIELDTR("wp_type",      L("lcl_wptype"),     wp_typ_str);
+        if (wp_virt==1)
+            CHECKBOXTR(L("lcl_estate_wp_virt"), "fldalgbez", "wp_virt", wp_virt, { suppressEmpty:true, html: " disabled" });
+        ROFIELDTR("wp_type",      L("lcl_wptype"),     wp_typ_str);
 %>
         </table>
 <%      BLOCK_END();

APPL/ALG/alg_terreinsector_list.inc

@@ -51,11 +51,16 @@ function fnrowData(oRs)
   {
     var terKeyString = getKeyString(rowArray);
     if (isMulti || confirm(L("lcl_alg_del_txt_terreinsector")))
-       $.post("alg_delete.asp",
-              { key: terKeyString,
-                level: "T" },
-              FcltCallbackRefresh,
-              "json");
+    {
+      var data = { key: terKeyString,
+                   level: "T"
+                 };
+      <% protectRequest.dataToken("data"); %>
+      $.post("alg_delete.asp",
+             data,
+             FcltCallbackRefresh,
+             "json");
+    }
   }
 </script>
 <%
@@ -77,13 +82,22 @@ function terrein_list(pautfunction, params)
   var ter_code = params.ter_code;
   var ter_func = params.ter_func;
 
-    function fnrowActionEnabler(oRs) // klopt dit voor terreinsector?
-    {
-        var eDelete = false;
-        if (alg.canWriteLocatie(oRs("alg_locatie_key").value, authparams.mALGwritelevel))
-            eDelete = true;
-        return ({eDelete: eDelete})
-    }
+  function fnrowActionEnabler(oRs) // klopt dit voor terreinsector?
+  {
+      var eDelete = false;
+      if (alg.canWriteLocatie(oRs("alg_locatie_key").value, authparams.mALGwritelevel))
+          eDelete = true;
+      return ({eDelete: eDelete})
+  }
+
+  function fnrowFlexParams(oRs)
+  {
+    var ter_key = oRs("alg_terreinsector_key").Value;
+    var this_alg = alg.func_enabled(ter_key, "T");
+
+    var flexParams = { readman: this_alg.readman, readuse: this_alg.readuse};
+    return flexParams;
+  }
 %>
 
 <html>
@@ -153,6 +167,7 @@ function terrein_list(pautfunction, params)
                                    outputmode: outputmode,
                                    flexModule: "ALG",
                                    flexId: "alg_terreinsector_key",
+                                   flexParams: fnrowFlexParams,
                                    filterParams: params,
                                    buttons: addButton
                                   });

APPL/ALG/alg_terreinsector_search.asp

@@ -89,7 +89,7 @@ var authparams = alg.checkAutorisation();
 <%
   var buttons =  [ {title: L("lcl_search"), action: "doSubmit()", id: "bSearch" },
                    {title: L("lcl_obj_advanced"), action: "myModal()", id:"bAdvanced" } ];
-  CreateButtons(buttons);
+  CreateButtons(buttons, { entersubmit: true });
 %>
       </form>
     </div> <!-- search -->

APPL/ALG/alg_verdieping_list.inc

@@ -57,11 +57,16 @@ function fnrowData(oRs)
   {
     var flrKeyString = getKeyString(rowArray);
     if (isMulti || confirm(L("lcl_alg_del_txt_verdieping")))
-       $.post("alg_delete.asp",
-              { key: flrKeyString,
-                level: "V" },
-              FcltCallbackRefresh,
-              "json");
+    {
+      var data = { key: flrKeyString,
+                   level: "V"
+                 };
+      <% protectRequest.dataToken("data"); %>
+      $.post("alg_delete.asp",
+             data,
+             FcltCallbackRefresh,
+             "json");
+    }
   }
 
 </script>
@@ -85,12 +90,21 @@ function verdiepingen_list(pautfunction, params)
   var lvl_key = params.lvl_key;
 
   function fnrowActionEnabler(oRs)
-    {
-        var eDelete = false;
-        if (alg.canWriteVerdieping(oRs("alg_verdieping_key").value, authparams.mALGwritelevel))
-            eDelete = true;
-        return ({eDelete: eDelete})
-    }
+  {
+    var eDelete = false;
+    if (alg.canWriteVerdieping(oRs("alg_verdieping_key").value, authparams.mALGwritelevel))
+        eDelete = true;
+    return ({eDelete: eDelete})
+  }
+
+  function fnrowFlexParams(oRs)
+  {
+    var ver_key = oRs("alg_verdieping_key").Value;
+    var this_alg = alg.func_enabled(ver_key, "V");
+
+    var flexParams = { readman: this_alg.readman, readuse: this_alg.readuse};
+    return flexParams;
+  }
 %>
 
   <html>
@@ -159,6 +173,7 @@ function verdiepingen_list(pautfunction, params)
                                    outputmode: outputmode,
                                    flexModule: "ALG",
                                    flexId: "alg_verdieping_key",
+                                   flexParams: fnrowFlexParams,
                                    filterParams: params,
                                    rowData: fnrowData,
                                    rowActionEnabler: fnrowActionEnabler,
@@ -168,7 +183,7 @@ function verdiepingen_list(pautfunction, params)
     rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_descr"), content: "alg_locatie_omschrijving"}));
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_descr"), content: "alg_gebouw_omschrijving"}));
     rst.addColumn(new Column({caption: L("lcl_estate_verdieping_man_code"), content: "alg_verdieping_code"}));
-    rst.addColumn(new Column({caption: L("lcl_estate_verdieping_man_descr"), content: "alg_verdieping_omschrijving", hasActions: true}));
+    rst.addColumn(new Column({caption: L("lcl_estate_verdieping_man_descr"), content: "alg_verdieping_omschrijving" }));
 
     rst.addAction({ action: "verdiepingEdit", caption: L("lcl_edit"), isDefault:  true});
     rst.addAction({ action: "doDelete", caption: L("lcl_delete"), enabler: "eDelete", single: !noref, multi: true, multiOnce: true});

APPL/ALG/alg_verdieping_search.asp

@@ -46,8 +46,8 @@ var authparams = alg.checkAutorisation();
 
   <body id="searchbody">
     <div id="search">
-<%    BLOCK_START("searchtable", L("lcl_filterblok"));%>
       <form name="u2" target="workFrame" action="alg_verdieping_search_list.asp" method="get">
+<%    BLOCK_START("searchtable", L("lcl_filterblok"));%>
           <td valign=top>
             <table>
 <% //              <!-- Locatie, gebouw en verdieping -->
@@ -64,13 +64,13 @@ var authparams = alg.checkAutorisation();
           </td>
         </tr>
         </table>
-      </form>
 <%    BLOCK_END();
 
   var buttons =  [ {title: L("lcl_search"), action: "doSubmit();", id: "bSearch" },
                    {title: L("lcl_obj_advanced"), action: "myModal()", id: "bAdvanced" } ];
-  CreateButtons(buttons);
+  CreateButtons(buttons, { entersubmit: true });
 %>
+      </form>
     </div> <!-- search -->
 
     <div id="result">

APPL/ALG/alg_werkplek_list.inc

@@ -25,7 +25,9 @@ FCLTHeader.Requires({ plugins:["jQuery"],
           var key        = oRs("prs_werkplek_key").value;
           var oms        = oRs("prs_werkplek_omschrijving").value;
 
-          var data = {parent_key:parent_key, key:key, oms:oms};
+          var data = {parent_key:parent_key, key:key, oms:oms,
+                        wp_type: oRs("prs_werkplek_type").Value
+                     };
 
           return JSON.stringify(data);
         }
@@ -39,11 +41,22 @@ FCLTHeader.Requires({ plugins:["jQuery"],
     var url = "appl/ALG/alg_ruimte_search.asp?ruimte_key="+algData.parent_key+"&autosearch="+autosearch;
     FcltMgr.openDetail(url, "<%=L("lcl_room")%>");
   }
-    function werkplekEdit(row)
+
+  function werkplekEdit(row)
   {
     var algData = eval('(' + row.getAttribute("ROWDATA") + ')');
-    var url = "appl/ALG/alg_wp.asp?mode=viewUpdate&key="+algData.key;
-    FcltMgr.openDetail(url, "<%=L("lcl_workspace")%>" + ' ' + algData.oms);
+<% if (S("prs_werkplek_implicit") == 1) { %>
+    if (algData.wp_type == 0) // Een vaste. Bewerk de bezetting van de ene persoon erop
+    {
+        var url = "../prs/prs_edit_perslidwerkplek.asp?wp_key=" + algData.key;
+        FcltMgr.openModalDetail(url, "<%=L("lcl_change")%>", {callback: refreshall });
+    }
+    else
+<% } %>
+    {
+        var url = "appl/ALG/alg_wp.asp?mode=viewUpdate&key="+algData.key;
+        FcltMgr.openDetail(url, "<%=L("lcl_workspace")%>" + ' ' + algData.oms);
+    }
   }
 
     function refreshall(data)
@@ -56,11 +69,16 @@ FCLTHeader.Requires({ plugins:["jQuery"],
     {
     var wpKeyString = getKeyString(rowArray);
       if (isMulti || confirm(L("lcl_alg_del_txt_werkplek")))
-           $.post("alg_delete.asp",
-                  { key: wpKeyString,
-                    level: "W" },
-                  FcltCallbackRefresh,
-                  "json");
+      {
+        var data = { key: wpKeyString,
+                     level: "W"
+                   };
+        <% protectRequest.dataToken("data"); %>
+        $.post("alg_delete.asp",
+               data,
+               FcltCallbackRefresh,
+               "json");
+      }
     }
 
     function doAddWP(room_key) // als impliciet==0
@@ -75,12 +93,6 @@ FCLTHeader.Requires({ plugins:["jQuery"],
         FcltMgr.openModalDetail(addurl, "<%=L("lcl_add")%>", {callback: refreshall });
     }
 
-    function doEditWPBezeting(row) // als impliciet==1
-    {
-        var algData = eval('(' + row.getAttribute("ROWDATA") + ')');
-        var url = "../prs/prs_edit_perslidwerkplek.asp?wp_key=" + algData.key;
-        FcltMgr.openModalDetail(url, "<%=L("lcl_add")%>", {callback: refreshall });
-    }
 </script>
 <%
 
@@ -144,6 +156,7 @@ function werkplek_list(pautfunction, params)
        + "         p.prs_werkplek_opp, "
        + "         p.prs_perslidwerkplek_bezetting, "
        + "         p.prs_afd_perslid_naam, "
+       + "         w.prs_werkplek_type, "
        + "         w.prs_werkplek_virtueel "
        + "    FROM prs_v_perslidwerkplek_gegevens p, "
        + "         alg_locatie l, "
@@ -198,9 +211,32 @@ function werkplek_list(pautfunction, params)
       if (canAdd)
         {
           buttons.push({ icon: "page_refresh.png", title: L("lcl_refresh"), action: "FcltMgr.reload()" });
-          buttons.push({ icon: "plus.png", title: L("lcl_add"), action:  S("prs_werkplek_implicit") == 1?"doAddWPBezeting("+room_key+")":"doAddWP("+room_key+")"});
+          if (S("prs_werkplek_implicit") == 1)
+          {
+            buttons.push({ icon: "plus.png", title: L("lcl_add")+  " " + L("lcl_occupation"), action:  "doAddWPBezeting("+room_key+")"});
+            buttons.push({ icon: "plus.png", title: L("lcl_add") + " " + L("lcl_prs_workplace"), action:  "doAddWP("+room_key+")"});
+          }
+          else // Altijd werkplek knop
+            buttons.push({ icon: "plus.png", title: L("lcl_add"), action:  "doAddWP("+room_key+")"});
         }
 
+    function fnWPType(oRs)
+    {
+        switch (oRs("prs_werkplek_type").Value)
+        {
+            case 0: return L("lcl_wptype_0");
+            case 1: return L("lcl_wptype_1") + (S("prs_werkplek_implicit")==1?" "+safe.html(oRs("prs_werkplek_omschrijving")):""); // Impliciet flex de code erachter
+        };
+    }
+    function fnBezetting(oRs)
+    {
+        switch (oRs("prs_werkplek_type").Value)
+        {
+            case 0: return oRs("prs_perslidwerkplek_bezetting");
+            case 1: return "";
+        };
+    }
+
     var rst = new ResultsetTable({sql:sqln,
                                    keyColumn: "prs_werkplek_key",
                                    ID: "algtable",
@@ -210,7 +246,7 @@ function werkplek_list(pautfunction, params)
                                    noPrint: tiny,
                                    outputmode: outputmode,
                                    filterParams: params,
-                                   title: L("lcl_workplace"),
+                                   title: L("lcl_workplace") + "/" + L("lcl_prs_werkplekbezetting"),
                                    buttons: buttons
                                   });
 
@@ -218,11 +254,12 @@ function werkplek_list(pautfunction, params)
     rst.addColumn(new Column({caption: L("lcl_estate_ruimte_man_descr"), content: "alg_ruimte_omschrijving"}));
     if (S("prs_werkplek_implicit")==0)
     {
-        rst.addColumn(new Column({caption: L("lcl_workplace"), content: "prs_werkplek_omschrijving", hasActions: true}));
+        rst.addColumn(new Column({caption: L("lcl_workplace"), content: "prs_werkplek_omschrijving" }));
         rst.addColumn(new Column({caption: L("lcl_estate_wp_fixed"), content: "decode_vastopp"}));
         rst.addColumn(new Column({caption: L("lcl_estate_wp_area"), content: prepareArea}));
     }
-    rst.addColumn(new Column({caption: L("lcl_occupation")+" (%)", content: "prs_perslidwerkplek_bezetting"}));
+    rst.addColumn(new Column({caption: L("lcl_wptype"), content: fnWPType}));
+    rst.addColumn(new Column({caption: L("lcl_occupation")+" (%)", content: fnBezetting }));
     rst.addColumn(new Column({caption: L("lcl_name"), content: "prs_afd_perslid_naam"}));
 
     function prepareArea(oRs)
@@ -236,7 +273,7 @@ function werkplek_list(pautfunction, params)
     rst.addColumn(new Column({caption: L("lcl_estate_wp_virt"), content: "prs_werkplek_virtueel"}));
     }
 
-    rst.addAction({ action: S("prs_werkplek_implicit") == 1?"doEditWPBezeting":"werkplekEdit", caption: L("lcl_edit"), isDefault:  true});
+    rst.addAction({ action: "werkplekEdit", caption: L("lcl_edit"), isDefault:  true});
     rst.addAction({ action: "doDelete", caption: L("lcl_delete"), enabler: "eDelete", single: !tiny, multi: !tiny, multiOnce: true});
     if (!tiny)
         rst.addAction({ action: "gotoParent", caption: L("lcl_goto_ruimte_list")});

APPL/ALG/alg_werkplek_search.asp

@@ -39,8 +39,8 @@ var authparams = alg.checkAutorisation();
   </head>
   <body id="searchbody">
     <div id="search">
-<%    BLOCK_START("searchtable", L("lcl_filterblok"));%>
       <form name="u2" target="workFrame" action="alg_werkplek_search_list.asp" method="get">
+<%    BLOCK_START("searchtable", L("lcl_filterblok"));%>
           <tr>
             <td class="searchkolom1">
               <table><!-- x rijen, 2 kolommen: label + veld -->
@@ -69,12 +69,12 @@ var authparams = alg.checkAutorisation();
               </table>
             </td><!-- end column 1 -->
           </tr>
-      </form>
 <%    BLOCK_END();
 
   var buttons =  [ {title: L("lcl_search"), action: "document.forms.u2.submit();", id: "bSearch" } ];
-  CreateButtons(buttons);
+  CreateButtons(buttons, { entersubmit: true });
 %>
+      </form>
     </div> <!-- search -->
 
     <div id="result">

APPL/ALG/alg_wp.asp

@@ -57,7 +57,7 @@ if (wp_key > 0)
               {
                 FcltMgr.closeDetail(window, { close: true})
               }
-              if (!params.keepForm)
+              if (!params.keepForm && !params.deleted)
                   $("#algFrame")[0].src = "alg_show_wp.asp?wp_key=<%=wp_key%>";
           <% } %>
       }

APPL/ALG/get_volgnr_ajax.asp

@@ -20,7 +20,7 @@
     var room_key = getQParamInt("room_key");
 
     var sql = "SELECT COALESCE(MAX (prs_werkplek_volgnr),0) newvolg"
-            + "  FROM prs_v_aanwezigwerkplek"
+            + "  FROM prs_werkplek"
             + " WHERE prs_alg_ruimte_key = " + room_key
     var oRs = Oracle.Execute(sql);
     var result = { volgnr: oRs("newvolg").Value+1 };

APPL/ALG/load_kenmerk.asp

@@ -22,6 +22,7 @@ var DOCTYPE_Disable = true;
 
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/iface.inc" -->
+<!-- #include file="alg.inc" -->
 <!-- #include file="alg_flexkenmerk.inc" -->
 
 <%
@@ -30,6 +31,7 @@ generateFlexKenmerkBlock ({ urole: getQParamSafe("urole"),
                            onrgoed_niveau: getQParam("onrgoed_niveau", ""), // Onroerendgoed niveau
                            reado: getQParam("reado", 0) == 1, // Readonly
                            flexcolumns   : getQParamInt("advanced", 0) == 1?1:S("alg_flexcolumns"),
+                           this_alg : alg.func_enabled(-1, getQParam("onrgoed_niveau", "")),
                            advanced: getQParam("advanced", 0) == 1 // Geavanceerd
                          });
 %>

APPL/API/api.asp

@@ -14,6 +14,8 @@ DOCTYPE_Disable = 1;
 LCL_Disable = 1;
 ANONYMOUS_Allowed = 1;
 FCLTEXPIRES = 8*60; // geen database interactie tenslotte
+NO_ADDHEADER = 1; // common.inc voert wat globale acties hierdoor niet meer uit
+var EXPIRED_PASSWORD_OK = true; // performance
 %>
 <!-- #include file="../Shared/common.inc"-->
 <!-- #include file="../api/api.inc" -->
@@ -22,6 +24,6 @@ FCLTEXPIRES = 8*60; // geen database interactie tenslotte
     var APIKEY = getQParam("APIKEY");
     var API = new API_func(APIname, APIKEY); // controleert vanzelf
 
-    //__DoLog("Transferring to: " + API.apidata.file);
+    __Log("Transferring to: " + API.apidata.file);
     Server.Transfer(API.apidata.file);
 %>

APPL/API/api.inc

@@ -3,51 +3,108 @@
     $Id$
 
     File:           api.inc
-    Description:
-    Parameters:
-    Context:
+    Description:    Functies voor API's
     Notes:
 
-
 */
-%>
-<%
-    function API_func(APIname, APIKEY)
+
+function API_func(APIname, APIKEY)
+{
+    this.APIname = APIname;
+    this.APIKEY = APIKEY;
+
+    var sql = "SELECT *"
+            + " FROM fac_api"
+            + " WHERE fac_api_name = " + safe.quoted_sql(APIname);
+    var oRs = Oracle.Execute(sql);
+    if (oRs.Eof)
     {
-      this.APIname = APIname;
-      this.APIKEY = APIKEY;
-
-      var sql = "SELECT *"
-              + " FROM fac_api"
-              + " WHERE fac_api_name = " + safe.quoted_sql(APIname);
-      var oRs = Oracle.Execute(sql);
-      if (oRs.Eof)
-      {
-          Response.Write("Unknown API: " + APIname);
-          Response.End;
-      }
-      else if (oRs("fac_api_apikey").Value != APIKEY)
-      {
-          Response.Write("Invalid APIKEY for: " + APIname);
-          Response.End;
-      };
-      this.apidata =
-        {
-            APIname: APIname,
-            APIKEY: APIKEY,
-            file: oRs("fac_api_filepath").Value,
-            // niet meer gebruikt. API=machine2machine is nooit session
-            // no_session: oRs("fac_api_no_session").Value,
-            prs_perslid_key: oRs("prs_perslid_key").Value,
-            loglevel: oRs("fac_api_loglevel").Value,
-            usrrap_key: oRs("fac_usrrap_key").Value,
-            stylesheet: oRs("fac_api_stylesheet").Value,
-            import_app_key: oRs("fac_import_app_key").Value,
-            options: eval("("+oRs("fac_api_options_json").Value+")"),
-            viewmapping: eval("("+oRs("fac_api_viewmapping_json").Value+")")
-        }
-      oRs.Close();
-
-      // We doen niets met eventuele prs_perslid_key; dat doet loginTry.asp maar voor ons
+        this.error("Invalid API: " + APIname);
+        oRs.Close();
+        Response.End;
     }
+
+    var sql2 = "SELECT prs_perslid_key, prs_perslid_naam"
+            + " FROM prs_perslid"
+            + " WHERE prs_perslid_apikey = " + safe.quoted_sql(APIKEY);
+    var oRs2 = Oracle.Execute(sql2);
+    if (oRs2.Eof)
+    {
+        this.error("Invalid APIKEY: " + APIKEY);
+        oRs2.Close();
+        Response.End;
+    };
+    __Log("API User is: " + oRs2("prs_perslid_naam"));
+
+    this.apidata =
+    {
+        APIname:          APIname,
+        APIKEY:           APIKEY,
+        file:             oRs("fac_api_filepath").Value,
+        prs_perslid_key:  oRs2("prs_perslid_key").Value,
+        loglevel:         oRs("fac_api_loglevel").Value,
+        usrrap_key:       oRs("fac_usrrap_key").Value,
+        stylesheet:       oRs("fac_api_stylesheet").Value,
+        import_app_key:   oRs("fac_import_app_key").Value,
+        options:          eval("("+oRs("fac_api_options_json").Value+")"),
+        viewmapping:      eval("("+oRs("fac_api_viewmapping_json").Value+")")
+    };
+
+    oRs2.Close();
+    oRs.Close();
+    // Wij doen niets met eventuele prs_perslid_key; dat doet loginTry.asp maar voor ons
+}
+
+API_func.prototype.error = function (msg)
+{
+    if (JSON_Result && JSON) // Merk op dat 'invalid APIKEY' al door /default.asp
+    {                        // is onderschept en dus niet hier komt.
+      Response.Write(JSON.stringify({ success: false, message: msg }));
+    }
+    else
+    {
+        Response.Status = "500 Internal server error";
+        Response.Write(safe.html(msg));
+    }
+    Response.End;
+}
+
+// LET OP: Verwacht wordt dat de JSON-code in de body utf-8 encoded is, niet windows-1252!
+// (in de praktijk moet je *moeite* doen om windows-1252 te krijgen dus dit is handiger)
+function RequestJSON()
+{
+    var jvraag;
+    if(Request.TotalBytes > 0)
+    {
+        var lngBytesCount = Request.TotalBytes;
+        jvraag = BytesToStr(Request.BinaryRead(lngBytesCount));
+    }
+    __Log("Vraag: " + jvraag);
+    try
+    {
+        var vraag = myJSON.parse(jvraag);
+    }
+    catch (e)
+    {
+        __DoLog("eval faalt met: {0}<br>{1}".format(e.description, jvraag), "ffff00");
+        return null;
+    }
+    return vraag;
+}
+
+function BytesToStr(bytes)
+{
+    var stream = Server.CreateObject("ADODB.STREAM");
+    stream.type = 1;
+    stream.open;
+    stream.write(bytes);
+    stream.position = 0;
+    stream.type = 2; // Text
+    stream.charset = "utf-8";
+
+    var sOut = stream.readtext();
+    stream.close;
+    return sOut;
+}
+
 %>

APPL/API/api_SOAP.asp

@@ -4,53 +4,81 @@
      $Id$
 
     File:           api_SOAP.asp
-    Description:    API om een SOAP-achtige service te bieden
-    Parameters:
-    Context:
-    Notes:          Zie UWVA/KASPRS voor voorbeeld gebruik
-    TODO:           Parameters uit Request-SOAP bericht ook via een XLS er uit vogelen
 
+    Description:    API om een SOAP-achtige service te bieden gebaseerd op een bestaande view.
+                    Dat is informatie in XML op te leveren (of een ander formaat dat je via een XSL
+                    kunt bewerkstelligen) uit een view en bepaalde toegestande filters.
+                    Wat de API kan en doet (view, filters, limiet) moet in fac_api gedefinieerd zijn,
+                    geidentificeerd door de apiname.
+    Parameters:     apiname, apikey
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:          De readrechten van de user die met de meegegeven apikey wordt geidentificeerd
+                    gehanteerd worden. TODO!
+                    Het is Oracle die in eerste instantie de XML fabriceert.
+
+                    BELANGRIJK:
+                    De bedoeling is dat de DE M2M SOAP/Machine manier is om info uit FACILITOR te krijgen.
+                    De enige manier.
+                    Dit mechanisme is dus zo generiek mogelijk, en er worden zoveel mogelijk conventies gehanteerd
+                    Iedere aanpassing of gewenste customisation moet kunnen ZONDER dit mechanisme aan te passen en
+                    ZONDER een ander mechanisme te gebruiken. Om een dergelijke service te kunnen gebruiken moet:
+                    - een view bestaan (gebruik bij voorkeur een bestaande voorgedefinieerde MOD_V_API_XXX view)
+                    - een definitierecord (API) in fac_api bestaan/worden toegevoegd die per request aan die views linkt
+                    - een user (met APIKEY) de juiste rechten krijgen
+                    Vervolgens kan de service worden aangeroepen met API en APIKEY, en bevat de geposte XML
+                    de criteria. Een resulterende XML met een Response is het resultaat, alsmede een HTTP-statuscode
+                    waarbij 200 Ok is.
+
+     Status:        Autorisatie tegen de API_KEY-user checken
 */
-var logall=0; // handig met testen
     DOCTYPE_Disable = 1;
+    LCL_Disable = 1
     THIS_FILE = "appl/api/api_soap.asp";
+
+//    Session("logging")=1;
 %>
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/xml_converter.inc" -->
+<!-- #include file="../Shared/json2.js" -->
 <!-- #include file="../api/api.inc" -->
-
 <%
     Session.Codepage = 65001;
     Response.Charset = 'utf-8';
+    Session.Abandon(); // Voor de zekerheid
 
-    function XML2TEMP(xml, postfix)
-    {
-        if (!logall) return;
-        var in_file = Server.MapPath("./temp") + "/" + customerId + "_" + APIname + "_" + postfix + "_";
-        var jsDate = new Date();
-        var s = jsDate.getFullYear() + padout(jsDate.getMonth() + 1) + padout(jsDate.getDate())
-              + padout(jsDate.getHours()) + padout(jsDate.getMinutes()) + padout(jsDate.getSeconds())
-        in_file = in_file + s + ".xml";
-        //Response.Write(in_file);Response.End;
-
-        var fs  = Server.CreateObject("Scripting.FileSystemObject");
-        var ts  = fs.CreateTextFile(in_file, true);
-        ts.WriteLine (xml);
-        ts.Close();
-    }
-
+try
+{
     var APIname = getQParam("API");
     var APIKEY = getQParam("APIKEY");
-    var API = new API_func(APIname, APIKEY);
+    var API = new API_func(APIname, APIKEY);   // Valideert ook
+
+    var asJSON = getQParam("json","0")!="0";
 
     var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
     xmlReq.load(Request);
 
-    XML2TEMP(xmlReq.xml, "IN");
+    if (API.apidata.loglevel) __Log2File(xmlReq.xml, APIname + "_IN");
+
+    if (xmlReq.documentElement.firstChild.prefix)
+        var soapns = xmlReq.documentElement.firstChild.prefix + ":";
+    else
+        var soapns = "";
+    var body = xmlReq.getElementsByTagName(soapns+"Body");
+    if (!body.length) {
+        throw("Invalid request: No XML body");
+    }
+    var GetReq = body[0].firstChild.baseName;
+    // req heeft vorm GetXXX, met XXX is de req van de definitie in fac_api
+    var req = GetReq.substring(3);
 
-    var body = xmlReq.getElementsByTagName("soap:Body");
-    var req = body[0].firstChild.nodeName;
     var requestData = null;
+    // de apidata.viewmapping is een JSON string met (voorbeeld)
+    // {"req": "Reserveringen",
+    //  "node": "reservering",
+    //  "view": "res_v_api_reserveringen",
+    //  "filter":{"locatiecode":"locatiecode", "catalogus": "catalogus", "begindatumtijd": {"colName": "van", "operand":"GT", "datatype": "date"}, "einddatumtijd": {"colName": "tot", "operand":"LT", "datatype": "date"}},
+    //  "limit":75}
     for (i=0; i < API.apidata.viewmapping.length; i++)
     {
         if (API.apidata.viewmapping[i].req == req)
@@ -58,21 +86,190 @@ var logall=0; // handig met testen
             requestData = API.apidata.viewmapping[i];
         }
     }
-    viewname = requestData.view;
+    if (requestData == null) {
+        API.error("Invalid request: " + GetReq);
+    }
+
+    var viewname = requestData.view;
+    var resnodename = requestData.node;
+
+    var autfunction = requestData.autfunction; // optioneel
+    if (!autfunction)
+    {
+        autfunction =
+           {"regio":          "WEB_ALGUSE",
+            "district":       "WEB_ALGUSE",
+            "locatie":        "WEB_ALGUSE",
+            "gebouw":         "WEB_ALGUSE",
+            "verdieping":     "WEB_ALGUSE",
+            "ruimte":         "WEB_ALGUSE",
+            "bestelling":     "WEB_BESUSE",
+            "bestelopdracht": "WEB_BESUSE",
+            "afspraak":       "WEB_BEZUSE",
+            "contract":       "WEB_CNTUSE",
+            "factuur":        "WEB_FINUSE",
+            "deel":           "WEB_INSUSE",
+            "melding":        "WEB_MLDUSE",
+            "opdracht":       "WEB_MLDUSE",
+            "afdeling":       "WEB_PRSUSE",
+            "persoon":        "WEB_PRSUSE",
+            "reservering":    "WEB_RESUSE",
+            "voorziening":    "WEB_RESUSE"}[resnodename];
+    }
 
     // Nu filters zoeken
     var wheres = [];
     var filters = body[0].firstChild.childNodes;
     for (i=0; i < filters.length; i++)
     {
-        var filterName = filters[i].nodeName;
-        for (xx in requestData.filter) // kennen we deze filter?
+        var filterName = filters[i].baseName;
+        var found = false;
+        for (xx in requestData.filter) // kennen we dit filter?
         {
             if (filterName == xx)
             {
-                wheres.push("UPPER("+requestData.filter[xx] + ") LIKE " + safe.quoted_sql_wild(filters[i].text + "%"))
+                var found = true;
+                var wildtext = filters[i].text;
+                var colHash = requestData.filter[xx];
+                if (typeof colHash == "string") // backwards compatible
+                {
+                    colHash = { colName: colHash,
+                                datatype: "string",
+                                operand : "LIKE"
+                              };
+                    wildtext += "%";
+                }
+                else
+                {
+                    // heeft colHash de volgende structuur
+                    /*
+                        res_datum: { colName: "res_rsv_ruimte_van",
+                                     datatype: "date",
+                                     operand: "LT"
+                                   }
+                     */
+                }
+                var criterium = safe.quoted_sql(filters[i].text);
+                switch(colHash.datatype)
+                {
+                    case "string" :
+                        criterium = safe.quoted_sql_upper(filters[i].text);
+                        break;
+                    case "date" :
+                        // Er zijn regels over datums
+                        // http://www.w3.org/TR/2004/REC-xmlschema-2-20041028/datatypes.html#isoformats
+                        // We willen natuurlijk dat het datatype in de view gewoon datum is
+                        // en dan moeten we van de string van het criterium volgens conventie een date maken
+                        // TODO: Oracle vindt dat standaard Date niet DateTime is...
+                        // Voor filtering is dit perfect zo, maar de presentatie in de XML moet ..?
+                        // TOCH TODO: wel of geen seconden??!?
+                        criterium = "TO_DATE("+safe.quoted_sql(filters[i].text)+", 'yyyy-mm-dd\"T\"hh24:mi:ss')";
+                        break;
+                }
+                switch(colHash.operand)
+                {
+                    case "EQ":
+                        wheres.push("UPPER("+colHash.colName + ") = " + criterium)
+                        break;
+                    case "LIKE":
+                        // altijd case-insensitive vind ik oke, maar de wildcard zou IMO in het filter moeten worden meegegeven.
+                        wheres.push("UPPER("+colHash.colName + ") LIKE " + safe.quoted_sql_wild(wildtext))
+                        break;
+                    case "LT":
+                        wheres.push(""+colHash.colName + " < " + criterium)
+                        break;
+                    case "GT":
+                        wheres.push(""+colHash.colName + " > " + criterium)
+                        break;
+                    case "LTE":
+                        wheres.push(""+colHash.colName + " <= " + criterium)
+                        break;
+                    case "GTE":
+                        wheres.push(""+colHash.colName + " >= " + criterium)
+                        break;
+                }
             }
         }
+        if (!found && (filterName.match(/\_KEY$/i) || filterName.toUpperCase() == "KEY")  // fallback: op _KEY velden mag je automatisch filteren met EQ
+                   && parseInt(filters[i].text, 10))
+        {
+            var sql = "SELECT data_type"
+                    + "     , data_length"
+                    + "     , data_precision"
+                    + "     , data_scale"
+                    + "  FROM user_tab_columns"
+                    + " WHERE table_name = "  + safe.quoted_sql_upper(viewname)
+                    + "   AND column_name = " + safe.quoted_sql_upper(filterName);
+            var oRs = Oracle.Execute(sql);
+            if (!oRs.Eof)
+            {
+                wheres.push(filterName + " = " + parseInt(filters[i].text, 10))
+            }
+            oRs.Close();
+        }
+    }
+
+    // Bu: 3D scope toepassen
+
+    // Check for our special 3D column names
+    var has3D = {};
+    var any3D = false;
+    sql = "SELECT UPPER(column_name) column_name"
+        + "  FROM user_tab_columns"
+        + " WHERE table_name = " + safe.quoted_sql_upper(viewname)
+        + "   AND UPPER(column_name) LIKE 'FCLT_3D_%'";
+    var oRs = Oracle.Execute(sql);
+    while (!oRs.eof)
+    {
+        any3D = true;
+        has3D[oRs("column_name").Value] = true;
+        oRs.MoveNext();
+    }
+    oRs.Close();
+    if (any3D)
+    {
+        if (!autfunction)
+            API.error("3d yet autfunction undefined"); // Strict genomen niet nodig voor FCLT_3D_USER_KEY
+
+        var authparams = user.checkAutorisation(autfunction);
+        // TODO: Onderstaande code gaan delen met fac_usrrap.inc?
+        if (has3D["FCLT_3D_DISCIPLINE_KEY"])
+        {
+            wheres.push(" FCLT_3D_DISCIPLINE_KEY IN"
+                        + " (SELECT ins_discipline_key FROM fac_v_webgebruiker "
+                        +   "  WHERE fac_functie_key = " + authparams.autfunctionkey
+                        +   "    AND prs_perslid_key="+user_key + ")");
+        }
+        if (has3D["FCLT_3D_LOCATIE_KEY"] && authparams.ALGreadlevel > -1)
+        {
+            wheres.push(" FCLT_3D_LOCATIE_KEY IN"
+                      + "  (SELECT alg_locatie_key FROM fac_v_my_locations "
+                      + "    WHERE niveau ="+authparams.ALGreadlevel
+                      + "      AND prs_perslid_key="+user_key+")");
+
+        }
+        if (has3D["FCLT_3D_GEBOUW_KEY"] && authparams.ALGreadlevel > -1)
+        {
+            wheres.push(" FCLT_3D_GEBOUW_KEY IN"
+                      + "  (SELECT alg_gebouw_key FROM fac_v_my_buildings "
+                      + "    WHERE niveau ="+authparams.ALGreadlevel
+                      + "      AND prs_perslid_key="+user_key+")");
+
+        }
+        if (has3D["FCLT_3D_AFDELING_KEY"] && authparams.PRSreadlevel > 0)
+        {
+            wheres.push(" 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 + "))");
+        }
+        if (has3D["FCLT_3D_USER_KEY"] )
+        {
+            wheres.push(" FCLT_3D_USER_KEY = " + user_key);
+        }
     }
 
     if (requestData.limit)
@@ -82,30 +279,90 @@ var logall=0; // handig met testen
     if (wheres.length)
         where = "WHERE " + wheres.join(" AND ");
 
-    var mode = req;
+    var resultnode = GetReq+'Response';  // Dit is volgens onze eigen conventie zo
+    var stylesheet = API.apidata.stylesheet;
+
     var key = -1;
     var xtrakey = -1;
-    var stylesheet = API.apidata.stylesheet;
-    sql = "BEGIN xml.make_view_xml(" + safe.quoted_sql(viewname) + ", " + key + " , "
-            + safe.quoted_sql(customerId) + ", " + safe.quoted_sql(Session.SessionId)
-            + ", " + xtrakey + ", " + safe.quoted_sql(where) + "); END;";
+    sql = "BEGIN xml.make_view_xml("
+                + safe.quoted_sql(viewname) + ", "
+                + key + " , "
+                + safe.quoted_sql(customerId) + ", "
+                + safe.quoted_sql(Session.SessionId) + ", "
+                + xtrakey + ", "
+                + safe.quoted_sql(where)
+                + ", " + safe.quoted_sql(resultnode)
+                + ", " + safe.quoted_sql(resnodename)
+                + "); END;";
     Oracle.Execute(sql);
     sql = "SELECT fac_xml_xml FROM fac_xml WHERE fac_session_id = " + safe.quoted_sql(Session.SessionId) + " ORDER BY fac_xml_volgnr";
     oRs = Oracle.Execute( sql);
     var xml_content = "";
-    while (!oRs.eof) {
-     xml_content = xml_content + oRs(0).value;
-     oRs.moveNext();
+    while (!oRs.eof)
+    {
+        xml_content = xml_content + oRs(0).value;
+        oRs.moveNext();
     }
     __Log("XML is " + xml_content.length + " karakters");
 
-    XML2TEMP(xml_content, "DATA");
+    if (API.apidata.loglevel) __Log2File(xml_content, APIname + "_DATA");
 
-    //stylesheet = GetStylesheet(pcompany);
-    var srtnotificatie = "";
+    if (asJSON)
+        Response.ContentType = "application/json";
+    else
+        Response.ContentType = "text/xml";
 
-    Response.ContentType = "text/xml";
-    STR2Stream(xml_content,stylesheet, Response, mode, srtnotificatie);
+    Response.AddHeader("Access-Control-Allow-Origin", "*"); // Opdat FireFox cross-domain toestaat
 
-    Session.Abandon(); // Voor de zekerheid
+    // Als er geen afwijkende xsl is gedefinieerd dan leveren we gewoon generiek de rapport_data node
+    // op van het resultaat,dus maar zonder de metadata, dus alleen de facilitor/[resultnode]/
+    if (stylesheet == null)
+    {
+        var xmldoc = new ActiveXObject("Msxml2.DOMDocument.4.0");
+        xmldoc.async = false;
+        xmldoc.loadXML(xml_content);
+        if (xmldoc.parseError.errorCode != 0)
+        {
+            var myErr = xmldoc.parseError;
+            throw("Error in xmlfile: " + myErr.reason);
+        }
+        else
+        {
+            var resultdoc = xmldoc.getElementsByTagName(resultnode)[0];
+            if (resultdoc)
+            {
+                if (asJSON)
+                {
+                    var antwoord = JSON.stringify(xmlToJson(resultdoc),null, getQParam("pretty","0")=="1"?2:0);
+                }
+                else
+                    var antwoord = resultdoc.xml;
+
+                var oCrypto = new ActiveXObject("SLNKDWF.Crypto");
+                var eTag = '"' + oCrypto.hex_sha1(antwoord).toLowerCase() + '"';
+                Response.AddHeader("ETag", eTag);
+                if (Request.ServerVariables("HTTP_IF_NONE_MATCH") == eTag)
+                {   // We hebben een match!
+                    Response.Clear();
+                    Response.Status = "304 Not modified";
+                    Response.End;
+                }
+                if (API.apidata.loglevel) __Log2File(antwoord, APIname + "_OUT");
+                Response.write(antwoord);
+            }
+        }
+    }
+    else
+    {
+        // die req-parameter is waarschijnlijk vrij zinloos
+        var params = { mode: req };
+        if (API.apidata.loglevel)
+            params.log_postfix = APIname + "_OUT";
+        STR2Stream(xml_content, stylesheet, Response, params);
+    }
+}
+catch (e)
+{
+    API.error(typeof e == "string"? e : e.description);
+}
 %>

APPL/API/api_XMLNode.asp

@@ -0,0 +1,154 @@
+<%@ language = "JavaScript" %>
+<% /*
+     $Revision$
+     $Id$
+
+    File:           api_SOAP.asp
+    Description:    API om een SOAP-achtige service te bieden
+    Parameters:
+    Context:
+    Notes:          Zie UWVA/KASPRS voor voorbeeld gebruik
+    TODO:           Parameters uit Request-SOAP bericht ook via een XLS er uit vogelen
+
+*/
+    DOCTYPE_Disable = 1;
+    THIS_FILE = "appl/api/api_soap.asp";
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="../Shared/xml_converter.inc" -->
+<!-- #include file="../api/api.inc" -->
+
+<%
+    Session.Codepage = 65001;
+    Response.Charset = 'utf-8';
+
+    // Zet de loglevel in de API op 1 om de xml te loggen naar de TEMP folder
+    function XML2TEMP(xml, postfix)
+    {
+        if (!API.apidata.loglevel) return;
+        var in_file = Server.MapPath("./temp") + "/" + customerId + "_" + APIname + "_" + postfix + "_";
+        var jsDate = new Date();
+        var s = String(jsDate.getFullYear()) + padout(jsDate.getMonth() + 1) + padout(jsDate.getDate())
+              + padout(jsDate.getHours()) + padout(jsDate.getMinutes()) + padout(jsDate.getSeconds())
+        in_file = in_file + s + ".xml";
+        //Response.Write(in_file);Response.End;
+
+        var fs  = Server.CreateObject("Scripting.FileSystemObject");
+        var ts  = fs.CreateTextFile(in_file, true, -1); // -1 voor de Unicode
+        ts.WriteLine (xml);                             // Anders hier Invalid procedure call or argument
+        ts.Close();
+    }
+
+    var APIname = getQParam("API");
+    var APIKEY = getQParam("APIKEY");
+    var API = new API_func(APIname, APIKEY);
+    Session("logging") = API.apidata.loglevel||0;
+
+    var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
+    xmlReq.load(Request);
+
+    XML2TEMP(xmlReq.xml, "IN");
+
+    var xmlnode = xmlReq.getElementsByTagName("xmlnode")[0].text;
+    var beginTag = xmlReq.getElementsByTagName("begindatumtijd")[0].text;
+    var eindTag = xmlReq.getElementsByTagName("einddatumtijd")[0].text;
+    //var ekey = xmlReq.getElementsByTagName("key")[0].text;
+    __Log("xmlnode: " + xmlnode);
+    __Log("From: " + beginTag);
+    __Log("To: " + eindTag);
+
+    var key = -1;
+    var xtrakey = -1;
+    var stylesheet = API.apidata.stylesheet;
+    var srtnotificatie = "";
+
+    // TODO: View configureerbaar maken
+    var whichSQL = "SELECT DISTINCT fac_srtnotificatie_xmlnode xmlnode, fac_tracking_refkey "
+                 + "  FROM fac_tracking ft, fac_srtnotificatie fs "
+                 + " WHERE     ft.fac_srtnotificatie_key = fs.fac_srtnotificatie_key "
+                 + "       AND fs.fac_srtnotificatie_xmlnode = " + safe.quoted_sql(xmlnode)
+                 + "       AND fac_tracking_datum BETWEEN TO_DATE("+safe.quoted_sql(beginTag)+", 'YYYY-MM-DD HH24:MI:SS')"
+                 + "                                  AND TO_DATE("+safe.quoted_sql(eindTag)+", 'YYYY-MM-DD HH24:MI:SS')"
+// UWVA sneller                 + "       AND fac_tracking_key >= 11376454"
+                 + " GROUP BY fac_srtnotificatie_xmlnode, fac_tracking_refkey";
+    // whichSQL = "SELECT * FROM (" + whichSQL + ") WHERE ROWNUM < 5";
+
+    var oRsW = Oracle.Execute(whichSQL);
+    var xml_nodes_arr = [];
+    var xml_nodes_dom = new ActiveXObject("MSXML2.DOMDocument.4.0");
+
+    var FCLTElement = xml_nodes_dom.createElement("facilitor");
+    var headerDone = false;
+    where = "";
+    while (!oRsW.Eof)
+    {
+        sql = "BEGIN xml.make_xml(" + safe.quoted_sql(oRsW("xmlnode").Value) + ", " + oRsW("fac_tracking_refkey").Value + " , "
+                + safe.quoted_sql(customerId) + ", " + safe.quoted_sql(Session.SessionId)
+                + ", " + xtrakey + ", " + safe.quoted_sql(where) + "); END;";
+
+        Oracle.Execute(sql);
+        sql = "SELECT fac_xml_xml FROM fac_xml WHERE fac_session_id = " + safe.quoted_sql(Session.SessionId) + " ORDER BY fac_xml_volgnr";
+        oRs = Oracle.Execute( sql);
+        var xml_content_arr = [];
+        while (!oRs.eof)
+        {
+            xml_content_arr.push(oRs(0).value);
+            oRs.moveNext();
+        }
+        oRs.Close();
+        var xml_content = xml_content_arr.join("");
+
+        // Loggen van de individuele XMLNODE's
+        // XML2TEMP(xml_content, "XML_" +  oRsW("xmlnode").Value + "_" + oRsW("fac_tracking_refkey").Value);
+
+        __Log("XML '" + oRsW("xmlnode").Value + "' voor key " + oRsW("fac_tracking_refkey").Value + " is " + xml_content.length + " karakters");
+
+        xml_nodes_arr.push(xml_content); // E<>n node
+        var xmldoc = new ActiveXObject("Msxml2.DOMDocument.4.0");
+        xmldoc.async = false;
+        xmldoc.loadXML(xml_content);
+        xmldoc.setProperty("SelectionLanguage", "XPath");
+        if (!headerDone)
+        {
+            node = xmlReq.selectSingleNode("facilitor/getinfo");
+            //var FCLTElement = xml_nodes_dom.createElement("begintimestamp");
+            var sql = "SELECT (TO_DATE("+safe.quoted_sql(beginTag)+", 'YYYY-MM-DD HH24:MI:SS')"
+                    +              " - TO_DATE ('01-01-1970', 'DD-MM-YYYY')) * 86400 FROM DUAL"
+            var ts = Oracle.Execute(sql);
+            var tNode = xml_nodes_dom.createTextNode(ts(0).value);
+            bnode = xml_nodes_dom.createElement("begintimestamp");
+            bnode.appendChild(tNode)
+            node.appendChild(bnode);
+            FCLTElement.appendChild(node);
+
+            sql = "SELECT (TO_DATE("+safe.quoted_sql(eindTag)+", 'YYYY-MM-DD HH24:MI:SS')"
+                    +              " - TO_DATE ('01-01-1970', 'DD-MM-YYYY')) * 86400 FROM DUAL"
+            ts = Oracle.Execute(sql);
+            tNode = xml_nodes_dom.createTextNode(ts(0).value);
+            bnode = xml_nodes_dom.createElement("eindtimestamp");
+            bnode.appendChild(tNode)
+            node.appendChild(bnode);
+            FCLTElement.appendChild(node);
+
+            node = xmldoc.selectSingleNode("facilitor/header");
+            FCLTElement.appendChild(node);
+            node = xmldoc.selectSingleNode("facilitor/lcl"); // TODO: Eigenlijk wil je deze mergen over alle xmlNodes heen
+            FCLTElement.appendChild(node);
+            headerDone = true;
+        }
+        node = xmldoc.selectSingleNode("facilitor/" + oRsW("xmlnode").Value);
+        FCLTElement.appendChild(node);
+
+        oRsW.moveNext();
+    }
+    oRsW.Close();
+    xml_nodes_dom.appendChild(FCLTElement);
+
+    XML2TEMP(xml_nodes_dom.xml, "DATAXML");
+
+    Response.ContentType = "text/xml";
+    mode = xmlnode; // is dit logisch? PF: volgens mij helemaal niet
+    STR2Stream(xml_nodes_dom.xml, stylesheet, Response, mode, srtnotificatie);
+
+    Session.Abandon(); // Voor de zekerheid
+%>

APPL/API/api_besordsoap.asp

@@ -16,7 +16,7 @@
      Notes:
 */
     DOCTYPE_Disable = 1;
-    THIS_FILE = "appl/api/api_mldsoap.asp";
+    THIS_FILE = "appl/api/api_besordsoap.asp";
 %>
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/xml_converter.inc" -->
@@ -36,7 +36,21 @@
     var resultcode = -1;   /* Zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed). */
     var resulttekst = "";
     var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
-    xmlReq.load(Request);
+    if (API.apidata.stylesheet)
+    {
+        var iXsl = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        if( ! iXsl.load(Server.MapPath(API.apidata.stylesheet)) )
+        {
+            API.error("Could not load XSL " + API.apidata.stylesheet + "\n" + iXsl.parseError.reason);
+        }
+        var inputXML = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        inputXML.load(Request);
+        inputXML.transformNodeToObject(iXsl, xmlReq);
+    }
+    else
+        xmlReq.load(Request);
+
+    if (API.apidata.loglevel) __Log2File(xmlReq.xml, APIname + "_TUSSEN");
 
     var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
     xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))
@@ -47,7 +61,7 @@
     var now = new Date();
     var nowtxt = now.getFullYear()+'-'+padout(now.getMonth()+1) +'-'+padout(now.getDate()) +' '
                            +padout(now.getHours()) +':'+padout(now.getMinutes())+':'+padout(now.getSeconds());
-    var FCLTHeader = xmlResp.createElement("header");
+    var elmHeader = xmlResp.createElement("header");
     var headerinfo = {
 //                      file: String(Request.ServerVariables("SCRIPT_NAME")).toLowerCase(),
                       datum: nowtxt,
@@ -59,22 +73,9 @@
     {
         var FCLTdata = xmlResp.createElement(param);
         FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
-        FCLTHeader.appendChild(FCLTdata);
+        elmHeader.appendChild(FCLTdata);
     }
-    FCLTElement.appendChild(FCLTHeader);
-
-		function XMLval(xml, tag)
-		{
-        if (!xml)
-            return null;
-        var xx = xml.getElementsByTagName(tag);
-        if (!xx || !xx.length)
-            return null;
-        xx = xx[0].childNodes
-        if (!xx || !xx.length)
-            return null;
-        return xx[0].nodeValue;
-		}
+    FCLTElement.appendChild(elmHeader);
 
     // Hier zou het echte werk moeten gebeuren nav. xmlReq
     // en FCLTElement moeten we uitbreiden met antwoorden.
@@ -101,34 +102,41 @@
         var bes_key    = parseInt(idarr[0], 10);
         var opdrvolgnr = parseInt(idarr[1], 10);
 
-        if (isNaN (bes_key) || isNaN (opdrvolgnr)) {
-						resultcode = 2;
-						resulttekst = "Invalid ID (key="+ opdrid +")";
-				} else if (opdraction != "update") {
-						resultcode = 2;
-						resulttekst = "Invalid action (type="+ opdraction +")";
-				} else {
+        if (isNaN (bes_key) || isNaN (opdrvolgnr))
+        {
+            resultcode = 2;
+            resulttekst = "Invalid ID (key="+ opdrid +")";
+        }
+        else if (opdraction != "update")
+        {
+            resultcode = 2;
+            resulttekst = "Invalid action (type="+ opdraction +")";
+        }
+        else
+        {
             tsql = "SELECT bes_bestelopdr_key, prs_bedrijf_key, bes_bestelopdr_status "
                 + " FROM bes_bestelopdr"
                 + " WHERE bes_bestelopdr_id="+ safe.quoted_sql(opdrid);
             var oRs = Oracle.Execute(tsql);
-            if (!oRs.eof) {
+            if (!oRs.eof)
+            {
                 opdr_key = oRs("bes_bestelopdr_key").value;
                 lev_key = oRs("prs_bedrijf_key").value;
                 curstatus = oRs("bes_bestelopdr_status").value;
             }
 
-            if (opdr_key == -1) {
+            if (opdr_key == -1)
+            {
                 resultcode = 3;
                 resulttekst = "Unknown order";
-            } else {
-                // Hier heb ik een geldige bes_bestelling_key + bes_bestelopdr_key.
-                // Bericht bevat statuswijziging of artikellijst met "geleverde" aantallen;
-                // in principe nooit beide!
-                if (opdrstatus != null) // Statuswijziging; evt. artikellijst wordt genegeerd!
-                {
-                    // Er is dus wel een status meegegeven.
-                    switch (opdrstatus) {
+            }
+            else
+            {   // Hier heb ik een geldige bes_bestelling_key + bes_bestelopdr_key.
+                // Bericht bevat statuswijziging of artikellijst; nooit beide!
+                if (opdrstatus != null)
+                {   // Hier is dus een status meegegeven; evt. artikellijst wordt genegeerd!
+                    switch (opdrstatus)
+                    {
                         case 'BES2CO':
                         case 'BES2RE':
                             var opdropm_kolom = "BES_BESTELOPDR_OPMERKING";
@@ -137,22 +145,29 @@
                             tsql = "SELECT prs_bedrijf_order_confirm "
                                 + " FROM prs_bedrijf"
                                 + " WHERE prs_bedrijf_key="+ lev_key;
-                            var oRs = Oracle.Execute(tsql);
-
-                            if (oRs("prs_bedrijf_order_confirm").value == 1) {
+                            oRs = Oracle.Execute(tsql);
+                            if (oRs("prs_bedrijf_order_confirm").value == 1)
+                            {
                                 if (curstatus == 5) { // Ter bevestiging
-                                    if (opdrstatus == 'BES2CO') {
+                                    if (opdrstatus == 'BES2CO')
+                                    {
                                         tsql = "BEGIN BES.acceptopdracht(" + opdr_key + ", " + user_key +", ''); END;";
                                         Oracle.Execute(tsql);
-                                    } else {
+                                    }
+                                    else
+                                    {
                                         tsql = "BEGIN BES.rejectopdracht(" + opdr_key + ", " + user_key +", ''); END;";
                                         Oracle.Execute(tsql);
                                     }
-                                } else {
+                                }
+                                else
+                                {
                                     resultcode = 5;
                                     resulttekst = "Invalid status change";
                                 }
-                            } else {
+                            }
+                            else
+                            {
                                 resultcode = 4;
                                 resulttekst = "Remote confirmation not enabled";
                             }
@@ -167,16 +182,17 @@
                                 + " AND bi.bes_srtdeel_key=sd.bes_srtdeel_key"
                                 + " AND sd.bes_srtgroep_key=sg.bes_srtgroep_key"
                                 + " AND sg.ins_discipline_key=dp.bes_ins_discipline_key";
-                            var oRs = Oracle.Execute(tsql);
-
-                            if (oRs("bes_disc_params_remoteconfirm").value == 1) {
-                                if (curstatus == 4 ) { // In bestelling
+                            oRs = Oracle.Execute(tsql);
+                            if (oRs("bes_disc_params_remoteconfirm").value == 1)
+                            {
+                                if (curstatus == 4 )
+                                {   // In bestelling
                                     // Zeg dat alles geleverd is wat besteld is.
                                     tsql = "UPDATE bes_bestelopdr_item "
                                         + " SET bes_bestelopdr_item_aantalontv=bes_bestelopdr_item_aantal"
                                         + "   , bes_bestelopdr_item_ontvangen=SYSDATE"
                                         + " WHERE bes_bestelopdr_key="+ opdr_key;
-                                    var oRs = Oracle.Execute(tsql);
+                                    Oracle.Execute(tsql);
                                     bes.updatebestelopdrstatus(opdr_key, user_key);
 
                                     // Sluit alle aanvraagregels af die nu geheel geleverd zijn.
@@ -191,13 +207,17 @@
                                         + "  AND bi.bes_bestelopdr_item_key=boi.bes_bestelopdr_item_key"
                                         + "  AND boi.bes_bestelopdr_key="+ opdr_key
                                         + "  AND boi.bes_bestelopdr_item_aantal=boi.bes_bestelopdr_item_aantalontv)";
-                                    var oRs = Oracle.Execute(tsql);
+                                    Oracle.Execute(tsql);
                                     bes.updatebestellingstatus (bes_key, user_key);
-                                } else {
+                                }
+                                else
+                                {
                                     resultcode = 5;
                                     resulttekst = "Invalid status change";
                                 }
-                            } else {
+                            }
+                            else
+                            {
                                 resultcode = 4;
                                 resulttekst = "Remote delivery not enabled";
                             }
@@ -206,108 +226,162 @@
                             resultcode = 2;
                             resulttekst = "Invalid status";
                     } // switch
-                } else { // Artikellijst met "geleverde" aantallen (of alleen opmerking).
+                }
+                else
+                {   // Hier is dus een artikellijst meegegeven (prijswijzigingen, aantallen en/of alleen opmerking)!
                     var artikelen = opdrachten[i].getElementsByTagName("artikel");
-                    if (artikelen.length > 0) { // Loop door artikelen.
-                        var opdropm_kolom = "BES_BESTELOPDR_DELIVERY_OPMERK";
+                    if (artikelen.length > 0)
+                    {   // Loop door artikelen.
+                        if (curstatus == 4 )
+                        {   // In bestelling; alleen in deze toestand mogen - via API - artikelen worden bijgewerkt!
+                            var opdropm_kolom = "BES_BESTELOPDR_DELIVERY_OPMERK";
 
-                    	  // Check of vinkje bij catalogus registratie van levering toestaat.
-                        tsql = "SELECT MAX(dp.bes_disc_params_remoteconfirm) bes_disc_params_remoteconfirm "
-                            + " FROM bes_bestelling_item bi, bes_srtdeel sd, bes_srtgroep sg, bes_disc_params dp"
-                            + " WHERE bi.bes_bestelling_key="+ bes_key
-                            + " AND bi.bes_srtdeel_key=sd.bes_srtdeel_key"
-                            + " AND sd.bes_srtgroep_key=sg.bes_srtgroep_key"
-                            + " AND sg.ins_discipline_key=dp.bes_ins_discipline_key";
-                        var oRs = Oracle.Execute(tsql);
+                            for (i=0; i < artikelen.length && resultcode == -1; i++)
+                            {   // Lees per node weer de tags en waarden.
+                                var artikelnr = artikelen[i].getAttribute("nummer");
+                                var newprijs = XMLval(artikelen[i], "prijs");
+                                var newprijsval = parseFloat(XMLval(artikelen[i], "prijs"));
+                                var newink = XMLval(artikelen[i], "inkprijs");
+                                var newinkval = parseFloat(XMLval(artikelen[i], "inkprijs"));
+                                var newbruto = XMLval(artikelen[i], "brutoprijs");
+                                var newbrutoval = parseFloat(XMLval(artikelen[i], "brutoprijs"));
+                                var newontv = XMLval(artikelen[i], "aantalontv");
+                                var newontvval = parseInt(XMLval(artikelen[i], "aantalontv"), 10);
 
-                        if (oRs("bes_disc_params_remoteconfirm").value == 1) {
-                            if (curstatus == 4 ) { // In bestelling
-                    	          for (i=0; i < artikelen.length; i++)
-                    	          {
-                    	              // Lees per node weer de tags en waarden.
-                    	              var artikelnr = artikelen[i].getAttribute("nummer");
-                    	              var newontv = parseInt(XMLval(artikelen[i], "aantalontv"), 10);
+                                // Bepaal item-keys plus huidige aantallen besteld/geleverd voor artikel.
+                                tsql = "SELECT bi.bes_bestelling_item_key, bi.bes_bestelopdr_item_key, "
+                                    + "        boi.bes_bestelopdr_item_aantal curaant, "
+                                    + "        COALESCE(boi.bes_bestelopdr_item_aantalontv, 0) curontv "
+                                    + " FROM bes_bestelopdr_item boi, bes_bestelling_item bi, bes_srtdeel sd"
+                                    + " WHERE boi.bes_bestelopdr_key="+ opdr_key
+                                    + " AND boi.bes_bestelopdr_item_key=bi.bes_bestelopdr_item_key"
+                                    + " AND bi.bes_srtdeel_key=sd.bes_srtdeel_key"
+                                    + " AND sd.bes_srtdeel_nr="+ safe.quoted_sql(artikelnr);
+                                oRs = Oracle.Execute(tsql);
+                                if (!oRs.eof)
+                                {
+                                    var bi_key = oRs("bes_bestelling_item_key").value;
+                                    var boi_key = oRs("bes_bestelopdr_item_key").value;
+                                    var curaant = oRs("curaant").value;
+                                    var curontv = oRs("curontv").value;
 
-                 	                  // Bepaal huidige aantallen besteld/geleverd voor artikel.
-                 	                  tsql = "SELECT boi.bes_bestelopdr_item_aantal curaant, COALESCE(boi.bes_bestelopdr_item_aantalontv, 0) curontv "
-                                        + " FROM bes_bestelopdr_item boi, bes_bestelling_item bi, bes_srtdeel sd"
-                                        + " WHERE boi.bes_bestelopdr_key="+ opdr_key
-                                        + " AND boi.bes_bestelopdr_item_key=bi.bes_bestelopdr_item_key"
-                                        + " AND bi.bes_srtdeel_key=sd.bes_srtdeel_key"
-                                        + " AND sd.bes_srtdeel_nr="+ safe.quoted_sql(artikelnr);
-                 	                  var oRs = Oracle.Execute(tsql);
-                 	                  if (!oRs.eof) {
-                 	                      var curaant = oRs("curaant").value;
-                 	                      var curontv = oRs("curontv").value;
+                                    if ((newprijs && (isNaN (newprijsval) || newprijsval < 0)) ||
+                                        (newink && (isNaN (newinkval) || newinkval < 0)) ||
+                                        (newbruto && (isNaN (newbrutoval) || newbrutoval < 0)))
+                                    {
+                                        resultcode = 8;
+                                        resulttekst = "Invalid price(s)";
+                                    }
+                                    else if (newprijs || newink || newbruto)
+                                    {   // Werk de eventuele prijzen bij; zover meegegeven zijn die geldig.
+                                        // In de bestelaanvraag!
+                                        tsql = "UPDATE bes_bestelling_item "
+                                            + " SET bes_srtdeel_key=bes_srtdeel_key"
+                                            + (newprijs ? ", bes_bestelling_item_prijs="+ newprijsval : "")
+                                            + (newink ?   ", bes_bestelling_item_inkprijs="+ newinkval : "")
+                                            + (newbruto ? ", bes_bestelling_item_brutoprijs="+ newbrutoval : "")
+                                            + " WHERE bes_bestelling_item_key="+ bi_key;
+                                        Oracle.Execute(tsql);
+                                        shared.trackaction("BESUPD", bes_key, L("lcl_bes_is_besupdtrackprice").format(S("bes_bestelling_prefix") + bes_key, safe.curr(newprijsval)));
 
-                 	                      if (!isNaN (newontv) && (curontv + newontv) <= curaant) {
-                 	                          // Werk het geleverde aantal bij.
-                 	                          tsql = "UPDATE bes_bestelopdr_item boi "
-                                                + " SET boi.bes_bestelopdr_item_aantalontv=COALESCE(boi.bes_bestelopdr_item_aantalontv, 0)+"+ newontv
-                                                + "   , bes_bestelopdr_item_ontvangen=SYSDATE"
-                                                + " WHERE boi.bes_bestelopdr_key="+ opdr_key
-                                                + " AND COALESCE(boi.bes_bestelopdr_item_aantalontv, 0)+"+ newontv + ">0"
-                                                + " AND EXISTS"
-                                                + " (SELECT 1 FROM bes_bestelling_item bi, bes_srtdeel sd "
-                                                + "  WHERE bi.bes_bestelopdr_item_key=boi.bes_bestelopdr_item_key"
-                                                + "  AND bi.bes_srtdeel_key=sd.bes_srtdeel_key"
-                                                + "  AND sd.bes_srtdeel_nr="+ safe.quoted_sql(artikelnr) +")";
-                 	                          var oRs = Oracle.Execute(tsql);
-                 	                          bes.updatebestelopdrstatus(opdr_key, user_key);
-                                        } else {
-                                            resultcode = 7;
-                                            resulttekst = "Invalid delivery count";
-                 	                      }
-                                    } else {
-                                        resultcode = 6;
-                                        resulttekst = "Unknown article number";
-                 	                  }
+                                        // En de bestelopdracht!
+                                        tsql = "UPDATE bes_bestelopdr_item "
+                                            + " SET bes_bestelopdr_item_posnr=bes_bestelopdr_item_posnr"
+                                            + (newprijs ? ", bes_bestelopdr_item_prijs="+ newprijsval : "")
+                                            + (newink ?   ", bes_bestelopdr_item_inkprijs="+ newinkval : "")
+                                            + (newbruto ? ", bes_bestelopdr_item_brutoprijs="+ newbrutoval : "")
+                                            + " WHERE bes_bestelopdr_item_key="+ boi_key;
+                                        Oracle.Execute(tsql);
+                                        shared.trackaction("BES2UP", opdr_key, L("lcl_bes_is_bes2uptrackprice").format(S("bes_bestelopdr_prefix") + opdrid, safe.curr(newprijsval)));
+                                    }
+
+                                    if (newontv && resultcode == -1)
+                                    {   // Nieuw aantal ontvangen en nog steeds geen fouten.
+                                        // Check of vinkje bij catalogus registratie van levering toestaat.
+                                        tsql = "SELECT MAX(dp.bes_disc_params_remoteconfirm) bes_disc_params_remoteconfirm "
+                                            + " FROM bes_bestelling_item bi, bes_srtdeel sd, bes_srtgroep sg, bes_disc_params dp"
+                                            + " WHERE bi.bes_bestelling_key="+ bes_key
+                                            + " AND bi.bes_srtdeel_key=sd.bes_srtdeel_key"
+                                            + " AND sd.bes_srtgroep_key=sg.bes_srtgroep_key"
+                                            + " AND sg.ins_discipline_key=dp.bes_ins_discipline_key";
+                                        oRs = Oracle.Execute(tsql);
+                                        if (oRs("bes_disc_params_remoteconfirm").value == 1)
+                                        {   // Correcties of (deel)registratie retouren met negatieve <aantalontv> niet toegestaan; wel via BES2AF!
+                                            if (isNaN (newontvval) || newontvval < 0 || (curontv + newontvval) > curaant)
+                                            {
+                                                resultcode = 8;
+                                                resulttekst = "Invalid delivery count";
+                                            }
+                                            else
+                                            {   // Werk het geleverde aantal bij.
+                                                tsql = "UPDATE bes_bestelopdr_item "
+                                                    + " SET bes_bestelopdr_item_ontvangen=SYSDATE"
+                                                    + "   , bes_bestelopdr_item_aantalontv=COALESCE(bes_bestelopdr_item_aantalontv,0)+"+ newontvval
+                                                    + " WHERE bes_bestelopdr_item_key="+ boi_key;
+                                                Oracle.Execute(tsql);
+                                                bes.updatebestelopdrstatus(opdr_key, user_key);
+                                            }
+                                        }
+                                        else
+                                        {
+                                            resultcode = 4;
+                                            resulttekst = "Remote delivery not enabled";
+                                        }
+                                    }
+                                }
+                                else
+                                {
+                                    resultcode = 7;
+                                    resulttekst = "Unknown article number";
                                 }
-
-                 	              // Sluit alle aanvraagregels af die - mogelijk - nu geheel geleverd zijn.
-                 	              tsql = "UPDATE bes_bestelling_item "
-                                    + " SET bes_bestelling_item_aantalontv = bes_bestelling_item_aantal"
-                                    + " WHERE bes_bestelling_item_key IN"
-                                    + " (SELECT bi.bes_bestelling_item_key "
-                                    + "  FROM bes_bestelling b, bes_bestelling_item bi, bes_bestelopdr_item boi"
-                                    + "  WHERE b.bes_bestelling_key="+ bes_key
-                                    + "  AND b.bes_bestelling_status=5" // Besteld
-                                    + "  AND b.bes_bestelling_key=bi.bes_bestelling_key"
-                                    + "  AND bi.bes_bestelopdr_item_key=boi.bes_bestelopdr_item_key"
-                                    + "  AND boi.bes_bestelopdr_key="+ opdr_key
-                                    + "  AND boi.bes_bestelopdr_item_aantal=boi.bes_bestelopdr_item_aantalontv)";
-                 	              var oRs = Oracle.Execute(tsql);
-                 	              bes.updatebestellingstatus (bes_key, user_key);
-                            } else {
-                                resultcode = 5;
-                                resulttekst = "Invalid delivery timing";
                             }
-                 	      } else {
-                            resultcode = 4;
-                            resulttekst = "Remote delivery not enabled";
-                 	    	}
-                 	  } else {
-                 	      // Raar, alleen opmerking, heeft dan vast niets met levering te maken?
+
+                            // Sluit alle aanvraagregels af die - mogelijk - nu geheel geleverd zijn.
+                            tsql = "UPDATE bes_bestelling_item "
+                                + " SET bes_bestelling_item_aantalontv = bes_bestelling_item_aantal"
+                                + " WHERE bes_bestelling_item_key IN"
+                                + " (SELECT bi.bes_bestelling_item_key "
+                                + "  FROM bes_bestelling b, bes_bestelling_item bi, bes_bestelopdr_item boi"
+                                + "  WHERE b.bes_bestelling_key="+ bes_key
+                                + "  AND b.bes_bestelling_status=5" // Besteld
+                                + "  AND b.bes_bestelling_key=bi.bes_bestelling_key"
+                                + "  AND bi.bes_bestelopdr_item_key=boi.bes_bestelopdr_item_key"
+                                + "  AND boi.bes_bestelopdr_key="+ opdr_key
+                                + "  AND boi.bes_bestelopdr_item_aantal=boi.bes_bestelopdr_item_aantalontv)";
+                            Oracle.Execute(tsql);
+                            bes.updatebestellingstatus (bes_key, user_key);
+                        }
+                        else
+                        {
+                            resultcode = 6;
+                            resulttekst = "Invalid update timing";
+                        }
+                    }
+                    else
+                    {   // Raar, alleen opmerking, heeft dan vast niets met levering te maken?
                         var opdropm_kolom = "BES_BESTELOPDR_OPMERKING";
-                 		}
+                    }
                 }
 
                 // Dit zijn de overige wijzigingen (alleen opmerking), die voeren we alleen uit
                 // bij geen of een geldige statuswijziging.
-                if (resultcode == -1) { // Nog steeds geen fouten.
-                    if (opdropm != null ) {
+                if (resultcode == -1)
+                {   // Nog steeds geen fouten.
+                    if (opdropm != null )
+                    {
                         tsql = "UPDATE bes_bestelopdr "
                             + " SET "+ opdropm_kolom
                             + "=DECODE ("+ opdropm_kolom
                             + "       , NULL, "+ safe.quoted_sql(opdropm)
                             + "       , SUBSTR ("+ opdropm_kolom +"||CHR(13)||CHR(10)||"+ safe.quoted_sql(opdropm) +", 1, 4000))"
                             + " WHERE bes_bestelopdr_key="+ opdr_key;
-                        oRs = Oracle.Execute(tsql);
+                        Oracle.Execute(tsql);
                     }
 
                     resultcode = 0; // Ik heb gedaan wat ik moest en mocht doen voor deze bestelopdracht.
                 }
             } // end geldige opdrachtkey
+            oRs.Close();
         } // end geldige opdrid
 
         var binfo = {
@@ -333,6 +407,14 @@
 
     xmlResp.appendChild(FCLTElement);
 
-    Response.ContentType = "text/xml";
-    Response.Write(xmlResp.xml)
+    if (API.apidata.stylesheet)
+    {
+        // Niet super efficient dat we eerst naar tekstuele xml gaan maar ach...
+        STR2Stream(xmlResp.xml, API.apidata.stylesheet, Response, {});
+    }
+    else
+    {
+        Response.ContentType = "text/xml";
+        Response.Write(xmlResp.xml)
+    }
 %>

APPL/API/api_bessoap.asp

@@ -0,0 +1,278 @@
+<%@ language = "JavaScript" %>
+<% /*
+     $Revision$
+     $Id$
+
+     File:              api_bes_soap.asp
+     Description:       API voor bes-soap berichten (bestelAANVRAGEN)
+                        Interpreteert bericht zodanig dat een bestelaanvraag wordt aangemaakt/aangepast.
+
+     Parameters:        Een xml
+     Status:            Eerste implementatie in kader FSN#26296 (tbv Corsa/BCT)
+     Context:
+     Notes:
+*/
+    DOCTYPE_Disable = 1;
+    THIS_FILE = "appl/api/api_bessoap.asp";
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="../Shared/xml_converter.inc" -->
+<!-- #include file="../Shared/save2db.inc" -->
+<!-- #include file="../Shared/flexfiles.inc" -->
+<!-- #include file="../Shared/upload.inc" -->
+<!-- #include file="../api/api.inc" -->
+<!-- #include file="../shared/kpl_ksrt_validate.inc" -->
+<!-- #include file="../bes/bes.inc" -->
+<%
+    // We sturen het antwoord in UTF-8.
+    Session.Codepage = 65001;
+    Response.Charset = 'utf-8';
+
+    var APIname = getQParam("API");
+    var APIKEY = getQParam("APIKEY");
+    var API = new API_func(APIname, APIKEY);
+    var tsql = "-";        // Voor tijdelijke statement(s)
+    var sql = "-";         // De uiteindelijke insert/update-sql
+    var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
+    if (API.apidata.stylesheet)
+    {
+        var iXsl = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        if( ! iXsl.load(Server.MapPath(API.apidata.stylesheet)) )
+        {
+            API.error("Could not load XSL " + API.apidata.stylesheet + "\n" + iXsl.parseError.reason);
+        }
+        var inputXML = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        inputXML.load(Request);
+        inputXML.transformNodeToObject(iXsl, xmlReq);
+    }
+    else
+        xmlReq.load(Request);
+
+    var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
+    xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))
+
+    // The response.
+    var FCLTElement = xmlResp.createElement("facilitor");
+    // The response header.
+    var now = new Date();
+    var nowtxt = now.getFullYear()+'-'+padout(now.getMonth()+1) +'-'+padout(now.getDate()) +' '
+                           +padout(now.getHours()) +':'+padout(now.getMinutes())+':'+padout(now.getSeconds());
+    var FCLTHeader = xmlResp.createElement("header");
+    var headerinfo = {
+//                      file: String(Request.ServerVariables("SCRIPT_NAME")).toLowerCase(),
+                      datum: nowtxt,
+                      naam: user.naam(),
+                      custId: customerId,
+                      language: user.lang()
+                     }
+    for (param in headerinfo)
+    {
+        var FCLTdata = xmlResp.createElement(param);
+        FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
+        FCLTHeader.appendChild(FCLTdata);
+    }
+    FCLTElement.appendChild(FCLTHeader);
+
+   // Hier zou het echte werk moeten gebeuren nav. xmlReq
+   // en FCLTElement moeten we uitbreiden met antwoorden.
+   var detected ="?";
+//   xmlReq.setProperty("SelectionLanguage", "XPath");   // Weet niet of noodzakelijk
+
+   // Dit is de bestellingenloop (mochten er ooit nog anderen gaan volgen).
+   var bestellingen = xmlReq.getElementsByTagName("bestelling");
+   for (i=0; i < bestellingen.length; i++)
+   {
+      var resultcode = -1;   /* Zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed). */
+      var resulttekst = "";
+      
+      // Lees per node de (optionele) tags en waarden.
+      var fields = []; // Bij te werken velden.
+      var besid         = bestellingen[i].getAttribute("key"); // Bij type=update/delete
+      var besaction     = bestellingen[i].getAttribute("type").toLowerCase();
+      var nwStatus      = XMLval(bestellingen[i], "status");
+      
+      if (besid == null) { // Voorkom problemen als key-attribuut ontbreekt!
+       besid = '';
+      }
+      var bestelling_key   = parseInt(besid, 10); // En anders bepaald bij insert!
+      
+      user.checkAutorisation("WEB_BESUSE"); // Dit is nog ongeacht de reservering
+      
+      if (besaction == 'insert') {
+         resultcode = 999;
+         resulttekst = "Insert unsupported";
+      }
+      else if (besaction == 'update')
+      {
+         if (besid == '') {
+            resultcode = 2;
+            resulttekst = "Undefined bestelling (key)";
+         }
+         else if (isNaN (bestelling_key)) {
+            resultcode = 2;
+            resulttekst = "Invalid bestelling (key) "+besid;
+         }
+         else {
+            tsql = "SELECT bes_bestelling_key"
+                 + "  FROM bes_bestelling"
+                 + " WHERE bes_bestelling_key="+bestelling_key
+                 + "   AND 1=1"; // Niet verwijderd, ...???
+            var toRs = Oracle.Execute(tsql);
+            if (!toRs.eof) {
+               // Hier heb ik een geldige bes_bestelling_key.
+               bes_bestelling_key = toRs("bes_bestelling_key").value;
+
+               var bes_info = bes.bestelling_info(bes_bestelling_key); // Globale variabele met alle bes_bestelling informatie
+          	   var this_bes = bes.func_enabled_bestelling(bes_info); // Wat heb ik zoal aan rechten op deze specifieke reservering
+          	   if(!this_bes.canChange) {
+                  resultcode = 9;
+                  resulttekst = "Niet geautoriseerd voor bestelling "+besid;
+               }
+               else {
+             	   if (nwStatus != null) { // Bij update optioneel
+                     // statusdiagram afdwingen:
+                     // * BESFIT alleen vanuit status 2
+                     // * BESREJ alleen vanuit status 2 en 3
+                     sql = "SELECT bes_bestelling_status"
+                         + "  FROM bes_bestelling"
+                         + " WHERE bes_bestelling_key="+bestelling_key;
+                     var oRs = Oracle.Execute(sql);
+                     if (!oRs.eof) {
+                        curStatus = oRs("bes_bestelling_status").value;
+                        
+                        // Feitelijke UPDATE status.
+                        // BESFIT: alleen vanuit status 2
+                        if (nwStatus == "BESFIT") {
+                           if (curStatus == 2) {
+                              bes.setbestellingstatus(bes_bestelling_key, 3);  // Gefiatteerd
+                              sql = "SELECT bes_bestelling_status"
+                                  + "  FROM bes_bestelling"
+                                  + " WHERE bes_bestelling_key="+bestelling_key;
+                              var oRs = Oracle.Execute(sql);
+                              if (!oRs.eof) {
+                                 var bes_status = oRs("bes_bestelling_status").value;
+                                 if (bes_status == 3) {
+                                    resulttekst = "Bestelling "+bes_bestelling_key+" gefiatteerd";
+                                    resultcode = 0;
+                                 }
+                                 else {
+                                    resulttekst = "Bestelling "+bes_bestelling_key+" niet gefiatteerd";
+                                    resultcode = 308;
+                                 }
+                              }
+                              else {
+                                 resulttekst = "Fout bij ophalen nieuwe status";
+                                 resultcode = 307;
+                              }
+                           }
+                           else if (curStatus == 3) {
+                              resulttekst = "Bestelling "+bes_bestelling_key+" is al gefiatteerd";
+                              resultcode = 306;
+                           }
+                           else {
+                              resulttekst = "Kan niet fiatteren; ongeldige beginstatus";
+                              resultcode = 305;
+                           }
+                        }
+                        // BESREJ: alleen vanuit status 2 en 3
+                        else if (nwStatus == "BESREJ") {
+                           if (curStatus == 2 || curStatus == 3) {
+                              bes.setbestellingstatus(bes_bestelling_key, 1);  // Afgewezen
+                              sql = "SELECT bes_bestelling_status"
+                                  + "  FROM bes_bestelling"
+                                  + " WHERE bes_bestelling_key="+bestelling_key;
+                              var oRs = Oracle.Execute(sql);
+                              if (!oRs.eof) {
+                                 var bes_status = oRs("bes_bestelling_status").value;
+                                 if (bes_status == 1) {
+                                    resulttekst = "Bestelling "+bes_bestelling_key+" afgewezen";
+                                    resultcode = 0;
+                                 } else {
+                                    resulttekst = "Bestelling "+bes_bestelling_key+" niet afgewezen";
+                                    resultcode = 108;
+                                 }
+                              } else {
+                                 resulttekst = "Fout bij ophalen nieuwe status";
+                                 resultcode = 107;
+                              }
+                           }
+                           else if (curStatus == 1) {
+                              resulttekst = "Bestelling "+bes_bestelling_key+" is al afgewezen";
+                              resultcode = 106;
+                           }
+                           else {
+                              resulttekst = "Kan niet afwijzen; ongeldige beginstatus";
+                              resultcode = 105;
+                           }
+                        }
+                        else {
+                           resultcode = 3;
+                           resulttekst = "Ongeldige status "+nwStatus;
+                        }
+                        
+                     } else {
+                        resultcode = 4;
+                        resulttekst = "Ongedefinieerde huidige status";
+                     }
+                  } // nwStatus != null
+      
+                  if (resultcode == -1) { // nog steeds geen fouten
+                     resultcode = 0; // Ik heb gedaan wat ik moest en mocht doen voor deze bestelling.
+                  }
+               }
+////////////////////////////////////////////////////////////////////////////////
+          	} else {
+              resultcode = 5;
+              resulttekst = "Not updatable bestelling "+besid;
+          	}
+          	toRs.Close();
+          }
+      }
+      else if (besaction == 'delete')
+      {
+         resultcode = 999;
+         resulttekst = "Delete unsupported";
+      }
+      else {
+         resultcode = 2;
+         resulttekst = "Undefined operation (type)";
+      }
+
+      var binfo = {
+                  returncode: resultcode,
+                  returntekst: resulttekst,
+                  // executed:sql, // debug
+                  datum: nowtxt, // TODO: Beter ook xml-datum???
+                  besid: besid
+                  }
+      
+      var FCLTBody = xmlResp.createElement("bestelling");   // type=response
+      FCLTBody.setAttribute('key', besid);
+      FCLTBody.setAttribute('type', 'response');
+      for (param in binfo)
+      {
+         var FCLTdata = xmlResp.createElement(param);
+         FCLTdata.appendChild(xmlResp.createTextNode(binfo[param]));
+         FCLTBody.appendChild(FCLTdata);
+      }
+
+      FCLTElement.appendChild(FCLTBody);
+   } // end for
+   // Alle bestelling-nodes zijn behandeld.
+
+   xmlResp.appendChild(FCLTElement);
+
+   //__DoLog("Ik gebruik stylesheet '"+API.apidata.stylesheet+"'");
+   if (API.apidata.stylesheet)
+   {
+      var outputXML = Server.CreateObject("MSXML2.DOMDocument.4.0");
+      xmlResp.transformNodeToObject(iXsl, outputXML);
+      Response.ContentType = "text/xml";
+      Response.Write(outputXML.xml)
+   }
+   else
+   {
+      Response.ContentType = "text/xml";
+      Response.Write(xmlResp.xml)
+   }
+%>

APPL/API/api_bezsoap.asp

@@ -10,20 +10,285 @@
      Status:
      Context:
      Notes:
+                        Onderstaand het voorstel van RWSN/MOOP. Wij doen XML ipv JSON, daar moet getransformeerd worden
+
+        (2) Versturen van de bezoekersregistraties
+        Voor het versturen van de registraties stel ik voor om een HTTP-POST service te maken, deze is bijvoorbeeld te bereiken op ~/visitations
+        In de request header geef ik de Api Key mee:
+          Api-Key: 'te_bepalen_door_facilitor'
+        In de body stel ik voor <20><>n key-value pair mee te geven met de naam jsonData waarin de hele json van de bezoekersregistratie in verwerkt zit:
+        json_data={
+          "start":"Fri, 03 Aug 2012 10:09:39 +0200", //begindatum in RFC2822 formaat
+          "end":"HH:MM",
+          "host_id":2934, //id van de ingelogde gebruiker
+          "building_id":4712, //id van gekozen locatie
+          "visitors":
+            [
+              {
+                "name":"Pietje Puk",
+                "company":"RUG"
+              },
+              {
+                "name":"Jan Janssen",
+                "company":"Achmea"
+              },
+              {...}
+            ]
+        }
+        Bij een juiste verwerking wordt http status code 201 teruggegeven met enkel een succes json:
+        {
+          "success":true,
+        }
+
+        Anders een 4xx of 5xx code met daarin een json geformatteerde fout:
+        {
+          "success":false,
+          "errors":
+            [
+              {
+                "description":"start is not a valied RFC2822 format"
+              },
+              {
+                "description":"building_id cannot be null"
+              },
+              {...}
+            ]
+        }
+
 */
-    DOCTYPE_Disable = 1;
-    THIS_FILE = "appl/api/api_bezsoap.asp";
+DOCTYPE_Disable = 1;
+THIS_FILE = "appl/api/api_bezsoap.asp";
 %>
+
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/xml_converter.inc" -->
 <!-- #include file="../Shared/save2db.inc" -->
 <!-- #include file="../api/api.inc" -->
-<%
-    // We sturen het antwoord in UTF-8.
-    Session.Codepage = 65001;
-    Response.Charset = 'utf-8';
 
-    var APIname = getQParam("API");
-    var APIKEY = getQParam("APIKEY");
-    var API = new API_func(APIname, APIKEY);
+<%
+// We sturen het antwoord in UTF-8.
+Session.Codepage = 65001;
+Response.Charset = 'utf-8';
+
+var APIname = getQParam("API");
+var APIKEY = getQParam("APIKEY");
+var API = new API_func(APIname, APIKEY);
+
+// XML Omzetten naar equivalente JSON
+// var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
+// xmlReq.load(Request);
+
+// The response.
+var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
+xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))
+
+var FCLTElement = xmlResp.createElement("facilitor");
+// The response header.
+var now = new Date();
+var nowtxt = now.getFullYear() + '-' + padout(now.getMonth() + 1) + '-' + padout(now.getDate()) + ' '
+           + padout(now.getHours()) + ':' + padout(now.getMinutes()) + ':' + padout(now.getSeconds());
+var elmHeader = xmlResp.createElement("header");
+var headerinfo = {datum: nowtxt,
+                  naam: user.naam(),
+                  custId: customerId,
+                  language: user.lang()
+                 }
+
+for (param in headerinfo)
+{
+  var FCLTdata = xmlResp.createElement(param);
+  FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
+  elmHeader.appendChild(FCLTdata);
+}
+FCLTElement.appendChild(elmHeader);
+
+// Hier zou het echte werk moeten gebeuren nav. xmlReq
+// en FCLTElement moeten we uitbreiden met antwoorden.
+
+//var afspraken = xmlReq.getElementsByTagName("afspraak");
+
+user.checkAutorisation("WEB_BEZUSE"); // Dit is nog ongeacht de bestelling
+
+var resultcode = -1;   /* Zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed). */
+var resulttekst = "";
+var json_txt = Request.Form;
+var json_data = eval("(" + json_txt + ")");
+
+
+SaveOneAfspraak(json_data); // The one and only
+
+// TODO: onderstaande code moet een generieke bez.afspraak_create (of afspraak_save) worden
+//       en ook gebruikt worden door bez_edit_afspraak_save.asp. Zo ver zijn we nog niet...
+
+function SaveOneAfspraak(json_data)
+{
+  var afspr_key;
+  var bez_actie;
+  var alg_locatie_key;
+  var alg_onrg_key;
+  var date_to;
+  var date_from = new Date(json_data.start);
+  if (json_data.start == "undefined" || typeof date_from != "object" || isNaN(date_from))
+  {
+    resultcode = 2;
+    resulttekst = "Undefined aankomst datum";
+  }
+  else
+  {
+    date_to = date_from;
+    date_to = new Date(date_from.getTime());
+
+    var time_end = json_data.end;
+    if (json_data.time_end != "undefined" && typeof time_end == "string")
+      var time_end = time_end.split(":");
+    date_to.setHours(time_end[0], time_end[1]);
+
+    if (time_end.length != 2 || typeof date_to != "object" || isNaN(date_to))
+    {
+      resultcode = 2;
+      resulttekst = "Undefined vertrek tijd";
+    }
+    else if (date_to < date_from)
+    {
+      resultcode = 2;
+      resulttekst = "Vertrek tijd voor aankomst tijd";
+    }
+    else
+    {
+      // Standaard actie voor mobile: Opbellen en op laten halen.
+      var sql = " SELECT bez_actie_key FROM bez_actie WHERE bez_actie_omschrijving LIKE 'Op laten halen (bellen)'"
+      var oRs = Oracle.Execute(sql);
+      bez_actie = oRs("bez_actie_key").Value;
+
+      var alg_gebouw_key = json_data.building_id;
+      if (!alg_gebouw_key || alg_gebouw_key < 0)
+      {
+        resultcode = 2;
+        resulttekst = "Undefined alg_gebouw_key";
+      }
+      else if (S("vis_afspraak_onrgoed_uses_keys") == 0)
+      {
+        sql = "SELECT SUBSTR (alg_plaatsaanduiding, 1, 30) plaats"
+            + "  FROM alg_v_plaatsaanduiding_all"
+            + " WHERE alg_onroerendgoed_keys = " + alg_gebouw_key
+            + "   AND alg_onroerendgoed_type <> 'L'";
+        if (!oRs.eof)
+          var plaats = oRs("plaats").Value;
+        else
+        {
+          resultcode = 5;
+          resulttekst = "Building_id not found";
+        }
+      }
+      else
+      {
+        sql = "SELECT alg_locatie_key FROM alg_gebouw WHERE alg_gebouw_key = " + alg_gebouw_key;
+        oRs = Oracle.Execute(sql);
+        alg_locatie_key = oRs("alg_locatie_key").Value;
+
+        if (!alg_locatie_key || alg_locatie_key < 0)
+        {
+          resultcode = 2;
+          resulttekst = "Undefined alg_locatie_key";
+        }
+        else
+        {
+          var fields = []; // Bij te werken velden.
+          // Altijd nieuwe afspraak vooralsnog
+          fields.push({ dbs: "bez_afspraak_key", typ: "key", seq: "bez_s_bez_afspraak_key" });
+          fields.push({ dbs: "bez_afspraak_opmerking",      typ: "varchar", val: "Created by mobile", len: 320 });
+
+          // Deze velden altijd opslaan (geen bez_afspraak_telefoonnr)
+          var fields =  [ { dbs: "prs_perslid_key",          typ: "key",      val: user_key         /* invoerder, notrack */ },
+                          { dbs: "bez_afspraak_datum",       typ: "datetime", val: date_from,       track: L("lcl_vis_start_date") },
+                          { dbs: "bez_actie_key",            typ: "key",      val: bez_actie,       track: L("lcl_action"), foreign: "bez_actie" },
+                          { dbs: "bez_afspraak_eind",        typ: "datetime", val: date_to,         track: L("lcl_vis_end_date") },
+                          { dbs: "alg_locatie_key",          typ: "key",      val: alg_locatie_key, track: true /* afzonderlijke tracking, wel oldjsval */ },
+                          { dbs: "bez_afspraak_contact_key", typ: "key",      val: user_key,        track: L("lcl_vis_contactperson"), foreign: "prs_perslid" }
+                        ];
+
+          if (S("vis_afspraak_host_uses_keys") == 0)
+            fields.push({ dbs: "bez_afspraak_gastheer", typ: "varchar", val: user.naam(),  track: L("lcl_vis_visit") });
+          else
+            fields.push({ dbs: "bez_afspraak_host_key", typ: "key",     val: user_key,     track: L("lcl_vis_visit"), foreign: "prs_perslid" });
+
+          if (S("vis_afspraak_onrgoed_uses_keys") == 0)
+          {
+            fields.push({ dbs: "bez_afspraak_ruimte",   typ: "varchar", val: plaats,       track: true /* afzonderlijke tracking, wel oldjsval */ });
+          }
+          else
+          {
+            alg_onrg_key = alg_gebouw_key; // Building_id is meegegeven
+            fields.push({ dbs: "alg_onrgoed_keys",      typ: "key",     val: alg_onrg_key, track: true /* afzonderlijke tracking, wel oldjsval */ });
+          }
+
+          fields.push({  dbs: "bez_afspraak_key",     typ: "key",      seq: "bez_s_bez_afspraak_key" });
+
+          var bezIns = buildInsert("bez_afspraak", fields, { noValidateToken: true });
+          afspr_key = bezIns.sequences["bez_afspraak_key"];
+          Oracle.Execute(bezIns.sql);
+
+          for (var i = 0; i < json_data.visitors.length; i++)
+          {
+            var visitor_data = json_data.visitors[i];
+            var naam = visitor_data.name;
+            var bedrijf = visitor_data.company;
+
+            // Geen prs_contactpersoon_key, prs_perslid_key en bez_bezoekers_pasnr
+            var bezfields = [ { dbs: "bez_afspraak_key",       typ: "key",     val: afspr_key },
+                              { dbs: "bez_afspraak_naam",      typ: "varchar", val: naam,     track: L("lcl_vis_name"), len: 30 },
+                              { dbs: "bez_afspraak_bedrijf",   typ: "varchar", val: bedrijf,  track: L("lcl_vis_company") + (S("bez_sel_internpersoon") == 1? "/" + L("lcl_department") : ""), len: 60 }
+                            ];
+
+            bezfields.push({ dbs: "bez_bezoekers_key",      typ: "key",     seq: "bez_s_bez_bezoekers_key" });
+            // Niet door BO aangemeld. Niet direct 'in' boeken.
+
+            var bezIns = buildInsert("bez_bezoekers", bezfields, { noValidateToken: true });
+            var bez_key = bezIns.sequences["bez_bezoekers_key"];
+            Oracle.Execute(bezIns.sql);
+            //var bezUpd = {trackarray: [L("lcl_bez_is_bezadd") + ": " + naam + "/" + bedrijf]};
+          }
+          shared.trackaction("BEZMUT", afspr_key);
+        }
+      }
+    }
+  }
+
+  if (resultcode == -1) // nog steeds geen fouten
+    resultcode = 0; // Ik heb gedaan wat ik moest en mocht doen voor deze reservering.
+
+  var ainfo = {returncode: resultcode,
+               returntekst: resulttekst,
+               // executed:sql, // debug
+               user_key: user_key,
+               afspr_key: afspr_key,
+               bez_afspraak_datum: date_from, // TODO: Beter ook xml-datum???
+               bez_afspraak_eind: date_to,
+               bez_actie_key: bez_actie,
+               alg_locatie_key: alg_locatie_key,
+               alg_onrgoed_keys: alg_onrg_key
+              }
+
+  if (S("vis_afspraak_host_uses_keys") == 0)
+    ainfo.gastheer = user.naam();
+  else
+    ainfo.host_key = user_key;
+
+  var FCLTBody = xmlResp.createElement("afspraak");   // type=response
+  FCLTBody.setAttribute('key', afspr_key);
+  FCLTBody.setAttribute('type', 'response');
+  for (param in ainfo)
+  {
+      var FCLTdata = xmlResp.createElement(param);
+      FCLTdata.appendChild(xmlResp.createTextNode(ainfo[param]));
+      FCLTBody.appendChild(FCLTdata);
+  }
+
+  FCLTElement.appendChild(FCLTBody);
+}
+
+xmlResp.appendChild(FCLTElement);
+
+Response.ContentType = "text/xml";
+Response.Write(xmlResp.xml)
 %>

APPL/API/api_cntsoap.asp

@@ -44,7 +44,7 @@
     var now = new Date();
     var nowtxt = now.getFullYear()+'-'+padout(now.getMonth()+1) +'-'+padout(now.getDate()) +' '
                            +padout(now.getHours()) +':'+padout(now.getMinutes())+':'+padout(now.getSeconds());
-    var FCLTHeader = xmlResp.createElement("header");
+    var elmHeader = xmlResp.createElement("header");
     var headerinfo = {
 //                      file: String(Request.ServerVariables("SCRIPT_NAME")).toLowerCase(),
                       datum: nowtxt,
@@ -56,32 +56,9 @@
     {
         var FCLTdata = xmlResp.createElement(param);
         FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
-        FCLTHeader.appendChild(FCLTdata);
-    }
-    FCLTElement.appendChild(FCLTHeader);
-
-    // Luie oplossing: Oracle kan dit simpeler dan JavaScript.
-    function XMLtoJsDate(xmlDate)
-    {
-        var sql = "SELECT TO_DATE("+safe.quoted_sql(xmlDate)+", 'YYYY-MM-DD HH24:MI:SS') FROM DUAL";
-        var oRs = Oracle.Execute(sql);
-        var dt = new Date(oRs(0).Value);
-        oRs.Close();
-        return dt;
-    }
-
-    function XMLval(xml, tag)
-    {
-        if (!xml)
-            return null;
-        var xx = xml.getElementsByTagName(tag);
-        if (!xx || !xx.length)
-            return null;
-        xx = xx[0].childNodes
-        if (!xx || !xx.length)
-            return null;
-        return xx[0].nodeValue;
+        elmHeader.appendChild(FCLTdata);
     }
+    FCLTElement.appendChild(elmHeader);
 
     // Hier zou het echte werk moeten gebeuren nav. xmlReq
     // en FCLTElement moeten we uitbreiden met antwoorden.
@@ -152,7 +129,7 @@
                     if (resultcode == -1) { // Nog steeds geen fouten.
                         if (fields.length > 0) {
                             // Construct/uitvoeren update.
-                            var cntUpd = buildTrackingUpdate("cnt_contract", "cnt_contract_key = " + cnt_key, fields);
+                            var cntUpd = buildTrackingUpdate("cnt_contract", "cnt_contract_key = " + cnt_key, fields, { noValidateToken: true });
                             oRs = Oracle.Execute(cntUpd.sql);
 
                             // Tot slot nog de tracking toevoegen.

APPL/API/api_inssoap.asp

@@ -7,16 +7,29 @@
      Description:       API voor INS-soap berichten
 
      Parameters:        Een xml
-     Status:
+     Status:            Opzet. Vereist bevestiging van SOAP-aanroepers en dan afmaken
      Context:
      Notes:
+
+     Wat is het idee momenteel? Deze service is vooralsnog voor sensoren.
+     De bedoeling is dat een sensor (een ins_deel) bij het relevant veranderen van de status
+     een aanroep doet, met in essentie
+     - id (key en/of omschrijving)
+     - (nieuwe) waarde => alfanumeriek
+     - (nieuwe) status => INSOUT/INSINN
+     - optioneel: tijdstip
+     De waarde wordt in ins_deel_state opgeslagen. Dat is het, maar daarop wordt elders
+     indien de sensor in een reserveerbare ruimte zit gekeken of er een reservering
+     bezig is/zou moeten zijn, en dan wordt daarop geacteerd, in de hoek van
+     noshow en zo.
+     Het meegegeven tijdstip kan worden gebruikt ipv sysdate om vertragingen te corrigeren..
 */
     DOCTYPE_Disable = 1;
     THIS_FILE = "appl/api/api_inssoap.asp";
 %>
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/xml_converter.inc" -->
-<!-- #include file="../Shared/save2db.inc" -->
+<!-- #include file="../Shared/json2.js" -->
 <!-- #include file="../api/api.inc" -->
 <%
     // We sturen het antwoord in UTF-8.
@@ -26,4 +39,237 @@
     var APIname = getQParam("API");
     var APIKEY = getQParam("APIKEY");
     var API = new API_func(APIname, APIKEY);
-%>
+
+    var asJSON = getQParam("json","0")!="0";
+
+    var tsql = "-";        // Voor tijdelijke statement(s)
+    var sql = "-";         // De uiteindelijke insert/update-sql
+    var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
+    if (API.apidata.stylesheet)
+    {
+        var iXsl = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        if( ! iXsl.load(Server.MapPath(API.apidata.stylesheet)) )
+        {
+            API.error("Could not load XSL " + API.apidata.stylesheet + "\n" + iXsl.parseError.reason);
+        }
+        var inputXML = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        inputXML.load(Request);
+        inputXML.transformNodeToObject(iXsl, xmlReq);
+    }
+    else
+        xmlReq.load(Request);
+
+    if (API.apidata.loglevel) __Log2File(xmlReq.xml, APIname + "_TUSSEN");
+
+    var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
+    xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))
+
+    // The response.
+    var FCLTElement = xmlResp.createElement("facilitor");
+    // The response header.
+    var now = new Date();
+    var nowtxt = now.getFullYear()+'-'+padout(now.getMonth()+1) +'-'+padout(now.getDate()) +' '
+                           +padout(now.getHours()) +':'+padout(now.getMinutes())+':'+padout(now.getSeconds());
+    var elmHeader = xmlResp.createElement("header");
+    var headerinfo = {
+//                      file: String(Request.ServerVariables("SCRIPT_NAME")).toLowerCase(),
+                      datum: nowtxt,
+                      naam: user.naam(),
+                      custId: customerId,
+                      language: user.lang()
+                     }
+    for (param in headerinfo)
+    {
+        var FCLTdata = xmlResp.createElement(param);
+        FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
+        elmHeader.appendChild(FCLTdata);
+    }
+    //FCLTElement.appendChild(elmHeader);
+
+    // Hier zou het echte werk moeten gebeuren nav. xmlReq
+    // en FCLTElement moeten we uitbreiden met antwoorden.
+    var detected ="?";
+
+    // Dit is de objecteenloop (mochten er ooit nog anderen gaan volgen).
+    var delen = xmlReq.getElementsByTagName("deel");
+    for (i=0; i < delen.length; i++)
+    {
+        var resultcode = -1;   /* Zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed). */
+        var resulttekst = "";
+
+        // Lees per node de (optionele) tags en waarden.
+        var fields = []; // Bij te werken velden.
+        var deel_key          = delen[i].getAttribute("key"); // Bij type=update/delete
+        var insaction         = delen[i].getAttribute("type").toLowerCase();
+        var deel_omschrijving = XMLval(delen[i], "omschrijving"); // soort van foreign ID
+        var tijd              = XMLval(delen[i], "tijd");
+        var waarde            = XMLval(delen[i], "waarde");
+        var outinn            = XMLval(delen[i], "status");
+
+        if (deel_key == null) { // Voorkom problemen als key-attribuut ontbreekt!
+          deel_key = '';
+        }
+
+        user.checkAutorisation("WEB_INSUSE");
+
+        if (insaction == 'update')   // of specifiek signal?
+        {
+          if (deel_key == '' && deel_omschrijving == '') {
+            resultcode = 2;
+            resulttekst = "Undefined object (key/omschrijving)";
+          }
+          else {
+            // Waar hoort-ie bij?
+            tsql = "SELECT MAX(ins_deel_key) deel_key, MAX(ins_deel_omschrijving) deel_oms, MAX(ins_deel_state) cur_state, MAX(ins_alg_ruimte_key_org) org_place, COUNT (*) aantal"
+                + "   FROM ins_deel"
+                + "  WHERE ins_deel_verwijder IS NULL"
+                + (deel_key
+                   ? " AND ins_deel_key=" + safe.quoted_sql(deel_key)
+                   : "")
+                + (deel_omschrijving
+                   ? " AND ins_deel_upper = " + safe.quoted_sql(deel_omschrijving.toUpperCase())
+                   : "");
+            var oRs = Oracle.Execute(tsql);
+            var aantal = oRs("aantal").value;
+            if (aantal == 0) {
+              resultcode = 2;
+              resulttekst = "Invalid object (key/omschrijving)";
+            }
+            else if (aantal > 1) {
+              resultcode = 3;
+              resulttekst = "Object cannot be identified uniquely";
+            }
+            else {
+              // Hier heb ik een geldige deel_key.
+              deel_key = oRs("deel_key").value;
+              var deel_oms = oRs("deel_oms").value;
+              var cur_state = oRs("cur_state").value;
+              var org_place = oRs("org_place").value;
+              //var old_statedate = new Date(oRs("deel_statedate").Value);
+
+          	  //var this_res = res.func_enabled(rsv_ruimte_key); // Wat heb ik zoal aan rechten op dit object
+          	  //user.auth_required_or_abort(this_res.canChange);
+
+              // Meegegeven meetdatumtijd of anders now als laatste teken van leven!
+              //if (tijd != null) { // Bij update optioneel
+              //  try {
+              //    var new_statedate = XMLtoJsDate(tijd);
+              //  }
+              //  catch (e) {
+              //    // Verkeerde datum-formaat, dan now gebruiken!
+              //    __DoLog("Formaat ontvangen XML-datum incorrect: "+tijd, "#00FF00");
+              //    new_statedate = now;
+              //  }
+              //} else {
+              //  var new_statedate = now;
+              //}
+
+              if (waarde) {
+                // Alleen bij wijziging!
+                if (waarde != cur_state) {
+                  // te kiezen: moet de datum altijd aangepast worden (als laatste teken van leven) of
+                  // juist niet (als recentste moment van verandering)
+                  // veilig kan zijn dit met een waarde in het bericht te sturen, maar ik wil wel graag
+                  // dat wij een beste default gekozen hebben: wat is logisch?
+                  sql = "UPDATE ins_deel"
+                      + "   SET ins_deel_state=" + safe.quoted_sql(waarde)
+                      + "     , ins_deel_statedate=SYSDATE" // TODO: de meegegeven meetdatumtijd nemen
+                      + " WHERE ins_deel_key=" + deel_key;
+                  Oracle.Execute(sql);
+                  // FSN#28896: state-changes worden automatisch getrackt in ins_deel_state_history; geen updtracking meer
+                  //shared.trackaction("INSUPD", deel_key, L("lcl_deel_state")+" "+safe.quoted_sql(waarde));
+                }
+              }
+              else { // outinn != ''
+                // Er zou dus een status moet zijn meegegeven.
+                switch (outinn) {
+                    case 'INSOUT':
+                        // Alleen bij wijziging; object was ingenomen en wordt uitgegeven!
+                        if (!org_place) {
+                            sql = "UPDATE ins_deel "
+                                + " SET ins_alg_ruimte_key_org=ins_alg_ruimte_key"
+                                + "   , ins_alg_ruimte_type_org=ins_alg_ruimte_type"
+                                + "   , ins_alg_ruimte_key=" + user_key
+                                + "   , ins_alg_ruimte_type='P'"
+                                + " WHERE ins_deel_key=" + deel_key;
+                            Oracle.Execute(sql);
+
+                            // Object [Fiets 1] is uitgegeven aan [Pseudo-user tbv. XXX-API]
+                            shared.trackaction("INSOUT", deel_key, L("lcl_obj_is_uitgegeven_to").format(user.naam(), deel_oms));
+                        }
+                        break;
+                    case 'INSINN':
+                        // Alleen bij wijziging; object was uitgegeven en wordt ingenomen!
+                        if (org_place) {
+                            sql = "UPDATE ins_deel "
+                                + " SET ins_alg_ruimte_key=ins_alg_ruimte_key_org"
+                                + "   , ins_alg_ruimte_type=ins_alg_ruimte_type_org"
+                                + "   , ins_alg_ruimte_key_org=NULL"
+                                + "   , ins_alg_ruimte_type_org=NULL"
+                                + " WHERE ins_deel_key=" + deel_key;
+                            Oracle.Execute(sql);
+
+                            // Object is ingenomen
+                            shared.trackaction("INSINN", deel_key, L("lcl_obj_is_ingenomen"));
+                        }
+                        break;
+                    default:
+                        resultcode = 4;
+                        resulttekst = "Invalid waarde/status";
+                } // switch
+              }
+
+              if (resultcode == -1) { // nog steeds geen fouten
+                resultcode = 0; // Ik heb gedaan wat ik moest en mocht doen voor dit object.
+              }
+            } // if aantal
+            oRs.Close();
+          } // if deel_key
+        }
+        else {
+          resultcode = 2;
+          resulttekst = "Undefined operation (type)";
+        } // if insaction
+
+        var binfo = {
+                     returncode: resultcode,
+                     returntekst: resulttekst,
+                     // executed:sql, // debug
+                     datum: nowtxt, // TODO: Beter ook xml-datum??? Of de teruggequeriede datumtijd?
+                     deel_key: deel_key
+                    }
+
+        var FCLTBody = xmlResp.createElement("deel");   // type=response
+        FCLTBody.setAttribute('key', deel_key);
+        FCLTBody.setAttribute('type', 'response');
+        for (param in binfo)
+        {
+            var FCLTdata = xmlResp.createElement(param);
+            FCLTdata.appendChild(xmlResp.createTextNode(binfo[param]));
+            FCLTBody.appendChild(FCLTdata);
+        }
+
+        FCLTElement.appendChild(FCLTBody);
+    } // end for
+    // Alle deel-nodes zijn behandeld.
+
+    xmlResp.appendChild(FCLTElement);
+
+    if (API.apidata.stylesheet)
+    {
+        // Niet super efficient dat we eerst naar tekstuele xml gaan maar ach...
+        STR2Stream(xmlResp.xml, API.apidata.stylesheet, Response, {});
+    }
+    else
+    {
+        if (asJSON)
+            Response.ContentType = "application/json";
+        else
+            Response.ContentType = "text/xml";
+
+        if (asJSON)
+            var antwoord = JSON.stringify(xmlToJson(xmlResp), null, getQParam("pretty","0")=="1"?2:0);
+        else
+            var antwoord = xmlResp.xml;
+    }
+%>

APPL/API/api_mldsoap.asp

@@ -19,6 +19,8 @@
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/xml_converter.inc" -->
 <!-- #include file="../Shared/save2db.inc" -->
+<!-- #include file="../Shared/flexfiles.inc" -->
+<!-- #include file="../Shared/upload.inc" -->
 <!-- #include file="../api/api.inc" -->
 <!-- #include file="../mld/mld.inc" -->
 <%
@@ -33,8 +35,23 @@
     var sql = "-";         // De uiteindelijke insert/update-sql
     var resultcode = -1;   /* Zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed). */
     var resulttekst = "";
+    
     var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
-    xmlReq.load(Request);
+    if (API.apidata.stylesheet)
+    {
+        var iXsl = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        if( ! iXsl.load(Server.MapPath(API.apidata.stylesheet)) )
+        {
+            API.error("Could not load XSL " + API.apidata.stylesheet + "\n" + iXsl.parseError.reason);
+        }
+        var inputXML = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        inputXML.load(Request);
+        inputXML.transformNodeToObject(iXsl, xmlReq);
+    }
+    else
+        xmlReq.load(Request);
+
+    if (API.apidata.loglevel) __Log2File(xmlReq.xml, APIname + "_IN");
 
     var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
     xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))
@@ -45,7 +62,7 @@
     var now = new Date();
     var nowtxt = now.getFullYear()+'-'+padout(now.getMonth()+1) +'-'+padout(now.getDate()) +' '
                            +padout(now.getHours()) +':'+padout(now.getMinutes())+':'+padout(now.getSeconds());
-    var FCLTHeader = xmlResp.createElement("header");
+    var elmHeader = xmlResp.createElement("header");
     var headerinfo = {
 //                      file: String(Request.ServerVariables("SCRIPT_NAME")).toLowerCase(),
                       datum: nowtxt,
@@ -57,32 +74,9 @@
     {
         var FCLTdata = xmlResp.createElement(param);
         FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
-        FCLTHeader.appendChild(FCLTdata);
-    }
-    FCLTElement.appendChild(FCLTHeader);
-
-    // Luie oplossing: Oracle kan dit simpeler dan JavaScript.
-    function XMLtoJsDate(xmlDate)
-    {
-        var sql = "SELECT TO_DATE("+safe.quoted_sql(xmlDate)+", 'YYYY-MM-DD HH24:MI:SS') FROM DUAL";
-        var oRs = Oracle.Execute(sql);
-        var dt = new Date(oRs(0).Value);
-        oRs.Close();
-        return dt;
-    }
-
-    function XMLval(xml, tag)
-    {
-        if (!xml)
-            return null;
-        var xx = xml.getElementsByTagName(tag);
-        if (!xx || !xx.length)
-            return null;
-        xx = xx[0].childNodes
-        if (!xx || !xx.length)
-            return null;
-        return xx[0].nodeValue;
+        elmHeader.appendChild(FCLTdata);
     }
+    FCLTElement.appendChild(elmHeader);
 
     // Hier zou het echte werk moeten gebeuren nav. xmlReq
     // en FCLTElement moeten we uitbreiden met antwoorden.
@@ -98,6 +92,7 @@
         var ext_id        = meldingen[i].getAttribute("key");
         var meldaction    = meldingen[i].getAttribute("type").toLowerCase();
         var melddatum     = XMLval(meldingen[i], "datum");
+        var einddatum     = XMLval(meldingen[i], "einddatum");
         //var melderemail   = XMLval(meldingen[i], "melder");                   // Unsupported yet
         var stdmld_key    = parseInt(XMLval(meldingen[i], "stdmelding"), 10); // Numeriek
         var stdmld_sla    = -1;   // Normale uitvoertijd (prio door melder nog unsupported)
@@ -110,7 +105,8 @@
         var locatie_key   = -1;   // Bepaald op basis van meldloc
         var plaats_key    = -1;   // Bepaald op basis van meldgeb/meldver/meldrnr
         var meld_oms      = XMLval(meldingen[i], "omschrijving");
-        //var meldkenmerken = (meldingen[i].getElementsByTagName("kenmerk"))[0].childNodes[0].nodeValue; // Unsupported yet
+        //var mldkenmerken  = (meldingen[i].getElementsByTagName("kenmerk"))[0].childNodes[0].nodeValue; // Unsupported yet
+        var mldkenmerken  = meldingen[i].getElementsByTagName("kenmerk");
         var mld_key       = -1;   // Bepaald na insert
 
         user.checkAutorisation("WEB_MLDUSE"); // Dit is nog ongeacht de melding
@@ -142,13 +138,32 @@
                         fields.push({ dbs: "mld_melding_datum", typ: "datetime", val: meldaanmaakdate });
                     }
                     catch (e) {
-                        __DoLog("Formaat ontvangen XML-datum incorrect: "+ melddatum, "#00FF00");
                         // Verkeerde datum-formaat, volgens spec. dan now gebruiken!
-                        fields.push({ dbs: "mld_melding_datum", typ: "datetime", val: now });
+                        __DoLog("Formaat ontvangen XML-datum incorrect: "+ melddatum, "#00FF00");
+                        meldaanmaakdate = now;
+                        fields.push({ dbs: "mld_melding_datum", typ: "datetime", val: meldaanmaakdate });
                     }
                 } else {
                     fields.push({ dbs: "mld_melding_datum", typ: "datetime", val: now });
                 }
+                // De einddatum is de meegegeven einddatum, maar als die niet wordt meegegeven is het
+                // gewoon enddate_std en dat regelt de trigger wel, dus DAN MOET IK HEM NIET MEEGEVEN
+                if (einddatum != null) {
+                    try {
+                        var meldeinddate = XMLtoJsDate(einddatum);
+                        if (meldeinddate > meldaanmaakdate) {
+                            fields.push({ dbs: "mld_melding_einddatum", typ: "datetime", val: meldeinddate });
+                        }
+                        else {
+                            // Ontvangen XML-einddatum voor begindatum, dan later volgens SLA zetten!
+                            __DoLog("Ontvangen XML-einddatum voor begindatum: "+ einddatum, "#00FF00");
+                      	}
+                    }
+                    catch (e) {
+                        // Verkeerde datum-formaat, dan later volgens SLA zetten!
+                        __DoLog("Formaat ontvangen XML-einddatum incorrect: "+ einddatum, "#00FF00");
+                    }
+                }
 
                 tsql = "SELECT alg_locatie_key  "
                     + " FROM alg_v_aanweziglocatie"
@@ -205,17 +220,139 @@
                 // We weten wat te inserten, nu nog uitvoeren; rechten voldoende afgedekt via MLDUSE-check hierboven?
 
                 if (resultcode == -1) {  // nog steeds geen fouten
-                    var mldIns = buildInsert("mld_melding", fields);
+                    var mldIns = buildInsert("mld_melding", fields, { noValidateToken: true });
                     mld_key = mldIns.sequences["mld_melding_key"];
 
                     sql = mldIns.sql;
                     oRs = Oracle.Execute(sql);
 
-                    mld.freezeFields(mld_key); // dat kan nu
-
                     // Zetten van de status op ingevoerd en afhandelen van de tracking.
                     mld.setmeldingstatus(mld_key, 2); // Zorgt ook voor tracking & daarmee notificatie.
 
+                    // Eventuele (gewijzigde) objecten zijn nu ook opgeslagen. Nu kan de definitieve mld_melding.mld_melding_einddatum_std bepaald en gezet worden.
+                    //mld.updatestdeinddatum(mld_key); // Unsupported yet. So update of mld_melding_einddatum_std not needed yet.
+
+                    // De kenmerken.
+                    for (j=0; j < mldkenmerken.length; j++)
+                    {
+                      var kenmerk_naam = mldkenmerken[j].getAttribute("naam");
+                      if (mldkenmerken[j].childNodes.length > 0)
+                        var kenmerk_waarde = mldkenmerken[j].childNodes[0].nodeValue;
+                      else
+                        var kenmerk_waarde = "";
+                      //Response.Write(kenmerk_naam);
+                      //Response.Write(kenmerk_waarde);
+                      // Zoek het kenmerk op naam terug
+                      ksql = "SELECT k.mld_kenmerk_key, sk.mld_srtkenmerk_kenmerktype, sk.mld_srtkenmerk_lengte "
+                           + "  FROM mld_kenmerk k"
+                           + "     , mld_srtkenmerk sk"
+                           + "     , mld_stdmelding s"
+                           + "     , mld_discipline d"
+                           + " WHERE s.mld_ins_discipline_key = d.ins_discipline_key"
+                           + "   AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key "
+                           + "   AND sk.mld_srtkenmerk_upper = " + safe.quoted_sql_upper(kenmerk_naam)
+                           + "   AND s.mld_ins_discipline_key = d.ins_discipline_key"
+                           + "   AND s.mld_stdmelding_key = " + stdmld_key
+                           + "   AND ((k.mld_stdmelding_key = s.mld_stdmelding_key     AND k.mld_kenmerk_niveau = 'S')"
+                           + "     OR (k.mld_stdmelding_key = s.mld_ins_discipline_key AND k.mld_kenmerk_niveau = 'D')"
+                           + "     OR (k.mld_stdmelding_key = d.ins_srtdiscipline_key  AND k.mld_kenmerk_niveau = 'T'))";
+
+                      var oRs = Oracle.Execute(ksql);
+
+                      if (!oRs.eof)
+                      {
+                        var kenmerk_key = oRs("mld_kenmerk_key").value;
+                        var kenmerk_type = oRs("mld_srtkenmerk_kenmerktype").value;
+                        var kenmerk_lengte = oRs("mld_srtkenmerk_lengte").value;
+
+                        ksql = "SELECT km.mld_kenmerkmelding_key "
+                             + "  FROM mld_kenmerkmelding km "
+                             + " WHERE km.mld_melding_key =  " + mld_key
+                             + "   AND km.mld_kenmerk_key = " + kenmerk_key;
+                        var oRs = Oracle.Execute(ksql);
+
+                        switch (kenmerk_type)
+                        {
+                            case 'C':
+                            {
+                              // we ondersteunen alleen nog maar karakter velden.
+                              if (!oRs.eof)
+                              {
+                                var kenmerkmelding_key = oRs("mld_kenmerkmelding_key").value;
+                                ksql = "UPDATE mld_kenmerkmelding"
+                                     + "   SET mld_kenmerkmelding_waarde = " + safe.quoted_sql(kenmerk_waarde)
+                                     + " WHERE mld_kenmerkmelding_key = " + kenmerkmelding_key;
+                              }
+                              else
+                              {
+                                ksql = "INSERT INTO mld_kenmerkmelding (mld_kenmerk_key, mld_melding_key, mld_kenmerkmelding_waarde) "
+                                     + "VALUES (" + kenmerk_key + ", " + mld_key + ", " + safe.quoted_sql(kenmerk_waarde) + ")";
+                              }
+                              Oracle.Execute(ksql);
+                              break;
+                            }
+                            case 'N':
+                            {
+                              // we ondersteunen alleen nog maar karakter velden.
+                              if (!oRs.eof)
+                              {
+                                var kenmerkmelding_key = oRs("mld_kenmerkmelding_key").value;
+                                ksql = "UPDATE mld_kenmerkmelding"
+                                     + "   SET mld_kenmerkmelding_waarde = " + safe.quoted_sql(kenmerk_waarde)
+                                     + " WHERE mld_kenmerkmelding_key = " + kenmerkmelding_key;
+                              }
+                              else
+                              {
+                                ksql = "INSERT INTO mld_kenmerkmelding (mld_kenmerk_key, mld_melding_key, mld_kenmerkmelding_waarde) "
+                                     + "VALUES (" + kenmerk_key + ", " + mld_key + ", " + safe.quoted_sql(kenmerk_waarde) + ")";
+                              }
+                              Oracle.Execute(ksql);
+                              break;
+                            }
+                            case "M": // Folder met bijlagen
+                            {
+                                //Response.Write(kenmerk_naam);
+                                var bijlagen = mldkenmerken[j].getElementsByTagName("bijlage");
+                                var bi;
+                                for (bi = 0; bi < bijlagen.length; bi++)
+                                {
+                                    var Attachment = XMLval(bijlagen[bi], "attachment");
+                                    var Name = XMLval(bijlagen[bi], "name");
+                                    var Size = XMLval(bijlagen[bi], "size");
+                                    //Response.Write("Name: " + Name + " size: " + Size);
+                                    if (Attachment && Name && Size)
+                                    {
+                                        var SafeName = safe.filename(Name);
+                                        var params = flexProps("MLD", mld_key, String(kenmerk_key), "M");
+                                        if (params.extFilter)
+                                        {
+                                            var regFilter = params.extFilter;
+                                            regFilter = regFilter.replace(/( |,|;)/g,"|"); // Altijd | karakter
+                                            regFilter = ".*\\." + "(" + regFilter + ")$"; // er moet een punt voor en extensie is aan het einde
+                                        }
+                                        else
+                                            regFilter = ".*";
+                                        if (!new RegExp(S("flexAllowedExt"), "ig").test(SafeName) ||
+                                            !new RegExp(regFilter, "ig").test(SafeName))
+                                        {
+                                            __DoLog("Unsafe SOAP file '{0}' ignored.".format(SafeName), "#FFFF00");
+                                        }
+                                        else
+                                        {
+                                            __Log("Start saving: " + params.AttachPath + SafeName);
+                                            CreateFullPath(params.AttachPath);
+                                            VB_SaveFile(params.AttachPath + SafeName, Attachment)
+                                            __Log("Done saving: " + params.AttachPath + SafeName);
+
+                                        }
+                                    }
+                                }
+                            }
+                        }
+                        oRs.Close();
+                      }
+                    }
+
                     resultcode = 0; // Ik heb gedaan wat ik moest en mocht doen voor deze melding.
                     // En nog maar even de aanname dat een extern systeem niet aan workflows/ktos doet?
                 }
@@ -231,7 +368,7 @@
                     }
 
         var FCLTBody = xmlResp.createElement("melding");   // type=response
-        FCLTBody.setAttribute('key', ext_id);
+        FCLTBody.setAttribute('key', ext_id); // Let op: key van de aanroeper!
         FCLTBody.setAttribute('type', 'response');
         for (param in binfo)
         {
@@ -246,6 +383,69 @@
 
     xmlResp.appendChild(FCLTElement);
 
-    Response.ContentType = "text/xml";
-    Response.Write(xmlResp.xml)
+    if (API.apidata.stylesheet)
+    {
+        // Niet super efficient dat we eerst naar tekstuele xml gaan maar ach...
+        STR2Stream(xmlResp.xml, API.apidata.stylesheet, Response, {});
+    }
+    else
+    {
+        Response.ContentType = "text/xml";
+        Response.Write(xmlResp.xml)
+    }
+
 %>
+<script language="VBScript" runat="Server">
+' JavaScript is erg slecht in binary data, dat doen we dan maar met VBScript.
+Function HexDecode(ByVal vCode)
+    Dim oXML, oNode
+
+    Set oXML = CreateObject("MSXML2.DOMDocument.4.0")
+    Set oNode = oXML.CreateElement("hex")
+    oNode.dataType = "bin.hex" ' Zeer snelle oplossing
+    oNode.text = vCode
+    Set HexDecode = Stream_BinaryToStream(oNode.nodeTypedValue)
+    Set oNode = Nothing
+    Set oXML = Nothing
+End Function
+
+'Stream_BinaryToStream Function
+'2003 Antonin Foller, http://www.motobit.com
+'Binary - VT_UI1 | VT_ARRAY data To convert To a string
+Function Stream_BinaryToStream(Binary)
+  Const adTypeText = 2
+  Const adTypeBinary = 1
+
+  'Create Stream object
+  Dim BinaryStream 'As New Stream
+  Set BinaryStream = CreateObject("ADODB.Stream")
+
+  'Specify stream type - we want To save binary data.
+  BinaryStream.Type = adTypeBinary
+
+  'Open the stream And write binary data To the object
+  BinaryStream.Open
+  BinaryStream.Write Binary
+
+  'Change stream type To text/string
+  BinaryStream.Position = 0
+  BinaryStream.Type = adTypeText
+
+  'Specify charset For the output text (unicode) data.
+  BinaryStream.CharSet = "us-ascii"
+
+  'Open the stream And get text/string data from the object
+  Set Stream_BinaryToStream = BinaryStream
+
+End Function
+
+Function VB_SaveFile(safefullname, attachment)
+      Set BinaryStream = HexDecode(attachment)
+
+''      on error resume next
+          'Save binary data To disk
+          BinaryStream.SaveToFile safefullname, 2 ' adSaveCreateOverWrite
+          myErr = Err.Description
+''      on error goto 0
+End Function
+</script>

APPL/API/api_opdrsoap.asp

@@ -4,18 +4,17 @@
      $Id$
 
     File:           api_opdrsoap.asp
-    Description:    API voor mld-soap berichten
-                    Interpreteert een bericht zodanig dat opdrachtgegevens worden aangepast
+    Description:    API voor ORD-soap berichten
+                    Interpreteert een bericht zodanig dat een opdracht wordt aangemaakt
+                    (incl. evt. bovenliggende melding) of aangepast.
                     Dat is: qua omschrijving (voortgang), kosten of status.
                     Als een status wordt meegegeven, dan is ook vereist dat dat een
                     geldige statusovergang is, anders wordt het hele bericht genegeerd.
 
-    Parameters:     een xml
+    Parameters:     Een xml
     Context:
     Notes:
-
 */
-
     DOCTYPE_Disable = 1;
     THIS_FILE = "appl/api/api_opdrsoap.asp";
 %>
@@ -24,32 +23,66 @@
 <!-- #include file="../Shared/save2db.inc" -->
 <!-- #include file="../api/api.inc" -->
 <!-- #include file="../mld/mld.inc" -->
-
 <%
-    // We sturen het antwoord in UTF-8
+    // We sturen het antwoord in UTF-8.
     Session.Codepage = 65001;
     Response.Charset = 'utf-8';
 
     var APIname = getQParam("API");
     var APIKEY = getQParam("APIKEY");
     var API = new API_func(APIname, APIKEY);
-    var tsql = "-";     // Voor tijdelijke statement
-    var sql = "-";      // De uiteindelijke update-sql
-    var resultcode = -1;        /* zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed) */
-    var resulttekst = "";
+    var appendRemark = -1;
+    for (opt in API.apidata.options)
+    {
+      if (opt = "appendRemark")
+      {
+         appendRemark = API.apidata.options["appendRemark"] == 1;
+      }
+    }
+
+    //user.checkAutorisation("WEB_MLDUSE"); // Dit is nog ongeacht de melding.
+
+    var tsql = "-";     // Voor tijdelijke statement.
+    var sql = "-";      // De uiteindelijke insert/update-sql.
     var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
-    xmlReq.load(Request);
+    if (API.apidata.stylesheet)
+    {
+        var iXsl = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        if( ! iXsl.load(Server.MapPath(API.apidata.stylesheet)) )
+        {
+            API.error("Could not load XSL " + API.apidata.stylesheet + "\n" + iXsl.parseError.reason);
+        }
+        var inputXML = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        inputXML.load(Request);
+
+        if (inputXML.parseError.errorCode != 0)
+        {
+            __DoLog( "Error loading XML: "
+                         + inputXML.parseError.errorCode
+                         + "\n" + inputXML.parseError.reason
+                         + " regel " + inputXML.parseError.line
+                         + "(" + inputXML.parseError.linepos + ")"
+                     , "#ff0000");
+        }
+        if (API.apidata.loglevel) __Log2File(inputXML.xml, APIname + "_IN");
+
+        inputXML.transformNodeToObject(iXsl, xmlReq);
+    }
+    else
+        xmlReq.load(Request);
+
+    if (API.apidata.loglevel) __Log2File(xmlReq.xml, APIname + "_TUSSEN");
 
     var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
     xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))
 
-    // The response
+    // The response.
     var FCLTElement = xmlResp.createElement("facilitor");
-    // The response header
+    // The response header.
     var now = new Date();
     var nowtxt = now.getFullYear()+'-'+padout(now.getMonth()+1) +'-'+padout(now.getDate()) +' '
                            +padout(now.getHours()) +':'+padout(now.getMinutes())+':'+padout(now.getSeconds());
-    var FCLTHeader = xmlResp.createElement("header");
+    var elmHeader = xmlResp.createElement("header");
     var headerinfo = {
 //                 file: String(Request.ServerVariables("SCRIPT_NAME")).toLowerCase(),
                  datum: nowtxt,
@@ -61,268 +94,555 @@
     {
         var FCLTdata = xmlResp.createElement(param);
         FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
-        FCLTHeader.appendChild(FCLTdata);
+        elmHeader.appendChild(FCLTdata);
     }
-    FCLTElement.appendChild(FCLTHeader);
+    FCLTElement.appendChild(elmHeader);
 
-   // Luie oplossing: Oracle kan dit simpeler dan JavaScript
-   function XMLtoJsDate(xmlDate)
-   {
-        var sql = "select to_date("+safe.quoted_sql(xmlDate)+", 'YYYY-MM-DD HH24:MI:SS') FROM DUAL";
-        var oRs = Oracle.Execute(sql);
-        var dt = new Date(oRs(0).Value);
-        oRs.Close();
-        return dt;
-   }
-   function XMLval(xml, tag)
-   {
-        if (!xml)
-            return null;
-        var xx = xml.getElementsByTagName(tag);
-        if (!xx || !xx.length)
-            return null;
-        xx = xx[0].childNodes
-        if (!xx || !xx.length)
-            return null;
-        return xx[0].nodeValue;
-   }
-
-
-    // Hier zou het echte werk moeten gebeuren n.a.v. xmlReq
-    // en FCLTElement moeten we uitbreiden met antwoorden
+    // Hier zou het echte werk moeten gebeuren nav. xmlReq
+    // en FCLTElement moeten we uitbreiden met antwoorden.
     var detected ="?";
-//    xmlReq.setProperty("SelectionLanguage", "XPath");       // Weet niet of noodzakelijk
 
-
-    // Dit is de opdrachtenloop (mochten er ooit nog anderen gaan volgen)
+    // Dit is de opdrachtenloop (mochten er ooit nog anderen gaan volgen).
     var opdrachten = xmlReq.getElementsByTagName("opdracht");
     for (i=0; i < opdrachten.length; i++)
     {
-        // Lees per node de (optionele) tages en waarden
-        //var opdraction      = (opdrachten[i].getElementsByTagName("action"))[0].childNodes[0].nodeValue;
-        var opdr_key        = -1;   // Bepalen we zo uit de melding/volgnr
-        var oldstatus       = -1;   // Bepalen we zo uit de melding/volgnr
-        var topdr_key       = -1;   // Bepalen we zo uit de melding/volgnr
-        var fields = []; // bij te werken velden
-        var opdrid          = opdrachten[i].getAttribute("key");
-        var opdraction      = opdrachten[i].getAttribute("type").toLowerCase();
-        var opdrstatus      = XMLval(opdrachten[i], "status");
-        var opdropmerking   = XMLval(opdrachten[i], "opmerking");
-        var txt_mut_datum   = XMLval(opdrachten[i], "mut_datum");
+        var resultcode = -1;   /* Zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed). */
+        var resulttekst = "";
 
-        var opdrgereed      = XMLval(opdrachten[i], "datumgereed");
-        var opdrkosten      = XMLval(opdrachten[i], "kosten");
-//        var opdrkenmerken   = (opdrachten[i].getElementsByTagName("kenmerk"))[0].childNodes[0].nodeValue;
+        // Lees per node de (optionele) tags en waarden.
+        var opdrid          = opdrachten[i].getAttribute("key"); // UPD
+        var opdraction      = opdrachten[i].getAttribute("type").toLowerCase(); // NEW/UPD
 
-        var idarr = opdrid.split('/');
-        var mldkey = parseInt(idarr[0], 10);
-        var opdrvolgnr = parseInt(idarr[1], 10);
+        var externnr        = XMLval(opdrachten[i], "externnr"); // NEW
+        var txt_new_datum   = XMLval(opdrachten[i], "datum"); // NEW; nog niets mee gedaan!
+        var voor_key        = parseInt(XMLval(opdrachten[i], "voor"), 10); // NEW
+        var stdm_key        = parseInt(XMLval(opdrachten[i], "stdmelding_key"), 10); // NEW
+        var topdr_key       = parseInt(XMLval(opdrachten[i], "typeopdr_key"), 10); // NEW
+        var uitv_key        = parseInt(XMLval(opdrachten[i], "bedrijf_key"), 10); // NEW
+        var opdrachttekst   = XMLval(opdrachten[i], "opdrachttekst"); // NEW
 
-        if (isNaN (mldkey) || isNaN (opdrvolgnr)) {
-            resultcode = 2;
-            resulttekst = "Invalid opdracht id (key) "+opdrid;
-        } else {
-            tsql = "SELECT mld_opdr_key, mld_statusopdr_key, mld_typeopdr_key"
-                + " FROM mld_opdr"
-                + " WHERE mld_melding_key="+ mldkey
-                + " AND mld_opdr_bedrijfopdr_volgnr="+opdrvolgnr;
-            var oRs = Oracle.Execute(tsql);
-            if (!oRs.eof) {
-                opdr_key = oRs("mld_opdr_key").value;
-                oldstatus = oRs("mld_statusopdr_key").value;
-                topdr_key = oRs("mld_typeopdr_key").value;
-            }
+        var txt_mut_datum   = XMLval(opdrachten[i], "mut_datum"); // UPD
+        var opdrstatus      = XMLval(opdrachten[i], "status"); // UPD
+        var opdropmerking   = XMLval(opdrachten[i], "opmerking"); // UPD
 
-            if (opdr_key == -1) {
-                resultcode = 5;
-                resulttekst = "Non existent opdracht";
-            } else {
-                // Hier heb ik een geldige opdrachtkey
-                if (this_opdr = mld.func_enabled_opdracht(opdr_key))
+        var opdrgereed      = XMLval(opdrachten[i], "datumgereed"); // NEW/UPD
+        var opdrkosten      = XMLval(opdrachten[i], "kosten"); // NEW/UPD
+        var opdrkenmerken   = (opdrachten[i].getElementsByTagName("kenmerk")); // NEW/UPD
+
+        var kpn_key         = -1;
+        var mld_key         = -1;   // Maken we aan of bepalen we uit de melding/volgnr.
+        var opdrvolgnr      = -1;   // Maken we aan of bepalen we uit de melding/volgnr.
+        var opdr_key        = -1;   // Maken we aan of bepalen we uit de melding/volgnr.
+        var oldstatus       = -1;
+        var mld_fields      = [];   // Bij te werken velden.
+        var opdr_fields     = [];   // Bij te werken velden.
+
+        if (opdrid == null)
+        {   // Voorkom problemen als key-attribuut ontbreekt/leeg!
+            opdrid = '';
+        }
+        if (externnr == null)
+        {   // Voorkom problemen als externnr-node ontbreekt/leeg!
+            externnr = '';
+        }
+
+    if (opdraction == "insert")
+    {
+        // Let op: mld_melding_externnr is niet gegarandeerd uniek: meerdere externe systemen
+        //         kunnen dezelfde (externe) nummering gebruiken
+        // TODO: Bepalen meldingen  beperken tot alleen die meldingen die zijn aangemaakt door betreffende API-user!
+        //       Of beter: WHERE ORDBOF schrijfrechten op de melding
+        // Wel: verderop controleren we al wel of je canAddOpdr hebt
+        tsql = "SELECT MIN(mld_melding_key) mld_melding_key, COUNT(*) aantal"
+            + "   FROM mld_melding"
+            + "  WHERE mld_melding_externnr="+ safe.quoted_sql(externnr);
+        var oRs = Oracle.Execute(tsql);
+        switch (oRs("aantal").value)
+        {
+            case 0: // Automatisch melding aanmaken.
+                    // We ondersteunen hier alleen extreem simpele meldingen (alles default).
+                    // Wil je meer? Dan maak je maar zelf een melding aan via de MLDAPI.
+                if (stdm_key && stdm_key > 0)
                 {
-                    // Ik weet nu ook de rechten
-                    var mld_opdr = mld.mld_opdr_info(opdr_key);
-                    var mut_datum = null;
-                    if (txt_mut_datum && mld_opdr.typeopdr_afmeldmarge>0)
+                    tsql = "SELECT mld_stdmelding_uitvoertijd"
+                        + "   FROM mld_stdmelding"
+                        + "  WHERE mld_stdmelding_key="+ stdm_key
+                        + "    AND mld_stdmelding_verwijder IS NULL";
+                    oRs = Oracle.Execute(tsql);
+                    if (oRs.eof)
                     {
-                        var mut_datum = XMLtoJsDate(txt_mut_datum);
-                        var maxmarge = new Date();
-                        maxmarge.setDate(maxmarge.getDate() - mld_opdr.typeopdr_afmeldmarge);
-                        if (mut_datum < maxmarge)
-                            mut_datum = null; // te lang geleden
+                        resultcode = 3;
+                        resulttekst = "Undefined stdmelding "+ stdm_key;
                     }
 
-
-                    // Dit zijn de wijzigingen, die voeren we alleen uit bij een geldige statuswijziging
-                    // of geen statuswijziging
-                    if (opdropmerking != null)
-                    {
-                        var new_opm = opdropmerking;
-                        sql = "SELECT mld_opdr_opmerking"
-                            + "  FROM mld_opdr"
-                            + " WHERE mld_opdr_key = " + opdr_key;
-                        oRs = Oracle.Execute(sql);
-                        if (oRs("mld_opdr_opmerking").Value != null) {
-                            new_opm = oRs("mld_opdr_opmerking").Value + "\n" + new_opm;
-                        }
-
-                        fields.push({ dbs: "mld_opdr_opmerking",  typ: "varchar", val: new_opm,        track: L("lcl_mld_inf_Opmerking"), len: 4000 });
-                    }
-
-                    if (opdrkosten != null)
-                        fields.push({ dbs: "mld_opdr_kosten",     typ: "float",   val: opdrkosten,     track: L("lcl_total_cost") });
-                    if (opdrgereed != null) {
-                        var opdrgereeddate = XMLtoJsDate(opdrgereed);
-                        fields.push({ dbs: "mld_opdr_einddatum",  typ: "date",    val: opdrgereeddate, track: L("lcl_opdr_enddate") });
-                    }
-                    // We weten nu de updates, straks voeren we deze pas uit
-                    // Eerst de eventuele statuswijzigingen
-
-                    var newstatus = -1;
-                    if (opdrstatus != null) {
-                        // Er is dus wel een status meegegeven
-                        switch (opdrstatus) {
-                            case 'ORDACP' :
-                                if (this_opdr.canAccept) {
-                                    if (oldstatus == 5) {
-                                        newstatus = 8;
-                                    } else {
-                                        resultcode = 2;
-                                        resulttekst = "Invalid status change";
-                                    }
-                                } else {
-                                    resultcode = 4;
-                                    resulttekst = "Not authorized for ORDACP";
-                                }
-                                break;
-                            case 'ORDCAN' :
-                                if (this_opdr.canCancel) {
-                                    if (oldstatus == 5 || oldstatus == 8) {
-                                        newstatus = 1;
-                                    } else {
-                                        resultcode = 2;
-                                        resulttekst = "Invalid status change";
-                                    }
-                                } else {
-                                    resultcode = 4;
-                                    resulttekst = "Not authorized for ORDCAN";
-                                }
-                                break;
-                            case 'ORDAFM' :
-                                 if (this_opdr.canClose) {
-                                    if (oldstatus == 5 || oldstatus == 8 ) {
-                                        newstatus = 6;
-                                    } else {
-                                        resultcode = 2;
-                                        resulttekst = "Invalid status change";
-                                    }
-                                } else {
-                                    resultcode = 4;
-                                    resulttekst = "Not authorized for ORDAFM";
-                                }
-                                break;
-                            case 'ORDAFR' :
-                                if (this_opdr.canFinish) {
-                                    if (oldstatus == 6 ) {
-                                        newstatus = 9;
-                                    } else {
-                                        resultcode = 2;
-                                        resulttekst = "Invalid status change";
-                                    }
-                                } else {
-                                    resultcode = 4;
-                                    resulttekst = "Not authorized for ORDAFR";
-                                }
-                                break;
-                            default:
-                                resultcode = 3;
-                                resulttekst = "Invalid status";
-                        }  // switch
-                    }
-
-                    if (resultcode == -1) {  // nog steeds geen fouten
-                        // Construct the update
-                        if (this_opdr.canChange)
+                    // Hier heb ik een geldige stdm_key.
+                    if (resultcode == -1) // Nog steeds geen fouten.
+                    {   // Bepaal kostenplaats via voor-user
+                        // Als die voor exact <20><>n kostenplaats is gemandateerd dan gebruiken
+                        // we die kostenplaats. Anders laten we de kostenplaats gewoon leeg.
+                        sql = "SELECT pk.prs_kostenplaats_key, prs_kostenplaats_nr"
+                            + "  FROM prs_perslidkostenplaats ppk,"
+                            + "       prs_kostenplaats pk"
+                            + " WHERE pk.prs_kostenplaats_key = ppk.prs_kostenplaats_key"
+                            + "   AND ppk.prs_perslid_key = " + voor_key
+                            + "   AND prs_kostenplaats_verwijder IS NULL"
+                            + "   AND prs_perslidkostenplaats_boeken = 1";
+                        var oRs = Oracle.Execute(sql);
+                        if (!oRs.Eof)
                         {
-                            if (fields.length>0)
+                            kpn_key = oRs("prs_kostenplaats_key").Value || -1; // Kan leeg zijn als voor alles gemandateerd
+                            kpn_nr = oRs("prs_kostenplaats_nr").Value;
+                            oRs.MoveNext();
+                            if (!oRs.Eof) // Er zijn er meerdere
                             {
-                                var mldUpd = buildTrackingUpdate("mld_opdr", "mld_opdr_key = " + opdr_key, fields);
-                                Oracle.Execute(mldUpd.sql);
-                                mld.trackopdrachtupdate(opdr_key, L("lcl_ord_is_updatedbysoap") + "\n" + mldUpd.trackarray.join("\n"));
-                                if (mut_datum) // Antidateren voor SLA rapportages.
+                                kpn_key = -1;
+                                __Log("Gemandateerd voor meerdere kostenplaatsen dus genegeerd.");
+                            }
+                            else
+                                __Log("Uitsluitend gemandateerd voor kostenplaats: " + kpn_nr);
+                        }
+                    }
+                    if (resultcode == -1) // Nog steeds geen fouten.
+                    {
+                        var meld_oms = "Automatisch aangemaakte melding tbv. werkzaamheden ge<67>nitieerd in extern systeem met referentie: "+ externnr;
+                        mld_key = mld.insertmelding(stdm_key,
                                 {
-                                    var sql = "BEGIN fac.backtrackaction('ORDUPD', " + opdr_key + ", " + user_key + ", " + mut_datum.toSQL(true) +"); END;"
-                                    Oracle.Execute(sql);
-                                }
-                            }
-                        }
-                        if (newstatus != -1)
-                        {
-                            mld.setopdrachtstatus(opdr_key, newstatus);
-                            // Hier terugchecken van de status
-                            tsql = "SELECT mld_statusopdr_key FROM mld_opdr"
-                                 + " WHERE mld_opdr_key="+ opdr_key;
-                            oRs = Oracle.Execute(tsql);
-                            if (oRs("mld_statusopdr_key").value == newstatus)
-                            {
-                                resulttekst = "Status set to "+opdrstatus;
-                                if (mut_datum && opdrstatus) // Tracking antidateren voor SLA rapportages.
-                                {  // 'Toevallig' loopt opdrstatus 1-op-1 met onze trackingcodes
-                                    var sql = "BEGIN fac.backtrackaction("+safe.quoted_sql(opdrstatus)+", " + opdr_key + ", " + user_key + ", " + mut_datum.toSQL(true) +"); END;"
-                                    Oracle.Execute(sql); // Statuswijzigingen wel even tracken
-                                    var txt = { "ORDAFM": L("lcl_ord_is_ordafm"),
-                                                "ORDACP": L("lcl_ord_is_ordacp"),
-                                                "ORDAFR": L("lcl_ord_is_ordafr")
-                                              }[opdrstatus];
-                                    mld.trackopdrachtupdate(opdr_key, L("lcl_ord_is_ordupd") + "\n" + txt + L("lcl_trackto") + toDateTimeString(mut_datum));
-                                }
+                                    kostenplaats_key: kpn_key,
+                                    perslid_key: voor_key,
+                                    fields: [{ dbs: "mld_melding_externnr",     typ: "varchar",  val: externnr },
+                                             { dbs: "mld_melding_omschrijving", typ: "varchar",  val: meld_oms }
+                                            ]
+                                });
 
-                                // Zijn er nog lopende opdrachten
-                                tsql = "SELECT COUNT ( * ) lopend FROM  mld_opdr"
-                                     + " WHERE mld_melding_key = " + mldkey
-                                     + " AND mld_statusopdr_key NOT IN (1, 2, 6, 7, 9)"; // (1=afgewezen, 2=niet akkoord, 6=afgemeld, 7=verwerkt en 9=afgerond)
-                                oRs = Oracle.Execute(tsql);
-
-                                if (oRs("lopend").value == 0)
-                                { // Er zijn alleen opdrachten met status 1 (Afgewezen) of 6/9 (Afgemeld/Afgerond)
-                                  // Check of setting bij opdrachttype automatisch sluiten ALTIJD (= 2) toestaat.
-                                  tsql = "SELECT mld_typeopdr_sluitmelding FROM mld_typeopdr"
-                                       + " WHERE mld_typeopdr_key = " + topdr_key;
-                                  var oRs = Oracle.Execute(tsql);
-
-                                  // Afhankelijk van sluitmelding nu melding status zetten (0=nooit, 1=vragen en 2=altijd)
-                                  if (oRs("mld_typeopdr_sluitmelding").value == 2 || oRs("mld_typeopdr_sluitmelding").value == 1)
-                                    mld.setmeldingstatus (mldkey, 5); // Afgemeld
-                                  else
-                                    // Dan zetten we de Melding hier terug naar Geaccepteerd indien die Uitgegeven was
-                                    // Zodat die bij de FO weer onder Inbehandeling valt.
-                                    mld.setmeldingstatus (mldkey, 4); // Geaccepteerd
-                                }
-                                // else status van de melding niet aanpassen.
-
-                                resultcode = 0;
-                            } else {
-                                resultcode = 1;
-                                resulttekst = "Status not set to "+opdrstatus+" (is "+oRs("mld_statusopdr_key").value+")";
-                            }
-                        }
+                        // mld.insertmelding heeft al op status 2 (nieuw) gezet
+                        mld.setmeldingstatus(mld_key, 4);
                     }
                 }
-                // Ik heb gedaan wat ik moest en mocht doen voor deze opdracht
-            }  // end geldige opdrachtkey
+                break;
+            case 1:
+                mld_key = oRs("mld_melding_key").Value;
+                break;
+            default:
+                {
+                    // Te veel kunnen we nog niet echt aan?
+                }
+        }
+        oRs.Close();
+        if (mld_key < 0)
+        {   // Tja, dan wordt het lastig?
+            resultcode = 7;
+            resulttekst = "Melding '{0}' cannot be identified uniquely".format(externnr);
+        }
 
-        }  // end geldige opdrid
+
+        if (resultcode == -1) // Nog steeds geen fouten.
+        {
+            var this_melding = mld.func_enabled_melding(mld_key);
+            if (!this_melding.canAddOpdr)
+            {
+                resultcode = 4;
+                resulttekst = "Not authorized";
+            }
+        }
+        // Hier heb ik een geldige mld_key (nieuw of bestaand).
+        if (resultcode == -1) // Nog steeds geen fouten.
+        {   // Bepaal opdrachttype.
+            tsql = "SELECT mld_typeopdr_key"
+                 + "  FROM mld_typeopdr"
+                 + " WHERE mld_typeopdr_key="+ topdr_key;
+            var oRs = Oracle.Execute(tsql);
+            if (oRs.eof)
+            {
+                resultcode = 8;
+                resulttekst = "Undefined opdrachttype "+ topdr_key;
+            }
+            oRs.Close();
+        }
+
+        // Hier heb ik een geldige topdr_key.
+        if (resultcode == -1) // Nog steeds geen fouten.
+        {   // Bepaal uitvoerende.
+            tsql = "SELECT prs_bedrijf_key"
+                 + "  FROM prs_bedrijf"
+                 + " WHERE prs_bedrijf_key="+ uitv_key
+                 + "   AND prs_bedrijf_verwijder IS NULL";
+            var oRs = Oracle.Execute(tsql);
+            if (oRs.eof)
+            {
+                resultcode = 8;
+                resulttekst = "Undefined uitvoerende "+ uitv_key;
+            }
+            oRs.Close();
+        }
+
+        // Hier heb ik een geldige uitv_key.
+        if (resultcode == -1) // Nog steeds geen fouten.
+        {   // Alvast de nieuwe opdracht aanmaken. Rest komt later.
+            var mld_info = mld.mld_melding_info(mld_key);
+            var fields = [ { dbs: "mld_opdr_key",                typ: "key",      seq: "mld_s_mld_opdr_key" },
+                           { dbs: "mld_opdr_module",             typ: "varchar",  val: "MLD" },
+                           { dbs: "mld_melding_key",             typ: "key",      val: mld_key },
+                           { dbs: "prs_kostenplaats_key",        typ: "key",      val: mld_info.kostenpl_key },
+                           { dbs: "mld_uitvoerende_keys",        typ: "key",      val: uitv_key },
+                           { dbs: "mld_typeopdr_key",            typ: "key",      val: topdr_key },
+                           { dbs: "mld_opdr_bedrijfopdr_volgnr", typ: "sql",      val: "mld.bepaalopdrmeldingvolgnr(" + mld_key +")" },
+                           { dbs: "mld_opdr_datumbegin",         typ: "datetime", val: new Date() }
+                         ];
+
+            if (opdrachttekst != null)
+            {
+                fields.push({ dbs: "mld_opdr_omschrijving",      typ: "varchar",  val: opdrachttekst, len: 4000 });
+            }
+
+            var mldIns = buildInsert("mld_opdr", fields, { noValidateToken: true });
+            var sql = mldIns.sql;
+            var err = Oracle.Execute(sql, true);
+            if (err.friendlyMsg)
+            {
+                resultcode = 9;
+                resulttekst = "Database error: "+ err.friendlyMsg;
+            }
+
+            opdr_key = mldIns.sequences["mld_opdr_key"]; // Hier heb ik de geldige opdr_key (igv. insert).
+            mld.setopdrachtstatus (opdr_key, 5);
+            mld.updatemeldingstatus (mld_key, 0);
+        }
+    }
+    else if (opdraction == "update")
+    {   // Bestaande opdracht zoeken
+        var idarr = opdrid.split('/');
+        mld_key = parseInt(idarr[0], 10);
+        opdrvolgnr = parseInt(idarr[1], 10);
+
+        if (isNaN (mld_key) || isNaN (opdrvolgnr))
+        {
+            resultcode = 2;
+            resulttekst = "Invalid opdracht id (key="+ opdrid +")";
+        }
+        else
+        {
+            tsql = "SELECT mld_opdr_key"
+                + "   FROM mld_opdr"
+                + "  WHERE mld_melding_key="+ mld_key
+                + "    AND mld_opdr_bedrijfopdr_volgnr="+ opdrvolgnr;
+            var oRs = Oracle.Execute(tsql);
+            if (oRs.eof)
+            {
+                resultcode = 5;
+                resulttekst = "Non existent opdracht";
+            }
+            else
+            {   // Hier heb ik de geldige opdr_key (igv. update).
+                opdr_key = oRs("mld_opdr_key").value;
+            }
+            oRs.Close();
+        }
+    }
+    else
+    {
+        resultcode = 2;
+        resulttekst = "Undefined operation (type="+ opdraction +")";
+    }
+
+    if (resultcode == -1)
+    {  // Hier heb ik een geldige opdr_key.
+        var this_opdr = mld.func_enabled_opdracht(opdr_key);
+        if (!this_opdr.canChange)
+        {
+            resultcode = 4;
+            resulttekst = "Not authorized";
+        }
+
+        var mld_opdr = mld.mld_opdr_info(opdr_key); // Bevat alle info van de opdracht.
+        var stdm_info = mld.mld_stdmeldinginfo(mld_opdr.stdm_key);
+
+        // Initialiseer (nog eens) enkele opdrachtgegevens tbv. de response of vervolg.
+        opdrid = mld_key + "/" + mld_opdr.mld_opdr_bedrijfopdr_volgnr;
+        oldstatus = mld_opdr.opdr_status;
+        topdr_key = mld_opdr.opdr_type;
+
+        var autoorder = stdm_info.autoorder;
+
+        var mut_datum = new Date();
+        if (txt_mut_datum && mld_opdr.typeopdr_afmeldmarge>0)
+        {
+            var mut_datum = XMLtoJsDate(txt_mut_datum);
+            var maxmarge = new Date();
+            maxmarge.setDate(maxmarge.getDate() - mld_opdr.typeopdr_afmeldmarge);
+            if (mut_datum < maxmarge)
+                mut_datum = new Date(); // te lang geleden
+        }
+
+        // Dit zijn de wijzigingen, die voeren we alleen uit bij een geldige statuswijziging
+        // of geen statuswijziging
+        if (opdropmerking != null)
+        {
+            // opmerking bij de opdracht
+            var new_opm = opdropmerking;
+            sql = "SELECT mld_opdr_opmerking"
+                + "  FROM mld_opdr"
+                + " WHERE mld_opdr_key = " + opdr_key;
+            oRs = Oracle.Execute(sql);
+            // in geval van auto-order opdracht wordt de opmerking in de opdracht overschreven
+            // de complete backoffice wordt op dat moment beheerd door de soap gekoppelde partij.
+            // dit is te overrullen met de optie appendRemark. Als deze -1 is dan is de waarde niet
+            // gezet. Ander wordt deze hard gezet.
+            appendRemark = oRs("mld_opdr_opmerking").Value != null && ((!autoorder && appendRemark == -1) || appendRemark == 1);
+            if (appendRemark == 1)
+            {
+                new_opm = oRs("mld_opdr_opmerking").Value + "\n" + new_opm;
+            }
+            opdr_fields.push({ dbs: "mld_opdr_opmerking",  typ: "varchar", val: new_opm,        track: L("lcl_mld_inf_Opmerking"), len: 4000 });
+
+            // opmerking bij de melding
+            var new_mld_opm = opdropmerking;
+            sql = "SELECT mld_melding_opmerking"
+                + "  FROM mld_melding"
+                + " WHERE mld_melding_key = " + mld_opdr.mld_key;
+            oRs = Oracle.Execute(sql);
+            appendRemark = oRs("mld_melding_opmerking").Value != null && ((!autoorder && appendRemark == -1) || appendRemark == 1);
+            if (appendRemark == 1)
+            {
+                new_mld_opm = oRs("mld_melding_opmerking").Value + "\n" + new_mld_opm;
+            }
+            mld_fields.push({ dbs: "mld_melding_opmerking",  typ: "varchar", val: new_mld_opm,        track: L("lcl_mld_inf_Opmerking"), len: 4000 });
+
+        }
+
+        if (opdrkosten != null)
+            opdr_fields.push({ dbs: "mld_opdr_kosten",     typ: "float",   val: opdrkosten,     track: L("lcl_total_cost") });
+        if (opdrgereed != null)
+        {
+            var opdrgereeddate = XMLtoJsDate(opdrgereed);
+            opdr_fields.push({ dbs: "mld_opdr_einddatum",  typ: "date",    val: opdrgereeddate, track: L("lcl_opdr_enddate") });
+            mld_fields.push({ dbs: "mld_melding_einddatum",  typ: "date",    val: opdrgereeddate, track: L("lcl_mld_enddate") });
+        }
+        // We weten nu de updates, straks voeren we deze pas uit
+        // Eerst de eventuele statuswijzigingen
+        var newstatus = -1;
+        if (opdrstatus != null)
+        {
+            // Er is dus wel een status meegegeven
+            switch (opdrstatus)
+            {
+                case 'ORDACP' :
+                    if (this_opdr.canAccept) {
+                        if (oldstatus == 5) {
+                            newstatus = 8;
+                        } else {
+                            resultcode = 2;
+                            resulttekst = "Invalid status change";
+                        }
+                    } else {
+                        resultcode = 4;
+                        resulttekst = "Not authorized for ORDACP";
+                    }
+                    break;
+                case 'ORDCAN' :
+                    if (this_opdr.canCancel) {
+                        if (oldstatus == 5 || oldstatus == 8) {
+                            newstatus = 1;
+                        } else {
+                            resultcode = 2;
+                            resulttekst = "Invalid status change";
+                        }
+                    } else {
+                        resultcode = 4;
+                        resulttekst = "Not authorized for ORDCAN";
+                    }
+                    break;
+                case 'ORDAFM' :
+                     if (this_opdr.canClose) {
+                        if (oldstatus == 5 || oldstatus == 8 ) {
+                            newstatus = 6;
+                        } else {
+                            resultcode = 2;
+                            resulttekst = "Invalid status change";
+                        }
+                    } else {
+                        resultcode = 4;
+                        resulttekst = "Not authorized for ORDAFM";
+                    }
+                    break;
+                case 'ORDAFR' :
+                    if (this_opdr.canFinish) {
+                        if (oldstatus == 6 ) {
+                            newstatus = 9;
+                        } else {
+                            resultcode = 2;
+                            resulttekst = "Invalid status change";
+                        }
+                    } else {
+                        resultcode = 4;
+                        resulttekst = "Not authorized for ORDAFR";
+                    }
+                    break;
+                default:
+                    resultcode = 3;
+                    resulttekst = "Invalid status";
+            }  // switch
+        }
+
+        if (resultcode == -1)
+        {   // Nog steeds geen fouten
+            // Construct the update
+            if (this_opdr.canChange)
+            {
+                if (opdr_fields.length>0)
+                {
+                    var mldUpd = buildTrackingUpdate("mld_opdr", "mld_opdr_key = " + opdr_key, opdr_fields, { noValidateToken: true });
+                    Oracle.Execute(mldUpd.sql);
+                    mld.trackopdrachtupdate(opdr_key, L("lcl_ord_is_updatedbysoap") + "\n" + mldUpd.trackarray.join("\n"));
+                    if (mut_datum) // Antedateren voor SLA rapportages.
+                    {
+                        var sql = "BEGIN fac.backtrackaction('ORDUPD', " + opdr_key + ", " + user_key + ", " + mut_datum.toSQL(true) +"); END;"
+                        Oracle.Execute(sql);
+                    }
+                }
+            }
+
+            var this_mld = mld.func_enabled_melding(mld_opdr.mld_key);
+            // mag ik de melding ook aanpassen?
+            if (this_mld.canChange && autoorder)
+            {
+                if (mld_fields.length>0)
+                {
+                    var mldUpd = buildTrackingUpdate("mld_melding", "mld_melding_key = " + mld_opdr.mld_key, mld_fields, { noValidateToken: true });
+                    Oracle.Execute(mldUpd.sql);
+
+                    var formattedID = stdm_info.ins_srtdiscipline_prefix+mld_opdr.mld_key + " ("+ stdm_info.discipline_omschrijving + "/"+ stdm_info.stdmelding_omschrijving +")";
+                    mld.trackmeldingupdate(mld_opdr.mld_key, L("lcl_mld_is_updatedbysoap").format(formattedID) + "\n" + mldUpd.trackarray.join("\n"));
+
+                    if (mut_datum) // Antedateren voor SLA rapportages.
+                    {
+                        var sql = "BEGIN fac.backtrackaction('MLDUPD', " + mld_opdr.mld_key + ", " + user_key + ", " + mut_datum.toSQL(true) +"); END;"
+                        Oracle.Execute(sql);
+                    }
+                }
+            }
+
+            //Response.Write("lengte:"+ opdrkenmerken.length);
+            for (j=0; j < opdrkenmerken.length; j++)
+            {
+              var kenmerk_naam = opdrkenmerken[j].getAttribute("naam");
+              var kenmerk_waarde = opdrkenmerken[j].childNodes[0].nodeValue;
+              //Response.Write(kenmerk_naam);
+              //Response.Write(kenmerk_waarde);
+              ksql = "SELECT k.mld_kenmerk_key, sk.mld_srtkenmerk_kenmerktype, sk.mld_srtkenmerk_lengte "
+                   + "  FROM mld_kenmerk k, mld_srtkenmerk sk "
+                   + " WHERE k.mld_typeopdr_key = " + topdr_key
+                   + "   AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key "
+                   + "   AND sk.mld_srtkenmerk_upper = " + safe.quoted_sql_upper(kenmerk_naam);
+              var oRs = Oracle.Execute(ksql);
+
+              if (!oRs.eof)
+              {
+                var kenmerk_key = oRs("mld_kenmerk_key").value;
+                var kenmerk_type = oRs("mld_srtkenmerk_kenmerktype").value;
+                var kenmerk_lengte = oRs("mld_srtkenmerk_lengte").value;
+
+                ksql = "SELECT ko.mld_kenmerkopdr_key "
+                     + "  FROM mld_kenmerkopdr ko "
+                     + " WHERE ko.mld_opdr_key =  " + opdr_key
+                     + "   AND ko.mld_kenmerk_key = " + kenmerk_key;
+                var oRs = Oracle.Execute(ksql);
+
+                if (kenmerk_type == 'C' || kenmerk_type == 'X')
+                {
+                  // We ondersteunen alleen nog maar karakter- en bestandsnaam-velden.
+                  if (!oRs.eof)
+                  {
+                    var kenmerkopdr_key = oRs("mld_kenmerkopdr_key").value;
+                    ksql = "UPDATE mld_kenmerkopdr SET mld_kenmerkopdr_waarde = " + safe.quoted_sql(kenmerk_waarde) + " WHERE mld_kenmerkopdr_key = " + kenmerkopdr_key;
+                  }
+                  else
+                  {
+                    ksql = "INSERT INTO mld_kenmerkopdr (mld_kenmerk_key, mld_opdr_key, mld_kenmerkopdr_waarde) "
+                         + "VALUES (" + kenmerk_key + ", " + opdr_key + ", " + safe.quoted_sql(kenmerk_waarde) + ")";
+                  }
+                  Oracle.Execute(ksql);
+                }
+              }
+            }
+
+            if (newstatus != -1)
+            {
+                mld.setopdrachtstatus(opdr_key, newstatus);
+                // Hier terugchecken van de status
+                tsql = "SELECT mld_statusopdr_key FROM mld_opdr"
+                     + " WHERE mld_opdr_key="+ opdr_key;
+                oRs = Oracle.Execute(tsql);
+                if (oRs("mld_statusopdr_key").value == newstatus)
+                {
+                    resulttekst = "Status set to "+opdrstatus;
+                    if (mut_datum && opdrstatus) // Tracking antedateren voor SLA rapportages.
+                    {  // 'Toevallig' loopt opdrstatus 1-op-1 met onze trackingcodes
+                        var sql = "BEGIN fac.backtrackaction("+safe.quoted_sql(opdrstatus)+", " + opdr_key + ", " + user_key + ", " + mut_datum.toSQL(true) +"); END;"
+                        Oracle.Execute(sql); // Statuswijzigingen wel even tracken
+                        var txt = { "ORDAFM": L("lcl_ord_is_ordafm"),
+                                    "ORDACP": L("lcl_ord_is_ordacp"),
+                                    "ORDAFR": L("lcl_ord_is_ordafr")
+                                  }[opdrstatus];
+                        mld.trackopdrachtupdate(opdr_key, L("lcl_ord_is_ordupd") + "\n" + txt + L("lcl_trackto") + toDateTimeString(mut_datum));
+                    }
+
+                    // Zijn er nog lopende opdrachten
+                    tsql = "SELECT COUNT ( * ) lopend FROM  mld_opdr"
+                         + " WHERE mld_melding_key = " + mld_key
+                         + " AND mld_statusopdr_key NOT IN (1, 2, 6, 7, 9)"; // (1=afgewezen, 2=niet akkoord, 6=afgemeld, 7=verwerkt en 9=afgerond)
+                    oRs = Oracle.Execute(tsql);
+
+                    if (oRs("lopend").value == 0)
+                    { // Er zijn alleen opdrachten met status 1 (Afgewezen) of 6/9 (Afgemeld/Afgerond)
+                      // Check of setting bij opdrachttype automatisch sluiten ALTIJD (= 2) toestaat.
+                      tsql = "SELECT mld_typeopdr_sluitmelding FROM mld_typeopdr"
+                           + " WHERE mld_typeopdr_key = " + topdr_key;
+                      var oRs = Oracle.Execute(tsql);
+
+                      // Afhankelijk van sluitmelding nu melding status zetten (0=nooit, 1=vragen en 2=altijd)
+                      // Als de laatste opdracht een cancel was dan wordt de melding niet afgemeld.
+                      if ((oRs("mld_typeopdr_sluitmelding").value == 2 || oRs("mld_typeopdr_sluitmelding").value == 1)
+                           && this_mld.canClose
+                           && opdrstatus != 'ORDCAN')
+                      {
+                        mld.setmeldingstatus (mld_key, 5); // Afgemeld
+                        var sql = "BEGIN fac.backtrackaction('MLDAFM', " + mld_key + ", " + user_key + ", " + mut_datum.toSQL(true) +"); END;"
+                        Oracle.Execute(sql); // Statuswijzigingen wel even tracken
+                        mld.trackmeldingupdate(mld_key, L("lcl_mld_is_mldupd") + "\n" + L("lcl_mld_is_mldafm") + L("lcl_trackto") + toDateTimeString(mut_datum));
+                      }
+                      else
+                        // Dan zetten we de Melding hier terug naar Geaccepteerd indien die Uitgegeven was
+                        // Zodat die bij de FO weer onder Inbehandeling valt.
+                        mld.setmeldingstatus (mld_key, 4); // Geaccepteerd
+                    }
+                    // else status van de melding niet aanpassen.
+                    resultcode = 0;
+                }
+                else
+                {
+                    resultcode = 1;
+                    resulttekst = "Status not set to "+opdrstatus+" (is "+oRs("mld_statusopdr_key").value+")";
+                }
+            }
+        }
+    }
+
+        if (resultcode == -1) // Nog steeds geen fouten.
+        {
+            resultcode = 0; // Ik heb gedaan wat ik moest en mocht doen voor deze opdracht.
+        }
 
         var binfo = {
                      returncode: resultcode,
                      returntekst: resulttekst,
                      // executed:sql,   // debug
-                     datum: nowtxt
-                   }
+                     datum: nowtxt,
+                     externnr: externnr
+                    }
 
         var FCLTBody = xmlResp.createElement("opdracht");   // type=response
-        FCLTBody.setAttribute('type', 'response');
         FCLTBody.setAttribute('key', opdrid);
+        FCLTBody.setAttribute('type', 'response');
         for (param in binfo)
         {
             var FCLTdata = xmlResp.createElement(param);
@@ -332,10 +652,19 @@
 
         FCLTElement.appendChild(FCLTBody);
     } // end for
-    // Alle nodes zijn behandeld.
+    // Alle opdracht-nodes zijn behandeld.
+
 
     xmlResp.appendChild(FCLTElement);
 
-    Response.ContentType = "text/xml";
-    Response.Write(xmlResp.xml)
-%>
+    if (API.apidata.stylesheet)
+    {
+        // Niet super efficient dat we eerst naar tekstuele xml gaan maar ach...
+        STR2Stream(xmlResp.xml, API.apidata.stylesheet, Response, {});
+    }
+    else
+    {
+        Response.ContentType = "text/xml";
+        Response.Write(xmlResp.xml)
+    }
+%>

APPL/API/api_perslid.asp

@@ -0,0 +1,172 @@
+<%@ language = "JavaScript" %>
+<% /*
+     $Revision$
+     $Id$
+
+    File:           api_perslid.asp
+
+    Description:    API om een perslid te kunnen muteren.
+    Parameters:     apiname, apikey
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:
+
+     Status:
+*/
+    DOCTYPE_Disable = 1;
+    LCL_Disable = 1
+    THIS_FILE = "appl/api/api_perslid.asp";
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="../api/api.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="../Shared/save2db.inc"-->
+<%
+    Session.Codepage = 65001;
+    Response.Charset = 'utf-8';
+    Session.Abandon(); // Voor de zekerheid
+
+try
+{
+    var APIname = getQParam("API");
+    var APIKEY = getQParam("APIKEY");
+    var API = new API_func(APIname, APIKEY);   // Valideert ook
+
+    var asJSON = getQParam("json","0")!="0";
+
+    var params = RequestJSON();
+    if (!params)
+        API.error("Error parsing input JSON");
+
+    // FAC_API_OPTIONS_JSON
+    var urole = "fe"; // Altijd?
+    var autfunction = urole == "fe"? "WEB_RESUSE" : "WEB_RESFOF";
+    params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
+
+/*
+    params = {
+               externId: "AAFM_12345", // Zelf zorgen dat het uniek is in het doel-systeem
+               voornaam: "Jos",
+               achternaam: "Groot Lipman",
+               email: "user@example.com",
+               telefoon: "053-1234567",
+               mobiel: "06-12345678"
+              };
+*/
+    warning = "";
+    // TODO: Autorisatie
+    prs_key = -1;
+    switch (params.request)
+    {
+        case "select": // zoekt een persoon op basis van params.externId
+            var sql = "SELECT prs_perslid_key"
+                    + "  FROM prs_perslid"
+                    + " WHERE prs_perslid_oslogin = " + safe.quoted_sql("_" + params.externId);
+            var oRs = Oracle.Execute(sql);
+            if (!oRs.Eof)
+            {
+                prs_key = oRs("prs_perslid_key").Value;
+            }
+            oRs.Close();
+            break;
+        case "update": // doet desnoods een insert
+            var fields = [];
+
+            if ("voornaam" in params)
+                fields.push({ dbs: "prs_perslid_voornaam", typ: "varchar",  val: params.voornaam });
+            if ("achternaam" in params)
+                fields.push({ dbs: "prs_perslid_naam", typ: "varchar",  val: params.achternaam });
+            if ("tussenvoegsel" in params)
+                fields.push({ dbs: "prs_perslid_tussenvoegsel", typ: "varchar",  val: params.tussenvoegsel });
+            if ("email" in params)
+                fields.push({ dbs: "prs_perslid_email", typ: "varchar",  val: params.email });
+            if ("geslacht" in params)
+                fields.push({ dbs: "geslacht", typ: "varchar",  val: params.geslacht });
+            if ("prs_perslid_mobiel" in params)
+                fields.push({ dbs: "prs_perslid_mobiel", typ: "varchar",  val: params.mobiel });
+
+            var sql = "SELECT prs_perslid_key"
+                    + "  FROM prs_perslid"
+                    + " WHERE prs_perslid_oslogin = " + safe.quoted_sql("_" + params.externId);
+            var oRs = Oracle.Execute(sql);
+            if (!oRs.Eof)
+            {
+                prs_key = oRs("prs_perslid_key").Value;
+                sql = buildUpdate("prs_perslid", fields, { noValidateToken: true })
+                    + "     prs_perslid_key = " + prs_key;
+                var err = Oracle.Execute(sql, true);
+                if (err.friendlyMsg)
+                    warning = err.friendlyMsg;
+                //else
+                //    shared.trackaction("PRSUPD", prs_key);
+            }
+            else // Nieuwe
+            {   /// TODO: Speciale flags?
+                /// TODO: _default groep (door de trigger) is te veel. Misschien _defaultextern?
+                fields.push({ dbs: "prs_perslid_key",     typ: "key",     seq: "prs_s_prs_alluitvoerende_keys" });
+                fields.push({ dbs: "prs_perslid_oslogin", typ: "varchar", val: "_" + params.externId }); // De underscore voorkomt nagenoeg volledig dat ze ergens in beeld komen
+                fields.push({ dbs: "prs_afdeling_key",    typ: "key",     val: user.prs_afdeling_key() }); // Vooralsnog altijd zelfde als de API-user!
+                fields.push({ dbs: "prs_srtperslid_key",  typ: "key",     val: user.prs_srtperslid_key() });
+                fields.push({ dbs: "prs_perslid_ingids",  typ: "check",   val: 0 });
+
+                var prsIns = buildInsert("prs_perslid", fields, { noValidateToken: true });
+                prs_key = prsIns.sequences["prs_perslid_key"];
+                var err = Oracle.Execute(prsIns.sql, true);
+                if (err.friendlyMsg)
+                    warning = err.friendlyMsg;
+                else
+                {
+                    shared.trackaction("PRSNEW", prs_key);
+                    // We willen niet in authgroep _default maar in _defaultextern
+                    var sql = "DELETE FROM fac_gebruikersgroep"
+                            + " WHERE prs_perslid_key = " + prs_key;
+                    Oracle.Execute(sql);
+                    var sql = " INSERT INTO fac_gebruikersgroep"
+                            + "          (fac_groep_key, prs_perslid_key)"
+                            + " SELECT fac_groep_key, " + prs_key
+                            + "   FROM fac_groep"
+                            + "  WHERE fac_groep_upper = '_DEFAULTEXTERN'";
+                    Oracle.Execute(sql);
+                }
+            }
+            oRs.Close();
+            break;
+        default:
+            API.error("Unknown API request");
+    }
+    // We hebben nu een prs_key
+
+    Response.ContentType = "application/json";
+    Response.AddHeader("Access-Control-Allow-Origin", "*"); // Opdat FireFox cross-domain toestaat
+
+    var result = { success: true };
+    if (warning)
+        result = { succes: false, error: warning };
+    else
+    {
+        result.prs_key = prs_key;
+        if (prs_key > 0)
+        {   // plak prs_auth achter een deeplink en deze gebruiker kan daarmee (vandaag) inloggen
+            result.prs_auth = "userauth=" + prs_key + "&userhmac=" + safe.url(protectHMAC.create(String(prs_key)));
+        }
+    }
+
+    var antwoord = JSON.stringify(result, null, getQParam("pretty","0")=="1"?2:0);
+
+    var oCrypto = new ActiveXObject("SLNKDWF.Crypto");
+    var eTag = '"' + oCrypto.hex_sha1(antwoord).toLowerCase() + '"';
+    Response.AddHeader("ETag", eTag);
+    if (Request.ServerVariables("HTTP_IF_NONE_MATCH") == eTag)
+    {   // We hebben een match!
+        Response.Clear();
+        Response.Status = "304 Not modified";
+        Response.End;
+    }
+    if (API.apidata.loglevel) __Log2File(antwoord, APIname + "_OUT");
+    Response.write(antwoord);
+}
+catch (e)
+{
+    API.error(typeof e == "string"? e : "API_error: " + e.description);
+}
+%>

APPL/API/api_phonebook_sample.html

@@ -1,23 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
-   "http://www.w3.org/TR/html4/strict.dtd">
-<html>
-<head>
-<style>
-    #phonebookdetails * { font-size:9pt; font-family: Verdana, Arial; }
-</style>
-<script type="text/javascript">
-    function initPhonebook()
-    {
-        var phone = new facilitor.phonebook(document.getElementById("phone_canvas"), {  } );
-    }
-</script>
-<script type="text/javascript"
-        src="http://dit03/Facilitor5iwork/?fac_id=XXXX&API=PHONEBOOK&APIKEY=0123456789ABCDEF">
-</script>
-</head>
-
-<body onload="initPhonebook();">
-        <div id="phone_canvas"></div>
-Andere tekst
-</body>
-</html>

APPL/API/api_ressoap.asp

@@ -9,7 +9,7 @@
                         aangemaakt.
 
      Parameters:        Een xml
-     Status:            GEEN
+     Status:            Eerste implementatie in kader AAEN#25223 (tbv. TIBCO/Smart Signs)
      Context:
      Notes:
 */
@@ -19,8 +19,11 @@
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/xml_converter.inc" -->
 <!-- #include file="../Shared/save2db.inc" -->
+<!-- #include file="../Shared/flexfiles.inc" -->
+<!-- #include file="../Shared/upload.inc" -->
 <!-- #include file="../api/api.inc" -->
-<!-- #include file="../mld/mld.inc" -->
+<!-- #include file="../shared/kpl_ksrt_validate.inc" -->
+<!-- #include file="../res/res.inc" -->
 <%
     // We sturen het antwoord in UTF-8.
     Session.Codepage = 65001;
@@ -31,10 +34,20 @@
     var API = new API_func(APIname, APIKEY);
     var tsql = "-";        // Voor tijdelijke statement(s)
     var sql = "-";         // De uiteindelijke insert/update-sql
-    var resultcode = -1;   /* Zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed). */
-    var resulttekst = "";
     var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
-    xmlReq.load(Request);
+    if (API.apidata.stylesheet)
+    {
+        var iXsl = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        if( ! iXsl.load(Server.MapPath(API.apidata.stylesheet)) )
+        {
+            API.error("Could not load XSL " + API.apidata.stylesheet + "\n" + iXsl.parseError.reason);
+        }
+        var inputXML = Server.CreateObject("MSXML2.DOMDocument.4.0");
+        inputXML.load(Request);
+        inputXML.transformNodeToObject(iXsl, xmlReq);
+    }
+    else
+        xmlReq.load(Request);
 
     var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
     xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))
@@ -45,7 +58,7 @@
     var now = new Date();
     var nowtxt = now.getFullYear()+'-'+padout(now.getMonth()+1) +'-'+padout(now.getDate()) +' '
                            +padout(now.getHours()) +':'+padout(now.getMinutes())+':'+padout(now.getSeconds());
-    var FCLTHeader = xmlResp.createElement("header");
+    var elmHeader = xmlResp.createElement("header");
     var headerinfo = {
 //                      file: String(Request.ServerVariables("SCRIPT_NAME")).toLowerCase(),
                       datum: nowtxt,
@@ -57,83 +70,353 @@
     {
         var FCLTdata = xmlResp.createElement(param);
         FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
-        FCLTHeader.appendChild(FCLTdata);
-    }
-    FCLTElement.appendChild(FCLTHeader);
-
-    // Luie oplossing: Oracle kan dit simpeler dan JavaScript.
-    function XMLtoJsDate(xmlDate)
-    {
-        var sql = "SELECT TO_DATE("+safe.quoted_sql(xmlDate)+", 'YYYY-MM-DD HH24:MI:SS') FROM DUAL";
-        var oRs = Oracle.Execute(sql);
-        var dt = new Date(oRs(0).Value);
-        oRs.Close();
-        return dt;
-    }
-
-    function XMLval(xml, tag)
-    {
-        if (!xml)
-            return null;
-        var xx = xml.getElementsByTagName(tag);
-        if (!xx || !xx.length)
-            return null;
-        xx = xx[0].childNodes
-        if (!xx || !xx.length)
-            return null;
-        return xx[0].nodeValue;
+        elmHeader.appendChild(FCLTdata);
     }
+    FCLTElement.appendChild(elmHeader);
 
     // Hier zou het echte werk moeten gebeuren nav. xmlReq
     // en FCLTElement moeten we uitbreiden met antwoorden.
     var detected ="?";
 //    xmlReq.setProperty("SelectionLanguage", "XPath");   // Weet niet of noodzakelijk
 
-    // Dit is de meldingenloop (mochten er ooit nog anderen gaan volgen).
+    // Dit is de reserveringenloop (mochten er ooit nog anderen gaan volgen).
     var reserveringen = xmlReq.getElementsByTagName("reservering");
     for (i=0; i < reserveringen.length; i++)
     {
+        var resultcode = -1;   /* Zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed). */
+        var resulttekst = "";
+
         // Lees per node de (optionele) tags en waarden.
         var fields = []; // Bij te werken velden.
-        var ext_id        = reserveringen[i].getAttribute("key");
-        var meldaction    = reserveringen[i].getAttribute("type").toLowerCase();
-        var melddatum     = XMLval(reserveringen[i], "datum");
-        var stdmld_key    = parseInt(XMLval(reserveringen[i], "stdmelding"), 10); // Numeriek
-        var stdmld_sla    = -1;   // Normale uitvoertijd (prio door melder nog unsupported)
-        var meldloc       = XMLval(reserveringen[i], "locatiecode");
-        var meldgeb       = XMLval(reserveringen[i], "gebouwcode");
-        var meldver       = XMLval(reserveringen[i], "verdiepingcode");
-        var meldrnr       = XMLval(reserveringen[i], "ruimtecode");
-        var locatie_key   = -1;   // Bepaald op basis van meldloc
-        var plaats_key    = -1;   // Bepaald op basis van meldgeb/meldver/meldrnr
-        var meld_oms      = XMLval(reserveringen[i], "omschrijving");
-        //var meldkenmerken = (reserveringen[i].getElementsByTagName("kenmerk"))[0].childNodes[0].nodeValue; // Unsupported yet
-        var mld_key       = -1;   // Bepaald na insert
+        var resid         = reserveringen[i].getAttribute("key"); // Bij type=update/delete
+        var resaction     = reserveringen[i].getAttribute("type").toLowerCase();
+        var ruimtekey     = parseInt(XMLval(reserveringen[i], "ruimtekey"), 10); // res_ruimte_key
+        var van           = XMLval(reserveringen[i], "van");
+        var tot           = XMLval(reserveringen[i], "tot");
+        var res_oms       = XMLval(reserveringen[i], "omschrijving");
+        var shown         = XMLval(reserveringen[i], "shown");
+        //var reskenmerken = (reserveringen[i].getElementsByTagName("kenmerk")); // Unsupported yet
 
-        user.checkAutorisation("WEB_RESUSE"); // Dit is nog ongeacht de melding
+        if (resid == null) { // Voorkom problemen als key-attribuut ontbreekt!
+          resid = '';
+        }
+        if (isNaN(ruimtekey) ) { // Voorkom problemen als ruimtekey ontbreekt!
+          ruimtekey = -1;
+        }
+        var idarr = resid.split('/');
+        var reservering_key   = parseInt(idarr[0], 10); // En anders bepaald bij insert!
+        var rsv_ruimte_volgnr = parseInt(idarr[1], 10); // En anders 1 bij insert!
+        var rsv_ruimte_key    = -1; // Bepalen we later bij insert/update/delete!
 
-        if (ext_id == null) {
-            resultcode = 1;
-            resulttekst = "Undefined external ID (key)";
-        } else if (meldaction != 'insert') {
+        user.checkAutorisation("WEB_RESFOF"); // Dit is nog ongeacht de reservering
+
+        if (resaction == 'insert') {
+          tsql = "  SELECT rad.res_discipline_key, rad.res_activiteit_key, rro.res_ruimte_opstel_key,"
+              + "          COALESCE(rr.res_ruimte_begintijd, " + S("res_t1") + ") begintijd,"
+              + "          COALESCE(rr.res_ruimte_eindtijd, " + S("res_t2") + ") eindtijd"
+              + "     FROM res_ruimte_opstelling rro, res_ruimte rr, res_activiteitdiscipline rad,"
+              + "          (SELECT * FROM res_activiteit ra1"
+              + "            WHERE NOT EXISTS"
+              + "                     (SELECT 1 FROM res_activiteit ra2"
+              + "                       WHERE COALESCE (ra2.res_activiteit_volgnr, 999 + ra2.res_activiteit_key) <"
+              + "                             COALESCE (ra1.res_activiteit_volgnr, 999 + ra1.res_activiteit_key))) ra"
+              + "    WHERE rro.res_ruimte_key="+ruimtekey
+              + "      AND rro.res_ruimte_key = rr.res_ruimte_key"
+              + "      AND res_ruimte_verwijder IS NULL"
+              + "      AND rr.res_discipline_key = rad.res_discipline_key"
+              + "      AND rad.res_activiteit_key = ra.res_activiteit_key"
+              + " ORDER BY rro.res_ruimte_opstel_default DESC NULLS LAST"; // die met '1' komt vooraan
+          var oRs = Oracle.Execute(tsql);
+          if (oRs.eof) {
+            resultcode = 3;
+            resulttekst = "Invalid/undefined ruimtekey";
+          }
+          else {
+            // Hier heb ik een geldige res_ruimte_key en weet ik de discipline, default activiteit en default opstelling!
+            var disc_key = oRs("res_discipline_key").value;
+            var act_key = oRs("res_activiteit_key").value;
+            var opstel_key = oRs("res_ruimte_opstel_key").value;
+
+            if (van != null) {
+              try {
+                var vandate = XMLtoJsDate(van);
+              }
+              catch (e) {
+                __DoLog("Formaat ontvangen XML-datum incorrect (van): "+van, "#00FF00");
+                // Datum-formaat niet volgens spec.? Dan exit!
+                resultcode = 4;
+                resulttekst = "Invalid date format";
+              }
+            }
+            else {
+              __DoLog("Geen XML-datum ontvangen (van): ", "#00FF00");
+              // Geen van-datum, dan exit!
+              resultcode = 4;
+              resulttekst = "Missing parameter(s)";
+            }
+
+            if (tot != null) {
+              try {
+                var totdate = XMLtoJsDate(tot);
+              }
+              catch (e) {
+                __DoLog("Formaat ontvangen XML-datum incorrect (tot): "+tot, "#00FF00");
+                // Datum-formaat niet volgens spec.? Dan exit!
+                resultcode = 4;
+                resulttekst = "Invalid date format";
+              }
+            }
+            else {
+              __DoLog("Geen XML-datum ontvangen (tot): ", "#00FF00");
+              // Geen tot-datum, dan exit!
+              resultcode = 4;
+              resulttekst = "Missing parameter(s)";
+            }
+
+            if (res_oms == null) { // Geen/lege omschrijving wordt gezien als ongeplande reservering!
+              res_oms = "Ongeplande reservering";
+            }
+
+            if (resultcode == -1) { // nog steeds geen fouten
+              // Check van-dag = tot-dag = vandaag!
+              if (1==0) {
+                resultcode = 6;
+                resulttekst = "Illegal reservering (date)";
+              }
+            }
+
+            if (resultcode == -1) { // nog steeds geen fouten
+              // Check van < tot en beide tegen openingstijden ruimte!
+              var df = vandate.getHours() + vandate.getMinutes()/60;
+              var dt = totdate.getHours() + totdate.getMinutes()/60;
+              if (vandate > totdate ||
+                  df < oRs("begintijd").value || df > oRs("eindtijd").value ||
+                  dt < oRs("begintijd").value || dt > oRs("eindtijd").value) {
+                resultcode = 6;
+                resulttekst = "Illegal reservering (time)";
+              }
+            }
+
+            if (resultcode == -1) { // nog steeds geen fouten
+              // Combinatievalidatie ruimte discipline!
+              if (!kpl_ksrt_validate(user.afdeling().prs_kostenplaats_key(), null, disc_key)) {
+                resultcode = 6;
+                resulttekst = "Illegal reservering (cost)";
+              }
+            }
+
+            if (resultcode == -1) { // nog steeds geen fouten
+              // Feitelijke ad-hoc of ongeplande insert! Eerst ook altijd een res_reservering record aanmaken!
+              var resfields = [ { dbs: "res_reservering_key",     typ: "key",      seq: "res_s_res_reservering_key" },
+                                { dbs: "res_reservering_aanmaak", typ: "datetime", val: new Date() }
+                              ];
+              var resIns = buildInsert("res_reservering", resfields, { noValidateToken: true });
+              reservering_key = resIns.sequences["res_reservering_key"];
+              Oracle.Execute(resIns.sql);
+
+              resid = reservering_key+"/1";
+
+              fields.push({ dbs: "res_activiteit_key",            typ: "key",      val: act_key });
+              fields.push({ dbs: "res_status_fo_key",             typ: "key",      val: 2 }); // definitief = 2???
+              fields.push({ dbs: "res_ruimte_opstel_key",         typ: "key",      val: opstel_key });
+              fields.push({ dbs: "res_rsv_ruimte_van",            typ: "datetime", val: vandate });
+              fields.push({ dbs: "res_rsv_ruimte_tot",            typ: "datetime", val: totdate });
+              fields.push({ dbs: "res_rsv_ruimte_bezoekers",      typ: "number",   val: 1 }); // altijd 1
+              fields.push({ dbs: "prs_kostenplaats_key",          typ: "key",      val: user.afdeling().prs_kostenplaats_key() });
+              fields.push({ dbs: "res_rsv_ruimte_host_key",       typ: "key",      val: user_key });
+              fields.push({ dbs: "res_rsv_ruimte_contact_key",    typ: "key",      val: user_key });
+              fields.push({ dbs: "res_rsv_ruimte_omschrijving",   typ: "varchar",  val: res_oms, len: 4000 });
+
+              fields = fields.concat(
+                        [ { dbs: "res_rsv_ruimte_key",            typ: "key",      seq: "res_s_res_rsv_ruimte_key" },
+                          { dbs: "res_reservering_key",           typ: "key",      val: reservering_key },
+                          { dbs: "res_rsv_ruimte_volgnr",         typ: "number",   val: 1 }, // altijd 1
+                          { dbs: "res_status_bo_key",             typ: "key",      val: 2 } // ingevoerd
+                        ]);
+
+              var resIns = buildInsert("res_rsv_ruimte", fields, { noValidateToken: true });
+              rsv_ruimte_key = resIns.sequences["res_rsv_ruimte_key"];
+              sql = "BEGIN "
+                  + resIns.sql + ";"
+                  + "res.set_ruimte_dirty (" + rsv_ruimte_key + "); " // Zelf dirty geworden?
+                  + "END;";
+              Oracle.Execute(sql);
+
+              // RESNEW-tracking toevoegen!
+              shared.trackaction("RESNEW", rsv_ruimte_key);
+
+              resultcode = 0; // Ik heb gedaan wat ik moest en mocht doen voor deze reservering.
+            }
+          	oRs.Close();
+          }
+        }
+        else if (resaction == 'update')
+        {
+          if (resid == '') {
             resultcode = 2;
-            resulttekst = "Undefined operation (type)";
-        } else {
+            resulttekst = "Undefined reservering (key)";
+          }
+          else if (isNaN (reservering_key) || isNaN (rsv_ruimte_volgnr)) {
+            resultcode = 2;
+            resulttekst = "Invalid reservering (key) "+resid;
+          }
+          else {
+            tsql = "SELECT res_rsv_ruimte_key, res_rsv_ruimte_van, res_rsv_ruimte_tot"
+                + "   FROM res_v_aanwezigrsv_ruimte"
+                + "  WHERE res_reservering_key="+reservering_key
+                + "    AND res_rsv_ruimte_volgnr="+rsv_ruimte_volgnr
+                + "    AND TRUNC(res_rsv_ruimte_van)>=TRUNC(SYSDATE)" // Alleen vandaag of in de toekomst???
+                + "    AND 1=1"; // Niet dirty, niet verwijderd, ...???
+            var oRs = Oracle.Execute(tsql);
+            if (!oRs.eof) {
+              // Hier heb ik een geldige res_rsv_ruimte_key.
+              rsv_ruimte_key = oRs("res_rsv_ruimte_key").value;
 
-                DO OUT THING HERE
+          	  var this_res = res.func_enabled(rsv_ruimte_key); // Wat heb ik zoal aan rechten op deze specifieke reservering
+          	  user.auth_required_or_abort(this_res.canChange);
 
-        } // end geldige ext_id
+          	  if (shown != null) { // Bij update optioneel
+                // Feitelijke UPDATE shown.
+                // Verder geen checks (Oracle fout als shown < 0 of shown > 999 niet afvangen???)!
+                sql = "UPDATE res_rsv_ruimte"
+                    + "    SET res_rsv_ruimte_bezoekers_shown="+parseInt(shown, 10)
+                    + "  WHERE res_rsv_ruimte_key="+rsv_ruimte_key
+                    + "    AND 1=1"; // Niet dirty, niet verwijderd, ...???
+                Oracle.Execute(sql);
+
+                // RESNOS-tracking toevoegen!
+                shared.trackaction("RESNOS", rsv_ruimte_key);
+              }
+
+              var oldvan = new Date(oRs("res_rsv_ruimte_van").Value);
+              var oldtot = new Date(oRs("res_rsv_ruimte_tot").Value);
+          	  if (tot != null) { // Bij update optioneel
+                try {
+                  var totdate = XMLtoJsDate(tot);
+                }
+                catch (e) {
+                  __DoLog("Formaat ontvangen XML-datum incorrect (tot): "+tot, "#00FF00");
+                  // Datum-formaat niet volgens spec.? Dan exit!
+                  resultcode = 4;
+                  resulttekst = "Invalid date format";
+                }
+
+                if (resultcode == -1) { // nog steeds geen fouten
+                  // Check van-dag = tot-dag = vandaag!
+                  if (1==0) {
+                    resultcode = 6;
+                    resulttekst = "Illegal update (tot-date)";
+                  }
+                }
+
+                if (resultcode == -1) { // nog steeds geen fouten
+                  // Check oldvan < tot (openingstijden ruimte niet afvangen???)!
+                  if (oldvan > totdate) {
+                    resultcode = 6;
+                    resulttekst = "Illegal update (tot-time)";
+                  }
+                }
+
+                if (resultcode == -1) { // nog steeds geen fouten
+                  // Feitelijke UPDATE tot-tijd (tijd in minuten/seconden niet afvangen???)!
+                  // Meerdaags op dit moment hieronder nog in UPDATE voorkomen.
+                  sql = "UPDATE res_rsv_ruimte"
+                      + "   SET res_rsv_ruimte_tot="+totdate.toSQL(true)
+                      + " WHERE res_rsv_ruimte_key="+rsv_ruimte_key
+                      + "   AND TRUNC(res_rsv_ruimte_tot)=TRUNC("+totdate.toSQL(true)+")"
+                      + "   AND 1=1"; // Niet dirty, niet verwijderd, niet meerdaags, niet overlappend, ...???
+                  Oracle.Execute(sql);
+
+                  sql = "BEGIN "
+                      + "res.set_ruimte_dirty (" + rsv_ruimte_key + "); " // Zelf dirty geworden?
+                      + "res.set_ruimtes_clean (" + oldvan.toSQL() + "); " // Anderen clean geworden
+                      + "res.follow_artikel (" + rsv_ruimte_key + ", " + oldvan.toSQL(true) + ", " + oldtot.toSQL(true) + "); " // catering mee verplaatsen
+                      + "res.follow_deel (" + rsv_ruimte_key + ", " + oldvan.toSQL(true) + ", " + oldtot.toSQL(true) + "); " // objecten mee verplaatsen
+                      + "res.follow_afspraak (" + rsv_ruimte_key + ", " + S("res_copy_to_bez") + "); " // bezoekers mee verplaatsen
+                      + "END;";
+                  Oracle.Execute(sql);
+
+                  // TODO: Nog iets met parkeerplaatsen???
+
+                  // RESUPD-tracking toevoegen!
+                  shared.trackaction("RESUPD", rsv_ruimte_key);
+                }
+              }
+
+              if (resultcode == -1) { // nog steeds geen fouten
+                resultcode = 0; // Ik heb gedaan wat ik moest en mocht doen voor deze reservering.
+              }
+          	} else {
+              resultcode = 5;
+              resulttekst = "Not updatable reservering "+resid;
+          	}
+          	oRs.Close();
+          }
+        }
+        else if (resaction == 'delete')
+        {
+          if (resid == '') {
+            resultcode = 2;
+            resulttekst = "Undefined reservering (key)";
+          }
+          else if (isNaN (reservering_key) || isNaN (rsv_ruimte_volgnr)) {
+            resultcode = 2;
+            resulttekst = "Invalid reservering (key) "+resid;
+          }
+          else {
+            tsql = "SELECT r.res_rsv_ruimte_key"
+                + "   FROM res_v_aanwezigrsv_ruimte r, fac_tracking t, fac_srtnotificatie sn"
+                + "  WHERE r.res_reservering_key="+reservering_key
+                + "    AND r.res_rsv_ruimte_volgnr="+rsv_ruimte_volgnr
+                + "    AND TRUNC(r.res_rsv_ruimte_van)>=TRUNC(SYSDATE)" // Alleen vandaag of in de toekomst???
+                + "    AND 1=1" // Niet dirty, niet verwijderd, geen voorzieningen, ...???
+                + "    AND r.res_rsv_ruimte_key=t.fac_tracking_refkey"
+                + "    AND t.fac_srtnotificatie_key=sn.fac_srtnotificatie_key"
+                + "    AND sn.fac_srtnotificatie_code='RESNEW'"
+                + "    AND t.prs_perslid_key="+user_key;
+            var oRs = Oracle.Execute(tsql);
+            if (!oRs.eof) {
+              // Hier heb ik een geldige res_rsv_ruimte_key die kan/mag worden verwijderd!
+              rsv_ruimte_key = oRs("res_rsv_ruimte_key").value;
+
+          	  var this_res = res.func_enabled(rsv_ruimte_key); // Wat heb ik zoal aan rechten op deze specifieke reservering
+          	  user.auth_required_or_abort(this_res.canDelete);
+
+              // Feitelijke delete (voorlopig?) alleen toegestaan voor eerder via API aangemaakte ad-hoc/ongeplande reservering!
+              sql = "UPDATE res_rsv_ruimte r"
+                 + "    SET r.res_rsv_ruimte_verwijder=SYSDATE"
+                 + "  WHERE r.res_rsv_ruimte_key="+rsv_ruimte_key;
+              Oracle.Execute(sql);
+
+              // TODO: Nog iets met anderen clean geworden???
+
+              // RESDEL-tracking toevoegen (zonder opmerking???)!
+              shared.trackaction("RESDEL", rsv_ruimte_key);
+
+              resultcode = 0; // Ik heb gedaan wat ik moest en mocht doen voor deze reservering.
+          	}
+          	else {
+              resultcode = 5;
+              resulttekst = "Not deletable reservering "+resid;
+          	}
+          	oRs.Close();
+          }
+        }
+        else {
+          resultcode = 2;
+          resulttekst = "Undefined operation (type)";
+        }
 
         var binfo = {
                      returncode: resultcode,
                      returntekst: resulttekst,
-                     // executed:sql,   // debug
-                     datum: nowtxt,
-                     meldingnr: mld_key
+                     // executed:sql, // debug
+                     datum: nowtxt, // TODO: Beter ook xml-datum???
+                     resid: resid
                     }
 
         var FCLTBody = xmlResp.createElement("reservering");   // type=response
-        FCLTBody.setAttribute('key', ext_id);
+        FCLTBody.setAttribute('key', resid);
         FCLTBody.setAttribute('type', 'response');
         for (param in binfo)
         {
@@ -144,10 +427,18 @@
 
         FCLTElement.appendChild(FCLTBody);
     } // end for
-    // Alle melding-nodes zijn behandeld.
+    // Alle reservering-nodes zijn behandeld.
 
     xmlResp.appendChild(FCLTElement);
 
-    Response.ContentType = "text/xml";
-    Response.Write(xmlResp.xml)
+    if (API.apidata.stylesheet)
+    {
+        // Niet super efficient dat we eerst naar tekstuele xml gaan maar ach...
+        STR2Stream(xmlResp.xml, API.apidata.stylesheet, Response, {});
+    }
+    else
+    {
+        Response.ContentType = "text/xml";
+        Response.Write(xmlResp.xml)
+    }
 %>

APPL/API/api_ressoap_info.asp

@@ -0,0 +1,183 @@
+<%@ language = "JavaScript" %>
+<% /*
+     $Revision$
+     $Id$
+
+    File:           api_ressoap_info.asp
+
+    Description:    Planbord achtige informatie achterhalen.
+    Parameters:     apiname, apikey
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:
+*/
+    JSON_Result = true;
+    LCL_Disable = 1
+    THIS_FILE = "appl/api/api_ressoap_info.asp";
+
+//    Session("logging")=1;
+
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="../api/api.inc" -->
+<!-- #include file="../Shared/discxalg3d.inc"-->
+<!-- #include file="../fac/prodsearch.inc"-->
+<!-- #include file="../res/res.inc" -->
+<%
+    Session.Codepage = 65001;
+    Response.Charset = 'utf-8';
+    Session.Abandon(); // Voor de zekerheid
+
+try
+{
+    var APIname = getQParam("API");
+    var APIKEY = getQParam("APIKEY");
+    var API = new API_func(APIname, APIKEY);   // Valideert ook
+
+    var asJSON = getQParam("json","0")!="0";
+
+    var params = RequestJSON();
+    if (!params)
+        API.error("Error parsing input JSON");
+
+    // FAC_API_OPTIONS_JSON
+    var urole = "fe"; // Altijd?
+    var autfunction = urole == "fe"? "WEB_RESUSE" : "WEB_RESFOF";
+    params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
+
+/*
+    xparams = {id: "tab_room_sched",
+                  res_van: new Date(2013, 11, 3, 08, 00),
+                  res_tot: new Date(2013, 11, 3, 17, 00),
+                  loc: 71, // Alkmaar
+                  bld: -1,
+                  ruimtecat: [],
+                  res_ruimte_key: -1,
+                  rsv_ruimte_key: -1,
+                  vis: 1, // vis,
+                  activiteit_key: 1, // UWVA vergadering
+                  srtact: -1,  // niet nodig als activiteit_key?
+                  forSelectRoom: true,
+                  authparams: user.checkAutorisation(autfunction, null, null, true), // pessimistisch
+                  urole: urole
+              };
+*/
+    var headerinfo = {
+//                      file: String(Request.ServerVariables("SCRIPT_NAME")).toLowerCase(),
+//                      datum: new Date(),
+                      naam: user.naam(),
+                      custId: customerId,
+                      language: user.lang()
+                     }
+
+    params.anonymous = true; // erg anoniem
+    params.get_deepurl = true; // we willen graag een bookmark
+
+    if (params.prs_externId && !(params.prs_key > 0))
+    {
+        var sql = "SELECT prs_perslid_key"
+                + "  FROM prs_perslid"
+                + " WHERE prs_perslid_oslogin = " + safe.quoted_sql("_" + params.prs_externId);
+        var oRs = Oracle.Execute(sql);
+        if (!oRs.Eof)
+        {
+            params.prs_key = oRs("prs_perslid_key").Value;
+        }
+        oRs.Close()
+    }
+
+    switch (params.request)
+    {
+        case "plan_rooms_info":
+            plan_info = res.plan_rooms_info(params);
+            set_deep_info(params, plan_info);
+            break;
+        case "plan_bezet_info":
+            plan_info = res.plan_bezet_info(params);
+            break;
+        case "prodsearch_rooms_info":
+            var w_discs = write_discs();
+            var filter = {  s:      params.s
+                         ,  soort: { val: "resruimte",  lcl: L("lcl_srch_entiteit") }
+                         ,  satisfaction: params.satisfaction
+                         ,  locatieKey: -1
+                         ,  gebouwKey: -1
+                         ,  verdiepingKey: -1
+                         };
+
+            var inc_queries = ["resruimte"];
+            var queries = prodsearch_queries(w_discs, filter);
+            var q_items = { alg_locatie_plaats: params.alg_locatie_plaats };
+            var sql = prodsearch_sql(filter, queries, w_discs, q_items, inc_queries);
+            var oRs = Oracle.Execute(sql);
+            var plan_info = Oracle.rs2hash(oRs);
+            oRs.Close();
+            set_deep_info(params, plan_info);
+            break;
+        case "user_lopend_info": // Alle lopende reserveringen van params.prs_externId
+
+            plan_info = [];
+            if (params.prs_key > 0)
+            {
+                plan_info = res.user_lopend_info(params);
+            }
+            break;
+        default:
+            API.error("Unknown API request: " + params.request);
+    }
+
+    Response.ContentType = "application/json";
+    Response.AddHeader("Access-Control-Allow-Origin", "*"); // Opdat FireFox cross-domain toestaat
+
+var result = { header: headerinfo,
+               success: true
+             }
+    result[params.request] = plan_info;
+
+    var antwoord = JSON.stringify(result, null, getQParam("pretty","0")=="1"?2:0);
+
+    var oCrypto = new ActiveXObject("SLNKDWF.Crypto");
+    var eTag = '"' + oCrypto.hex_sha1(antwoord).toLowerCase() + '"';
+    Response.AddHeader("ETag", eTag);
+    if (Request.ServerVariables("HTTP_IF_NONE_MATCH") == eTag)
+    {   // We hebben een match! Effectief besparen wel alleen op dataverkeer, de queries zijn al geweest
+        Response.Clear();
+        Response.Status = "304 Not modified";
+        Response.End;
+    }
+    if (API.apidata.loglevel) __Log2File(antwoord, APIname + "_OUT");
+    Response.write(antwoord);
+}
+catch (e)
+{
+    API.error(typeof e == "string"? e : "API_error: " + e.description);
+}
+
+function set_deep_info(params, plan_info)
+{
+    // Bepaal de URL waar user straks op kan klikken
+    if (params.mobile)
+    {
+        var deepurl = HTTP.urlzelf() + "/appl/pda/reservering.asp?fac_id=" + customerId;
+    }
+    else
+    {
+        var sql = "SELECT fac_bookmark_id"
+                + "  FROM fac_bookmark"
+                + " WHERE fac_bookmark_xmlnode = 'reservering'";
+        var oRs = Oracle.Execute(sql);
+        var bm = oRs("fac_bookmark_id").Value;
+        oRs.Close();
+        var deepurl = HTTP.urlzelf() + "/?fac_id=" + customerId + "&u=" + bm;
+    }
+    for (var r in plan_info)
+    {
+        plan_info[r].deepurl = deepurl;
+        if (plan_info[r].image)
+            plan_info[r].image_url = HTTP.urlzelfnoroot() + S("res_image_path") + plan_info[r].image;
+        else if (plan_info[r].foto) // prodsearch
+            plan_info[r].image_url = HTTP.urlzelfnoroot() + S("res_image_path") + plan_info[r].foto;
+    }
+}
+%>

APPL/API/phonebook_js.asp

@@ -14,6 +14,7 @@
 DOCTYPE_Disable = 1;
 FCLTEXPIRES = 8*60; // geen database interactie tenslotte
 THIS_FILE = "appl/api/phonebook_js.asp";
+var EXPIRED_PASSWORD_OK = true; // performance
 %>
 <!-- #include file="../Shared/common.inc"-->
 <!-- #include file="../Shared/json2.js" -->
@@ -65,7 +66,7 @@ function L(p_lcl)
   getCSS("appl/api/api.css");
 
   <% if (!nojQuery) { /* kan conflicteren */ %>
-        getScript("appl/localscripts/jquery-1.6.1.min.js");
+        getScript("appl/localscripts/<%=_jqueryver%>.min.js");
   <% } %>
   getScript("appl/shared/suggest/suggest.js");
 
@@ -107,13 +108,6 @@ function L(p_lcl)
         }
     %>
 
-    window.facilitor.decodehtml = function(encodedStr)
-    {   // get_phonebook_info.asp heeft ons alles HTML-encoded gegeven maar hier willen we dat niet
-        // Belgi&#235;.jpg --> Belgi<67>.jpg
-        var decoded = $("<div/>").html(encodedStr).text();
-        return decoded;
-    }
-
     window.facilitor.show_phonebook = function(data, textStatus)
     {
         // Alle styling moet nog via classes
@@ -134,7 +128,7 @@ function L(p_lcl)
         var trs = "";
         if (window.facilitor.phonebook_options.toonFoto && data.photopath)
         {
-            trs += "<tr><td></td><td></td><td rowspan='50'><img src='<%=sitenoroot%>" + escape(window.facilitor.decodehtml(data.photopaththumb)) +"'></td></tr>";
+            trs += "<tr><td></td><td></td><td rowspan='50'><img src='<%=sitenoroot%>" + data.photopaththumb.replace(/\'/g,'&#39;').replace(/\"/g,'&quot;') +"'></td></tr>";
         }
         var fld;
         for (fld in window.facilitor.phonebook_options.fields)

APPL/API/shorturl.asp

@@ -7,6 +7,7 @@
     Description:    Redirect naar een bookmark url
     Parameters:     u      Bookmark die in de bookmark tabel moet zitten.
                            Dit moet de eerste parameter zijn als er nog meer komen
+                    k      Een integer keywaarde die plat achter de bookmark_query wordt geplakt
                     --     Optionele parameter(s): die worden allemaal blind
                            doorgegeven naar het volgende scherm
     Context:        Vanuit root
@@ -16,32 +17,42 @@
                     dat is in tegenspraak met het betekenisloos zijn van de u-param
                     Als je dat wilt moet je maar BOOKMARK's gebruiken
 */
-
-    LCL_Disable = 1;
     ANONYMOUS_Allowed = 1;
 %>
 <!-- #include file="../Shared/common.inc"-->
 <%
     var u = getQParam("u");
+    var keyparam = getQParamInt("k", -1);
     // For flexiblity reasons: Literal or runtime parameter(s), just pass through...
     var rest = String(Request.ServerVariables("QUERY_STRING")); // Request.ServerVariables("QUERY_STRING") is url-encoded,
                                                                 // dat is hier safer dan Request.QueryString
-    rest = rest.substring(("u="+u).length+1);
+    // Strip eventuele leading &fac_id=XXXX er ook af.
+    rest = rest.substring(rest.indexOf("u=")).substring(("u="+u).length+1);
 
     var sql = "SELECT fac_bookmark_path,"
             + "       fac_bookmark_query,"
             + "       prs_perslid_key_auth,"
-            + "       fac_bookmark_unauth_url"
+            + "       fac_bookmark_unauth_url,"
+            + "       fac_bookmark_expire,"
+            + "       fac_bookmark_refreshtime"
             + "  FROM fac_bookmark"
-            + " WHERE fac_bookmark_id = " + safe.quoted_sql(u)
-            + "   AND (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)";
+            + " WHERE fac_bookmark_id = " + safe.quoted_sql(u);
     var oRs = Oracle.Execute(sql);
     if (oRs.Eof)
     {
-        Response.Write("BOOKMARK URL NOT FOUND");
-        Response.End;
+        shared.simpel_page(L("lcl_fac_bookmark_unknown"));
     }
+    if (oRs("fac_bookmark_expire").Value != null)
+    {
+        var expire = new Date(oRs("fac_bookmark_expire").Value);
+        if (expire <= new Date)
+        {
+            shared.simpel_page(L("lcl_fac_bookmark_expired"));
+        }
+    }
+
     var url = oRs("fac_bookmark_path").Value;
+    var refresher = oRs("fac_bookmark_refreshtime").Value;
 
     if (oRs("prs_perslid_key_auth").Value)
     {
@@ -50,16 +61,52 @@
     else
         Session("unauth_url") = oRs("fac_bookmark_unauth_url").Value; // wordt opgepikt door common.asp
 
-    if (oRs("fac_bookmark_query").Value)
+    var params = oRs("fac_bookmark_query").Value;
+    if (params)
     {
-        url += "?" + oRs("fac_bookmark_query").Value + (rest?"&"+rest:"");
+        if (keyparam > -1)
+        {
+            rest = rest.substring(("k="+keyparam).length+1);
+            params += keyparam;
+        }
+        if (rest)
+            params += "&" + rest;
     }
     else
     {
         if (rest)
-            url += "?" + rest;
+            params = rest;
     }
     oRs.Close();
-    Response.Redirect(protectQS.create(url));
+
+    // Als getQParam maar dan uit een string. Altijd null als niet gevonden
+    // Let op: de query mag niet (meer) URL-escaped zijn
+    function getSParam (key, query)
+    {
+        var nn = 1;
+        var params = query.split("&");
+        for (var i in params)
+        {
+            var xx = params[i].split("=");
+            if (xx[0].toUpperCase() == key.toUpperCase() && xx.length > 1)
+            {
+                return String(xx[1]);
+            }
+        }
+        return null;
+    }
+
+    url = url + "?" + params;
+
+    // Als de bookmark een refreshrate heeft ingesteld wordt automatisch gerefreshed
+    // Voorkom recursie met norefresh
+    // Testen op referrer=refresher.asp is mij niet stabiel genoeg
+    if (refresher > 0 && getQParamInt("norefresh",0) == 0)
+    {
+        theURL = "appl/shared/refresher.asp?url=" + Server.URLencode("/?norefresh=1" + transitQS()) + "&refreshrate=" + refresher;
+    }
+    else
+        var theURL = protectQS.create(url);
+    Response.Redirect(theURL);
 %>
 

APPL/API2/api2.inc

@@ -0,0 +1,679 @@
+<% /*
+    $Revision$
+    $Id$
+
+    File:           api.inc
+    Description:    Functies voor API's
+    Notes:
+
+*/
+%>
+<!-- #include file="../Shared/save2db.inc" -->
+<%
+api2 = {
+    authenticate: function _authenticate(model)
+    {
+        var APIKEY;
+        if (S("fac_api_key_in_url"))
+            APIKEY = getQParam("APIKEY", "");
+        if (!APIKEY && Request.ServerVariables("HTTP_X_FACILITOR_API_KEY").Count)
+            APIKEY = String(Request.ServerVariables("HTTP_X_FACILITOR_API_KEY")); // Meegegeven als X-FACILITOR-API-Key
+
+        if (!APIKEY && Session("user_key") > 0)
+        {
+            user_key = Session("user_key"); // Hierdoor is de API intern te gebruiken zonder authenticatie
+        }
+        else
+        {
+            Session.Abandon(); // Altijd, voor de zekerheid
+
+            var sql = "SELECT prs_perslid_key, prs_perslid_naam"
+                    + "  FROM prs_perslid"
+                    + " WHERE prs_perslid_verwijder IS NULL"
+                    + "   AND prs_perslid_apikey = " + safe.quoted_sql(APIKEY);
+            var oRs = Oracle.Execute(sql);
+            if (oRs.Eof || !APIKEY)
+            {
+                Response.Status = "401 Unauthorized";
+                //Response.AddHeader("WWW-Authenticate", "Basic realm=\"FACILITOR API\"");
+                Response.End;
+            };
+            __Log("API2 User is: " + oRs("prs_perslid_naam").Value);
+            /* global */ user_key = oRs("prs_perslid_key").Value;
+            oRs.Close();
+        }
+        /* global */ user = new Perslid(user_key);
+
+        // Impersonate?
+        var IMPERS;
+        if (S("fac_api_key_in_url"))
+            IMPERS = getQParam("SWITCHUSER", "");
+        if (!IMPERS && Request.ServerVariables("HTTP_X_FACILITOR_SWITCH_USER").Count)
+            IMPERS = String(Request.ServerVariables("HTTP_X_FACILITOR_SWITCH_USER")); // Meegegeven als X-FACILITOR-SWITCH-USER
+        if (IMPERS) // && S("fac_api_allow_impersonate")
+        {
+           var sql = "SELECT prs_perslid_key, prs_perslid_naam"
+                   + "  FROM prs_perslid"
+                   + " WHERE prs_perslid_verwijder IS NULL"
+                    + "   AND prs_perslid_oslogin = " + safe.quoted_sql_upper(IMPERS);
+            var oRs = Oracle.Execute(sql);
+            if (oRs.Eof)
+            {
+                Response.Status = "412 Invalid X-Facilitor-Switch-User header";
+                Response.End;
+            };
+            __Log("IMPERS User is: " + oRs("prs_perslid_naam").Value);
+            var other_user_key = oRs("prs_perslid_key").Value;
+            oRs.Close();
+            if (model.impersonate_auth)
+            {
+                var xfunc = user.func_enabled2(model.module, { prs_key: other_user_key, isOptional: true });
+                var can = (xfunc && xfunc.canRead(model.impersonate_auth));
+                if (can)
+                    /* global */ user_key = other_user_key;
+            }
+            if (user_key != other_user_key)
+            {
+                Response.Status = "412 Unauthorized X-Facilitor-Switch-User header";
+                Response.End;
+            }
+        }
+    },
+    process: function _process(model)
+    {
+        CheckForLogging(Request.QueryString("logging"));
+
+        Session.Codepage = 65001; // We doen *uitsluitend* utf-8
+        Response.Charset = 'utf-8';
+
+        api2.authenticate(model);
+
+        var method = String(Request.ServerVariables("REQUEST_METHOD"));
+
+        if (!/GET|PUT|POST|DELETE/.test(method)) // Overigens houdt IIS deze al eerder tegen
+        {
+            Response.Status = "405 Method not allowed";
+            Response.End;
+        }
+        if (!("REST_" + method in model))
+        {
+            Response.Status = "501 Not Implemented";
+            // TODO The response MUST include an Allow header containing a list of valid methods for the requested resource.
+            Response.End;
+        }
+        var jsondata = {};
+        if (/PUT|POST/.test(method))
+        {
+            jsondata = RequestJSON(); // TODO: XML ondersteunen
+            if (!jsondata)
+                api2.error(500, "Error parsing input JSON");
+        }
+        var key = getQParamInt("id", -1); // Voor GET/PUT/DELETE
+
+        var data = model["REST_" + method]( { filter: api2.qs2json(), include: getQParamArray("include",[]) }, jsondata, key );
+        if (method == "DELETE")
+        {
+            Response.Status = "204 No Content";
+            Response.End;
+        }
+
+        api2.deliver(data, getQParamSafe("format", "json"),
+                           model.records_name,
+                           model.record_name,
+                           (method != "GET")||getQParamInt("id","0")>0); // PUT en POST altijd single
+
+    },
+    qs2json: function _qs2json(params)
+    {
+        var filter = {};
+        for (var i = 1; i<= Request.QueryString.Count; i++)
+        {
+            filter[Request.QueryString.key(i)] = String(Request.QueryString(i));
+        }
+        return filter;
+    },
+
+    // Verwerk filtervelden die in de url zijn meegegeven
+    sqlfilter: function _sqlfilter(params, model)
+    {
+        var wheres = [];
+        if (params.filter)
+        {
+            for (var fld in model.fields)
+            {
+                var field = model.fields[fld];
+                var filter = field.filter;
+                if (!filter)
+                    continue;
+
+                if (field.name in params.filter)
+                {
+                    var filterval = params.filter[field.name];
+                    // TODO: operand?
+                    var clause;
+                    switch (field.typ)
+                    {
+                        case "key":
+                            var safe_val = parseInt(filterval, 10);
+                            if (isNaN(safe_val))
+                            {
+                                Response.Status = "404 Not Found";
+                                Response.End;
+                            }
+                            break;
+                        case "number":
+                        case "check":
+                            var safe_val = parseInt(filterval, 10);
+                            if (isNaN(safe_val))
+                            {
+                                Response.Status = "404 Not Found";
+                                Response.End;
+                            }
+                            break;
+                        case "varchar":
+                            var safe_val = safe.quoted_sql(filterval);
+                            break;
+                        default:
+                            UNKNOWN_FILTER_TYPE;
+                    }
+                    var dbs = field.dbs;
+                    if (dbs.indexOf(".") < 0)
+                        dbs = model.table + "." + field.dbs;
+
+                    wheres.push(dbs + " = " + safe_val);
+                }
+            }
+        }
+        return wheres;
+    },
+
+    sqlfields: function _sqlfields(params, model)
+    {
+        var selects = [];
+        var tables = [ model.table ];
+        var wheres = [];
+
+        var name_cnt = 0;
+        for (var fld in model.fields)
+        {
+            var field = model.fields[fld];
+            if (!field.name)
+                continue;
+
+            var dbs = field.dbs;
+            if (field.sql)
+            {
+                selects.push(field.sql + " AS " + field.dbs);
+            }
+            else
+            {
+                if (dbs.indexOf(".") < 0)
+                    dbs = model.table + "." + field.dbs;
+
+                selects.push(dbs);
+            }
+            if (field.foreign && typeof field.foreign == 'string') // de functions komen later
+            {
+                var foreign = foreignKeyTable(field.foreign);
+                if (!foreign)
+                    MISSING_FOREIGN;
+                field.foreignsql = "SELECT " + foreign.desc
+                                 + "  FROM " + foreign.tbl + " " + (foreign.alias||"xx")
+                                 + " WHERE ";
+                if (foreign.where)
+                    field.foreignsql += foreign.where + " AND ";
+                field.foreignsql += (foreign.alias||"xx") + "." + foreign.key + " = " + dbs;
+                if (foreign.desc.match(/\_CODE$/i))
+                    field.foreigniscode = true;
+            }
+            if (field.foreignsql)
+            {
+                name_cnt ++;
+                field._foreignname = "foreign_" + name_cnt; // Genereer een niet al te extreem lange naam
+                selects.push("(" + field.foreignsql + ") " + field._foreignname);
+            }
+        }
+        if (params.include && model.includes)
+        {
+            for (var i in params.include)
+            {
+                if (params.include[i] in model.includes)
+                {
+                    var inc = model.includes[params.include[i]];
+                    if (inc.model)
+                    {
+                        var incquery = api2.sqlfields(params, inc.model);
+
+                        selects = selects.concat (incquery.selects);
+                        tables = tables.concat (incquery.tables);
+                        wheres = wheres.concat (incquery.wheres);
+                        wheres.push ( model.table + "." + model.primary + "=" + inc.model.table + "." + inc.joinfield);
+                    }
+                }
+            }
+        }
+        return { selects: selects, tables: tables, wheres: wheres };
+    },
+
+    // TODO the_key *moet* bestaan. Andere filtervelden negeren we
+    update_fields: function _update_fields(params, model, jsondata)
+    {
+//__DoLogj(jsondata)
+        if (jsondata[model.record_name])
+            jsondata = jsondata[model.record_name]; // dereference
+
+        var fields = [];
+        for (var fld in model.fields)
+        {
+            var field = model.fields[fld];
+            // De key halen we uit de url, die in de JSON negeren we
+            if (field.name == "id")
+                continue;
+            if (field.dbs.indexOf(".") >= 0) // complexe foreign key
+                continue;
+            if (!(field.name in jsondata) && !field.fnval)
+                continue;
+
+            if (field.fnval)
+                var newval = field.fnval(jsondata);
+            else // simpel
+                var newval = jsondata[field.name];
+
+            // De foreign keys action { "id": "5", "name": "afhalen" }
+            if (field.typ == "key" && newval && typeof newval == "object")
+                newval = newval.id;
+
+            var newfield = { dbs: field.dbs,
+                             typ: field.typ,
+                             val: newval
+                           };
+            fields.push(newfield);
+        }
+        return fields;
+
+    },
+    // Verwerk de POST en PUT (== insert en update)
+    process_includes: function(params, model, jsondata, the_key)
+    {
+        if (jsondata[model.record_name])
+            jsondata = jsondata[model.record_name]; // dereference
+
+        if (!model.includes)
+            return [];
+        for (var incname in model.includes)
+        {
+            if (incname in jsondata) // i=="visitors"
+            {
+                var inc = model.includes[incname];
+                if (inc.model) // andere includes zijn nog niet bij te werken
+                {
+                    var incmodel = inc.model;
+
+                    // Vul existing_includes met bestaande records in de database
+                    var sql = "SELECT " + incmodel.primary
+                            + "  FROM " + incmodel.table
+                            + " WHERE " + incmodel.table + "." + inc.joinfield + "=" + the_key;
+                    var existing_includes = {};
+                    var oRs = Oracle.Execute(sql);
+                    while (!oRs.Eof)
+                    {
+                        //__DoLog("Found in DB " + incname + " " + oRs(incmodel.primary).Value);
+                        existing_includes[oRs(incmodel.primary).Value] = { found: false }; // vooralsnog niet in json-data gevonden
+                        oRs.MoveNext();
+                    }
+                    oRs.Close();
+
+                    var incdata = jsondata[incname]; // Array zoals via API aangeleverd
+                    for (var j=0; j<incdata.length; j++)
+                    {
+                        var inckey = incdata[j]["id"]; // Die moet er zijn
+                        if (!inckey || inckey < 0 || params.isNew)
+                        {
+                            //__DoLog("Ik zou moeten inserten");
+                            incmodel.REST_POST(params, incdata[j], the_key);
+                        }
+                        else if (inckey in existing_includes)
+                        {
+                            //__DoLog("Ik zou '{0}' {1} moeten updaten".format(incname, inckey));
+                            incmodel.REST_PUT(params, incdata[j], inckey);
+                            existing_includes[inckey].found = true;
+                        }
+                    }
+                    for (oldi in existing_includes)
+                    {
+                        if (!existing_includes[oldi].found)
+                        {
+                            incmodel.REST_DELETE(params, incdata[j], oldi);
+                        }
+                    }
+                }
+                else
+                {
+                    //if (inc.func)
+                }
+            }
+        }
+    },
+    // Geeft de GET terug
+    sql2jsonval: function(oRs, field)
+    {
+//__DoLog(field.dbs);
+        if (field.dbs.indexOf(".") < 0)
+            var val = oRs(field.dbs).Value;
+        else
+            var val = oRs(field.dbs.split(".")[1]).Value;
+        if (field.typ == "date" && (val != null))
+            val = new Date(val)
+        if (field.typ == "datetime" && (val != null))
+            val = new Date(val)
+        // TODO: Wat te doen met lege waarde
+        // action: null
+        // action: {key: null, name: null}
+        // action: {}
+        // of helemaal weglaten? We hebben nu de 1e optie
+        // En wat bij een leeg (include) array? Dan kun je ook nog occupations:[] krijgen
+        if (val && (field.foreign || field.foreignsql))
+        {
+            if (field.foreignsql)
+            {
+                var name = oRs(field._foreignname).Value;
+                if (name != null && typeof name == "date" )
+                    name = new Date(name);
+            }
+            else
+            {
+                var name = field.foreign(val);
+            }
+            val = { id: val };
+            if (field.foreigniscode)
+                val.code = name;
+            else
+                val.name = name;
+        }
+        return val;
+    },
+    sql2jsonfields: function (oRs, model)
+    {
+        var record = {};
+        for (var fld in model.fields)
+        {
+            var field = model.fields[fld];
+            if (!field.name)
+                continue;
+
+            record[field.name] = api2.sql2jsonval(oRs, field);
+        }
+        return record;
+    },
+    sql2json: function _sql2json(params, sql, model)
+    {
+        var prefuncdata;
+        var prefuncdatainitialized = false;
+        var prefilterfuncdata;
+        if (model.filter && model.filter.prefunc)
+            prefilterfuncdata = model.filter.prefunc(params);
+
+        var data = [];
+        var oRs = Oracle.Execute(sql);
+        var lastkey = -1;
+        while (!oRs.Eof)
+        {
+            var key = oRs(model.primary).Value;
+            if (key != lastkey)
+            {
+                if (lastkey > 0)
+                    data.push(record);
+                var record = {};
+            }
+
+            if (model.filter && model.filter.func)
+            {
+                if (!model.filter.func(oRs, params, prefilterfuncdata))
+                {
+                    oRs.MoveNext();
+                    continue;
+                }
+            }
+
+            var fld;
+            for (fld in model.fields)
+            {
+                var field = model.fields[fld];
+                if (!field.name)
+                    continue;
+                record[field.name] = api2.sql2jsonval(oRs, field);
+            }
+
+            if (params.include && model.includes)
+            {
+                for (var i in params.include)
+                {
+                    var incname = params.include[i];
+                    if (incname in model.includes)
+                    {
+                        var incmodel = model.includes[incname].model;
+                        if (!(incname in record))
+                            record[incname] = [];
+                        if (incmodel)
+                        {
+                            record[incname].push(api2.sql2jsonfields(oRs, incmodel));
+                        }
+                        else if (model.includes[incname].func)
+                        {
+                            if (model.includes[incname].prefunc && !prefuncdatainitialized)
+                            {
+                                prefuncdata = model.includes[incname].prefunc(params);
+                                prefuncdatainitialized = true;
+                            }
+                            var incdata = model.includes[incname].func(key, params, prefuncdata);
+                            if (incdata !== null)
+                                record[incname].push(incdata);
+                        }
+                    }
+                }
+            }
+
+            lastkey = key;
+            oRs.MoveNext();
+        }
+        if (lastkey > 0)
+            data.push(record);
+        return data;
+    },
+    // Data is een array met 'records'
+    deliver: function _deliver(data, format, records_name, record_name, single )
+    {
+        if (single && !data.length)
+        {
+            Response.Status = "404 Not Found";
+            Response.End;
+        }
+
+        switch (format)
+        {
+            case "json":
+                var result = { };
+                if (single)
+                    result[record_name] = data[0];
+                else
+                    result[records_name] = data;
+
+                var str_antwoord = JSON.stringify(result, null, getQParam("pretty","0")=="1"?2:0);
+
+                var jsonp = getQParam("jsonp", getQParam("callback",""));
+                if (jsonp)
+                {
+                    str_antwoord = jsonp + "(" + str_antwoord + ")";
+                    Response.ContentType = "application/javascript";
+                }
+                else
+                    Response.ContentType = "application/json";
+                break;
+            case "html":
+                Response.ContentType = "text/html";
+                var result = { };
+                if (single)
+                    result[record_name] = data[0];
+                else
+                    result[records_name] = data;
+                var antwoord = JSON.stringify(result, null, 2);
+                var str_antwoord = "<!DOCTYPE html><html><head></head><body><pre>"
+                                 +      Server.HTMLEncode(antwoord)
+                                 + "</pre></body></html>";
+                break;
+            case "xml":
+                Response.ContentType = "text/xml";
+                var xml_antwoord = api2.json2xml(data, records_name, record_name, single);
+                // TODO: Output XSL transform ondersteunen?
+                var str_antwoord = xml_antwoord.xml;
+                break;
+            default:
+                WRONG_FORMAT;
+        }
+
+        // str_antwoord heeft nu het te versturen antwoord
+        // Bepaal eTag
+        var oCrypto = new ActiveXObject("SLNKDWF.Crypto");
+        var eTag = '"' + oCrypto.hex_sha1(String(S("cache_changecounter")) + "_" + str_antwoord).toLowerCase() + '"';
+        Response.AddHeader("ETag", eTag);
+        if (Request.ServerVariables("HTTP_IF_NONE_MATCH") == eTag)
+        {   // We hebben een match! Effectief besparen wel alleen op dataverkeer, de queries zijn al geweest
+            Response.Clear();
+            Response.Status = "304 Not modified";
+            Response.End;
+        }
+
+        // if (API.apidata.loglevel) __Log2File(str_antwoord, APIname + "_OUT");
+        Response.write(str_antwoord);
+    },
+
+    // TODO: Wanneer attributes gebruiken en wanneer (sub)-elements?
+    json2xml: function _json2xml(data, rootname, record_name, single)
+    {
+        var xmlDoc = new ActiveXObject("MSXML2.DOMDocument.4.0");
+        xmlDoc.appendChild(xmlDoc.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""));
+
+        var record2json = function(record, record_name)
+        {
+            var elementRecord = xmlDoc.createElement(record_name);
+            for (var fld in record)
+            {
+                var elementField = xmlDoc.createElement(fld);
+                if (record[fld] instanceof Date)
+                {
+                    var elementFieldText = xmlDoc.createTextNode(String(record[fld].toJSON()));
+                    elementField.appendChild(elementFieldText);
+                }
+                else if (record[fld] instanceof Array)
+                {
+                    for (var i = 0; i < record[fld].length; i++)
+                        elementField.appendChild(record2json(record[fld][i], "visitor")); // TODO Hardcoded
+                }
+                else if (record[fld] && typeof record[fld] == "object") // TODO: veronderstelt nog hardcoded dat dit foreign met name/key is
+                {
+                    if ("name" in record[fld] && "id" in record[fld])
+                    {
+                        elementField.setAttribute("name", record[fld].name);
+                        elementField.setAttribute("id", record[fld].id);
+                    }
+                    else
+                        elementField = record2json(record[fld], fld);
+                }
+                else
+                {
+                    var elementFieldText = xmlDoc.createTextNode(record[fld]||"");
+                    elementField.appendChild(elementFieldText);
+                }
+                elementRecord.appendChild(elementField);
+            }
+            return elementRecord;
+        };
+
+        if (single)
+        {
+            xmlDoc.appendChild(record2json(data[0], record_name));
+        }
+        else
+        {
+            var arrayElement = xmlDoc.createElement(rootname);
+            for (var i = 0; i < data.length; i++)
+                arrayElement.appendChild(record2json(data[i], record_name));
+            xmlDoc.appendChild(arrayElement);
+        }
+        return xmlDoc;
+    },
+    error: function (code, msg)
+    {
+        abort_with_warning(msg, code)
+    }
+}
+
+
+// LET OP: Verwacht wordt dat de JSON-code in de body utf-8 encoded is, niet windows-1252!
+// (in de praktijk moet je *moeite* doen om windows-1252 te krijgen dus dit is handiger)
+function RequestJSON()
+{
+    var jvraag;
+    if(Request.TotalBytes > 0)
+    {
+        var lngBytesCount = Request.TotalBytes;
+        jvraag = BytesToStr(Request.BinaryRead(lngBytesCount));
+    }
+    __Log("Vraag: " + jvraag);
+    try
+    {
+        var vraag = myJSON.parse(jvraag);
+    }
+    catch (e)
+    {
+        __DoLog("eval faalt met: {0}<br>{1}".format(e.description, jvraag), "ffff00");
+        return null;
+    }
+    return vraag;
+}
+
+function BytesToStr(bytes)
+{
+    var stream = Server.CreateObject("ADODB.Stream");
+    stream.type = 1;
+    stream.open;
+    stream.write(bytes);
+    stream.position = 0;
+    stream.type = 2; // Text
+    stream.charset = "utf-8";
+
+    var sOut = stream.readtext();
+    stream.close;
+    return sOut;
+}
+
+function getQParamISODate(pName, defVal)
+{
+    return _get_ParamISODate(Request.Querystring, pName, defVal)
+}
+function getFParamISODate(pName, defVal)
+{
+    return _get_ParamISODate(Request.Form, pName, defVal)
+}
+function _get_ParamISODate(pColl, pName, defVal)
+{
+    var strval = _get_Param(pColl, pName, defVal, true); // force: een lege waarde wordt als afwezig beschouwd
+    if (strval)
+    {
+        var dt = myJSON.internal_parsedate(null, strval);
+        if (dt && dt instanceof Date)
+            return dt;
+    }
+
+    if (defVal instanceof Date)
+    {
+        return defVal;
+    }
+    if (defVal === null) // bewust triple===
+    {
+        return null;
+    }
+    // Error message will get to client and/or IIS logfiles
+    eval("INTERNAL_ERROR_PARAMETER_" + pName + "_IS_NOT_ISODATE");
+}
+%>

APPL/API2/api_appointments.asp

@@ -0,0 +1,27 @@
+<%@ language = "JavaScript" %>
+<% /*
+    $Revision$
+    $Id$
+
+    File:           api_appointments.asp
+
+    Description:    BEZ_AFSPRAAK API
+    Parameters:
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:
+*/
+    DOCTYPE_Disable = true;
+    ANONYMOUS_Allowed = 1; // Eigenlijk niet waar. We regelen echter alles zelf
+    THIS_FILE = "appl/api/api_appointments.asp";
+
+//    Session("logging")=1;
+
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="./api2.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="./model_appointments.inc" -->
+<%
+    api2.process(model_appointments);
+%>

APPL/API2/api_buildings.asp

@@ -0,0 +1,27 @@
+<%@ language = "JavaScript" %>
+<% /*
+    $Revision$
+    $Id$
+
+    File:           api_buildings.asp
+
+    Description:    ALG_GEBOUW API
+    Parameters:
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:
+*/
+    DOCTYPE_Disable = true;
+    ANONYMOUS_Allowed = 1; // Eigenlijk niet waar. We regelen echter alles zelf
+    THIS_FILE = "appl/api/api_buildings.asp";
+
+//    Session("logging")=1;
+
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="./api2.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="./model_buildings.inc" -->
+<%
+    api2.process(model_buildings);
+%>

APPL/API2/api_districts.asp

@@ -0,0 +1,25 @@
+<%@ language = "JavaScript" %>
+<% /*
+    $Revision$
+    $Id$
+
+    File:           api_districts.asp
+
+    Description:    ALG_LOCATIE API
+    Parameters:
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:
+*/
+    DOCTYPE_Disable = true;
+    ANONYMOUS_Allowed = 1; // Eigenlijk niet waar. We regelen echter alles zelf
+    THIS_FILE = "appl/api/api_districts.asp";
+
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="./api2.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="./model_districts.inc" -->
+<%
+    api2.process(model_districts);
+%>

APPL/API2/api_locations.asp

@@ -0,0 +1,25 @@
+<%@ language = "JavaScript" %>
+<% /*
+    $Revision$
+    $Id$
+
+    File:           api_locations.asp
+
+    Description:    ALG_LOCATIE API
+    Parameters:
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:
+*/
+    DOCTYPE_Disable = true;
+    ANONYMOUS_Allowed = 1; // Eigenlijk niet waar. We regelen echter alles zelf
+    THIS_FILE = "appl/api/api_locations.asp";
+
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="./api2.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="./model_locations.inc" -->
+<%
+    api2.process(model_locations);
+%>

APPL/API2/api_persons.asp

@@ -0,0 +1,27 @@
+<%@ language = "JavaScript" %>
+<% /*
+    $Revision$
+    $Id$
+
+    File:           api_persons.asp
+
+    Description:    PRS_PERSLID API
+    Parameters:
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:
+*/
+    DOCTYPE_Disable = true;
+    ANONYMOUS_Allowed = 1; // Eigenlijk niet waar. We regelen echter alles zelf
+    THIS_FILE = "appl/api/api_persons.asp";
+
+//    Session("logging")=1;
+
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="./api2.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="./model_persons.inc" -->
+<%
+    api2.process(model_persons);
+%>

APPL/API2/api_regions.asp

@@ -0,0 +1,25 @@
+<%@ language = "JavaScript" %>
+<% /*
+    $Revision$
+    $Id$
+
+    File:           api_regions.asp
+
+    Description:    ALG_REGIO API
+    Parameters:
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:
+*/
+    DOCTYPE_Disable = true;
+    ANONYMOUS_Allowed = 1; // Eigenlijk niet waar. We regelen echter alles zelf
+    THIS_FILE = "appl/api/api_regions.asp";
+
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="./api2.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="./model_regions.inc" -->
+<%
+    api2.process(model_regions);
+%>

APPL/API2/api_reservablerooms.asp

@@ -0,0 +1,27 @@
+<%@ language = "JavaScript" %>
+<% /*
+    $Revision$
+    $Id$
+
+    File:           api_reservablerooms.asp
+
+    Description:    RES_RUIMTE API
+    Parameters:
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:
+*/
+    DOCTYPE_Disable = true;
+    ANONYMOUS_Allowed = 1; // Eigenlijk niet waar. We regelen echter alles zelf
+    THIS_FILE = "appl/api/api_reservablerooms.asp";
+
+//    Session("logging")=1;
+
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="./api2.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="./model_reservablerooms.inc" -->
+<%
+    api2.process(model_reservablerooms);
+%>

APPL/API2/api_reservations.asp

@@ -0,0 +1,27 @@
+<%@ language = "JavaScript" %>
+<% /*
+    $Revision$
+    $Id$
+
+    File:           api_reservations.asp
+
+    Description:    PRS_PERSLID API
+    Parameters:
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:
+*/
+    DOCTYPE_Disable = true;
+    ANONYMOUS_Allowed = 1; // Eigenlijk niet waar. We regelen echter alles zelf
+    THIS_FILE = "appl/api/api_reservations.asp";
+
+//    Session("logging")=1;
+
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="./api2.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="./model_reservations.inc" -->
+<%
+    api2.process(model_reservations);
+%>

APPL/API2/api_visitors.asp

@@ -0,0 +1,27 @@
+<%@ language = "JavaScript" %>
+<% /*
+    $Revision$
+    $Id$
+
+    File:           api_visitors.asp
+
+    Description:    BEZ_AFSPRAAK API
+    Parameters:
+    Context:        Door een remote systeem (geen persoon) om info uit FACILITOR te halen aan te roepen
+
+    Notes:
+*/
+    DOCTYPE_Disable = true;
+    ANONYMOUS_Allowed = 1; // Eigenlijk niet waar. We regelen echter alles zelf
+    THIS_FILE = "appl/api/api_visitors.asp";
+
+//    Session("logging")=1;
+
+%>
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="./api2.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="./model_visitors.inc" -->
+<%
+    api2.process(model_visitors);
+%>

APPL/API2/model_appointments.inc

@@ -0,0 +1,134 @@
+<% /*
+    $Revision$
+    $Id$
+
+    File:           model_appointments.inc
+
+    Description:    Afspraken model. Dit bestand heeft niets met interfacing te maken
+                    maar werkt uitsluitend op JSON-data
+    Parameters:
+    Context:
+
+    Notes:
+*/
+
+%>
+<!-- #include file="../Shared/discxalg3d.inc"-->
+<!-- #include file="./model_visitors.inc" -->
+<%
+function afs_alg_onrgoed_keys(jsondata)
+{
+    // TODO: key-check, auth check
+    if (jsondata.room && jsondata.room.id > 0)
+        return jsondata.room.id;
+    if (jsondata.floor && jsondata.floor.id > 0)
+        return jsondata.floor.id;
+    if (jsondata.building && jsondata.building.id > 0)
+        return jsondata.building.id;
+    return null;
+};
+
+model_appointments =
+{
+    module: "BEZ",
+    table: "bez_afspraak",
+    primary: "bez_afspraak_key",
+    records_name: "appointments",
+    record_name: "appointment",
+    fields: [{ name: "id",          dbs: "bez_afspraak_key",                          typ: "key",     filter: "exact" },
+             { name: "from",        dbs: "bez_afspraak_datum",                        typ: "datetime"},
+             { name: "to",          dbs: "bez_afspraak_eind",                         typ: "datetime"},
+             { name: "description", dbs: "bez_afspraak_opmerking",                    typ: "varchar"},
+             { name: "action",      dbs: "bez_actie_key",                             typ: "key",     foreign: "bez_actie"},
+             { name: "location",    dbs: "alg_locatie_key",                           typ: "key",     foreign: "alg_locatie"},
+             { name: "building",    dbs: "alg_v_allonroerendgoed.alg_gebouw_key",     typ: "key",     foreign: "alg_gebouw" },
+             { name: "floor",       dbs: "alg_v_allonroerendgoed.alg_verdieping_key", typ: "key",     foreign: "alg_verdieping" },
+             { name: "room",        dbs: "alg_v_allonroerendgoed.alg_ruimte_key",     typ: "key",     foreign: "alg_ruimte" },
+             {                      dbs: "alg_onrgoed_keys",                          typ: "key",     fnval: afs_alg_onrgoed_keys }
+            ],
+    includes: {"visitors": { model: model_visitors,
+                             joinfield: "bez_afspraak_key"
+                           }
+              },
+    impersonate_auth: "WEB_BEZFOF",
+    REST_GET: function _GET(params)
+        {
+            var urole = "fe"; // TODO: Moet echt niet ter zake doen
+            var autfunction = urole == "fe"? "WEB_ALGUSE" : "WEB_ALGMAN";
+            params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
+
+            // TODO: Add authorization hoewel je eigen afspraken zien natuurlijk niet echt spannend is
+            var query = api2.sqlfields(params, model_appointments );
+            query.wheres.push("(bez_afspraak_contact_key = " + user_key // Altijd fe vooralnog
+                               + "     OR bez_afspraak_host_key = " + user_key + ")");
+            query.wheres.push("bez_afspraak_datum BETWEEN SYSDATE - " + S("facilitiespast_bez") + " AND SYSDATE + " + S("facilitiesfuture_bez"));
+
+            query.tables.push("alg_v_allonroerendgoed");
+            query.wheres.push("alg_v_allonroerendgoed.alg_onroerendgoed_keys(+) = bez_afspraak.alg_onrgoed_keys");
+
+            var wheres = api2.sqlfilter(params, model_appointments);
+            query.wheres = query.wheres.concat(wheres);
+
+            var sql = "SELECT " + query.selects.join(", ")
+                    + "  FROM " + query.tables.join(", ")
+                    + " WHERE " + query.wheres.join(" AND " )
+                    + " ORDER BY bez_afspraak_datum, bez_afspraak.bez_afspraak_key";
+__DoLog(sql);
+            var json = api2.sql2json (params, sql, model_appointments );
+
+            return json;
+        },
+
+    REST_PUT: function (params, jsondata, the_key) /* update appointment */
+        {
+            var fields = api2.update_fields(params, model_appointments, jsondata); // Build updater
+
+            // bezUpd heeft na afloop eventueel oldjsvals
+            var wheres = [" bez_afspraak_key = " + the_key];
+            wheres.push("(bez_afspraak_contact_key = " + user_key // Altijd fe vooralnog
+                               + "     OR bez_afspraak_host_key = " + user_key + ")");
+            var bezUpd = buildTrackingUpdate("bez_afspraak", wheres.join(" AND " ), fields, { noValidateToken: true });
+            __DoLog(bezUpd.sql);
+            Oracle.Execute(bezUpd.sql);
+
+            var beztrack = api2.process_includes(params, model_appointments, jsondata, the_key);
+
+            // TODO: Tracking
+            //var result = saveBezoekers(afspr_key, -1, { urole: urole, loctimechanged: changed });
+            //if (result.beztrack && result.beztrack.length > 0)
+            //bezUpd.trackarray.push(result.beztrack.join("\n"));
+
+            return model_appointments.REST_GET(params); // resulterende data weer terug
+        },
+    REST_POST: function (params, jsondata) /* new appointment */
+        {
+            var fields = api2.update_fields(params, model_appointments, jsondata); // Build updater
+            fields.push({ dbs: "bez_afspraak_key",      typ: "key",     seq: "bez_s_bez_afspraak_key" });
+            fields.push({ dbs: "bez_afspraak_host_key",    typ: "key",  val: user_key });
+            fields.push({ dbs: "bez_afspraak_contact_key", typ: "key",  val: user_key });
+
+            var bezIns = buildInsert("bez_afspraak", fields, { noValidateToken: true });
+            var afs_key = bezIns.sequences["bez_afspraak_key"];
+            __DoLog(bezIns.sql);
+            Oracle.Execute(bezIns.sql);
+
+            // TODO: Tracking
+            params.isNew = true; // negeer eventuele bestaande keys
+            var beztrack = api2.process_includes(params, model_appointments, jsondata, afs_key);
+            //var bezUpd = {trackarray: [L("lcl_bez_is_bezadd") + ": " + beznaam + "/" + bed]};
+            params.filter.id = afs_key;
+            return model_appointments.REST_GET(params); // resulterende data weer terug
+        },
+    REST_DELETE: function (params, jsondata, the_key) /* delete appointment */
+    {
+            var wheres = [" bez_afspraak_key = " + the_key];
+            wheres.push("(bez_afspraak_contact_key = " + user_key // Altijd fe vooralnog
+                               + "     OR bez_afspraak_host_key = " + user_key + ")");
+            var sql = "DELETE FROM bez_afspraak"
+                    + " WHERE " + wheres.join(" AND " );
+
+            __DoLog(sql);
+            Oracle.Execute(sql);
+    }
+}
+%>

APPL/API2/model_buildings.inc

@@ -0,0 +1,65 @@
+<% /*
+    $Revision$
+    $Id$
+
+    File:           model_buildings.inc
+
+    Description:    Gebouwen model. Dit bestand heeft niets met interfacing te maken
+                    maar werkt uitsluitend op JSON-data
+    Parameters:
+    Context:
+
+    Notes:
+*/
+
+%>
+<!-- #include file="../Shared/discxalg3d.inc"-->
+<%
+model_buildings =
+{
+    table: "alg_gebouw",
+    primary: "alg_gebouw_key",
+    records_name: "buildings",
+    record_name: "building",
+    fields: [{ name: "id",           dbs: "alg_gebouw_key",          typ: "key",     filter: "exact" },
+             { name: "code",         dbs: "alg_gebouw_code",         typ: "varchar", filter: "like" },
+             { name: "name",         dbs: "alg_gebouw_naam",         typ: "varchar", filter: "like" },
+             // is afgeleid gegeven { name: "description",  dbs: "alg_gebouw_omschrijving", typ: "varchar"},
+             { name: "visitable"  ,  dbs: "alg_gebouw_bez",          typ: "check",   filter: "exact"},
+             { name: "location",     dbs: "alg_locatie_key",         typ: "key",     foreign: "alg_locatie"},
+             { name: "coordinate_x", dbs: "alg_gebouw_x",            typ: "number"},
+             { name: "coordinate_y", dbs: "alg_gebouw_y",            typ: "number"},
+            ],
+    REST_GET: function _GET(params)
+        {
+            var urole = "fe"; // TODO: Moet echt niet ter zake doen
+            var autfunction = urole == "fe"? "WEB_ALGUSE" : "WEB_ALGMAN";
+            params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
+
+            // TODO: Add authorization
+            var query = api2.sqlfields(params, model_buildings);
+            query.wheres.push("alg_gebouw_verwijder IS NULL");
+
+            var wheres = api2.sqlfilter(params, model_buildings)
+            query.wheres = query.wheres.concat(wheres);
+
+            var sql = "SELECT " + query.selects.join(", ")
+                    + "  FROM " + query.tables.join(", ")
+                    + " WHERE " + query.wheres.join(" AND " )
+                    + " ORDER BY alg_gebouw_code";
+
+            var json = api2.sql2json (params, sql, model_buildings);
+
+            return json;
+        },
+    PUT: function (params) /* update building */
+    {
+    },
+    POST: function (params) /* new building */
+    {
+    },
+    DELETE: function (params) /* delete building */
+    {
+    }
+}
+%>

APPL/API2/model_districts.inc

@@ -0,0 +1,61 @@
+<% /*
+    $Revision$
+    $Id$
+
+    File:           model_districts.inc
+
+    Description:    District model. Dit bestand heeft niets met interfacing te maken
+                    maar werkt uitsluitend op JSON-data
+    Parameters:
+    Context:
+
+    Notes:
+*/
+
+%>
+<!-- #include file="../Shared/discxalg3d.inc"-->
+<%
+model_districts =
+{
+    table: "alg_district",
+    primary: "alg_district_key",
+    records_name: "districts",
+    record_name: "district",
+    fields: [{ name: "id",           dbs: "alg_district_key",          typ: "key",     filter: "exact" },
+             //{ name: "name",         dbs: "alg_district_naam",         typ: "varchar", filter: "like" },
+             { name: "name",         dbs: "alg_district_omschrijving", typ: "varchar"},
+             { name: "region",       dbs: "alg_regio_key",             typ: "key",     foreign: "alg_regio"}
+            ],
+    REST_GET: function _GET(params)
+        {
+            var urole = "fe"; // TODO: Moet echt niet ter zake doen
+            var autfunction = urole == "fe"? "WEB_ALGUSE" : "WEB_ALGMAN";
+            params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
+
+            // TODO: Add authorization
+            var query = api2.sqlfields(params, model_districts);
+            query.wheres.push("alg_district_verwijder IS NULL");
+
+            var wheres = api2.sqlfilter(params, model_districts)
+            query.wheres = query.wheres.concat(wheres);
+
+            var sql = "SELECT " + query.selects.join(", ")
+                    + "  FROM " + query.tables.join(", ")
+                    + " WHERE " + query.wheres.join(" AND " )
+                    + " ORDER BY alg_district_omschrijving";
+
+            var json = api2.sql2json (params, sql, model_districts);
+
+            return json;
+        },
+    PUT: function (params) /* update district */
+    {
+    },
+    POST: function (params) /* new district */
+    {
+    },
+    DELETE: function (params) /* delete district */
+    {
+    }
+}
+%>

APPL/API2/model_locations.inc

@@ -0,0 +1,64 @@
+<% /*
+    $Revision$
+    $Id$
+
+    File:           model_locations.inc
+
+    Description:    Locatie model. Dit bestand heeft niets met interfacing te maken
+                    maar werkt uitsluitend op JSON-data
+    Parameters:
+    Context:
+
+    Notes:
+*/
+
+%>
+<!-- #include file="../Shared/discxalg3d.inc"-->
+<%
+model_locations =
+{
+    table: "alg_locatie",
+    primary: "alg_locatie_key",
+    records_name: "locations",
+    record_name: "location",
+    fields: [{ name: "id",           dbs: "alg_locatie_key",          typ: "key",     filter: "exact" },
+             { name: "code",         dbs: "alg_locatie_code",         typ: "varchar", filter: "like" },
+             //{ name: "name",         dbs: "alg_locatie_naam",         typ: "varchar", filter: "like" },
+             { name: "description",  dbs: "alg_locatie_omschrijving", typ: "varchar"},
+             { name: "district",     dbs: "alg_district_key",         typ: "key",     foreign: "alg_district"},
+             { name: "coordinate_x", dbs: "alg_locatie_x",            typ: "number"},
+             { name: "coordinate_y", dbs: "alg_locatie_y",            typ: "number"},
+            ],
+    REST_GET: function _GET(params)
+        {
+            var urole = "fe"; // TODO: Moet echt niet ter zake doen
+            var autfunction = urole == "fe"? "WEB_ALGUSE" : "WEB_ALGMAN";
+            params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
+
+            // TODO: Add authorization
+            var query = api2.sqlfields(params, model_locations);
+            query.wheres.push("alg_locatie_verwijder IS NULL");
+
+            var wheres = api2.sqlfilter(params, model_locations)
+            query.wheres = query.wheres.concat(wheres);
+
+            var sql = "SELECT " + query.selects.join(", ")
+                    + "  FROM " + query.tables.join(", ")
+                    + " WHERE " + query.wheres.join(" AND " )
+                    + " ORDER BY alg_locatie_code";
+
+            var json = api2.sql2json (params, sql, model_locations);
+
+            return json;
+        },
+    PUT: function (params) /* update location */
+    {
+    },
+    POST: function (params) /* new location */
+    {
+    },
+    DELETE: function (params) /* delete location */
+    {
+    }
+}
+%>

APPL/API2/model_persons.inc

@@ -0,0 +1,67 @@
+<% /*
+    $Revision$
+    $Id$
+
+    File:           model_persons.inc
+
+    Description:    Perslid model. Dit bestand heeft niets met interfacing te maken
+                    maar werkt uitsluitend op JSON-data
+    Parameters:
+    Context:
+
+    Notes:
+*/
+
+%>
+<!-- #include file="../Shared/discxalg3d.inc"-->
+<%
+model_persons =
+{
+    table: "prs_perslid",
+    primary: "prs_perslid_key",
+    records_name: "persons",
+    record_name: "person",
+    fields: [{ name: "id",          dbs: "prs_perslid_key",       typ: "key",       filter: "exact" },
+             { name: "lastname",    dbs: "prs_perslid_naam",      typ: "varchar"},
+             { name: "firstname",   dbs: "prs_perslid_voornaam",  typ: "varchar"},
+             { name: "mail",        dbs: "prs_perslid_email",     typ: "varchar"},
+             { name: "login",       dbs: "prs_perslid_oslogin",   typ: "varchar"},
+             { name: "department",  dbs: "prs_afdeling_key",      typ: "key",       foreign: "prs_afdeling"}
+            ],
+
+    REST_GET: function _GET(params)
+        {
+            var urole = "fe"; // TODO: Moet echt niet ter zake doen
+            var autfunction = urole == "fe"? "WEB_ALGUSE" : "WEB_ALGMAN";
+            params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
+
+            // TODO: Add authorization
+            var query = api2.sqlfields(params, model_persons );
+
+            query.wheres.push("prs_perslid_key = " + user_key); // Altijd fe vooralnog
+
+            var wheres = api2.sqlfilter(params, model_persons);
+            query.wheres = query.wheres.concat(wheres);
+
+            var sql = "SELECT " + query.selects.join(", ")
+                    + "  FROM " + query.tables.join(", ")
+                    + " WHERE " + query.wheres.join(" AND " )
+                    + " ORDER BY prs_perslid_naam, prs_perslid.prs_perslid_key";
+
+__DoLog(sql);
+
+            var json = api2.sql2json (params, sql, model_persons );
+
+            return json;
+        },
+    PUT: function (params) /* update building */
+    {
+    },
+    POST: function (params) /* new building */
+    {
+    },
+    DELETE: function (params) /* delete building */
+    {
+    }
+}
+%>

APPL/API2/model_regions.inc

@@ -0,0 +1,60 @@
+<% /*
+    $Revision$
+    $Id$
+
+    File:           model_regions.inc
+
+    Description:    Regio model. Dit bestand heeft niets met interfacing te maken
+                    maar werkt uitsluitend op JSON-data
+    Parameters:
+    Context:
+
+    Notes:
+*/
+
+%>
+<!-- #include file="../Shared/discxalg3d.inc"-->
+<%
+model_regions =
+{
+    table: "alg_regio",
+    primary: "alg_regio_key",
+    records_name: "regions",
+    record_name: "region",
+    fields: [{ name: "id",           dbs: "alg_regio_key",          typ: "key",     filter: "exact" },
+             //{ name: "name",         dbs: "alg_region_naam",         typ: "varchar", filter: "like" },
+             { name: "name",  dbs: "alg_regio_omschrijving", typ: "varchar"}
+            ],
+    REST_GET: function _GET(params)
+        {
+            var urole = "fe"; // TODO: Moet echt niet ter zake doen
+            var autfunction = urole == "fe"? "WEB_ALGUSE" : "WEB_ALGMAN";
+            params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
+
+            // TODO: Add authorization
+            var query = api2.sqlfields(params, model_regions);
+            query.wheres.push("alg_regio_verwijder IS NULL");
+
+            var wheres = api2.sqlfilter(params, model_regions)
+            query.wheres = query.wheres.concat(wheres);
+
+            var sql = "SELECT " + query.selects.join(", ")
+                    + "  FROM " + query.tables.join(", ")
+                    + " WHERE " + query.wheres.join(" AND " )
+                    + " ORDER BY alg_regio_omschrijving";
+
+            var json = api2.sql2json (params, sql, model_regions);
+
+            return json;
+        },
+    PUT: function (params) /* update region */
+    {
+    },
+    POST: function (params) /* new region */
+    {
+    },
+    DELETE: function (params) /* delete region */
+    {
+    }
+}
+%>

APPL/API2/model_reservablerooms.inc

@@ -0,0 +1,170 @@
+<% /*
+    $Revision$
+    $Id$
+
+    File:           model_reservablerooms.inc
+
+    Description:    Bezoekers model. Dit bestand heeft niets met interfacing te maken
+                    maar werkt uitsluitend op JSON-data
+    Parameters:
+    Context:
+
+    Notes:          // TODO: Koppelzalen?
+
+    http://uwva.5iwork/Branch541/api2/reservablerooms.json?apikey=APIPFO&pretty=1&location=71&include=occupations&logging=0&freefrom=2014-05-06T11:00:00Z&freeto=2014-05-06T13:00:00Z
+*/
+
+%>
+<!-- #include file="../Shared/discxalg3d.inc"-->
+<!-- #include file="../res/res.inc"-->
+<%
+model_reservablerooms =
+{
+    table: "res_ruimte",
+    primary: "res_ruimte_key",
+    records_name: "reservablerooms",
+    record_name: "reservableroom",
+    fields: [{ name: "id",           dbs: "res_ruimte_key",          typ: "key",     filter: "exact" },
+             { name: "name",         dbs: "res_ruimte_nr",           typ: "varchar"},
+             { name: "description",  dbs: "res_ruimte_omschrijving", typ: "varchar"},
+             // { name: "open",         dbs: "res_ruimte_begintijd",    typ: "time"}, is geen echte 'time'
+             { name: "location",     dbs: "alg_v_allonroerendgoed.alg_locatie_key",  typ: "key", foreign: "alg_locatie", filter: "exact"},
+             { name: "room",         dbs: "res_alg_ruimte.res_alg_ruimte_key",      typ: "key",     foreign: "alg_ruimte"},
+             { name: "image",        dbs: "res_ruimte_image",        typ: "varchar" }
+            ],
+    filter: { prefunc: function _prefilterfunc(params)
+                {
+                    //__DoLog("getQParamISODate: " + getQParamISODate("res_van"));
+                    var res_van = getQParamISODate("freefrom", null);
+                    var res_tot = getQParamISODate("freeto", null);
+                    if (res_van && res_tot)
+                    {
+                        var params = {res_van: res_van, // TODO: Welke dag?
+                                      res_tot: res_tot,
+                                      loc_key: 71, // alkw
+                                      //res_ruimte_key: 8065, // even hard
+                                      authparams : user.checkAutorisation("WEB_RESUSE", null, null, true),
+                                      forSelectRoom: true
+                                    }
+                        return res.plan_bezet_info(params); // wordt meegeven aan de volgende func
+                    }
+                    else
+                        return null;
+                },
+             func: function _filterfunc(oRs, params, prefuncdata)
+                {
+                    if (!prefuncdata)
+                        return true;
+                    var res_van = getQParamISODate("freefrom", null);
+                    var res_tot = getQParamISODate("freeto", null); // TODO: Voorkomen dat het een andere dag is
+                    var key = oRs("res_ruimte_key").Value;
+                    var occupations = prefuncdata[key]
+                    prev_end = res_van.setFloatHours(S("res_t1")); // TODO: per ruimte?
+                    for (var i in occupations)
+                    {
+                        var occu = occupations[i];
+                        if (res_van < occu.res_tot && res_tot > occu.res_van)
+                        {
+                            return false; // Overlap
+                        }
+                        prev_end = occu.res_tot;
+                    }
+                    return true;
+                }
+            },
+    includes: {"availability": { //xmodel: model_visitors,
+                                xjoinfield: "bez_afspraak_key"
+                              },
+               "occupations": { // prefunc om alles tegelijk op te halen
+                                prefunc: function _occupations(params)
+                                    {
+                                        var params = {res_van: new Date(), // TODO: Welke dag?
+                                                       res_tot: new Date(),
+                                                       loc_key: 71, // alkw
+                                                       //res_ruimte_key: 8065, // even hard
+                                                       authparams : user.checkAutorisation("WEB_RESUSE", null, null, true),
+                                                       forSelectRoom: true
+                                                     }
+                                        return res.plan_bezet_info(params); // wordt meegeven aan de volgende func
+                                    },
+                                func: function _occupations(key, params, prefuncdata)
+                                    {
+                                        var occupied = prefuncdata[key] ;
+                                        return occupied?occupied[0]:null;
+                                    },
+                                xjoinfield: "bez_afspraak_key"
+                              }
+              },
+
+    REST_GET: function _GET(params)
+        {
+            var urole = "fe"; // TODO: Moet echt niet ter zake doen
+            var autfunction = urole == "fe"? "WEB_ALGUSE" : "WEB_ALGMAN";
+            params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
+
+            // TODO: Add authorization
+            var query = api2.sqlfields(params, model_reservablerooms );
+
+            query.tables.push("res_alg_ruimte");
+
+            query.wheres.push("res_ruimte_verwijder IS NULL");
+            query.wheres.push("res_alg_ruimte_verwijder IS NULL");
+
+            //query.wheres.push("(bez_afspraak_contact_key = " + user_key // Altijd fe vooralnog
+            //                   + "     OR bez_afspraak_host_key = " + user_key + ")");
+            query.wheres.push("res_alg_ruimte.res_ruimte_key = res_ruimte.res_ruimte_key");
+            //query.wheres.push("bez_afspraak_datum BETWEEN SYSDATE - " + S("facilitiespast_bez") + " AND SYSDATE + " + S("facilitiesfuture_bez"));
+
+            query.tables.push("alg_v_allonroerendgoed");
+            query.wheres.push("alg_v_allonroerendgoed.alg_onroerendgoed_keys = res_alg_ruimte.alg_ruimte_key");
+            query.wheres.push("alg_v_allonroerendgoed.alg_type = 'R'");
+
+            var wheres = api2.sqlfilter(params, model_reservablerooms);
+            query.wheres = query.wheres.concat(wheres);
+
+            var sql = "SELECT " + query.selects.join(", ")
+                    + "  FROM " + query.tables.join(", ")
+                    + " WHERE " + query.wheres.join(" AND " )
+                    + " ORDER BY res_ruimte_nr";
+
+__DoLog(sql);
+
+            var json = api2.sql2json (params, sql, model_reservablerooms );
+
+            return json;
+        },
+    xxxREST_PUT: function (params, jsondata, the_key) /* update reservablerooms */
+        {
+            var fields = api2.update_fields(params, model_reservablerooms, jsondata); // Build updater
+
+            // bezUpd heeft na afloop eventueel oldjsvals
+            var bezUpd = buildTrackingUpdate("bez_bezoekers", " bez_bezoekers_key = " + the_key, fields, { noValidateToken: true });
+            __DoLog(bezUpd.sql);
+            Oracle.Execute(bezUpd.sql);
+
+            var beztrack = api2.process_includes(params, model_reservablerooms, the_key, jsondata);
+
+            //var result = saveBezoekers(afspr_key, -1, { urole: urole, loctimechanged: changed });
+            //if (result.beztrack && result.beztrack.length > 0)
+            //bezUpd.trackarray.push(result.beztrack.join("\n"));
+
+            return model_reservablerooms.REST_GET(params); // resulterende data weer terug
+        },
+    xxxREST_POST: function (params, jsondata, parent_key) /* new reservablerooms */
+        {
+            var fields = api2.update_fields(params, model_reservablerooms, jsondata); // Build updater
+            fields.push({ dbs: "bez_bezoekers_key",        typ: "key",     seq: "bez_s_bez_bezoekers_key" });
+            fields.push({ dbs: "bez_afspraak_key",         typ: "key",     val: parent_key });
+
+            var bezIns = buildInsert("bez_bezoekers", fields, { noValidateToken: true });
+            var bez_key = bezIns.sequences["bez_bezoekers_key"];
+            __DoLog(bezIns.sql);
+            Oracle.Execute(bezIns.sql);
+            //var bezUpd = {trackarray: [L("lcl_bez_is_bezadd") + ": " + beznaam + "/" + bed]};
+            // TODO: Wat teruggeven?
+        },
+    DELETE: function (params) /* delete reservablerooms */
+    {
+    }
+}
+%>

APPL/API2/model_reservations.inc

@@ -0,0 +1,92 @@
+<% /*
+    $Revision$
+    $Id$
+
+    File:           model_reservations.inc
+
+    Description:    Reservering model. Dit bestand heeft niets met interfacing te maken
+                    maar werkt uitsluitend op JSON-data
+    Parameters:
+    Context:
+
+    Notes:          In het technisch datamodel heeft een reservering een koppeling naar een
+                    res_ruimte_opstel record (een geldige ruimte<->opstelling combinatie)
+                    In de API splitsen we dat in de meer natuurlijk aanvoelende res_ruimte_key
+                    en res_ruimte_opstel_key
+*/
+
+%>
+<!-- #include file="../Shared/discxalg3d.inc"-->
+<!-- #include file="../res/res.inc"-->
+<%
+var sqlro = "SELECT rg.res_ruimte_nr || CASE WHEN res_ruimte_opstel_default = 1 THEN '' ELSE ' (' || ro.res_opstelling_omschrijving || ')' END CASE"
+            + "  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 = res_rsv_ruimte.res_ruimte_opstel_key";
+
+model_reservations =
+{
+    module: "RES",
+    table: "res_rsv_ruimte",
+    primary: "res_rsv_ruimte_key",
+    records_name: "reservations",
+    record_name: "reservation",
+
+    fields: [{ name: "id",            dbs: "res_rsv_ruimte_key",         typ: "key",       filter: "exact" },
+             { name: "code",          dbs: "res_reservering_id",         sql: "res_reservering_key||'/'||res_rsv_ruimte_volgnr",        typ: "varchar"},
+             { name: "from",          dbs: "res_rsv_ruimte_van",         typ: "datetime"},
+             { name: "to",            dbs: "res_rsv_ruimte_tot",         typ: "datetime"},
+             { name: "description",   dbs: "res_rsv_ruimte_omschrijving", typ: "varchar"},
+             { name: "remark",        dbs: "res_rsv_ruimte_opmerking",   typ: "varchar"},
+             { name: "host",          dbs: "res_rsv_ruimte_host_key",    typ: "key",       foreign: "prs_perslid"},
+             { name: "contact",       dbs: "res_rsv_ruimte_contact_key", typ: "key",       foreign: "prs_perslid"},
+             { name: "visitorscount", dbs: "res_rsv_ruimte_bezoekers",   typ: "number" },
+             { name: "status",        dbs: "res_status_fo_key",          typ: "key",       foreign: res.getfostatustext },
+             { name: "room",          dbs: "res_ruimte_opstelling.res_ruimte_key", typ: "key",      foreign: "res_ruimte" },
+             { name: "configuration", dbs: "res_ruimte_opstelling.res_opstelling_key",  typ: "key", foreign: "res_opstelling" },
+            ],
+
+    impersonate_auth: "WEB_RESFOF",
+    REST_GET: function _GET(params)
+        {
+            var urole = "fe"; // TODO: Moet echt niet ter zake doen
+            var autfunction = urole == "fe"? "WEB_ALGUSE" : "WEB_ALGMAN";
+            params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
+
+            // TODO: Add authorization
+            var query = api2.sqlfields(params, model_reservations );
+
+            query.wheres.push(user_key + " IN (res_rsv_ruimte_host_key, res_rsv_ruimte_contact_key)"); // Altijd fe vooralnog
+            query.wheres.push("res_rsv_ruimte_van BETWEEN SYSDATE - " + S("facilitiespast_res") + " AND SYSDATE + " + S("facilitiesfuture_res"));
+
+            query.tables.push("res_ruimte_opstelling");
+            query.wheres.push("res_rsv_ruimte.res_ruimte_opstel_key = res_ruimte_opstelling.res_ruimte_opstel_key");
+
+            var wheres = api2.sqlfilter(params, model_reservations);
+            query.wheres = query.wheres.concat(wheres);
+
+            var sql = "SELECT " + query.selects.join(", ")
+                    + "  FROM " + query.tables.join(", ")
+                    + " WHERE " + query.wheres.join(" AND " )
+                    + " ORDER BY res_rsv_ruimte_van, res_rsv_ruimte.res_rsv_ruimte_key";
+
+__DoLog(sql);
+
+            var json = api2.sql2json (params, sql, model_reservations );
+
+            return json;
+        },
+    PUT: function (params) /* update reservation */
+    {
+    },
+    POST: function (params) /* new reservation */
+    {
+    },
+    DELETE: function (params) /* delete reservation */
+    {
+    }
+}
+%>

APPL/API2/model_visitors.inc

@@ -0,0 +1,105 @@
+<% /*
+    $Revision$
+    $Id$
+
+    File:           model_visitors.inc
+
+    Description:    Bezoekers model. Dit bestand heeft niets met interfacing te maken
+                    maar werkt uitsluitend op JSON-data
+    Parameters:
+    Context:
+
+    Notes:
+*/
+
+%>
+<!-- #include file="../Shared/discxalg3d.inc"-->
+<%
+model_visitors =
+{
+    table: "bez_bezoekers",
+    primary: "bez_bezoekers_key",
+    records_name: "visitors",
+    record_name: "visitor",
+    fields: [{ name: "id",          dbs: "bez_bezoekers_key",    typ: "key",     filter: "exact" },
+             { name: "name",        dbs: "bez_afspraak_naam",    typ: "varchar"},
+             { name: "company",     dbs: "bez_afspraak_bedrijf", typ: "varchar"},
+             { name: "badge",       dbs: "bez_bezoekers_pasnr",  typ: "varchar"},
+             { name: "in",          dbs: "bez_bezoekers_done",   typ: "datetime"},
+             { name: "out",         dbs: "bez_bezoekers_out",    typ: "datetime"}
+             // niet teruglinken, { name: "appointment", dbs: "bez_afspraak_key",     typ: "key",     foreign: "bez_afspraak"}
+            ],
+
+    REST_GET: function _GET(params)
+        {
+            var urole = "fe"; // TODO: Moet echt niet ter zake doen
+            var autfunction = urole == "fe"? "WEB_ALGUSE" : "WEB_ALGMAN";
+            params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
+
+            // TODO: Add authorization
+            var query = api2.sqlfields(params, model_visitors );
+
+            query.tables.push("bez_afspraak");
+            query.wheres.push("(bez_afspraak_contact_key = " + user_key // Altijd fe vooralnog
+                               + "     OR bez_afspraak_host_key = " + user_key + ")");
+            query.wheres.push("bez_afspraak.bez_afspraak_key = bez_bezoekers.bez_afspraak_key");
+            query.wheres.push("bez_afspraak_datum BETWEEN SYSDATE - " + S("facilitiespast_bez") + " AND SYSDATE + " + S("facilitiesfuture_bez"));
+
+            var wheres = api2.sqlfilter(params, model_visitors);
+            query.wheres = query.wheres.concat(wheres);
+
+            var sql = "SELECT " + query.selects.join(", ")
+                    + "  FROM " + query.tables.join(", ")
+                    + " WHERE " + query.wheres.join(" AND " )
+                    + " ORDER BY bez_afspraak_datum, bez_afspraak.bez_afspraak_key";
+
+__DoLog(sql);
+
+            var json = api2.sql2json (params, sql, model_visitors );
+
+            return json;
+        },
+    REST_PUT: function (params, jsondata, the_key) /* update visitors */
+        {
+            var fields = api2.update_fields(params, model_visitors, jsondata); // Build updater
+
+            // bezUpd heeft na afloop eventueel oldjsvals
+            var bezUpd = buildTrackingUpdate("bez_bezoekers", " bez_bezoekers_key = " + the_key, fields, { noValidateToken: true });
+            __DoLog(bezUpd.sql);
+            Oracle.Execute(bezUpd.sql);
+
+            var beztrack = api2.process_includes(params, model_visitors, the_key, jsondata);
+
+            //var result = saveBezoekers(afspr_key, -1, { urole: urole, loctimechanged: changed });
+            //if (result.beztrack && result.beztrack.length > 0)
+            //bezUpd.trackarray.push(result.beztrack.join("\n"));
+
+            return model_visitors.REST_GET(params); // resulterende data weer terug
+        },
+    REST_POST: function (params, jsondata, parent_key) /* new visitors */
+        {
+            var fields = api2.update_fields(params, model_visitors, jsondata); // Build updater
+            fields.push({ dbs: "bez_bezoekers_key",        typ: "key",     seq: "bez_s_bez_bezoekers_key" });
+            fields.push({ dbs: "bez_afspraak_key",         typ: "key",     val: parent_key });
+
+            var bezIns = buildInsert("bez_bezoekers", fields, { noValidateToken: true });
+            var bez_key = bezIns.sequences["bez_bezoekers_key"];
+            __DoLog(bezIns.sql);
+            Oracle.Execute(bezIns.sql);
+            //var bezUpd = {trackarray: [L("lcl_bez_is_bezadd") + ": " + beznaam + "/" + bed]};
+            // TODO: Wat teruggeven?
+        },
+    REST_DELETE: function (params, jsondata, the_key) /* delete visitors */
+    {
+        var wheres = [" bez_bezoekers_key = " + the_key];
+        // TODO: Autorisatie
+        //wheres.push("(bez_afspraak_contact_key = " + user_key // Altijd fe vooralnog
+        //                   + "     OR bez_afspraak_host_key = " + user_key + ")");
+        var sql = "DELETE FROM bez_bezoekers"
+                + " WHERE " + wheres.join(" AND " );
+
+        __DoLog(sql);
+        Oracle.Execute(sql);
+    }
+}
+%>

APPL/BES/DynArtikelInfo.asp

@@ -28,7 +28,7 @@ DOCTYPE_Disable = 1;
 
     function getSupplierStock(pGroupNr, pArticleNr, xmlurl, xslPath, certificateName)
     {
-        var http_request = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0");
+        var http_request = Server.CreateObject("WinHTTP.WinHTTPRequest.5.1");
 
         if (S("ProxyServerIPAddress"))
         {
@@ -79,7 +79,10 @@ DOCTYPE_Disable = 1;
             return null;
         }
 
-        xmlResp = http_request.responseXML;
+        var xmlResp = Server.CreateObject("Msxml2.DOMDocument.4.0");
+
+        xmlResp.loadXML(http_request.ResponseText); // for parsing
+
         __Log("Response van leverancier: " + Server.HTMLEncode(xmlResp.xml));
         // Transformeer met de leverancier specifieke stylesheet
         if (xslPath)
@@ -104,13 +107,13 @@ DOCTYPE_Disable = 1;
         {
             result = { stock: objStock.text };
             strQuery = "stock_response/part[number='" + safe.htmlattr(pArticleNr) + "']/infotext";
-            objInfotext = http_request.responseXML.selectSingleNode(strQuery);
+            objInfotext = xmlResp.selectSingleNode(strQuery);
             if (objInfotext)
                 result.infotext = objInfotext.text;
 
             // We doen nog niets met infohtml maar leggen alvast de basis
             strQuery = "stock_response/part[number='" + safe.htmlattr(pArticleNr) + "']/infohtml";
-            objInfohtml = http_request.responseXML.selectSingleNode(strQuery);
+            objInfohtml = xmlResp.selectSingleNode(strQuery);
             if (objInfohtml)
                 result.infohtml = objInfohtml.text;
 
@@ -120,13 +123,16 @@ DOCTYPE_Disable = 1;
 
     var srtdeel_key = getQParamInt("srtdeel_key");
     var sql = "SELECT bes_srtdeel_nr, " + lcl.xsqla('bes_srtgroep_omschrijving','g.bes_srtgroep_key') + ", "
-            + "       prs_bedrijf_xmldetails_loc, prs_bedrijf_xsl, "
-            + "       prs_bedrijf_details_loc, prs_bedrijf_order_certificate"
+            + "       prs_bedrijf_xmldetails_loc, prs_bedrijfadres_xsl, "
+            + "       prs_bedrijf_details_loc, prs_bedrijfadres_certificate"
             + " FROM  bes_srtdeel d,"
             + "       bes_srtgroep g,"
-            + "       prs_bedrijf be"
+            + "       prs_bedrijf be,"
+            + "       prs_bedrijfadres ba"
             + " WHERE d.bes_srtdeel_key = " + srtdeel_key
             + "   AND d.bes_srtgroep_key = g.bes_srtgroep_key"
+            + "   AND ba.prs_bedrijf_key(+) = be.prs_bedrijf_key"
+            + "   AND ba.prs_bedrijfadres_type(+) = 'B'"
             + "   AND d.prs_bedrijf_key = be.prs_bedrijf_key"
 
     var oRs = Oracle.Execute(sql);
@@ -139,8 +145,8 @@ DOCTYPE_Disable = 1;
     var res = getSupplierStock(oRs("bes_srtgroep_omschrijving").value,
                                oRs("bes_srtdeel_nr").value,
                                oRs("prs_bedrijf_xmldetails_loc").value,
-                               oRs("prs_bedrijf_xsl").value,
-                               oRs("prs_bedrijf_order_certificate").value
+                               oRs("prs_bedrijfadres_xsl").value,
+                               oRs("prs_bedrijfadres_certificate").value
                                )
 
     if (!res) // Geen antwoord?

APPL/BES/ModalForm.asp

@@ -8,7 +8,7 @@
 
 <html>
   <head>
-    <title><%=titleString%></title>
+    <title><%=safe.html(titleString)%></title>
     <script>
         function closeModal(retval)
         {

APPL/BES/addFavourites.asp

@@ -35,6 +35,7 @@ function doSubmit()
   var srtdeel_key = getQParamInt('srtdeel_key');
 
   if (submitting) {
+    protectRequest.validateToken();
     // Sla de ingevoerde gegevens op in een nieuwe bestellingsaanvraag
 %>
     <body id="info" topmargin='0' onLoad="">
@@ -101,7 +102,7 @@ function doSubmit()
         <td class='label'><label for="fav"><%=L("lcl_bes_favour_list")%>:</label></td>
         <td><select name="fav" id="fav"><%
           // eigen favorieten lijsten van een bepaalde categorie
-          sql = " SELECT '" + L("lcl_bes_select_fav_list") + "', 'A' FROM DUAL"
+          sql = " SELECT " + safe.quoted_sql(L("lcl_bes_select_fav_list")) + ", 'A' FROM DUAL"
               + " UNION"
               + " SELECT bf.bes_favoriet_naam"
               + ", 'B'"
@@ -142,6 +143,7 @@ function doSubmit()
   var buttons =  [ {title: L("lcl_submit"), icon:"opslaan.png", action:"doSubmit()" },
                    {title: L("lcl_cancel"), icon: "undo.png", action:"FcltMgr.closeDetail(window, { cancel: true })" } ];
   CreateButtons(buttons);
+IFACE.FORM_END();
 %>
     </form>
 <%

APPL/BES/bes.inc

@@ -11,8 +11,6 @@
 
 */ %>
 <%
-    FCLTHeader.Requires({lcl: ["BES"]});
-
     bes =
     {
         setbestellingstatus:
@@ -76,6 +74,15 @@
               return statustekst;
            },
 
+        trackbestellingaccepteren:
+           function (opdr_key, ptxt)
+           { // noot: shared.trackaction (fac.trackaction) genereert ook eventuele notificaties.
+             if (ptxt)
+               shared.trackaction('BESACP', opdr_key, ptxt);
+             else
+               shared.trackaction('BESACP', opdr_key);
+           },
+
         // Alle (BES) informatie van een disciplnie
         disc_info: function _disc_info(disc_key, autfunction)
         {
@@ -91,6 +98,10 @@
                     + "     , bes_disc_params_auto_order"
                     + "     , bes_disc_params_min_bedrag"
                     + "     , bes_disc_params_bestellimiet"
+                    + "     , bes_disc_params_bestellimiet2"
+                    + "     , bes_disc_params_bestellimiet3"
+                    + "     , bes_disc_params_bestellimiet4"
+                    + "     , bes_disc_params_bestellimiet5"
                     + "     , ins_discipline_kpnverplicht"
                     + "     , bes_disc_params_pgb"
                     + "     , bes_disc_params_herfiat"
@@ -111,28 +122,32 @@
 
             var oRs = Oracle.Execute(sql);
             var result = { disc_key                       : disc_key,
-                           discipline_omschrijving        : oRs("ins_discipline_omschrijving").value,
-                           discipline_kpnverplicht        : oRs("ins_discipline_kpnverplicht").value == '1',
-                           disc_params_retour             : oRs("bes_disc_params_retour").value == '1',
-                           disc_params_retour_url         : oRs("bes_disc_params_retour_url").value,
-                           disc_params_levopm_url         : oRs("bes_disc_params_levopm_url").value,
-                           disc_params_leverdagen         : oRs("bes_disc_params_leverdagen").value || 0,
-                           disc_params_punchouturl        : oRs("bes_disc_params_punchouturl").value,
-                           disc_params_punch_bedr_key     : oRs("bes_disc_params_punch_bedr_key").value,
-                           disc_params_logo_url           : oRs("bes_disc_params_logo_url").value,
-                           disc_params_autoacceptrfo      : oRs("bes_disc_params_autoacceptrfo").value,
-                           disc_params_auto_order         : oRs("bes_disc_params_auto_order").value,
-                           disc_params_min_bedrag         : oRs("bes_disc_params_min_bedrag").value,
-                           disc_params_bestellimiet       : oRs("bes_disc_params_bestellimiet").value,
-                           disc_params_pgb                : oRs("bes_disc_params_pgb").value,
-                           disc_params_herfiat            : oRs("bes_disc_params_herfiat").value || 0,
-                           disc_params_herfiatpct         : oRs("bes_disc_params_herfiatpct").value,
-                           disc_params_herfiatmarge       : oRs("bes_disc_params_herfiatmarge").value,
-                           staffelgroepitems              : oRs("staffelgroepitems").value,
-                           maxartikel                     : oRs("bes_disc_params_maxartikel").value? oRs("bes_disc_params_maxartikel").value : -1,
-                           kpautorisatie                  : oRs("bes_disc_params_kpautorisatie").value == 1,
-                           disc_params_for_others         : oRs("bes_disc_params_for_others").value == 1,
-                           can_concept                    : oRs("bes_disc_params_herfiat").value > 0 // 5.1.2 functionaliteit
+                           discipline_omschrijving        : oRs("ins_discipline_omschrijving").Value,
+                           discipline_kpnverplicht        : oRs("ins_discipline_kpnverplicht").Value == '1',
+                           disc_params_retour             : oRs("bes_disc_params_retour").Value == '1',
+                           disc_params_retour_url         : oRs("bes_disc_params_retour_url").Value,
+                           disc_params_levopm_url         : oRs("bes_disc_params_levopm_url").Value,
+                           disc_params_leverdagen         : oRs("bes_disc_params_leverdagen").Value || 0,
+                           disc_params_punchouturl        : oRs("bes_disc_params_punchouturl").Value,
+                           disc_params_punch_bedr_key     : oRs("bes_disc_params_punch_bedr_key").Value,
+                           disc_params_logo_url           : oRs("bes_disc_params_logo_url").Value,
+                           disc_params_autoacceptrfo      : oRs("bes_disc_params_autoacceptrfo").Value,
+                           disc_params_auto_order         : oRs("bes_disc_params_auto_order").Value,
+                           disc_params_min_bedrag         : oRs("bes_disc_params_min_bedrag").Value,
+                           disc_params_bestellimiet       : oRs("bes_disc_params_bestellimiet").Value,
+                           disc_params_bestellimiet2      : oRs("bes_disc_params_bestellimiet2").Value,
+                           disc_params_bestellimiet3      : oRs("bes_disc_params_bestellimiet3").Value,
+                           disc_params_bestellimiet4      : oRs("bes_disc_params_bestellimiet4").Value,
+                           disc_params_bestellimiet5      : oRs("bes_disc_params_bestellimiet5").Value,
+                           disc_params_pgb                : oRs("bes_disc_params_pgb").Value,
+                           disc_params_herfiat            : oRs("bes_disc_params_herfiat").Value || 0,
+                           disc_params_herfiatpct         : oRs("bes_disc_params_herfiatpct").Value,
+                           disc_params_herfiatmarge       : oRs("bes_disc_params_herfiatmarge").Value,
+                           staffelgroepitems              : oRs("staffelgroepitems").Value,
+                           maxartikel                     : oRs("bes_disc_params_maxartikel").Value? oRs("bes_disc_params_maxartikel").Value : -1,
+                           kpautorisatie                  : oRs("bes_disc_params_kpautorisatie").Value == 1,
+                           disc_params_for_others         : oRs("bes_disc_params_for_others").Value == 1,
+                           can_concept                    : oRs("bes_disc_params_herfiat").Value > 0 // 5.1.2 functionaliteit
                          }
             oRs.Close();
             if (autfunction)
@@ -143,6 +158,11 @@
         generateBesInfoBlock: function (bes_bestelling)
         {
             BLOCK_START("besInfo" , L("lcl_bes_key") + "&nbsp;" + S("bes_bestelling_prefix") + bes_bestelling.bes_key + (bes_bestelling.parent_key? "*" : ""));
+              if (bes_bestelling.satisfaction && shared.satisfactionsymbol(bes_bestelling.satisfaction))
+              {
+                %><img id="satisfaction" src="<%=shared.satisfactionsymbol(bes_bestelling.satisfaction)%>" title="<%=safe.htmlattr(bes_bestelling.satisfaction_op)%>"><%
+              }
+
               ROFIELDTR("fld", L("lcl_bes_discipline"), bes_disc_info.discipline_omschrijving);
 
               // Zijn wij een incidentele bestelling via een melding?
@@ -205,13 +225,13 @@
                   oRs = Oracle.Execute(sql);
               while(!oRs.eof)
               {
-                var txt = S("bes_bestelopdr_prefix") + oRs("bes_bestelopdr_id").value;
-                if (oRs("bes_bestelopdr_status").value == 1) // afgewezen
-                    txt += " (" + bes.getbesopdrstatustext(oRs("bes_bestelopdr_status").value) + ")";
+                var txt = S("bes_bestelopdr_prefix") + oRs("bes_bestelopdr_id").Value;
+                if (oRs("bes_bestelopdr_status").Value == 1) // afgewezen
+                    txt += " (" + bes.getbesopdrstatustext(oRs("bes_bestelopdr_status").Value) + ")";
                 if (bes_bestelling.parent_key)
                     txt += "*"; // wij zijn een change dus de opdracht ook
                 l_orders.push(txt);
-                l_orders_key.push(oRs("bes_bestelopdr_key").value);
+                l_orders_key.push(oRs("bes_bestelopdr_key").Value);
                 oRs.MoveNext();
               }
               oRs.Close();
@@ -256,28 +276,38 @@
 
               // Waar worden we door geretourneerd?
               l_retours = [];
+              l_retourk = [];
               sql = "SELECT bes_bestelling_key"
                   + "  FROM bes_bestelling"
                   + " WHERE bes_bestelling_retourvan_key = " + bes_bestelling.bes_key
                   + " ORDER BY bes_bestelling_key";
               oRs = Oracle.Execute(sql);
               while(!oRs.eof) {
-                l_retours.push(S("bes_bestelling_prefix") + oRs("bes_bestelling_key").value);
+                l_retours.push(S("bes_bestelling_prefix") + oRs("bes_bestelling_key").Value);
+                l_retourk.push(oRs("bes_bestelling_key").Value);
                 oRs.MoveNext();
               }
               oRs.Close();
 
               if (l_retours.length) {
-                  ROFIELDTR ("fld rejected", L("lcl_bes_retour_nr"), l_retours.join(","));
+                  var params = {};
+                  if (l_retourk.length == 1)
+                  {
+                    params = { infoPointer: { Url: "appl/bes/bes_bestelling.asp?urole=" + urole + "&bes_key=" + l_retourk[0],
+                                              Title: L("lcl_bes_bestelling") + " " + l_retours[0]
+                                            }
+                             }
+                  }
+                  ROFIELDTR ("fld rejected", L("lcl_bes_retour_nr"), l_retours.join(","), params);
               }
 
               // Waar zijn we een retour van?
               if (bes_bestelling.rfoRetourVan != null)
               {
                 var params = { infoPointer: { Url: "appl/bes/bes_bestelling.asp?urole=" + urole + "&bes_key=" + bes_bestelling.rfoRetourVan,
-                               Title: L("lcl_bes_bestelling") + " " + bes_bestelling.rfoRetourVan
+                                              Title: L("lcl_bes_bestelling") + " " + bes_bestelling.rfoRetourVan
+                                            }
                              }
-                }
                 ROFIELDTR ("rejected", L("lcl_bes_retour_of"), S("bes_bestelling_prefix") + bes_bestelling.rfoRetourVan, params);
               }
 
@@ -289,7 +319,7 @@
                   oRs = Oracle.Execute(sql);
                   if (!oRs.eof)
                   {
-                    var params = { infoPointer: { Url: "appl/cnt/cnt_contract.asp?urole=" + urole + "&cnt_key=" + oRs("cnt_contract_key").value,
+                    var params = { infoPointer: { Url: "appl/cnt/cnt_contract.asp?urole=" + urole + "&cnt_key=" + oRs("cnt_contract_key").Value,
                                    Title: L("lcl_contract") + " " + S("bes_bestelling_prefix") + bes_bestelling.bes_key,
                                    suppressEmpty: true }}
                     ROFIELDTR ("fld", L("lcl_contract"), S("bes_bestelling_prefix") + bes_bestelling.bes_key,  params);
@@ -300,44 +330,70 @@
 
         bestelling_info: function (bes_key)
         {
+            var srtdeel_arr = [];
+            var amount_arr = [];
+            var sql = "SELECT bi.bes_srtdeel_key"
+                    + "     , bi.bes_bestelling_item_aantal"
+                    + "  FROM bes_bestelling_item bi"
+                    + " WHERE bi.bes_bestelling_key = " + bes_key;
+            var oRs = Oracle.Execute(sql);
+
+            if (oRs.Eof)
+                shared.record_not_found("BES: Record not found");
+
+            while(!oRs.eof)
+            {
+              srtdeel_arr.push(oRs("bes_srtdeel_key").Value);
+              amount_arr.push(oRs("bes_bestelling_item_aantal").Value);
+              oRs.MoveNext();
+            }
+            oRs.Close();
+
+            var staffel_info = bes.staffel_info(srtdeel_arr, amount_arr);
+
+            // Kan ik zelf fiatteren?: true:  totaalbedrag <= can_selfapprove
+            //                         false  totaalbedrag > can_selfapprove
             // deze mag/hoeft niet meer te fiatteren
             var exclude_fiatter =
-                "COALESCE(b.bes_bestelling_fiat_user, " + (S("can_selfapprove") == 1? -1 : "b.prs_perslid_key") + ") ";
+                "COALESCE(b.bes_bestelling_fiat_user, " + (staffel_info.totaalbedrag <= S("can_selfapprove")? -1 : "b.prs_perslid_key") + ") ";
 
             // Get info of existing BES_BESTELLING
             var sql = "SELECT b.bes_bestelling_status"
-                  + ",        b.bes_bestelling_datum"
-                  + ",        b.prs_perslid_key"
-                  + ",        b.prs_perslid_key_voor"
-                  + ",        p.prs_afdeling_key"
-                  + ",        b.prs_kostenplaats_key"
-                  + ",        (SELECT " + S("prs_kpn_string")
-                  + "            FROM prs_kostenplaats k"
-                  + "           WHERE k.prs_kostenplaats_key = b.prs_kostenplaats_key) prs_kostenplaats_omschr"
-                  + ",        b.bes_bestelling_plaats"
-                  + ",       b.bes_bestelling_status"
-                  + ",       b.bes_bestelling_ordernr"
-                  + ",       m.mld_adres_naam"
-                  + ",       m.mld_adres_key"
-                  + ",       b.bes_bestelling_leverdatum"
-                  + ",       b.bes_bestelling_retourvan_key"
-                  + ",       prs.getkpverantwoordelijke (b.prs_kostenplaats_key, " + S("prs_approvemethod") + ", " + exclude_fiatter + ") fiatteur_key"
-                  + ",       b.bes_bestelling_fiat_user"
-                  + ",       b.bes_bestelling_korting"
-                  + ",       b.bes_bestelling_levkosten"
-                  + ",       b.mld_melding_key"
-                  + ",       bes_bestelling_opmerking"
-                  + ",       b.fac_activiteit_key"
-                  + ",       b.bes_bestelling_parentkey"
-                  + ",       (SELECT b1.bes_bestelling_key"
-                  + "           FROM bes_bestelling b1"
-                  + "          WHERE b1.bes_bestelling_parentkey = b.bes_bestelling_key) change_key"
-                  + "   FROM bes_bestelling b"
-                  + ",       prs_perslid p"
-                  + ",       mld_adres m"
-                  + "  WHERE b.bes_bestelling_key = " + bes_key
-                  + "    AND p.prs_perslid_key = b.prs_perslid_key"
-                  + "    AND m.mld_adres_key(+) = b.mld_adres_key_lev";
+                    + "     , b.bes_bestelling_datum"
+                    + "     , b.prs_perslid_key"
+                    + "     , b.prs_perslid_key_voor"
+                    + "     , p.prs_afdeling_key"
+                    + "     , b.prs_kostenplaats_key"
+                    + "     , (SELECT " + S("prs_kpn_string")
+                    + "          FROM prs_kostenplaats k"
+                    + "         WHERE k.prs_kostenplaats_key = b.prs_kostenplaats_key) prs_kostenplaats_omschr"
+                    + "     , b.bes_bestelling_plaats"
+                    + "     , b.bes_bestelling_status"
+                    + "     , b.bes_bestelling_ordernr"
+                    + "     , m.mld_adres_naam"
+                    + "     , m.mld_adres_key"
+                    + "     , b.bes_bestelling_leverdatum"
+                    + "     , b.bes_bestelling_retourvan_key"
+                    + "     , prs.getkpverantwoordelijke (b.prs_kostenplaats_key, " + S("prs_approvemethod") + ", " + exclude_fiatter + ") fiatteur_key"
+                    + "     , b.bes_bestelling_fiat_user"
+                    + "     , b.bes_bestelling_korting"
+                    + "     , b.bes_bestelling_levkosten"
+                    + "     , b.mld_melding_key"
+                    + "     , bes_bestelling_opmerking"
+                    + "     , b.fac_activiteit_key"
+                    + "     , b.bes_bestelling_parentkey"
+                    + "     , b.bes_bestelling_satisfaction"
+                    + "     , b.bes_bestelling_satisfaction_op"
+                    + "     , (SELECT b1.bes_bestelling_key"
+                    + "          FROM bes_bestelling b1"
+                    + "         WHERE b1.bes_bestelling_parentkey = b.bes_bestelling_key) change_key"
+                    + "     , b.bes_bestelling_approved"
+                    + "  FROM bes_bestelling b"
+                    + "     , prs_perslid p"
+                    + "     , mld_adres m"
+                    + " WHERE b.bes_bestelling_key = " + bes_key
+                    + "   AND p.prs_perslid_key = b.prs_perslid_key"
+                    + "   AND m.mld_adres_key(+) = b.mld_adres_key_lev";
 
             var oRs = Oracle.Execute(sql);
             if (oRs.Eof)
@@ -346,32 +402,35 @@
             var bes_bestelling =
             {
                 bes_key             : bes_key,
-                //rfoStatusText       : oRs("status").value,
-                rfoStatusText       : ((oRs("bes_bestelling_status").value == 6 && (oRs("bes_bestelling_retourvan_key").value && oRs("bes_bestelling_retourvan_key").value > 0))
+                //rfoStatusText       : oRs("status").Value,
+                rfoStatusText       : ((oRs("bes_bestelling_status").Value == 6 && (oRs("bes_bestelling_retourvan_key").Value && oRs("bes_bestelling_retourvan_key").Value > 0))
                                       ? L("lcl_bes_collected")
-                                      : bes.getbesbestellingstatustext(oRs("bes_bestelling_status").value)),
-                rfoDate             : new Date(oRs("bes_bestelling_datum").value),
-                kostenplaats_key    : oRs("prs_kostenplaats_key").value||-1,
-                kostenplaats_omschr : oRs("prs_kostenplaats_omschr").value||"",
-                perslid_key         : oRs("prs_perslid_key").value, // Persoon die de bestellin aanmaakt
-                afdeling_key        : oRs("prs_afdeling_key").value, // Afdeling van de persoon die de bestelling aanmaakt
-                perslid_key_voor    : oRs("prs_perslid_key_voor").value, // Aanvrager/invoerder/contactpersoon
-                rfoStatus           : oRs("bes_bestelling_status").value,
-                orderNr             : oRs("bes_bestelling_ordernr").value,
-                afleverruimte       : oRs("bes_bestelling_plaats").value,
-                rfoDeliverydate     : new Date(oRs("bes_bestelling_leverdatum").value),
-                rfoRetourVan        : oRs("bes_bestelling_retourvan_key").value,
-                fiatteur_key        : oRs("fiatteur_key").value, // degene die het moet doen
-                bes_bestelling_fiat_user : oRs("bes_bestelling_fiat_user").value, // degene die al geweest is
-                rfoBesKosten        : oRs("bes_bestelling_korting").value,
-                rfoLevKosten        : oRs("bes_bestelling_levkosten").value,
-                rfoOpmerking        : oRs("bes_bestelling_opmerking").value,
-                mld_adres_naam      : oRs("mld_adres_naam").value,
-                mld_adres_key       : oRs("mld_adres_key").value,
-                fac_activiteit_key  : oRs("fac_activiteit_key").value? oRs("fac_activiteit_key").value : -1,
-                mld_key             : oRs("mld_melding_key").value,
-                parent_key          : oRs("bes_bestelling_parentkey").value,
-                change_key          : oRs("change_key").value
+                                      : bes.getbesbestellingstatustext(oRs("bes_bestelling_status").Value)),
+                rfoDate             : new Date(oRs("bes_bestelling_datum").Value),
+                kostenplaats_key    : oRs("prs_kostenplaats_key").Value||-1,
+                kostenplaats_omschr : oRs("prs_kostenplaats_omschr").Value||"",
+                perslid_key         : oRs("prs_perslid_key").Value, // Persoon die de bestelling aanmaakt
+                afdeling_key        : oRs("prs_afdeling_key").Value, // Afdeling van de persoon die de bestelling aanmaakt
+                perslid_key_voor    : oRs("prs_perslid_key_voor").Value, // Aanvrager/invoerder/contactpersoon
+                rfoStatus           : oRs("bes_bestelling_status").Value,
+                orderNr             : oRs("bes_bestelling_ordernr").Value,
+                afleverruimte       : oRs("bes_bestelling_plaats").Value,
+                rfoDeliverydate     : new Date(oRs("bes_bestelling_leverdatum").Value),
+                rfoRetourVan        : oRs("bes_bestelling_retourvan_key").Value,
+                fiatteur_key        : oRs("fiatteur_key").Value, // degene die het moet doen
+                bes_bestelling_fiat_user : oRs("bes_bestelling_fiat_user").Value, // degene die al geweest is
+                rfoBesKosten        : oRs("bes_bestelling_korting").Value,
+                rfoLevKosten        : oRs("bes_bestelling_levkosten").Value,
+                rfoOpmerking        : oRs("bes_bestelling_opmerking").Value,
+                mld_adres_naam      : oRs("mld_adres_naam").Value,
+                mld_adres_key       : oRs("mld_adres_key").Value,
+                fac_activiteit_key  : oRs("fac_activiteit_key").Value? oRs("fac_activiteit_key").Value : -1,
+                mld_key             : oRs("mld_melding_key").Value,
+                parent_key          : oRs("bes_bestelling_parentkey").Value,
+                satisfaction        : oRs("bes_bestelling_satisfaction").Value,
+                satisfaction_op     : oRs("bes_bestelling_satisfaction_op").Value,
+                change_key          : oRs("change_key").Value,
+                approved            : oRs("bes_bestelling_approved").Value? oRs("bes_bestelling_approved").Value : -1
             }
             oRs.close();
 
@@ -401,28 +460,28 @@
                     + "   AND bes_bestelling_key = " + bes_bestelling.bes_key;
             oRs = Oracle.Execute(sql);
 
-            if (oRs("ins_discipline_key").value == null)
+            if (oRs("ins_discipline_key").Value == null)
                 shared.internal_error("BES: no item lines.");
 
-            bes_bestelling.dis_key      = oRs("ins_discipline_key").value,
-            bes_bestelling.srtgroep     = oRs("bes_srtgroep_key").value,
-            bes_bestelling.singlegroep  = oRs("singlegroep").value == 1,
-            bes_bestelling.inclBTW      = oRs("inclBTW").value || 0,
-            bes_bestelling.totaal       = oRs("totaal").value || 0;
-            bes_bestelling.aantalontv   = oRs("aantalontv").value || 0;
-            bes_bestelling.isAbonnement = oRs("bes_disc_params_contract").value == 1; // Bij abonnement bestellingen mag er maar 1 bestelregel zijn en is er dus 1 srtgroep.
+            bes_bestelling.dis_key      = oRs("ins_discipline_key").Value,
+            bes_bestelling.srtgroep     = oRs("bes_srtgroep_key").Value,
+            bes_bestelling.singlegroep  = oRs("singlegroep").Value == 1,
+            bes_bestelling.inclBTW      = oRs("inclBTW").Value || 0,
+            bes_bestelling.totaal       = oRs("totaal").Value || 0;
+            bes_bestelling.aantalontv   = oRs("aantalontv").Value || 0;
+            bes_bestelling.isAbonnement = oRs("bes_disc_params_contract").Value == 1; // Bij abonnement bestellingen mag er maar 1 bestelregel zijn en is er dus 1 srtgroep.
             // Let op: Als bes_srtdeel_wijzigdagen niet gezet dan wordt bes_bestelling.wijzig_tot
             // ook niet gezet en hebben we oude <5.1.1 gedrag (meestal niet te wijzigen)
-            if (oRs("bes_srtdeel_wijzigdagen").value != 9999)
+            if (oRs("bes_srtdeel_wijzigdagen").Value != 9999)
             {
                 bes_bestelling.wijzig_tot = new Date(bes_bestelling.rfoDeliverydate);
-                bes_bestelling.wijzig_tot.setDate(bes_bestelling.wijzig_tot.getDate() - oRs("bes_srtdeel_wijzigdagen").value);
+                bes_bestelling.wijzig_tot.setDate(bes_bestelling.wijzig_tot.getDate() - oRs("bes_srtdeel_wijzigdagen").Value);
                 __Log("Wijzigen tot " + bes_bestelling.wijzig_tot);
             }
-            if (oRs("bes_srtdeel_annuleerdagen").value != 9999)
+            if (oRs("bes_srtdeel_annuleerdagen").Value != 9999)
             {
                 bes_bestelling.annuleer_tot = new Date(bes_bestelling.rfoDeliverydate);
-                bes_bestelling.annuleer_tot.setDate(bes_bestelling.annuleer_tot.getDate() - oRs("bes_srtdeel_annuleerdagen").value);
+                bes_bestelling.annuleer_tot.setDate(bes_bestelling.annuleer_tot.getDate() - oRs("bes_srtdeel_annuleerdagen").Value);
                 __Log("Annuleren tot " + bes_bestelling.annuleer_tot);
             }
             oRs.close();
@@ -437,8 +496,8 @@
                     + "       AND boi.bes_bestelopdr_item_key = bi.bes_bestelopdr_item_key"
                     + "       AND bi.bes_bestelling_key = " + bes_bestelling.bes_key;
             oRs = Oracle.Execute(sql);
-            bes_bestelling.rfoBestelOpdrStatus = oRs("bes_bestelopdr_status").value||0,
-            bes_bestelling.isordered = oRs("isordered").value||0,
+            bes_bestelling.rfoBestelOpdrStatus = oRs("bes_bestelopdr_status").Value||0,
+            bes_bestelling.isordered = oRs("isordered").Value||0,
             oRs.close();
 
             if (bes_bestelling.mld_key)
@@ -453,7 +512,7 @@
                     + "   AND sm.mld_stdmelding_key = m.mld_stdmelding_key"
                     + "   AND m.mld_melding_key = " + bes_bestelling.mld_key;
                   oRs = Oracle.Execute(sql);
-                  bes_bestelling.mld_prefix = oRs("mld_prefix").value||"";
+                  bes_bestelling.mld_prefix = oRs("mld_prefix").Value||"";
                   oRs.close()
             }
 
@@ -472,7 +531,7 @@
           oRs = Oracle.Execute(sql);
           while (!oRs.eof)
           {
-            bes_key_str.push(oRs("bes_bestelling_key").value);
+            bes_key_str.push(oRs("bes_bestelling_key").Value);
             oRs.MoveNext();
           }
           oRs.Close();
@@ -538,37 +597,37 @@
             opdr_key              : opdr_key,
             bestelopdr_id         : oRs("bes_bestelopdr_id").Value,
             bes_key_str           : bes_key_str,
-            prs_bedrijf_naam      : oRs("prs_bedrijf_naam").value,
-            mld_adres_key_lev     : oRs("mld_adres_key_lev").value,
-            mld_adres_key_fac     : oRs("mld_adres_key_fac").value,
-            opmerking             : oRs("bes_bestelopdr_opmerking").value,
-            delivery_opmerk       : oRs("bes_bestelopdr_delivery_opmerk").value,
-            inclBTW               : oRs("prs_kostensoort_btw").value,
-            status                : oRs("bes_bestelopdr_status").value,
-            statustxt             : bes.getbesopdrstatustext(oRs("bes_bestelopdr_status").value),
-            prs_perslid_naam      : oRs("naam").value, // Aangemaakt door
-            perslid_key           : oRs("prs_perslid_key").value,
-            dis_key               : oRs("ins_discipline_key").value,
-            korting               : parseFloat((oRs("bes_bestelopdr_korting").value? oRs("bes_bestelopdr_korting").value : 0).toFixed(2)),
-            levkosten             : parseFloat((oRs("bes_bestelopdr_levkosten").value? oRs("bes_bestelopdr_levkosten").value : 0).toFixed(2))
+            prs_bedrijf_naam      : oRs("prs_bedrijf_naam").Value,
+            mld_adres_key_lev     : oRs("mld_adres_key_lev").Value,
+            mld_adres_key_fac     : oRs("mld_adres_key_fac").Value,
+            opmerking             : oRs("bes_bestelopdr_opmerking").Value,
+            delivery_opmerk       : oRs("bes_bestelopdr_delivery_opmerk").Value,
+            inclBTW               : oRs("prs_kostensoort_btw").Value,
+            status                : oRs("bes_bestelopdr_status").Value,
+            statustxt             : bes.getbesopdrstatustext(oRs("bes_bestelopdr_status").Value),
+            prs_perslid_naam      : oRs("naam").Value, // Aangemaakt door
+            perslid_key           : oRs("prs_perslid_key").Value,
+            dis_key               : oRs("ins_discipline_key").Value,
+            korting               : parseFloat((oRs("bes_bestelopdr_korting").Value? oRs("bes_bestelopdr_korting").Value : 0).toFixed(2)),
+            levkosten             : parseFloat((oRs("bes_bestelopdr_levkosten").Value? oRs("bes_bestelopdr_levkosten").Value : 0).toFixed(2))
           }
-          if(oRs("bes_bestelopdr_status").value == 6 && oRs("bes_bestelling_retourvan_key").Value > 0)
+          if(oRs("bes_bestelopdr_status").Value == 6 && oRs("bes_bestelling_retourvan_key").Value > 0)
               bes_bestelopdr.statustxt = L("lcl_bes_collected");
 
           var totaal = 0;
           bes_bestelopdr.artikel_arr = new Array();
           while (!oRs.eof)
           { // Nu de artikelregels
-            var catalogus_omschr = oRs("ins_discipline_omschrijving").value;
-            var omschr = oRs("bes_srtdeel_omschrijving").value
-                       + " (" + S("currency_pref") + safe.curr(oRs("item_prijs").value)
-                       + S("currency_suff") + "/" + (oRs("bes_srtdeel_eenheid").value || "") + ")"
-            var aantal = oRs("bes_bestelopdr_item_aantal").value;
-            var aantalontv = oRs("bes_bestelopdr_item_aantalontv").value || 0;
-            var prijs = parseFloat((oRs("prijs").value? oRs("prijs").value : 0).toFixed(2));
-            var item_key = oRs("bes_bestelopdr_item_key").value;
-            var item_prijs = parseFloat((oRs("item_prijs").value? oRs("item_prijs").value : 0).toFixed(2));
-            var artikelnr = oRs("bes_srtdeel_nr").value;
+            var catalogus_omschr = oRs("ins_discipline_omschrijving").Value;
+            var omschr = oRs("bes_srtdeel_omschrijving").Value
+                       + " (" + S("currency_pref") + safe.curr(oRs("item_prijs").Value)
+                       + S("currency_suff") + "/" + (oRs("bes_srtdeel_eenheid").Value || "") + ")"
+            var aantal = oRs("bes_bestelopdr_item_aantal").Value;
+            var aantalontv = oRs("bes_bestelopdr_item_aantalontv").Value || 0;
+            var prijs = parseFloat((oRs("prijs").Value? oRs("prijs").Value : 0).toFixed(2));
+            var item_key = oRs("bes_bestelopdr_item_key").Value;
+            var item_prijs = parseFloat((oRs("item_prijs").Value? oRs("item_prijs").Value : 0).toFixed(2));
+            var artikelnr = oRs("bes_srtdeel_nr").Value;
             bes_bestelopdr.artikel_arr.push({ catalogus_omschr: catalogus_omschr,
                                               omschr:           omschr,
                                               aantal:           aantal,
@@ -588,17 +647,22 @@
         },
 
         func_enabled_bestelling: // Wat mag ik zoal op deze specifieke bestelling?
-            function _func_enabled_bestelling(bes_bestelling) // bes_bestelling is een bestelling_info hash
+            function _func_enabled_bestelling(bes_bestelling, params) // bes_bestelling is een bestelling_info hash
             {
+              params = params || {};
               var isVerantwoordelijke = (bes_bestelling.fiatteur_key == user_key || user.isCollega(bes_bestelling.fiatteur_key));
               isVerantwoordelijke |= (bes_bestelling.bes_bestelling_fiat_user == user_key || user.isCollega(bes_bestelling.bes_bestelling_fiat_user));
 
-              var bresult = user.func_enabled("BES",
-                                              bes_bestelling.dis_key,
-                                              null,
-                                              bes_bestelling.perslid_key,
-                                              false, // pessimist
-                                              isVerantwoordelijke); // isVerantwoordelijke dan optional
+              var bresult = user.func_enabled2("BES",
+                                               { ins_discipline_key: bes_bestelling.dis_key,
+                                                 alg_key: null,
+                                                 prs_key: bes_bestelling.perslid_key,
+                                                 checkOptimistic: false, // pessimist
+                                                 isOptional: isVerantwoordelijke,  // isVerantwoordelijke dan optional
+                                                 knownread: params.knownread
+                                               }
+                                              );
+              bresult.isVerantwoordelijke = isVerantwoordelijke;
 
               bresult.canReadAny = bresult.canRead("WEB_BESBOF") ||
                                    bresult.canRead("WEB_BESBAC") ||
@@ -624,6 +688,9 @@
                   }
               }
 
+              bresult.canReadFOF = bresult.canRead("WEB_BESFOF");
+              bresult.canReadBOF = bresult.canRead("WEB_BESBOF");
+
               var eigenBestelling = bes_bestelling.perslid_key == user_key || user.isCollega(bes_bestelling.perslid_key);
               // Als ik nog voor voor_wijzig // voor_annuleer zit mag de fe vaak nog wel wijzigen/ annuleren
               var voor_annuleer = bes_bestelling.annuleer_tot && bes_bestelling.annuleer_tot > (new Date);
@@ -659,73 +726,98 @@
                 switch (bes_bestelling.rfoStatus) // (*aanvraag* status)
                 {
                     case 1: // Afgewezen/verworpen. Je kunt hem effectie wijzigen en weer opnieuw aanbieden
-                            bresult.canDelete     =    bresult.canWrite("WEB_BESFOF")
-                                                    || bresult.canWrite("WEB_BESBOF");
+                            bresult.canDelete     = bresult.canWrite("WEB_BESFOF") ||
+                                                    bresult.canWrite("WEB_BESBOF");
                             bresult.canMainChange = eigenBestelling || bresult.canWrite("WEB_BESFOF") || bresult.canWrite("WEB_BESBOF");
                             bresult.canItemsChange = bresult.canMainChange && !isPunchout;
                             break;
                     case 2: // Nieuw, ter fiattering
                             bresult.canApprove     = (bes_bestelling.bes_bestelling_fiat_user != user_key) && isVerantwoordelijke;
-                            bresult.canDelete      =     bresult.canWrite("WEB_BESBOF")
-                                                     || (bresult.canWrite("WEB_BESFOF") && bes_bestelling.annuleer_tot)
-                                                     || (eigenBestelling && voor_annuleer);
-                            bresult.canMainChange  = (bresult.canApprove //  fiatteur mag ook aanpassen
-                                                      || bresult.canWrite("WEB_BESBOF")
-                                                      || (bresult.canWrite("WEB_BESFOF") && bes_bestelling.wijzig_tot)
-                                                      || (eigenBestelling && voor_wijzig)
-                                                     );
+                            bresult.canDelete      = bresult.canWrite("WEB_BESBOF") ||
+                                                     (bresult.canWrite("WEB_BESFOF") && bes_bestelling.annuleer_tot) ||
+                                                     (eigenBestelling && voor_annuleer);
+                            bresult.canMainChange  = bresult.canApprove  || //  fiatteur mag ook aanpassen
+                                                     bresult.canWrite("WEB_BESBOF") ||
+                                                     (bresult.canWrite("WEB_BESFOF") && bes_bestelling.wijzig_tot) ||
+                                                     (eigenBestelling && voor_wijzig);
                             bresult.canItemsChange = bresult.canMainChange && !isPunchout;
                             break;
                     case 3: // Gefiatteerd
-                            bresult.canAccept      = bresult.canWrite("WEB_BESBOF");
+                            var t_cost = bes_bestelling.totaal - bes_bestelling.rfoBesKosten + bes_bestelling.rfoLevKosten;
+                            var bes_approved = bes_bestelling.approved;
+                            var bestellimiet = bes_disc_info.disc_params_bestellimiet;
+                            var bestellimiet2 = bes_disc_info.disc_params_bestellimiet2;
+                            var bestellimiet3 = bes_disc_info.disc_params_bestellimiet3;
+                            var bestellimiet4 = bes_disc_info.disc_params_bestellimiet4;
+                            var bestellimiet5 = bes_disc_info.disc_params_bestellimiet5;
+                            bresult.canAccept      = bresult.canWrite("WEB_BESBOF") &&                                  // Heb ik de rechten om goed te keuren op dit niveau 1?
+                                                     ((S("bes_approval_all") == 0 && t_cost >= bestellimiet) ||         // Zijn de kosten hoger als de limiet
+                                                      (S("bes_approval_all") == 1 && t_cost <= bestellimiet2)) &&       // Zijn de kosten onder mijn limiet om volledig goed te keuren
+                                                     bes_approved <= bestellimiet;                                      // Welke goedkeur? 1, 2, 3, 4 of 5?
+                            bresult.canAccept2     = bresult.canWrite("WEB_BESGO2") &&
+                                                     // Setting mld_opdr_approval_all is
+                                                     // 0: Het approved bedrag is eigen bestellimiet of vorige goedkeur niveau rechten heb ik al (dan direct niveau hoger)
+                                                     // 1: Het approved bedrag is kleiner of gelijk aan eigen bestellimiet
+                                                     ((S("bes_approval_all") == 0 && t_cost >= bestellimiet2 && (bes_approved == bestellimiet2 || bresult.canAccept)) ||
+                                                      (S("bes_approval_all") == 1 && t_cost <= bestellimiet3 && bes_approved <= bestellimiet2));
+                            bresult.canAccept3     = bresult.canWrite("WEB_BESGO3") &&
+                                                     ((S("bes_approval_all") == 0 && t_cost >= bestellimiet3 && (bes_approved == bestellimiet3 || bresult.canAccept2)) ||
+                                                      (S("bes_approval_all") == 1 && t_cost <= bestellimiet4 && bes_approved <= bestellimiet3));
+                            bresult.canAccept4     = bresult.canWrite("WEB_BESGO4") &&
+                                                     ((S("bes_approval_all") == 0 && t_cost >= bestellimiet4 && (bes_approved == bestellimiet4 || bresult.canAccept3)) ||
+                                                      (S("bes_approval_all") == 1 && t_cost <= bestellimiet5 && bes_approved <= bestellimiet4));
+                            bresult.canAccept5     = bresult.canWrite("WEB_BESGO5") &&
+                                                     ((S("bes_approval_all") == 0 && t_cost >= bestellimiet5 && (bes_approved >= bestellimiet5 || bresult.canAccept4)) ||
+                                                      (S("bes_approval_all") == 1 && t_cost > bestellimiet5 && bes_approved <= bestellimiet5)) &&
+                                                     t_cost > bes_approved;
                             bresult.canDelete      =     bresult.canWrite("WEB_BESBOF")
                                                      || (bresult.canWrite("WEB_BESFOF") && bes_bestelling.annuleer_tot)
                                                      || (eigenBestelling && voor_annuleer);
-                            bresult.canReject      = bresult.canWrite("WEB_BESBOF");
-                            bresult.canMainChange  = (   bresult.canWrite("WEB_BESBOF")
-                                                      || (bresult.canWrite("WEB_BESFOF") && bes_bestelling.wijzig_tot)
-                                                      || (eigenBestelling && voor_wijzig)
-                                                     )
+                            bresult.canReject      = bresult.canAccept ||
+                                                     bresult.canAccept2 ||
+                                                     bresult.canAccept3 ||
+                                                     bresult.canAccept4 ||
+                                                     bresult.canAccept5;
+                            bresult.canMainChange  = (bresult.canWrite("WEB_BESBOF") ||
+                                                      (bresult.canWrite("WEB_BESFOF") && bes_bestelling.wijzig_tot) ||
+                                                      (eigenBestelling && voor_wijzig))
                                                      && !bresult.isChange; // Change bestelaanvraag kan alleen gewijzigd worden als status = 2
                             bresult.canItemsChange = bresult.canMainChange && !isPunchout;
                             break;
                     case 4: // Geaccepteerd door BO
-                            bresult.canDelete      = bresult.canWrite("WEB_BESBOF")
-                                                     || (bresult.canWrite("WEB_BESFOF") && bes_bestelling.annuleer_tot)
-                                                     || (eigenBestelling && voor_annuleer);
+                            bresult.canDelete      = bresult.canWrite("WEB_BESBOF") ||
+                                                     (bresult.canWrite("WEB_BESFOF") && bes_bestelling.annuleer_tot) ||
+                                                     (eigenBestelling && voor_annuleer);
                             bresult.canSubmit      = bresult.canWrite("WEB_BESBOF") && !bes_bestelling.isordered;
                             bresult.canRetourURL   = _canRetour && (bes_disc_info.disc_params_retour_url != null);
-                            bresult.canMainChange  = (    bresult.canWrite("WEB_BESBOF")
-                                                      || (bresult.canWrite("WEB_BESFOF") && bes_bestelling.wijzig_tot)
-                                                      || (eigenBestelling && voor_wijzig)
-                                                     )
-                                                     && !bresult.isChange; // Change bestelaanvraag kan alleen gewijzigd worden als status = 2
+                            bresult.canMainChange  = (bresult.canWrite("WEB_BESBOF") ||
+                                                      (bresult.canWrite("WEB_BESFOF") && bes_bestelling.wijzig_tot) ||
+                                                      (eigenBestelling && voor_wijzig)) &&
+                                                     !bresult.isChange; // Change bestelaanvraag kan alleen gewijzigd worden als status = 2
                             bresult.canItemsChange = bresult.canMainChange && !isPunchout;
                             break;
                     case 5: // Besteld (lees: opdracht is aangemaakt/ligt bij leverancier)
                             if (bes_bestelling.aantalontv == 0)// Als er artikelen ontvangen zijn houdt het op
                             {
-                                bresult.canDelete      =     bresult.canWrite("WEB_BESBOF")
-                                                         || (bresult.canWrite("WEB_BESFOF") && bes_bestelling.annuleer_tot)
-                                                         || (eigenBestelling && voor_annuleer);
+                                bresult.canDelete      = bresult.canWrite("WEB_BESBOF") ||
+                                                         (bresult.canWrite("WEB_BESFOF") && bes_bestelling.annuleer_tot) ||
+                                                         (eigenBestelling && voor_annuleer);
                                 bresult.canDelete &= bes_disc_info.can_concept;
                             }
                             bresult.canRetourURL   = _canRetour && (bes_disc_info.disc_params_retour_url != null);
                             // Als iemand wijzigt zal het een change-opdracht worden!
-                            bresult.canMainChange  = (    bresult.canWrite("WEB_BESBOF")
-                                                      || (bresult.canWrite("WEB_BESFOF") && bes_bestelling.annuleer_tot)
-                                                      || (eigenBestelling && voor_wijzig)
-                                                     )
-                                                      && !bresult.isChange // Change bestelaanvraag kan niet meer gewijzigd worden
-                                                      && bes_disc_info.can_concept;
+                            bresult.canMainChange  = (bresult.canWrite("WEB_BESBOF") ||
+                                                      (bresult.canWrite("WEB_BESFOF") && bes_bestelling.annuleer_tot) ||
+                                                      (eigenBestelling && voor_wijzig)) &&
+                                                     !bresult.isChange && // Change bestelaanvraag kan niet meer gewijzigd worden
+                                                     bes_disc_info.can_concept;
 
                             bresult.canItemsChange = bresult.canMainChange && !isPunchout;
                             break;
                     case 6: // Geleverd (TV)
+                            bresult.canMainChange  = bresult.canWrite("WEB_BESFOF"); // Bijvoorbeeld kostenplaats te wijzigen
                             bresult.canRetourURL   = _canRetour && (bes_disc_info.disc_params_retour_url != null);
                             bresult.canRetourBES   = _canRetour && !bresult.canRetourURL;
-                            bresult.canMainChange  = bresult.canWrite("WEB_BESBOF") && !bresult.isChange; // Change bestelaanvraag kan alleen gewijzigd worden als status = 2
-                            bresult.canItemsChange = bresult.canMainChange;
                             break;
                     case 7: // Verwerkt (AV)
                             break;
@@ -755,9 +847,10 @@
                       + "   AND s.bes_srtgroep_key = g.bes_srtgroep_key"
                       + "   AND bo.bes_bestelopdr_key = " + opdr_key;
               var oRs = Oracle.Execute(sql);
-              var perslid_key = oRs("prs_perslid_key").value;
-              var dis_key = oRs("ins_discipline_key").value;
-              var bestelopdr_status = oRs("bes_bestelopdr_status").value;
+              var perslid_key = oRs("prs_perslid_key").Value;
+              var dis_key = oRs("ins_discipline_key").Value;
+              var bestelopdr_status = oRs("bes_bestelopdr_status").Value;
+              oRs.Close();
 
               var bresult = user.func_enabled("BES",
                                               dis_key, // discipline key
@@ -766,7 +859,9 @@
                                               false, // pessimist
                                               false); // isOptional
 
-              bresult.canRead = bresult.canRead("WEB_BESBOR") || bresult.canRead("WEB_BESBAC"); // Bestel opdracht alleen zichtbaar voor backoffice
+              bresult.canReadAny = bresult.canRead("WEB_BESBOF") || bresult.canRead("WEB_BESBOR") || bresult.canRead("WEB_BESBAC"); // Bestel opdracht alleen zichtbaar voor backoffice
+              bresult.canReadBOF = bresult.canRead("WEB_BESBOF");
+              bresult.canReadBOR = bresult.canRead("WEB_BESBOR");
 
               // Op button niveau
               bresult.canChange  = false; // Wijzigen
@@ -778,21 +873,21 @@
               switch (bestelopdr_status) // Opdracht status
               {
                 case 1: // Afgewezen.
-                        bresult.canChange  = bresult.canWrite("WEB_BESBOR");
+                        bresult.canChange  = bresult.canWrite("WEB_BESBOF");
                         break;
                 case 2: // Nieuw, niet gebruikt
                         break;
                 case 3: // In Behandeling.
-                        bresult.canChange  = bresult.canWrite("WEB_BESBOR");
-                        bresult.canSend    = bresult.canWrite("WEB_BESBOR");
+                        bresult.canChange  = bresult.canWrite("WEB_BESBOF");
+                        bresult.canSend    = bresult.canWrite("WEB_BESBOF");
                         break;
                 case 4: // In Bestelling (Bevestigd)
-                        bresult.canChange  = bresult.canWrite("WEB_BESBOR");
-                        bresult.canDeliver = bresult.canWrite("WEB_BESBOR");
+                        bresult.canChange  = bresult.canWrite("WEB_BESBOF");
+                        bresult.canDeliver = bresult.canWrite("WEB_BESBOR"); // Afvinken goederenontvangst met WEB_BESBOR rechten
                         break;
                 case 5: // Ter Bevestiging (Verzonden)
-                        bresult.canAccept  = bresult.canWrite("WEB_BESBOR");
-                        bresult.canReject  = bresult.canWrite("WEB_BESBOR");
+                        bresult.canAccept  = bresult.canWrite("WEB_BESBOF");
+                        bresult.canReject  = bresult.canWrite("WEB_BESBOF");
                         break;
                 case 6: // Geleverd
                         break;
@@ -855,31 +950,31 @@
               if (!oRs.eof)
               {
                 // Oplaan bedrijf waar alle artikelen worden besteld. Moet voor elke artikel hetzelfde zijn.
-                prs_bedrijf_key = oRs("prs_bedrijf_key").value;
+                prs_bedrijf_key = oRs("prs_bedrijf_key").Value;
                 // Opslaan van staffelgroep van een item
                 ItemArray.push({ item_key    : srtdeel_keys[i],
                                  aantal      : itemaantal_arr[i],
-                                 prijs       : oRs("prijs").value,
-                                 eenheid     : oRs("eenheid").value,
-                                 staffelgroep: oRs("staffelgroep").value
+                                 prijs       : oRs("prijs").Value,
+                                 eenheid     : oRs("eenheid").Value,
+                                 staffelgroep: oRs("staffelgroep").Value
                                 });
                 // Opslaan van totaalaantallen van een staffelgroep
-                if (oRs("staffelgroep").value)
+                if (oRs("staffelgroep").Value)
                 {
-                  if (staffelGroepArray[oRs("staffelgroep").value])
+                  if (staffelGroepArray[oRs("staffelgroep").Value])
                   {
-                    staffelGroepArray[oRs("staffelgroep").value].aantal += itemaantal_arr[i];
-                    staffelGroepArray[oRs("staffelgroep").value].bestelbedrag += (oRs("prijs").value *  itemaantal_arr[i]);
+                    staffelGroepArray[oRs("staffelgroep").Value].aantal += itemaantal_arr[i];
+                    staffelGroepArray[oRs("staffelgroep").Value].bestelbedrag += (oRs("prijs").Value *  itemaantal_arr[i]);
                   }
                   else
                   {
-                    staffelGroepArray[oRs("staffelgroep").value] =
-                            new StaffelGroep(oRs("staffelgroepnaam").value,
+                    staffelGroepArray[oRs("staffelgroep").Value] =
+                            new StaffelGroep(oRs("staffelgroepnaam").Value,
                                               itemaantal_arr[i],
-                                              oRs("eenheid").value,
+                                              oRs("eenheid").Value,
                                               0,
-                                              oRs("groep").value,
-                                              (oRs("prijs").value *  itemaantal_arr[i], 10))
+                                              oRs("groep").Value,
+                                              (oRs("prijs").Value *  itemaantal_arr[i], 10))
                   }
                 }
               }
@@ -897,8 +992,8 @@
 
                 if (!oRs.eof)
                 {
-                  staffelGroepArray[ItemArray[j].staffelgroep].korting += ItemArray[j].aantal * (ItemArray[j].prijs - parseFloat(oRs("kortingsprijs").value, 10));
-                  litemprijsstring.push(oRs("kortingsprijs").value);
+                  staffelGroepArray[ItemArray[j].staffelgroep].korting += ItemArray[j].aantal * (ItemArray[j].prijs - parseFloat(oRs("kortingsprijs").Value, 10));
+                  litemprijsstring.push(oRs("kortingsprijs").Value);
                   first = false;
                 }
               }
@@ -943,7 +1038,7 @@
             var oRs = Oracle.Execute(sql);
             if (!oRs.eof)
             {
-              opdrachtkortingbedrag = oRs("opdrachtkortingbedrag").value;
+              opdrachtkortingbedrag = oRs("opdrachtkortingbedrag").Value;
             }
 
             sql = "SELECT BES.calcopdrachtkorting(" + prs_bedrijf_key + ", " + subtotaal + ") opdrachtkorting FROM DUAL";
@@ -951,7 +1046,7 @@
             if (!oRs.eof)
             {
               // Korting tot grenswaarde
-              opdrachtkorting = oRs("opdrachtkorting").value;
+              opdrachtkorting = oRs("opdrachtkorting").Value;
             }
 
             // Nieuw subtotaal: Bestelbedrag - alle kortingen
@@ -965,7 +1060,7 @@
             if (!oRs.eof)
             {
               // Korting tot grenswaarde
-              grenswaardetot = oRs("grenswaarde").value;
+              grenswaardetot = oRs("grenswaarde").Value;
             }
 
             // Nu grenswaarde bepalen vanaf
@@ -979,11 +1074,10 @@
             if (!oRs.eof)
             {
               // Korting vanaf grenswaarde
-              grenswaardevanaf = oRs("grenswaarde").value;
+              grenswaardevanaf = oRs("grenswaarde").Value;
             }
 
             // Extra (transport) kosten en onderlimiet bepalen
-
             sql = "SELECT CASE"
                 + " WHEN (prs_bedrijf_bes_limiet - " + subtotaal + ") <= 0" // Subtotaal: Bestelbedrag - alle kortingen
                 + " THEN 0"
@@ -996,8 +1090,8 @@
             if (!oRs.eof)
             {
               // Extra (transport) kosten
-              bes_kosten = oRs("bes_kosten").value;
-              bes_limiet = oRs("bes_limiet").value;
+              bes_kosten = oRs("bes_kosten").Value;
+              bes_limiet = oRs("bes_limiet").Value;
             }
 
             // Totaalbedrag
@@ -1051,9 +1145,9 @@
                 + ", bes_bestelling b"
                 + " WHERE b.bes_bestelling_key = tot.bes_bestelling_key"
             oRs = Oracle.Execute(sql);
-            prstotaalbesteld = oRs("totaalbedrag").value || 0;
-            korting = oRs("korting").value || 0;
-            levkosten = oRs("levkosten").value || 0;
+            prstotaalbesteld = oRs("totaalbedrag").Value || 0;
+            korting = oRs("korting").Value || 0;
+            levkosten = oRs("levkosten").Value || 0;
             budgetbesteld = prstotaalbesteld - korting + levkosten;
           }
           return budgetbesteld;
@@ -1067,7 +1161,7 @@
           { // Totaalbedrag van eerder bestellingen afgelopen periode van de besteller i.v.m. Afdelings Gebonden Budget (AGB)
             var sql = "SELECT prs.getkostenplaats(" + prs_key + ", " + S("prs_approvemethod") + ", -1) kostenplaats FROM DUAL";
             var oRs = Oracle.Execute(sql);
-            var kp_key = oRs("kostenplaats").value;
+            var kp_key = oRs("kostenplaats").Value;
 
              // Limietperiode kostenplaats (prs_kostenplaats_limietperiode): 0(of NULL)=geen(oneindig) (default), 1=maand, 2=jaar
             if (kp_key > 0)
@@ -1076,7 +1170,7 @@
                       + "  FROM prs_kostenplaats k"
                       + " WHERE k.prs_kostenplaats_key = " + kp_key;
               var oRs = Oracle.Execute(sql);
-              var kp_limietperiode = oRs("prs_kostenplaats_limietperiode").value;
+              var kp_limietperiode = oRs("prs_kostenplaats_limietperiode").Value;
               var periode;
               if (kp_limietperiode == 1)
                 periode = "MM"; // Maandelijks budget
@@ -1096,15 +1190,15 @@
                     ? " AND b.bes_bestelling_key <> " + bes_key
                     : "")
                   + (kp_limietperiode && kp_limietperiode > 0
-                    ? " AND b.bes_bestelling_datum >= TRUNC (SYSDATE, '" + periode + "')" // De eerste van de deze maand of 1 januari dit jaar
+                    ? " AND b.bes_bestelling_datum >= TRUNC (SYSDATE, " + safe.quoted_sql(periode) + ")" // De eerste van de deze maand of 1 januari dit jaar
                     : "")
                   + " GROUP BY b.bes_bestelling_key) tot"
                   + ", bes_bestelling b"
                   + " WHERE b.bes_bestelling_key = tot.bes_bestelling_key"
               oRs = Oracle.Execute(sql);
-              prstotaalbesteld = oRs("totaalbedrag").value || 0;
-              korting = oRs("korting").value || 0;
-              levkosten = oRs("levkosten").value || 0;
+              prstotaalbesteld = oRs("totaalbedrag").Value || 0;
+              korting = oRs("korting").Value || 0;
+              levkosten = oRs("levkosten").Value || 0;
               budgetbesteld = prstotaalbesteld - korting + levkosten;
             }
           }
@@ -1119,7 +1213,7 @@
         // Bepaal PGB limiet
         var sql = "SELECT prs.getprofiellimiet(" + prs_key + ", " + dis_key + ") pgblimiet FROM DUAL";
         var oRs = Oracle.Execute(sql);
-        var pgblimiet = oRs("pgblimiet").value;
+        var pgblimiet = oRs("pgblimiet").Value;
 
         if (pgblimiet != null)
         { // Verschil PGB limiet met het besteed budget van persoon en desbetreffende discipline voor dit jaar inclusief bestelbedrag
@@ -1134,9 +1228,9 @@
         var amount = bestelbedrag; // Indien geen agblimiet dan gehele bestel bedrag
 
         // Bepaal AGB limiet
-        var sql = "SELECT prs.getlimietagb(" + prs_key + ", " + S("prs_approvemethod") + ") agblimiet FROM DUAL";
+        var sql = "SELECT prs.getlimietagb(" + prs_key + ", " + S("prs_approvemethod") + ", " + dis_key + ") agblimiet FROM DUAL";
         var oRs = Oracle.Execute(sql);
-        var agblimiet = oRs("agblimiet").value;
+        var agblimiet = oRs("agblimiet").Value;
 
         if (agblimiet != null)
         { // Verschil AGB limiet met het besteed budget van persoon en desbetreffende discipline voor dit jaar inclusief bestelbedrag
@@ -1165,10 +1259,10 @@
       // Geeft true als het bestelde bedrag boven de AGB-limiet van prs_key uit komt
       // en dus (eventueel) goedkeuring vereist zal zijn.
       // Negeer evt bestaand bestelbedrag van bes_key (indien > -1)
-      exceeds_agb: function(bestelbedrag, prs_key, bes_key)
+      exceeds_agb: function(bestelbedrag, prs_key, dis_key, bes_key)
       {
         if (bes_disc_info.disc_params_pgb == 2 || bes_disc_info.disc_params_pgb == 3)
-          return shared.exceeds_limietagb(bestelbedrag + bes.besteed_budget_agb(prs_key, bes_key), prs_key);
+          return shared.exceeds_limietagb(bestelbedrag + bes.besteed_budget_agb(prs_key, bes_key), prs_key, dis_key);
         else // Geen agb. Dan kan je ook niet boven de agb zitten
           return false;
       },
@@ -1194,7 +1288,7 @@
       },
 
       // Levert de 'Is ter fiattering aangeboden bij approver' op.
-      sendNeedApprovalNotification: function(bes_key, requestor, approver)
+      sendNeedApprovalNotification: function(bes_key, approver)
       {
         if (approver == null)
             return false;
@@ -1207,19 +1301,19 @@
                 + " AND b.bes_bestelling_key = " + bes_key;
         var oRs = Oracle.Execute(sql);
         if (!oRs.eof) {
-            var lsender = oRs(0).value;
+            var lsender = oRs(0).Value;
         } else {
             var lsender = null;
         }
         // notify approver and requestor by message & mail as configured in fac_srtnotificatie with BESAPx
         shared.trackaction("BESAP2", bes_key);
 
-        Oracle.Execute("BEGIN fac.putnotificationsrtprio(NULL, " + approver + ", 'BESAP1', " + bes_key + ", NULL, NULL, NULL, NULL, NULL, 2, " + (lsender ? "'" + lsender + "'" : "NULL") + "); END;");
+        Oracle.Execute("BEGIN fac.putnotificationsrtprio(NULL, " + approver + ", 'BESAP1', " + bes_key + ", NULL, NULL, NULL, NULL, NULL, 2, " + (lsender ? safe.quoted_sql(lsender) : "NULL") + "); END;");
 
         sql = "SELECT prs_perslid_naam_full FROM prs_v_perslid_fullnames WHERE prs_perslid_key = " + approver;
         oRs = Oracle.Execute(sql);
         if (!oRs.eof)
-          return L("lcl_bes_RFO_regApprov") + oRs("prs_perslid_naam_full").value;
+          return L("lcl_bes_RFO_regApprov") + oRs("prs_perslid_naam_full").Value;
         else
           return L("lcl_bes_RFO_regApprov");
       },
@@ -1235,7 +1329,80 @@
       {
         var sql = "BEGIN bes.changeorders("+ puserkey + ", " + pbestelling_key + "); END;";
         Oracle.Execute(sql);
+      },
+
+      bestelopdracht: function (bes_bestelling)
+      {
+        var l_orders_txt = [];
+        var l_orders_key = [];
+        sql_boi = "(SELECT bo.bes_bestelopdr_id, " +
+                  "        bes_bestelopdr_status, " +
+                  "        bes_bestelopdr_item_key, " +
+                  "        bo.bes_bestelopdr_key " +
+                  "   FROM BES_BESTELOPDR_ITEM boi, " +
+                  "        BES_BESTELOPDR bo " +
+                  "  WHERE bo.BES_BESTELOPDR_key = boi.BES_BESTELOPDR_key " +
+                  "  GROUP BY bo.bes_bestelopdr_id, bes_bestelopdr_status, bes_bestelopdr_item_key, bo.bes_bestelopdr_key)";
+        // Door welke bestelopdracht(en) wordt deze aanvraag afgehandeld?
+        sql = "SELECT DISTINCT boi.bes_bestelopdr_id"
+            + "     , boi.bes_bestelopdr_status"
+            + "     , boi.bes_bestelopdr_key"
+            + "  FROM bes_bestelling_item bi"
+            + "     , " + sql_boi + " boi"
+            + " WHERE bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key"
+            + "   AND bi.bes_bestelling_key =" + bes_bestelling.bes_key
+            + " ORDER BY 1";
+            oRs = Oracle.Execute(sql);
+        while(!oRs.eof)
+        {
+          var txt = S("bes_bestelopdr_prefix") + oRs("bes_bestelopdr_id").Value;
+          if (oRs("bes_bestelopdr_status").Value == 1) // afgewezen
+              txt += " (" + bes.getbesopdrstatustext(oRs("bes_bestelopdr_status").Value) + ")";
+          if (bes_bestelling.parent_key)
+              txt += "*"; // wij zijn een change dus de opdracht ook
+          l_orders_txt.push(txt);
+          l_orders_key.push(oRs("bes_bestelopdr_key").Value);
+          oRs.MoveNext();
+        }
+        oRs.Close();
+        result = { key : l_orders_key
+                 , txt : l_orders_txt
+                 };
+        return result;
+      },
+
+      verwijderBestelling: function (bes_key, bestelopdr_key)
+      {
+        var message;
+        var sql = "DELETE bes_bestelling WHERE bes_bestelling_key = " + bes_key;
+        var err = Oracle.Execute(sql, true);
+        if (err.friendlyMsg)
+          message = err.friendlyMsg;
+
+        // check of bestelaanvraag is verwijderd
+        if (message == "")
+        { // DELETE is niet echt trackbaar
+          success = true;
+          // bestelaanvraag is verwijderd. Verwijder nu ook de rest
+          // JGL: Is dat niet allemaal automatisch meegecascadeerd?
+          // Verwijder bestelaanvraag items
+          sql = "DELETE bes_bestelling_item WHERE bes_bestelling_key = " + bes_key;
+          oRs = Oracle.Execute(sql);
+
+          // Indien een bestelopdracht aanwezig is dan bestelopdracht + bestelopdracht items verwijderen.
+          if (bestelopdr_key > 0)
+          {
+            // Verwijder bestelopdracht items
+            sql = "DELETE bes_bestelopdr_item WHERE bes_bestelopdr_key = " + bestelopdr_key;
+            oRs = Oracle.Execute(sql);
+
+            // Verwijder bestelopdracht
+            sql = "DELETE bes_bestelopdr WHERE bes_bestelopdr_key = " + bestelopdr_key
+            oRs = Oracle.Execute(sql);
+          }
+          message = L("lcl_bes_deleted_1") + S("bes_bestelling_prefix") + bes_key + L("lcl_bes_deleted_2");
+        }
+        return message;
       }
     }
-
- %>
+%>

APPL/BES/bes_accept.asp

@@ -13,7 +13,7 @@
 */ %>
 
 <%
-DOCTYPE_Disable = 1;
+var JSON_Result = true;
 %>
 
 <!-- #include file="../Shared/common.inc" -->
@@ -36,9 +36,22 @@ for (var i = 0; i < bes_key_arr.length; i++)
   var bes_bestelling = bes.bestelling_info(bes_key_arr[i]); // Globale variabele met alle bes_bestelling informatie
   var bes_disc_info = bes.disc_info(bes_bestelling.dis_key); // alle discipline informatie
   var this_bes = bes.func_enabled_bestelling(bes_bestelling);
-  if (this_bes.canAccept)
+  if (this_bes.canAccept || this_bes.canAccept2 || this_bes.canAccept3 || this_bes.canAccept4 || this_bes.canAccept5)
   {
-    ingesloten.push(bes_key_arr[i]);
+    ingesloten.push({ bes_key: bes_key_arr[i],
+                      kosten: bes_bestelling.totaal - bes_bestelling.rfoBesKosten + bes_bestelling.rfoLevKosten,
+                      approved: bes_bestelling.approved,
+                      bestellimiet: bes_disc_info.disc_params_bestellimiet,
+                      bestellimiet2: bes_disc_info.disc_params_bestellimiet2,
+                      bestellimiet3: bes_disc_info.disc_params_bestellimiet3,
+                      bestellimiet4: bes_disc_info.disc_params_bestellimiet4,
+                      bestellimiet5: bes_disc_info.disc_params_bestellimiet5,
+                      canAccept: this_bes.canAccept,
+                      canAccept2: this_bes.canAccept2,
+                      canAccept3: this_bes.canAccept3,
+                      canAccept4: this_bes.canAccept4,
+                      canAccept5: this_bes.canAccept5 }
+                      );
     tobeaccepted++;
   }
 }
@@ -46,13 +59,103 @@ user.anything_todo_or_abort(tobeaccepted > 0); // We klagen niet over enkele wel
 
 for (var i = 0; i < ingesloten.length; i++)
 {
-  bes.setbestellingstatus(ingesloten[i], 4); // Geaccepteerd BO
+  var bes_key = ingesloten[i].bes_key;
+  var setnextstatus = false;
 
-  if (bes_disc_info.disc_params_auto_order == "1")
-    bes.makeOrders(user_key, ingesloten[i]);
+  if (ingesloten[i].canAccept && (S("bes_approval_all") == 1 || !ingesloten[i].canAccept2)) // Kan ik deze bestelling accepteren tot de eerste limiet? Als ik ook al tot de tweede limiet kan accepteren dan direct maar tot de tweede limiet (volgende if).
+  {
+    var finalapproval = (S("bes_approval_all") == 1 || ingesloten[i].kosten <= ingesloten[i].bestellimiet2 || ingesloten[i].approved > ingesloten[i].bestellimiet2);
 
-  result.message =  tobeaccepted + " " + (tobeaccepted == 1 ? L("lcl_bes_accepted1") : L("lcl_bes_accepted"));
-  result.success = true;
+    sql = "UPDATE bes_bestelling"
+        + " SET bes_bestelling_approved = " + (ingesloten[i].kosten < ingesloten[i].bestellimiet2? ingesloten[i].kosten : ingesloten[i].bestellimiet2) // Gefiatteerd tot een bedrag van limiet1 (<=500 Euro)
+        + " WHERE bes_bestelling_key = " + bes_key;
+    oRs = Oracle.Execute(sql);
+
+    if (!finalapproval)
+    { // Tracking en alle tweede goedkeurders een notificatie sturen.
+      bes.trackbestellingaccepteren(bes_key);
+    }
+    else
+      // De bestelling is tot de bestellingkosten goedgekeurd. Verder goedkeuren hoeft niet.
+      // De status van de bestelling mag (indien mogelijk) naar Geaccepteerd(4) of Besteld(5).
+      setnextstatus = true;
+    result.success = true;
+  }
+  if (ingesloten[i].canAccept2 && (S("bes_approval_all") == 1 || !ingesloten[i].canAccept3)) // Kan ik deze bestelling accepteren tot de tweede limiet? Als ik ook al tot de derde limiet kan accepteren dan direct maar tot de derde limiet (volgende if).
+  {
+    var finalapproval = (S("bes_approval_all") == 1 || ingesloten[i].kosten <= ingesloten[i].bestellimiet3 || ingesloten[i].approved > ingesloten[i].bestellimiet3);
+    sql = "UPDATE bes_bestelling"
+        + " SET bes_bestelling_approved = " + (ingesloten[i].kosten < ingesloten[i].bestellimiet3? ingesloten[i].kosten : ingesloten[i].bestellimiet3) // Gefiatteerd tot een bedrag van limiet2 (<=5000 Euro)
+        + " WHERE bes_bestelling_key = " + bes_key;
+    oRs = Oracle.Execute(sql);
+
+    if (!finalapproval)
+    { // Tracking en alle derde goedkeurders een notificatie sturen.
+      bes.trackbestellingaccepteren(bes_key);
+    }
+    else
+      // De bestelling is tot de bestellingkosten goedgekeurd. Verder goedkeuren hoeft niet.
+      // De status van de bestelling mag (indien mogelijk) naar Geaccepteerd(4) of Besteld(5).
+      setnextstatus = true;
+    result.success = true;
+  }
+  if (ingesloten[i].canAccept3 && (S("bes_approval_all") == 1 || !ingesloten[i].canAccept4)) // Kan ik deze bestelling accepteren tot de derde limiet? Als ik ook al tot de vierde limiet kan accepteren dan direct maar tot de vierde limiet (volgende if).
+  {
+    var finalapproval = (S("bes_approval_all") == 1 || ingesloten[i].kosten <= ingesloten[i].bestellimiet4 || ingesloten[i].approved > ingesloten[i].bestellimiet4);
+    sql = "UPDATE bes_bestelling"
+        + " SET bes_bestelling_approved = " + (ingesloten[i].kosten < ingesloten[i].bestellimiet4? ingesloten[i].kosten : ingesloten[i].bestellimiet4) // Gefiatteerd tot een bedrag van limiet3 (<=125000 Euro)
+        + " WHERE bes_bestelling_key = " + bes_key;
+    oRs = Oracle.Execute(sql);
+
+    if (!finalapproval)
+    { // Tracking en alle derde goedkeurders een notificatie sturen.
+      bes.trackbestellingaccepteren(bes_key);
+    }
+    else
+      // De bestelling is tot de bestellingkosten goedgekeurd. Verder goedkeuren hoeft niet.
+      // De status van de bestelling mag (indien mogelijk) naar Geaccepteerd(4) of Besteld(5).
+      setnextstatus = true;
+    result.success = true;
+  }
+  if (ingesloten[i].canAccept4 && (S("bes_approval_all") == 1 || !ingesloten[i].canAccept5)) // Kan ik deze bestelling accepteren tot de derde limiet? Als ik ook al tot de vierde limiet kan accepteren dan direct maar tot de vierde limiet (volgende if).
+  {
+    var finalapproval = (S("bes_approval_all") == 1 || ingesloten[i].kosten <= ingesloten[i].bestellimiet5 || ingesloten[i].approved > ingesloten[i].bestellimiet5);
+    sql = "UPDATE bes_bestelling"
+        + " SET bes_bestelling_approved = " + (ingesloten[i].kosten < ingesloten[i].bestellimiet5? ingesloten[i].kosten : ingesloten[i].bestellimiet5) // Gefiatteerd tot een bedrag van limiet4 (<=1000000 Euro)
+        + " WHERE bes_bestelling_key = " + bes_key;
+    oRs = Oracle.Execute(sql);
+
+    if (!finalapproval)
+    { // Tracking en alle derde goedkeurders een notificatie sturen.
+      bes.trackbestellingaccepteren(bes_key);
+    }
+    else
+      // De bestelling is tot de bestellingkosten goedgekeurd. Verder goedkeuren hoeft niet.
+      // De status van de bestelling mag (indien mogelijk) naar Geaccepteerd(4) of Besteld(5).
+      setnextstatus = true;
+    result.success = true;
+  }
+  else if (ingesloten[i].canAccept5) // Kan ik deze bestelling volledig accepteren en geaccepteerd/besteld maken?
+  {
+    sql = "UPDATE bes_bestelling"
+        + " SET bes_bestelling_approved = " + ingesloten[i].kosten // Gefiatteerd boven bedrag van limiet5 (>1000000 Euro) voor het bedrag van de bestellingkosten.
+        + " WHERE bes_bestelling_key = " + bes_key;
+    oRs = Oracle.Execute(sql);
+
+    // De status van de opdracht mag (indien mogelijk) naar Ter fiattering(0) of Uitgegeven(5).
+    setnextstatus = true;
+    result.success = true;
+  }
+
+  if (setnextstatus)
+  { // Nu naar status 4 (Geaccepteerd) of opdrachten aanmaken en naar status 5 (Besteld).
+    bes.setbestellingstatus(bes_key, 4); // Geaccepteerd BO
+
+    if (bes_disc_info.disc_params_auto_order == "1")
+      bes.makeOrders(user_key, bes_key);
+
+    result.message = tobeaccepted + " " + (tobeaccepted == 1 ? L("lcl_bes_accepted1") : L("lcl_bes_accepted"));
+  }
 }
 
 Response.Write(JSON.stringify(result));

APPL/BES/bes_approve.asp

@@ -20,6 +20,7 @@ DOCTYPE_Disable = 1;
 <!-- #include file="bes.inc" -->
 
 <%
+protectRequest.validateToken();
 var bes_key_arr = getFParamIntArray("bes_key");
 
 var result = {};
@@ -83,8 +84,7 @@ for (var i = 0; i < ingesloten.length; i++)
       // vervolgens naar kostenplaatsgroep fiatteur sturen
       // Fiatteringsproces moet gevolgd worden op de naam van de "voor wie" (bestelling voor)
       // Als bes_disc_params_for_others niet is gezet zijn perslid_key en perslid_key_voor identiek
-      var bes_bestelling = bes.bestelling_info(ingesloten[i].bes_key); // fiatteur_key zal veranderd zijn
-      message = bes.sendNeedApprovalNotification(ingesloten[i].bes_key, ingesloten[i].perslid_key_voor, ingesloten[i].fiatteur_key);
+      message = bes.sendNeedApprovalNotification(ingesloten[i].bes_key, ingesloten[i].fiatteur_key);
   }
 
   result.success = true;

APPL/BES/bes_bedrijf_srtprod.asp

@@ -169,6 +169,7 @@ var TransitParam = buildTransitParam(["klant_key", "srtprod_key", "srtprod_keys"
                        {title: L("lcl_cancel"), icon: "cancel.png", action: "bes_cancel()" } ];
       CreateButtons(buttons);
 
+IFACE.FORM_END();
 %>
     </form>
 

APPL/BES/bes_bedrijfproduct_save.asp

@@ -23,6 +23,7 @@ DOCTYPE_Disable = 1;
 <!-- #include file="../shared/save2db.inc" -->
 
 <%
+//protectRequest.validateToken();
 /***** Get webform parameters *****/
 var bes_srtprod_key = getFParamInt("bes_srtprod_key");
 var prs_bedrijf_key = getFParamInt("prs_bedrijf_key");
@@ -76,7 +77,7 @@ if (authparams)
     {
       var regIns = buildInsert("bes_bedrijf_srtprod", fields);
       var bes_bedrijf_srtprod_key = regIns.sequences["bes_bedrijf_srtprod_key"];
-    
+
       sql = regIns.sql;
       var err = Oracle.Execute(sql, true);
       if (err.friendlyMsg)

APPL/BES/bes_bedrijfproduct_search_list.asp

@@ -91,15 +91,18 @@ var authparams = user.checkAutorisation("WEB_BESMSU");
       function saveWeeg(bes_srtprod_key, prs_bedrijf_key, weegfactor)
       {
         if (!checkInput(weegfactor, $("#weging" + bes_srtprod_key))) return;
-        
+
         calcTotal(bes_srtprod_key);
         if (weegfactor != "")
           $("#weging" + bes_srtprod_key).val(num2currEditable(parseFloat(weegfactor.replace(',', '.'))));
 
+        var data = { bes_srtprod_key: bes_srtprod_key,
+                     prs_bedrijf_key: prs_bedrijf_key,
+                     weegfactor: weegfactor
+                   };
+        <% protectRequest.dataToken("data"); %>
         $.post("bes_bedrijfproduct_save.asp",
-               { bes_srtprod_key: bes_srtprod_key,
-                 prs_bedrijf_key: prs_bedrijf_key,
-                 weegfactor: weegfactor },
+               data,
                FcltCallback,
                "json");
       }
@@ -113,10 +116,13 @@ var authparams = user.checkAutorisation("WEB_BESMSU");
         if (prijs != "")
           $("#prijseenheid" + bes_srtprod_key).val(num2currEditable(parseFloat(prijs.replace(',', '.'))));
 
+        var data = { bes_srtprod_key: bes_srtprod_key,
+                     prs_bedrijf_key: prs_bedrijf_key,
+                     prijs: prijs
+                   };
+        <% protectRequest.dataToken("data"); %>
         $.post("bes_bedrijfproduct_save.asp",
-               { bes_srtprod_key: bes_srtprod_key,
-                 prs_bedrijf_key: prs_bedrijf_key,
-                 prijs: prijs },
+               data,
                FcltCallback,
                "json");
       }
@@ -130,10 +136,13 @@ var authparams = user.checkAutorisation("WEB_BESMSU");
         if ($("#totaalprijs" + bes_srtprod_key).val() != "")
           $("#totaalprijs" + bes_srtprod_key).val(num2currEditable(parseFloat($("#totaalprijs" + bes_srtprod_key).val().replace(',', '.'))));
 
+        var data = { bes_srtprod_key: bes_srtprod_key,
+                     prs_bedrijf_key: prs_bedrijf_key,
+                     prijs: lprijs
+                   };
+        <% protectRequest.dataToken("data"); %>
         $.post("bes_bedrijfproduct_save.asp",
-               { bes_srtprod_key: bes_srtprod_key,
-                 prs_bedrijf_key: prs_bedrijf_key,
-                 prijs: lprijs },
+               data,
                FcltCallback,
                "json");
       }

APPL/BES/bes_bestelling.asp

@@ -50,7 +50,7 @@ if (bes_key == -1 && urole == "xx") // Vanuit prodsearch, probeer intelligente a
   urole = canFOF?"fo":"fe";
 }
 
-transitParam = buildTransitParam(["punch", "mld_key", "artikel_key", "ps", "pn", "act_key"]); // ps en pn zijn array vanuit bes_hook_punch.asp
+transitParam = buildTransitParam(["punch", "mld_key", "artikel_key", "ps", "pn", "act_key", "leverdatum", "adres_key", "flex_defaults"]); // ps en pn zijn array vanuit bes_hook_punch.asp
 
 // OVERIGE PARAMETERS
 
@@ -84,7 +84,6 @@ transitParam = buildTransitParam(["punch", "mld_key", "artikel_key", "ps", "pn",
       {
 <%      if (bes_key == -1)
         { %>
-          FcltMgr.startEdit(window);
           if (params.cancel || params.close)
           {
             FcltMgr.closeDetail(window, params );
@@ -132,6 +131,7 @@ transitParam = buildTransitParam(["punch", "mld_key", "artikel_key", "ps", "pn",
         {
 %>
         <script type="text/javascript" >
+         FcltMgr.fixActiveelementError();
          FcltMgr.openModalDetail("bes_select_discipline.asp", "<%=L("lcl_bes_fac_select_cat")%>",
                   { callback: function (data)
                       {
@@ -146,6 +146,13 @@ transitParam = buildTransitParam(["punch", "mld_key", "artikel_key", "ps", "pn",
         }
         else if (dis_key > 0) // Is het punchout?
         {
+            var autfunction = {fo: 'WEB_BESFOF', bo: 'WEB_BESBOF'}[urole] || 'WEB_BESUSE';
+            var authparams = user.checkAutorisation(autfunction, false, dis_key); // verplicht, is toch niet veel gevraagd?
+            // Eigenlijk had je hier zonder rechten al nooit mogen komen maar soms lukt het via een deeplink
+            // Vooral met punchout is dat erg pijnlijk: je kwam wel bij de leverancier, kon alles kiezen
+            // en later, pas bij terugkomst kreeg je melding dat je geen rechten had.
+            user.auth_required_or_abort(authparams.PRSwritelevel < 9 && authparams.ALGwritelevel < 9);
+
             sql = "SELECT bes_disc_params_punchouturl"
                 + "  FROM bes_disc_params dp"
                 + " WHERE dp.bes_ins_discipline_key = " + dis_key;
@@ -155,7 +162,25 @@ transitParam = buildTransitParam(["punch", "mld_key", "artikel_key", "ps", "pn",
             if (!from_punch && purl)
             {
                 var hook_url = "bes_hook_punch.asp?urole="+urole+"&dis_key="+dis_key+transitParam;
-                purl = purl.replace("##RANDOM##",shared.random(16)).replace("##PERSLID_KEY##",user_key);
+                // Biedt de mogelijkheid de url te verrijken met gebruikers info
+                var subst_table = { "RANDOM"     : shared.random(16),
+                                    "PERSLID_KEY": user_key,
+                                    "uid"        : user_key,
+                                    "uanm"       : user.prs_perslid_achternaam(),
+                                    "uvnm"       : user.prs_perslid_voornaam(),
+                                    "ugender"    : user.prs_perslid_geslacht(),
+                                    "umail"      : user.prs_perslid_email(),
+                                    "utel"       : user.prs_perslid_telefoonnr() /* || user.prs_perslid_mobiel() */,
+                                    "umob"       : user.prs_perslid_mobiel(),
+                                    "uafd"       : user.afdeling().naam()
+                                  };
+                for (s in subst_table)
+                {
+                    var newval = subst_table[s];
+                    if (typeof newval == "undefined" || newval === null)
+                        newval = "";
+                    purl = purl.replace("##" + s + "##", Server.URLencode(newval));
+                }
                 %>
                     <script type="text/javascript" >
                           var i = document.location.href.lastIndexOf('/');

APPL/BES/bes_bestelling.js

@@ -12,7 +12,7 @@
 // Process de data die van de melder via Ajax terugkomt.
 function process_besteller_info(prs_info)
 {
-    if ($("#kostenklant").attr("checked"))
+    if ($("#kostenklant").prop("checked"))
       // Zet eigen (default) kostenplaats alleen als kostenklant AAN. Indien niet aanwezig dan wordt suggestbox automatisch leeg gemaakt.
       sgAccount.setValue(prs_info.kostenplaats_key, prs_info.kpn_string, true, true);
     $("#default_kostenplaats_person_key").val(prs_info.kostenplaats_key);
@@ -54,8 +54,7 @@ function navigateToSupplier()
 
 function onChangeArtikelgroep()
 {
-  sgBesItem.setValue(-1, "", true, false, null, true)
-  sgBesItem.CheckJustOne();
+  sgBesItem.setValue(-1, "", true, false, null, true);
 
   clear_item_details();
 }

APPL/BES/bes_delete.asp

@@ -15,6 +15,7 @@ DOCTYPE_Disable = 1;
 <!-- #include file="./bes.inc" -->
 
 <%
+protectRequest.validateToken();
 /***** Get webform parameters *****/
 var urole = getFParam("urole");
 
@@ -66,38 +67,6 @@ for (var i = 0; i < ingesloten.length; i++)
     bestelopdr_key = oRs("bes_bestelopdr_key").value;
   }
 
-  function verwijderBestelling(bes_key, bestelopdr_key)
-  {
-    sql = "DELETE bes_bestelling WHERE bes_bestelling_key = " + bes_key;
-    var err = Oracle.Execute(sql, true);
-    if (err.friendlyMsg)
-      message = err.friendlyMsg;
-
-    // check of bestelaanvraag is verwijderd
-    if (message == "")
-    { // DELETE is niet echt trackbaar
-      success = true;
-      // bestelaanvraag is verwijderd. Verwijder nu ook de rest
-      // JGL: Is dat niet allemaal automatisch meegecascadeerd?
-      // Verwijder bestelaanvraag items
-      sql = "DELETE bes_bestelling_item WHERE bes_bestelling_key = " + bes_key;
-      oRs = Oracle.Execute(sql);
-
-      // Indien een bestelopdracht aanwezig is dan bestelopdracht + bestelopdracht items verwijderen.
-      if (bestelopdr_key > 0)
-      {
-        // Verwijder bestelopdracht items
-        sql = "DELETE bes_bestelopdr_item WHERE bes_bestelopdr_key = " + bestelopdr_key;
-        oRs = Oracle.Execute(sql);
-
-        // Verwijder bestelopdracht
-        sql = "DELETE bes_bestelopdr WHERE bes_bestelopdr_key = " + bestelopdr_key
-        oRs = Oracle.Execute(sql);
-      }
-      message = L("lcl_bes_deleted_1") + S("bes_bestelling_prefix") + bes_key + L("lcl_bes_deleted_2");
-    }
-  }
-
   // Gaat het hier om een change bestelling (embargo)
   var isChange = ingesloten[i].parent_key && ingesloten[i].parent_key > 0;
 
@@ -105,7 +74,7 @@ for (var i = 0; i < ingesloten.length; i++)
   { // Een change bestelling kan alleen gewijzigd (er wordt geen nieuwe change aangemaakt) worden indien deze status 2(=Nieuw) heeft.
     // Deze controle zit al in canDelete
     // Verwijder change bestelaanvraag. Hierdoor vindt een rollback plaats van de orginele bestelaanvraag
-    verwijderBestelling(ingesloten[i].bes_key, bestelopdr_key);
+    message = bes.verwijderBestelling(ingesloten[i].bes_key, bestelopdr_key);
   }
   else
   { // Of de bestelaanvraag geannuleerd of verwijderd dient de worden is afhankelijk van de status;
@@ -118,7 +87,8 @@ for (var i = 0; i < ingesloten.length; i++)
 
     if (ingesloten[i].oldStatus < 5)
     { // Verwijder bestelaanvraag. canDelete is al gecontroleerd
-      verwijderBestelling(ingesloten[i].bes_key, bestelopdr_key);
+      message = bes.verwijderBestelling(ingesloten[i].bes_key, bestelopdr_key);
+      success = true;
     }
     else
     {

APPL/BES/bes_edit_bestelling.asp

@@ -47,6 +47,7 @@ if (bes_key == -1)
 var artikel_key = getQParamInt("artikel_key", -1); //deeplink/productsearch
 var from_punch = getQParamInt("punch", 0) == 1; // dan zijn pn en sn in de QueryString ook gezet.
                                                 // en mogen de details niet meer aangepast
+var leverdatum = getQParamInt("leverdatum", null); // Leverdatum
 var transitParam = buildTransitParam(["urole", "bes_key", "dis_key", "mld_key"]);
 
 var fronto = urole == "fo";
@@ -82,7 +83,9 @@ else // nieuwe bestelling. Defaults bepalen
 {
   bes_bestelling = { bes_key: bes_key, dis_key: dis_key, fac_activiteit_key: act_key };
 
-  user.checkAutorisation(autfunction, false, dis_key); // verplicht, is toch niet veel gevraagd?
+  var authparams = user.checkAutorisation(autfunction, false, dis_key); // verplicht, is toch niet veel gevraagd?
+  // Eigenlijk had je hier zonder rechten al nooit mogen komen maar soms lukt het via een deeplink
+  user.auth_required_or_abort(authparams.PRSwritelevel < 9 && authparams.ALGwritelevel < 9);
 
   // Bepaal bes_bestelling.inclBTW
   sql = "SELECT COALESCE (ks.prs_kostensoort_btw, 0) inclBTW"
@@ -98,13 +101,21 @@ else // nieuwe bestelling. Defaults bepalen
   this_bes = { canChange: true,
                canItemsChange: !from_punch };
 
-  bes_bestelling.rfoDeliverydate = new Date();
-  if (bes_disc_info.disc_params_leverdagen > 0)
+  if (leverdatum)
+    bes_bestelling.rfoDeliverydate = new Date(leverdatum);
+  else
   {
-    sql = "SELECT fac.DatumTijdPlusUitvoerTijd(" + (new Date).toSQL() + "," + bes_disc_info.disc_params_leverdagen + ", 'DAGEN')"
-        + " FROM DUAL"
-    oRs = Oracle.Execute(sql);
-    bes_bestelling.rfoDeliverydate = new Date(oRs(0).Value);
+    if (bes_disc_info.disc_params_leverdagen < 0)
+        bes_bestelling.rfoDeliverydate = null;
+    else
+        bes_bestelling.rfoDeliverydate = new Date();
+    if (bes_disc_info.disc_params_leverdagen > 0)
+    {
+      sql = "SELECT fac.DatumTijdPlusUitvoerTijd(" + (new Date).toSQL() + "," + bes_disc_info.disc_params_leverdagen + ", 'DAGEN')"
+          + " FROM DUAL"
+      oRs = Oracle.Execute(sql);
+      bes_bestelling.rfoDeliverydate = new Date(oRs(0).Value);
+    }
   }
 
   if (frontend)
@@ -134,16 +145,20 @@ else // nieuwe bestelling. Defaults bepalen
     var prs_info = new prs.prs_perslid(user_key, { withAflever: true });
 
     bes_bestelling.afleverruimte = prs_info.afleverruimte;
-    bes_bestelling.mld_adres_key = prs_info.mld_adres_key;
+    bes_bestelling.mld_adres_key = getQParamInt("adres_key", prs_info.mld_adres_key);
     bes_bestelling.mld_adres_naam = prs_info.mld_adres_naam;
   }
-  else  // fronto/backo
+  else if (!fronto)
+  {
+    shared.internal_error("Bestelling toevoegen met urole={0} is niet ondersteund.".format(urole));
+  }
+  else  // fronto
   {
     bes_bestelling.kostenplaats_key = -1;
     bes_bestelling.perslid_key = -1;
     bes_bestelling.perslid_key_voor = -1;
     bes_bestelling.afleverruimte = "";
-    bes_bestelling.mld_adres_key = -1;
+    bes_bestelling.mld_adres_key = getQParamInt("adres_key", -1);
   }
   if (act_key != -1)
   { // Invoerder heeft actie aangemaakt. Dan voor aanvrager/invoerder/contactpersoon de user_key nemen.
@@ -182,6 +197,15 @@ else // nieuwe bestelling. Defaults bepalen
   // Vul de punchoutkeuzes automatisch in
   var psrt_keys = getQParamIntArray("ps", []); // array met srtdeel_key's
   var pamounts = getQParamIntArray("pn", []); // array met aantallen
+
+  bes_bestelling.flex_defaults = {};
+  var flex_defaults = getQParam("flex_defaults", "").split("&"); // flex_defaults=bestellingid=12345
+  for (var i in flex_defaults)
+  {
+    var nm = flex_defaults[i].split("=")[0].toLowerCase();
+    var val = flex_defaults[i].split("=")[1];
+    bes_bestelling.flex_defaults[nm] = val;
+  }
 }
 %>
 
@@ -225,7 +249,7 @@ else // nieuwe bestelling. Defaults bepalen
       {
         if (zelf)
         { // Aanroep van onchange van kostenklant vinkje. zelf is dan checkbox object
-          if ($("#kostenklant").attr("checked"))
+          if ($("#kostenklant").prop("checked"))
           { // Kostenklant UIT => AAN: Zet eigen (default) kostenplaats van de ingevulde persoon. Indien niet aanwezig dan wordt suggestbox automatisch leeg gemaakt.
             if ($("#person").val() > 0)
             { // Persoon is ingevuld.
@@ -265,7 +289,7 @@ else // nieuwe bestelling. Defaults bepalen
             frm.ordernr.className = '';
             frm.ordernr.value = ''; // Altijd wisselen bij toggle
 <%        } %>
-          if (prop.attr("checked"))
+          if (prop.prop("checked"))
           {
 <%          if (S("show_ordernr") == 2)
             { %>
@@ -284,10 +308,8 @@ else // nieuwe bestelling. Defaults bepalen
         }
       }
 
-      // Strings needed by sel_Obj_Op.js JGL: zodat die gewoon js kan blijven ipv _js.asp
-      var BES_img_dir = "<% = S("BES_img_dir") %>";
-
       // Strings and variables needed by sel_items_tab.js
+      var confirm_order_before_submit = <%=S("bes_confirm_order_before_submit")?"true":"false"%>;
       var front_end = <% = (fronto || backo) ? "false" : "true" %>;
       var maninfo = false; // Needed by sel_Obj_Op.js
       var currency_pref = '<%=S("currency_pref")%>';
@@ -313,9 +335,9 @@ else // nieuwe bestelling. Defaults bepalen
 <%  var buttons = [];
 
     if (bes_key < 0 && bes_bestelling.fac_activiteit_key == -1)
-      buttons.push({title: L("lcl_bes_Submit"), icon: "bestel.png", action: "MakeOrder()", singlepress: true, id: "btn_bes_submit"});
+      buttons.push({title: L("lcl_bes_Submit"), icon: "bestel.png", action: "MakeOrder(0)", singlepress: true, id: "btn_bes_submit"});
     else
-      buttons.push({title: L("lcl_submit"), icon: "opslaan.png", action: "MakeOrder()",  singlepress: true, id: "btn_bes_submit"});
+      buttons.push({title: L("lcl_submit"), icon: "opslaan.png", action: "MakeOrder(1)",  singlepress: true, id: "btn_bes_submit"});
 
     if (bes_bestelling.fac_activiteit_key == -1)
     {
@@ -363,7 +385,11 @@ else // nieuwe bestelling. Defaults bepalen
               changeKostK(); // Even ordernr goed aan/uitzetten
 <%          }
           }
-%>
+          if (this_bes.canItemsChange)
+          { %>
+            sgBesItem.CheckJustOne();
+<%        } %>
+
           if (front_end)
             showPicture('<%=bes_disc_info.disc_params_logo_url%>');
 
@@ -470,6 +496,17 @@ 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);
+              // Alleen reloaden als persoonsafhankelijke kenmerken; anders heel irritant
+              if ($("#k_flexsql").val() == 1)
+              {   // 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>
@@ -589,15 +626,20 @@ else // nieuwe bestelling. Defaults bepalen
         FCLTcalendar( "calendar",
             { label   : (bes_disc_info.disc_params_leverdagen>0? L("lcl_bes_deli_date_exp") : L("lcl_bes_deli_date")),
               datum   : bes_bestelling.rfoDeliverydate,
-              maxPast : (bes_disc_info.disc_params_leverdagen >= 0)? 0 : null,
+              initEmpty: bes_key < 0 && bes_disc_info.disc_params_leverdagen < 0,
+              maxPast : 0,
               maxFuture: S("bes_datum_limiet"),
-              readonly: bes_key > 0 && !this_bes.canMainChange,
+              readonly: (bes_key > 0 && !this_bes.canMainChange) || leverdatum,
+              saveValue: (leverdatum!=null), // wel submitten
               required: true
             });
 
         var ALGreadlevel = bes_disc_info.authparams? bes_disc_info.authparams.ALGwritelevel : 9;
         //var aflever_readonly = (bes_key > 0 && bes_bestelling.rfoStatus > 4)
         var aflever_readonly = (bes_key > 0 && bes_bestelling.rfoStatus > 5)
+        if (getQParamInt("adres_key", -1) > 0)
+            aflever_readonly = true;
+
         sql = "SELECT m.mld_adres_key"
           + ", m.mld_adres_naam, m.mld_adres_upper"
           + (aflever_readonly? " FROM mld_adres m" : " FROM mld_v_afleveradres m")
@@ -623,6 +665,10 @@ else // nieuwe bestelling. Defaults bepalen
                            required: true
                         }
                       );
+        if (aflever_readonly && bes_bestelling.mld_adres_key > 0)
+        {
+            %><input type='hidden' name='deliveryAddr' value='<%=bes_bestelling.mld_adres_key%>'><%
+        }
 
          RWFIELDTR("delivery_place", "fld", L("lcl_bes_del_room"), bes_bestelling.afleverruimte,
                      {
@@ -644,7 +690,9 @@ else // nieuwe bestelling. Defaults bepalen
                                    disc_key: bes_bestelling.dis_key,
                                    kenmerktype: "B",
                                    reado: (bes_bestelling.bes_key > 0) && !this_bes.canMainChange,
-                                   flexcolumns: S("bes_flexcolumns")
+                                   prs_key : bes_bestelling.perslid_key_voor,
+                                   flexcolumns: S("bes_flexcolumns"),
+                                   defaults : bes_bestelling.flex_defaults // flex_defaults=bestellingid=12345
                                  });
           %></td></tr><%
         BLOCK_END(); %>
@@ -754,9 +802,9 @@ else // nieuwe bestelling. Defaults bepalen
             <th><%=L("lcl_bes_srtdeel_nr")%></th>
             <th><%=L("lcl_bes_srtdeel")%></th>
             <th><%=L("lcl_bes_unity")%></th>
-            <th align="right"><%=L("lcl_bes_price_per_unity")%></th>
-            <th align="right"><%=L("lcl_bes_amount")%></th>
-            <th align="right" <%=show_price ? "" : " style='display:none;'" %>><%=L("lcl_bes_subtotal")%></th>
+            <th style="text-align:right"><%=L("lcl_bes_price_per_unity")%></th>
+            <th style="text-align:right"><%=L("lcl_bes_amount")%></th>
+            <th style="text-align:right" <%=show_price ? "" : " style='display:none;'" %>><%=L("lcl_bes_subtotal")%></th>
           </tr>
         </thead>
         <tbody>
@@ -795,7 +843,8 @@ else // nieuwe bestelling. Defaults bepalen
           </div>
 <%      }
 %>      </td></tr><%
-        BLOCK_END(); %>
+        BLOCK_END(); IFACE.FORM_END();
+%>
       </form>
       <iframe src="../Shared/empty.html"
               onload='iface.button.enable("btn_bes_submit")';

APPL/BES/bes_edit_bestelling_save.asp

@@ -45,7 +45,7 @@ var flexdeel_string_arr = getFParamArray("flexdeel_string",[]);
 var flexitem_string_unsafe = getFParamArray("flexitem_string",[]); // kan ook 'new1' zijn voor nieuwe opdrachten
 
 // staffel_info.totaalbedrag is erg handig
-var staffel_info = bes.staffel_info (srtdeel_keys, amount_arr);
+var staffel_info = bes.staffel_info(srtdeel_keys, amount_arr);
 
 var isNew = (bes_key == -1);
 var isChange = !isNew && bes_bestelling.parent_key > 0;
@@ -90,7 +90,7 @@ var strState = ""; // L("lcl_bes_RFO_regSuccess")
 
 // Check customer specific restrictions
 // customer hook
-pResult = new HookResult();
+var pResult = new HookResult();
 
 // Klantspecifieke check functie (hookfunction) voor de invoer
 // Let op dat sinds 5.2.2 flexArray niet meer bestaat.
@@ -114,90 +114,104 @@ if (!kpl_ksrt_validate(kostenplaats_key, null, dis_key))
 var approver_key = -1;
 var ter_finfiattering = false;
 var isFE = autfunction == 'WEB_BESUSE';
-// Persoonlijk Gebonden Budget (PGB) en/of Afdeling Gebonden Budget (AGB) controle
-// bes_disc_info.disc_params_pgb: 0 = Geen van beiden
-//                                1 = Alleen pgb
-//                                2 = Alleen agb
-//                                3 = Beiden, pgb en agb
-if (bes_disc_info.disc_params_pgb > 0)
-{ // Persoonlijk Gebonden Budget (PGB) en Afdeling Gebonden Budget (AGB) controle
-  // Fiatteringsproces moet gevolgd worden op de naam van
-  // S("prs_dep_default_kpn_voor") == 0: de contactpersoon prs_key
-  // S("prs_dep_default_kpn_voor") == 1: de "voor wie" (bestelling voor) prs_key_voor
-  // Als bes_disc_params_for_others niet is gezet zijn prs_key en prs_key_voor identiek
-  var exceeds_pgb = bes.exceeds_pgb(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), dis_key, bes_key)
-  var exceeds_agb = bes.exceeds_agb(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), bes_key)
-  if (exceeds_pgb || exceeds_agb)
-  {
-    if (S("bes_pgb_fiattering") == 1 && !(isFE && S("bes_pgb_fe_fiat") == 1))
-      // Algemene fiatterings proces noodzakelijk naast PGB fiatering
+
+// reinit
+var pResult = new HookResult();
+// Note:   ALTERNATIEF VOOR DE FUNCTIE ZOU EEN BES_DISC_PARAMS_REMOTE KUNNEN ZIJN..??
+var UseRemoteApproval = custfunc.bes_hasremoteapproval(dis_key, pResult) && pResult.value;
+if (UseRemoteApproval)
+{
+      // De fiattering voor deze catalogus ligt helemaal buiten FACILITOR
       ter_finfiattering = true;
-    else
-    {
+}
+else
+{
+    // Persoonlijk Gebonden Budget (PGB) en/of Afdeling Gebonden Budget (AGB) controle
+    // bes_disc_info.disc_params_pgb: 0 = Geen van beiden
+    //                                1 = Alleen pgb
+    //                                2 = Alleen agb
+    //                                3 = Beiden, pgb en agb
+    if (bes_disc_info.disc_params_pgb > 0)
+    { // Persoonlijk Gebonden Budget (PGB) en Afdeling Gebonden Budget (AGB) controle
       // Fiatteringsproces moet gevolgd worden op de naam van
       // S("prs_dep_default_kpn_voor") == 0: de contactpersoon prs_key
       // S("prs_dep_default_kpn_voor") == 1: de "voor wie" (bestelling voor) prs_key_voor
       // Als bes_disc_params_for_others niet is gezet zijn prs_key en prs_key_voor identiek
-      strState = (exceeds_pgb
-                 ? L("lcl_bes_exceeds_pgb") + safe.curr(bes.get_pgb_exceed_amount(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), dis_key, bes_key))
-                 : "")
-               + (exceeds_pgb && exceeds_agb
-                 ? "\n" // Nieuwe regel
-                 : "")
-               + (exceeds_agb
-                 ? L("lcl_bes_exceeds_agb") + safe.curr(bes.get_agb_exceed_amount(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), dis_key, bes_key))
-                 : "")
-               + "\n" + L("lcl_bes_adjust_order");
-      abort_with_warning(strState);
+      var exceeds_pgb = bes.exceeds_pgb(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), dis_key, bes_key)
+      var exceeds_agb = bes.exceeds_agb(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), dis_key, bes_key)
+      if (exceeds_pgb || exceeds_agb)
+      {
+        if (S("bes_pgb_fiattering") == 1 && !(isFE && S("bes_pgb_fe_fiat") == 1))
+          // Algemene fiatterings proces noodzakelijk naast PGB fiatering
+          ter_finfiattering = true;
+        else
+        {
+          // Fiatteringsproces moet gevolgd worden op de naam van
+          // S("prs_dep_default_kpn_voor") == 0: de contactpersoon prs_key
+          // S("prs_dep_default_kpn_voor") == 1: de "voor wie" (bestelling voor) prs_key_voor
+          // Als bes_disc_params_for_others niet is gezet zijn prs_key en prs_key_voor identiek
+          strState = (exceeds_pgb
+                     ? L("lcl_bes_exceeds_pgb") + safe.curr(bes.get_pgb_exceed_amount(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), dis_key, bes_key))
+                     : "")
+                   + (exceeds_pgb && exceeds_agb
+                     ? "\n" // Nieuwe regel
+                     : "")
+                   + (exceeds_agb
+                     ? L("lcl_bes_exceeds_agb") + safe.curr(bes.get_agb_exceed_amount(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), dis_key, bes_key))
+                     : "")
+                   + "\n" + L("lcl_bes_adjust_order");
+          abort_with_warning(strState);
+        }
+      }
+      else if (isFE && S("bes_pgb_fe_fiat") == 1)
+      { // Onder PGB/AGB en bestelling van FE en moet zeker langs budgethouder
+        ter_finfiattering = true;
+      }
     }
-  }
-  else if (isFE && S("bes_pgb_fe_fiat") == 1)
-  { // Onder PGB/AGB en bestelling van FE en moet zeker langs budgethouder
-    ter_finfiattering = true;
-  }
-}
-else
-{ // Standaard fiatteringscontrole
-  // Fiatteringsproces moet gevolgd worden op de naam van
-  // S("prs_dep_default_kpn_voor") == 0: de contactpersoon prs_key
-  // S("prs_dep_default_kpn_voor") == 1: de "voor wie" (bestelling voor) prs_key_voor
-  // Als bes_disc_params_for_others niet is gezet zijn prs_key en prs_key_voor identiek
-  // Als orgineel nog gefiatteerd moet worden door budgethouder (status is 2) dan zeker eerst fiatteren
-  if (!act_mode
-      && !bes_disc_info.disc_params_autoacceptrfo
-      && shared.exceeds_profiel(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), dis_key)
-      && (isNew || oldStatus == 2 || bes.herfiatteren(bes_bestelling, bes_disc_info, staffel_info.totaalbedrag)))
-    // niet automatisch fiat(!)teren en profiel wordt overschreden
-    ter_finfiattering = true;
-}
-
-// Als het boven mijn profiel is, of ik -als ik budgethouder ben/zou zijn- niet zelf mag goedkeuren
-// Gaan we kijken wie dan wel.
-if (ter_finfiattering || S("can_selfapprove") == 0)
-{ // Wie moet dit (als eerste) goedkeuren voor deze kostenplaats?
-  approver_key = prs.getKpVerantwoordelijke(kostenplaats_key);
-  __Log('Eerstgevonden fiatteur: '+approver_key);
-  if (approver_key == -1) {
-    // geen fiatteur gevonden, bestellen niet mogelijk
-    __Log('bestelling afgebroken');
-    abort_with_warning(L("lcl_bes_no_fiatteur"));
-  }
-  if (shared.exceeds_profiel(staffel_info.totaalbedrag, approver_key, dis_key))
-  { // de gevonden fiatteur heeft onvoldoende profiel, is er een hogere (kpngroepverantwoordelijke)
-    // Let wel: alleen controle of hij er bestaat. Wie het is doen we nog niets mee hier.
-    __Log('voldoet niet');
-    var nextapprover_key = prs.getKpVerantwoordelijkeExcept(kostenplaats_key, approver_key);
-    __Log('Vervolgensgevonden fiatteur: ' + nextapprover_key);
-    if (nextapprover_key == -1 || shared.exceeds_profiel(staffel_info.totaalbedrag, nextapprover_key, dis_key))
-    {
-      __Log('voldoet ook niet');
-      abort_with_warning(L("lcl_bes_exceed_limit"));
+    else
+    { // Standaard fiatteringscontrole
+      // Fiatteringsproces moet gevolgd worden op de naam van
+      // S("prs_dep_default_kpn_voor") == 0: de contactpersoon prs_key
+      // S("prs_dep_default_kpn_voor") == 1: de "voor wie" (bestelling voor) prs_key_voor
+      // Als bes_disc_params_for_others niet is gezet zijn prs_key en prs_key_voor identiek
+      // Als orgineel nog gefiatteerd moet worden door budgethouder (status is 2) dan zeker eerst fiatteren
+      if (!act_mode
+          && !bes_disc_info.disc_params_autoacceptrfo
+          && shared.exceeds_profiel(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), dis_key)
+          && (isNew || oldStatus == 2 || bes.herfiatteren(bes_bestelling, bes_disc_info, staffel_info.totaalbedrag)))
+        // niet automatisch fiat(!)teren en profiel wordt overschreden
+        ter_finfiattering = true;
     }
-  }
-  // Er is nu een altijd een eerste approver_key gevonden (met of zonder voldoende fiatteringsrechten. Anders al een abort.
-  // approver_key is oke of indien -1 dan is er geen approval meer nodig (is al geabort hierboven anders)
-}
 
+    // Als het boven mijn profiel is, of ik -als ik budgethouder ben/zou zijn- niet zelf mag goedkeuren
+    // Gaan we kijken wie dan wel.
+    // Kan ik zelf fiatteren?: true:  totaalbedrag <= can_selfapprove
+    //                         false  totaalbedrag > can_selfapprove
+    if (ter_finfiattering || staffel_info.totaalbedrag > S("can_selfapprove"))
+    { // Wie moet dit (als eerste) goedkeuren voor deze kostenplaats?
+      approver_key = prs.getKpVerantwoordelijke(kostenplaats_key, staffel_info.totaalbedrag);
+      __Log('Eerstgevonden fiatteur: '+approver_key);
+      if (approver_key == -1) {
+        // geen fiatteur gevonden, bestellen niet mogelijk
+        __Log('bestelling afgebroken');
+        abort_with_warning(L("lcl_bes_no_fiatteur"));
+      }
+      if (shared.exceeds_profiel(staffel_info.totaalbedrag, approver_key, dis_key))
+      { // de gevonden fiatteur heeft onvoldoende profiel, is er een hogere (kpngroepverantwoordelijke)
+        // Let wel: alleen controle of hij er bestaat. Wie het is doen we nog niets mee hier.
+        __Log('voldoet niet');
+        var nextapprover_key = prs.getKpVerantwoordelijkeExcept(kostenplaats_key, approver_key);
+        __Log('Vervolgensgevonden fiatteur: ' + nextapprover_key);
+        if (nextapprover_key == -1 || shared.exceeds_profiel(staffel_info.totaalbedrag, nextapprover_key, dis_key))
+        {
+          __Log('voldoet ook niet');
+          abort_with_warning(L("lcl_bes_exceed_limit"));
+        }
+      }
+      // Er is nu een altijd een eerste approver_key gevonden (met of zonder voldoende fiatteringsrechten. Anders al een abort.
+      // approver_key is oke of indien -1 dan is er geen approval meer nodig (is al geabort hierboven anders)
+    }
+}
 // JGL:  5.1.2: er is besloten dat een concept/embargo alleen (en altijd)
 //       wordt aangemaakt als er ook al opdrachten waren.
 //       Tot die tijd wordt een gewone update gedaan (net als 5.1.1) maar
@@ -300,6 +314,7 @@ currentKenmerkenSQL = " SELECT kb.bes_kenmerk_key"
                     + " AND bes_bestelling_key = " + bes_key;
 allKenmerkenSQL     = "SELECT " + lcl.xsql('t.bes_srtkenmerk_omschrijving', 't.bes_srtkenmerk_key') +" kenmerk_omschrijving"
                     + ",      b.bes_srtkenmerk_key srtkenmerk_key"
+                    + ",      fac_kenmerkdomein_key"
                     + "  FROM bes_kenmerk b, "
                     + "       bes_srtkenmerk t"
                     + " WHERE b.bes_srtkenmerk_key = t.bes_srtkenmerk_key"
@@ -399,51 +414,75 @@ if (status == 1 || status == 2|| status == 3 || status == 4 || status == 5)
   if (makechange) // in de originele tracking verwijzen we naar de change-request
     shared.trackaction("BESUPD", getQParamInt("bes_key"), L("lcl_bes_change") + S("bes_bestelling_prefix") + bes_key );
 
-  // Nu kan daadwerkelijk de juiste status gezet worden.
-  if (approver_key == -1) // No fin-approval required
-  {
-    // Als orgineel nog gefiatteerd moet worden door BO (status is 3) dan zeker eerst fiatteren
-    if  (oldStatus == 3 || ((staffel_info.totaalbedrag > bes_disc_info.disc_params_bestellimiet) &&
-                            (isNew || bes.herfiatteren(bes_bestelling, bes_disc_info, staffel_info.totaalbedrag))))  // should BO approve?
-    {
-      bes.setbestellingstatus(bes_key, 3, L("lcl_bes_fiatbyrules")); // finanicieel gefiatteerd, BO moet nog wel
-    }
-    else
-    {
-      bes.setbestellingstatus(bes_key, 4); // Geaccepteerd
+if (UseRemoteApproval)
+{
+     __Log("Requesting remote approval");
+     var remoteResult = custfunc.bes_getremoteapproval(getQParamInt("bes_key", pResult));   // dis_key ook meegeven?
+     // Track dat fiattering gevraagd wordt aan extern systeem (custfunc.bes_remoteapprovalSystemName(dis_key)?)
+     // En wat bij fail?
+     // shared.trackaction("BESAP2", bes_key, remoteResult);
+//     var corsaResult = false;
+//     var corsaError = "";
+//     corsaResult = corsaConnect();
+//     if (!corsaResult)
+//       strState = "Resultaat Corsa/Webservice: "+corsaError;
+//
+//     var xmlTableDef = Server.CreateObject("MSXML2.DOMDocument.4.0");
+//     var docNr = corsaCreateDoc(bes_key);
+//     var caseID = corsaGetCase(docNr);
+//     xmlTableDef = corsaVarTabGet(caseID);
+//     corsaVarTabSet(bes_key, caseID, xmlTableDef);
+//     corsaDisconnect();
 
-      if (bes_disc_info.disc_params_auto_order == "1") // direct opdracht aanmaken
+//     sql = "UPDATE bes_bestelling"
+//         + "   SET bes_bestelling_opmerking = 'CORSA: " + docNr + " (" + caseID + ")'"
+//         + " WHERE bes_bestelling_key = " + bes_key;
+//     Oracle.Execute(sql);
+
+  } else {  // internal approval mechanism
+
+      // Nu kan daadwerkelijk de juiste status gezet worden.
+      if (approver_key == -1) // No fin-approval required
       {
-        if (oldStatus == 5 && opdrStatus == 1) // afgewezen opdrachten vervangen we gewoon
-          bes.changeOrders(user_key, bes_key);
+        // Als orgineel nog gefiatteerd moet worden door BO (status is 3) dan zeker eerst fiatteren
+        if  (oldStatus == 3 || ((staffel_info.totaalbedrag > bes_disc_info.disc_params_bestellimiet) &&
+                                (isNew || bes.herfiatteren(bes_bestelling, bes_disc_info, staffel_info.totaalbedrag))))  // should BO approve?
+        {
+          bes.setbestellingstatus(bes_key, 3, L("lcl_bes_fiatbyrules")); // finanicieel gefiatteerd, BO moet nog wel
+        }
         else
-          bes.makeOrders(user_key, bes_key);
+        {
+          bes.setbestellingstatus(bes_key, 4); // Geaccepteerd
+
+          if (bes_disc_info.disc_params_auto_order == "1") // direct opdracht aanmaken
+          {
+            if (oldStatus == 5 && opdrStatus == 1) // afgewezen opdrachten vervangen we gewoon
+              bes.changeOrders(user_key, bes_key);
+            else
+              bes.makeOrders(user_key, bes_key);
+          }
+        }
       }
-    }
-  }
-  else
-  { // Deze bestelling moet gefiatteerd worden
-    // Inform approver that they have something to do
-    // Niet uitvoeren bij bestelling voor geplande actie
-    if (!act_mode)
-    {
-      if (vervang)
-      {
-          var sql = "UPDATE bes_bestelling"
-                  + "   SET bes_bestelling_fiat_user = NULL,"
-                  + "       bes_bestelling_status = 2"
-                  + " WHERE bes_bestelling_key = " + bes_key;
-          Oracle.Execute(sql);
-          // AP2 notificatie wordt al door sendNeedApprovalNotification gedaan
-          // bes.setbestellingstatus(bes_key, 2); // terug naar Nieuw/ter acceptering
+      else
+      { // Deze bestelling moet gefiatteerd worden
+        // Inform approver that they have something to do
+        // Niet uitvoeren bij bestelling voor geplande actie
+        if (!act_mode)
+        {
+          if (vervang)
+          {
+              var sql = "UPDATE bes_bestelling"
+                      + "   SET bes_bestelling_fiat_user = NULL,"
+                      + "       bes_bestelling_status = 2"
+                      + " WHERE bes_bestelling_key = " + bes_key;
+              Oracle.Execute(sql);
+              // AP2 notificatie wordt al door sendNeedApprovalNotification gedaan
+              // bes.setbestellingstatus(bes_key, 2); // terug naar Nieuw/ter acceptering
+          }
+          strState = bes.sendNeedApprovalNotification(bes_key, approver_key);
+        }
       }
-      // Fiatteringsproces moet gevolgd worden op de naam van
-      // S("prs_dep_default_kpn_voor") == 0: de contactpersoon prs_key
-      // S("prs_dep_default_kpn_voor") == 1: de "voor wie" (bestelling voor) prs_key_voor
-      // Als bes_disc_params_for_others niet is gezet zijn prs_key en prs_key_voor identiek
-      strState = bes.sendNeedApprovalNotification(bes_key, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), approver_key);
-    }
-  }
+   }
 }
 else if (oldStatus == 6) // 6=geleverd
 { // er kunnen/zullen ook al bes_bestelopdr_item's bestaan
@@ -512,6 +551,12 @@ else if (oldStatus == 6) // 6=geleverd
   }
 }
 
+// Klantspecifieke hookfunction
+var pResult = new HookResult();
+if (!custfunc.bes_postsave(bes_key, pResult))
+{
+  abort_with_warning(pResult.errmsg);
+}
 %>
 <html>
   <head>

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;
         }
       }
     }
@@ -111,13 +119,17 @@ function doSubmit()
             objReturn:objReturn,
             callback: function (data)
               {
-                if (data.isXmlOk) {
-                    FcltMgr.closeDetail(window, { objReturn: objReturn} );
+                if (data.isXmlOk)
+                {
+                    parent.FcltMgr._modalCallback[1]( { objReturn: objReturn} );
+                    parent.$('iframe#fcltmodal'+1).dialog('close');
+                    //parent.FcltMgr.dialogClose();
+                    return true;
                 }
-                  else {
+                else
+                {
                     return false;
-                  }
-
+                }
               }
             });
   return false;
@@ -202,7 +214,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
                     }
                  );
 %>
@@ -210,10 +223,11 @@ function changeName(prs_key) {
 </table></td></tr>
 <% BLOCK_END(); %>
 <%
-buttons = [{title: (preview ? L("lcl_bes_preview"):L("lcl_submit")), icon: "opslaan.png", action: "doSubmit();"},
+buttons = [{title: (preview ? L("lcl_bes_preview"):L("lcl_submit")), icon: "opslaan.png", action: "doSubmit();", singlepress: true, id: "btn_itemkenmerk_submit"},
            {title: L("lcl_back"), icon: "undo.png", action: "FcltMgr.closeDetail(window, { cancel: true });"}
           ];
 CreateButtons(buttons);
+IFACE.FORM_END();
 %>
 </form>
 </div>

APPL/BES/bes_edit_opdr.asp

@@ -28,6 +28,7 @@ var opdr_key = getQParamInt("ordernr");
 
 var bes_bestelopdr = bes.bestelopdracht_info(opdr_key); // Globale variabele met alle bes_bestelopdr informatie
 var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);
+var this_bestelopdr = bes.func_enabled_bestelopdracht(opdr_key);
 %>
 
 <html>
@@ -35,24 +36,27 @@ var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);
 <%  FCLTHeader.Generate(); %>
   </head>
 <%
-  var autfunction = '';
-  if (minfo)
-    autfunction = 'WEB_BESBAC';
-  else
-    autfunction = 'WEB_BESBOR';
 
-  var authparams = user.checkAutorisation(autfunction);
-  // TODO: Scherper
-  user.auth_required_or_abort(authparams.ALGwritelevel < 9 && authparams.PRSwritelevel);
+  var authparams = user.checkAutorisation("WEB_BESBOF");
+  user.auth_required_or_abort(this_bestelopdr.canChange);
 
   var submitting = getQParamInt("submit", 0) == 1;
   if (submitting)
   {
-    itemregels = getFParamInt("itemregels");
+    protectRequest.validateToken();
 
+    var fields =  [ { dbs: "bes_bestelopdr_opmerking", typ: "varchar", frm: "opmerk",   track: L("lcl_remark"), len: 320 },
+                    { dbs: "mld_adres_key_lev",        typ: "key",     frm: "levering", track: L("lcl_bes_adres_lev"), foreign: "MLD_V_AFLEVERADRES" } ,
+                    { dbs: "mld_adres_key_fac",        typ: "key",     frm: "factuur",  track: L("lcl_bes_adres_fac"), foreign: "MLD_V_FACTUURADRES" }
+                  ];
+    if (getFParam("chkproceed", "off") == "on")
+        fields.push({ dbs: "bes_bestelopdr_status", typ: "key", val: 3});
+    var besOpdrUpd = buildTrackingUpdate("bes_bestelopdr", " bes_bestelopdr_key = " + opdr_key, fields);
+
+    itemregels = getFParamInt("itemregels");
+    var besopdr_id = "";
     for (i = 1; i <= itemregels; i++)
     {
-      comment = "" + Request('ita' + i);
       cnt  = getFParamInt('cnt' + i);
       ikey = getFParamInt('ikey' + i);
       // TODO: Moet (desnoods) prijs niet overgenomen uit bes_bestelling_item_prijs?
@@ -65,16 +69,23 @@ var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);
           + " WHERE bes_bestelopdr_item_key = " + ikey;
 
       Oracle.Execute(sql);
+
+      if (bes_bestelopdr.artikel_arr[i-1].aantal > cnt)
+      {
+        sql = "SELECT boi.bes_bestelopdr_item_omschrijv"
+            + "     , bo.bes_bestelopdr_id"
+            + "  FROM bes_bestelopdr_item boi"
+            + "     , bes_bestelopdr bo"
+            + " WHERE boi.bes_bestelopdr_key = bo.bes_bestelopdr_key"
+            + "   AND bes_bestelopdr_item_key = " + ikey;
+        oRs = Oracle.Execute(sql);
+        var item_oms = oRs("bes_bestelopdr_item_omschrijv").Value;
+        besopdr_id = oRs("bes_bestelopdr_id").Value;
+        besOpdrUpd.trackarray.push(L("lcl_bes_amount") + ": " + buildTrackText("float", bes_bestelopdr.artikel_arr[i-1].aantal, cnt) + " (" + item_oms + ")");
+      }
     }
 
-    var fields =  [ { dbs: "bes_bestelopdr_opmerking", typ: "varchar", frm: "opmerk" },
-                    { dbs: "mld_adres_key_lev",        typ: "key",     frm: "levering" } ,
-                    { dbs: "mld_adres_key_fac",        typ: "key",     frm: "factuur" }
-                  ];
-    if (getFParam("chkproceed", "off") == "on")
-        fields.push({ dbs: "bes_bestelopdr_status", typ: "key", val: 3});
-    sql = buildUpdate("bes_bestelopdr", fields) + " bes_bestelopdr_key = " + opdr_key;
-    Oracle.Execute(sql);
+    Oracle.Execute(besOpdrUpd.sql);
 
     // Als de status 4 (In bestelling (bevestigd)) is zou het zo kunnen zijn dat nu (na deze wijziging) alles geleverd is.
     if (bes_bestelopdr.status == 4)
@@ -82,6 +93,14 @@ var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);
       bes.updatebestelopdrstatus(opdr_key);
       bes.updatebestellingstatus(bes_bestelling.bes_key);
     }
+
+    // Update nog tracken
+    shared.trackaction("BES2UP",
+                       opdr_key,
+                       L("lcl_bes_is_bes2uptrack").format(S("bes_bestelopdr_prefix") + besopdr_id) + "\n" + besOpdrUpd.trackarray.join("\n"));
+
+
+
 %>  <script type="text/javascript">
       FcltMgr.closeDetail(window, { warning: null } );
     </script>
@@ -99,6 +118,13 @@ var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);
     {
       FcltMgr.closeDetail(window, { cancel: true } );
     }
+
+     jQuery(document).ready(function()
+                             {
+                               $('textarea').resize(function() { FcltMgr.resized(window) });
+                               $('textarea').autogrow();
+                             });
+
   </script>
   <body id="editbody">
 <%
@@ -173,21 +199,36 @@ var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);
           </tr>
 <%      }
 
-        sql = "SELECT mld_adres_key, mld_adres_naam "
-            + " FROM mld_v_aanwezigadres"
-            + " WHERE mld_adres_afleveradres IS NOT NULL"
-            + (authparams.ALGreadlevel >= 0?" AND alg_locatie_key IN (SELECT alg_locatie_key FROM fac_v_my_locations "
-            + " WHERE prs_perslid_key = " + user_key + " AND niveau="+authparams.ALGreadlevel+")":"")
+        sql = "SELECT aa.mld_adres_key"
+            + "     , aa.mld_adres_naam"
+            + "  FROM mld_v_aanwezigadres aa"
+            + " WHERE aa.mld_adres_afleveradres IS NOT NULL"
+            + (authparams.ALGreadlevel >= 0
+              ? " AND (EXISTS (SELECT ml.alg_locatie_key"
+              + "               FROM fac_v_my_locations ml"
+                + "            WHERE ml.prs_perslid_key = " + user_key
+                + "              AND ml.niveau = " + authparams.ALGreadlevel
+                + "              AND ml.alg_locatie_key = aa.alg_locatie_key)"
+                + " OR aa.alg_locatie_key IS NULL"
+                + " OR aa.mld_adres_key = " + bes_bestelopdr.mld_adres_key_lev + ")"
+              : "")
             + " ORDER BY 2";
         FCLTselector("levering", sql, {label: L("lcl_bes_adres_lev"),
                                        initKey: bes_bestelopdr.mld_adres_key_lev,
                                        emptyOption: (bes_bestelopdr.mld_adres_key_lev < 0? null : "")})
 
-        sql = "SELECT mld_adres_key, mld_adres_naam "
-            + " FROM mld_v_aanwezigadres"
-            + " WHERE mld_adres_factuuradres IS NOT NULL"
-            + (authparams.ALGreadlevel>=0?" AND alg_locatie_key IN (SELECT alg_locatie_key FROM fac_v_my_locations "
-            + " WHERE prs_perslid_key="+user_key+" AND niveau="+authparams.ALGreadlevel+")":"")
+        sql = "SELECT fa.mld_adres_key"
+            + "     , fa.mld_adres_naam"
+            + "  FROM mld_v_factuuradres fa"
+            + (authparams.ALGreadlevel >= 0
+              ? " WHERE (EXISTS (SELECT ml.alg_locatie_key"
+              + "                 FROM fac_v_my_locations ml"
+                + "              WHERE ml.prs_perslid_key = " + user_key
+                + "                AND ml.niveau = " + authparams.ALGreadlevel
+                + "                AND ml.alg_locatie_key = fa.alg_locatie_key)"
+                + "  OR fa.alg_locatie_key IS NULL"
+                + "  OR fa.mld_adres_key = " + bes_bestelopdr.mld_adres_key_fac + ")"
+              : "")
             + " ORDER BY 2";
         FCLTselector("factuur", sql, {label: L("lcl_bes_adres_fac"),
                                      initKey: bes_bestelopdr.mld_adres_key_fac,
@@ -202,8 +243,8 @@ var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);
             <th><%=L("lcl_bes_srtdeel_nr")%></th>
             <th><%=L("lcl_bes_discipline")%></th>
             <th><%=L("lcl_bes_srtdeel")%></th>
-            <th align="right"><%=L("lcl_bes_amount")%></th>
-            <th align="right"><%=L("lcl_bes_Price") + " " + (bes_bestelopdr.inclBTW? L("lcl_shared_inclBTW") : L("lcl_shared_exclBTW"))%></th>
+            <th style="text-align:right"><%=L("lcl_bes_amount")%></th>
+            <th style="text-align:right"><%=L("lcl_bes_Price") + " " + (bes_bestelopdr.inclBTW? L("lcl_shared_inclBTW") : L("lcl_shared_exclBTW"))%></th>
         </tr>
 <%
 
@@ -261,6 +302,7 @@ var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);
 %>
         <input type='hidden' id='itemregels' name='itemregels' value='<%=bes_bestelopdr.artikel_arr.length%>'>
         <input type='hidden' id='total' name='total' value='<%=safe.jsfloat(total)%>'>
+<% IFACE.FORM_END(); %>
       </form>
     </div>
   </body>

APPL/BES/bes_edit_srtdeel.asp

@@ -136,6 +136,18 @@ else
                              queryUrl: "../shared/suggest/suggestBesProd.asp?1=1"});
 
       })
+
+      function editImageCallback(data, orgData)
+      {
+        $("#image").val(data.filenaam);
+      }
+
+      function edit_image()
+      {
+        var url = "<%=protectQS.create("../../appl/shared/BijlagenForm.asp?module=BESPH&multi=1&key=" + art.disc_key)%>";
+        FcltMgr.openModalDetail(url, L("lcl_mrk_upload_foto"),
+                    { callback: editImageCallback } );
+      }
     </script>
   </head>
   <body id="editbody">
@@ -153,7 +165,7 @@ else
             onSubmit="bes_submit()">
 <%      BLOCK_START("besArtikel", L("lcl_bes_srtdeelblok"));
 
-        RWFIELDTR("srtdeel_nr",      "fld", L("lcl_bes_srtdeel_nr"), art.nr, { maxlength: 32 });
+        RWFIELDTR("srtdeel_nr",      "fld", L("lcl_bes_srtdeel_nr"), art.nr, { required: true, maxlength: 32 });
         RWFIELDTR("omschrijving",    "fld", L("lcl_bes_srtdeel_oms"), art.omschrijving, { required: true, maxlength: 100 });
         ROFIELDTR("fld", L("lcl_bes_discipline"), art.disc_oms);
         var sql = "SELECT bes_srtgroep_key, "
@@ -169,19 +181,26 @@ else
                     });
 
         RWFIELDTR("srtdeel_eenheid", "fld", L("lcl_bes_unity"), art.eenheid);
-        RWFIELDTR("image", "fld", L("lcl_bes_image"), art.image);
+%>      <tr valign="top">
+          <td class="label ">
+            <label for="k1val"><span title=""><%=L("lcl_bes_image")%>:</span></label>
+          </td>
+          <td>
+            <input type="text" id="image" name="image" class="fld" value="<%=safe.html(art.image)%>" title="">
+            &nbsp;
+            <input type="button" class="mbutton" onClick="edit_image()">
+          </td>
+        </tr>
 
-// TODO: srtprodselector.inc maken
-%>
-          <tr>
-           <td class="label"><label class="selector" for="itemfilter"><%=L("lcl_bes_srtprod")%>:</label>
-              </td>
-           <td>
-              <input type="text" name="itemfilter" id="itemfilter"
-                    value='<%=safe.htmlattr(art.srtprod_oms)%>'>
-             <input type="hidden" id="srtprod_key" name="srtprod_key" value="<%=art.srtprod_key||-1%>">
-           </td>
-          </tr>
+        <tr>
+         <td class="label"><label class="selector" for="itemfilter"><%=L("lcl_bes_srtprod")%>:</label>
+            </td>
+         <td>
+            <input type="text" name="itemfilter" id="itemfilter"
+                  value='<%=safe.htmlattr(art.srtprod_oms)%>'>
+           <input type="hidden" id="srtprod_key" name="srtprod_key" value="<%=art.srtprod_key||-1%>">
+         </td>
+        </tr>
 <%
         RWFIELDTR("notitie", "fld", L("lcl_bes_notitie"), art.srtdeel_not);
         RWTEXTAREATR("opmerking", "fld", L("lcl_bes_opmerking"), art.opmerking);
@@ -222,6 +241,7 @@ else
         RWFIELDTR("depotverdeelpct", "fldshort", L("lcl_bes_depotverdeelpct"), art.depotverdeelpct);
 
         BLOCK_END();
+IFACE.FORM_END();
 %>
       </form>
     </div>