Die hoort weg te zijn

svn path=/Website/branches/v5.4.1/; revision=22097
PNBR#29793 : Nieuw logo op bonnen
2014-07-08 11:20:56 +00:00 · 2014-07-02 11:44:36 +00:00 · 2014-06-18 08:32:12 +00:00 · 2014-06-18 07:22:15 +00:00 · 2014-06-18 07:18:34 +00:00 · 2014-06-18 07:18:16 +00:00
1693 changed files with 139429 additions and 86496 deletions
--- a/APPL/ALG/alg_delete.asp
+++ b/APPL/ALG/alg_delete.asp
@@ -13,7 +13,7 @@
    Note:

 */
-DOCTYPE_Disable = 1;
+var JSON_Result = true;
 %>
 <!--#include file="../Shared/common.inc"-->
 <!--#include file="../Shared/json2.js" -->
@@ -45,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));
--- a/APPL/ALG/alg_district_list.inc
+++ b/APPL/ALG/alg_district_list.inc
@@ -85,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>
@@ -146,6 +155,7 @@ function district_list(pautfunction, params)
                                   rowActionEnabler: fnrowActionEnabler,
                                   flexModule: "ALG",
                                   flexId: "alg_district_key",
+                                   flexParams: fnrowFlexParams,
                                   filterParams: params,
                                   outputmode: outputmode,
                                   buttons: addButton
--- a/APPL/ALG/alg_district_search.asp
+++ b/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 -->
--- a/APPL/ALG/alg_edit_gebouw_save.asp
+++ b/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);
--- a/APPL/ALG/alg_edit_locatie.asp
+++ b/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});
--- a/APPL/ALG/alg_edit_ruimte.asp
+++ b/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 ({
--- a/APPL/ALG/alg_edit_ruimte_save.asp
+++ b/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)
  {
--- a/APPL/ALG/alg_edit_wp.asp
+++ b/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,7 +147,8 @@ 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();
--- a/APPL/ALG/alg_edit_wp_save.asp
+++ b/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: "" },
--- a/APPL/ALG/alg_flexkenmerk.inc
+++ b/APPL/ALG/alg_flexkenmerk.inc
@@ -49,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, "
@@ -90,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');

@@ -101,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 }
               );
 }
 %>
-
--- a/APPL/ALG/alg_gebouw_list.inc
+++ b/APPL/ALG/alg_gebouw_list.inc
@@ -90,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>
@@ -181,6 +190,7 @@ function gebouw_list(pautfunction, params)
                                   rowActionEnabler: fnrowActionEnabler,
                                   flexModule: "ALG",
                                   flexId: "alg_gebouw_key",
+                                   flexParams: fnrowFlexParams,
                                   filterParams: params,
                                   outputmode: outputmode,
                                   buttons: addButton
@@ -192,7 +202,6 @@ function gebouw_list(pautfunction, params)
    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"}));
--- a/APPL/ALG/alg_gebouw_search.asp
+++ b/APPL/ALG/alg_gebouw_search.asp
@@ -86,7 +86,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 -->
--- a/APPL/ALG/alg_locatie_list.inc
+++ b/APPL/ALG/alg_locatie_list.inc
@@ -101,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>
@@ -173,6 +182,7 @@ function locatie_list(pautfunction, params)
                                   outputmode: outputmode,
                                   flexModule: "ALG",
                                   flexId: "alg_locatie_key",
+                                   flexParams: fnrowFlexParams,
                                   filterParams: params,
                                   buttons: addButton
                                 });
--- a/APPL/ALG/alg_locatie_search.asp
+++ b/APPL/ALG/alg_locatie_search.asp
@@ -67,7 +67,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 -->
--- a/APPL/ALG/alg_regio_search.asp
+++ b/APPL/ALG/alg_regio_search.asp
@@ -52,7 +52,7 @@ var authparams = alg.checkAutorisation();
 <%    BLOCK_END(); %>
 <%
  var buttons =  [{title: L("lcl_search"), action: "document.forms.u2.submit();", id: "bSearch" }];
-  CreateButtons(buttons);
+  CreateButtons(buttons, { entersubmit: true });
 %>
      </form>
    </div> <!-- search -->
--- a/APPL/ALG/alg_ruimte.asp
+++ b/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):"");
  }
 }
 %>
--- a/APPL/ALG/alg_ruimte_list.inc
+++ b/APPL/ALG/alg_ruimte_list.inc
@@ -199,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?

@@ -217,6 +226,7 @@ function ruimte_list(pautfunction, params)
                                     outputmode: outputmode,
                                     flexModule: "ALG",
                                     flexId: "alg_ruimte_key",
+                                     flexParams: fnrowFlexParams,
                                     filterParams: params,
                                     buttons: addButton
                                   });
--- a/APPL/ALG/alg_ruimte_search.asp
+++ b/APPL/ALG/alg_ruimte_search.asp
@@ -102,7 +102,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 -->
--- a/APPL/ALG/alg_ruimteafdeling.js
+++ b/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)
--- a/APPL/ALG/alg_show_gebouw.asp
+++ b/APPL/ALG/alg_show_gebouw.asp
@@ -164,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();
--- a/APPL/ALG/alg_show_locatie.asp
+++ b/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()
@@ -91,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"});
@@ -140,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();

--- a/APPL/ALG/alg_show_regio.asp
+++ b/APPL/ALG/alg_show_regio.asp
@@ -67,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" });
--- a/APPL/ALG/alg_show_ruimte.asp
+++ b/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;
@@ -187,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 ({
--- a/APPL/ALG/alg_show_terreinsector.asp
+++ b/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"
--- a/APPL/ALG/alg_show_wp.asp
+++ b/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();

@@ -76,22 +75,14 @@ var wp_typ_str = (wp_type == 1 ? L("lcl_wptype_1") : L("lcl_wptype_0"));

  <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,
@@ -116,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();
--- a/APPL/ALG/alg_terreinsector_list.inc
+++ b/APPL/ALG/alg_terreinsector_list.inc
@@ -82,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>
@@ -158,6 +167,7 @@ function terrein_list(pautfunction, params)
                                   outputmode: outputmode,
                                   flexModule: "ALG",
                                   flexId: "alg_terreinsector_key",
+                                   flexParams: fnrowFlexParams,
                                   filterParams: params,
                                   buttons: addButton
                                  });
--- a/APPL/ALG/alg_terreinsector_search.asp
+++ b/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 -->
--- a/APPL/ALG/alg_verdieping_list.inc
+++ b/APPL/ALG/alg_verdieping_list.inc
@@ -90,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>
@@ -164,6 +173,7 @@ function verdiepingen_list(pautfunction, params)
                                   outputmode: outputmode,
                                   flexModule: "ALG",
                                   flexId: "alg_verdieping_key",
+                                   flexParams: fnrowFlexParams,
                                   filterParams: params,
                                   rowData: fnrowData,
                                   rowActionEnabler: fnrowActionEnabler,
--- a/APPL/ALG/alg_verdieping_search.asp
+++ b/APPL/ALG/alg_verdieping_search.asp
@@ -68,7 +68,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 -->
--- a/APPL/ALG/alg_werkplek_list.inc
+++ b/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)
@@ -80,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_change")%>", {callback: refreshall });
-    }
 </script>
 <%

@@ -149,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, "
@@ -203,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",
@@ -215,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
                                  });

@@ -227,7 +258,8 @@ function werkplek_list(pautfunction, params)
        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)
@@ -241,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")});
--- a/APPL/ALG/alg_werkplek_search.asp
+++ b/APPL/ALG/alg_werkplek_search.asp
@@ -72,7 +72,7 @@ var authparams = alg.checkAutorisation();
 <%    BLOCK_END();

  var buttons =  [ {title: L("lcl_search"), action: "document.forms.u2.submit();", id: "bSearch" } ];
-  CreateButtons(buttons);
+  CreateButtons(buttons, { entersubmit: true });
 %>
      </form>
    </div> <!-- search -->
--- a/APPL/ALG/alg_wp.asp
+++ b/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%>";
          <% } %>
      }
--- a/APPL/ALG/get_volgnr_ajax.asp
+++ b/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 };
--- a/APPL/ALG/load_kenmerk.asp
+++ b/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
                         });
 %>
--- a/APPL/API/api.asp
+++ b/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);
 %>
--- a/APPL/API/api.inc
+++ b/APPL/API/api.inc
@@ -57,9 +57,54 @@ function API_func(APIname, APIKEY)

 API_func.prototype.error = function (msg)
 {
-    Response.Status = "500 Internal server error";
-    Response.Write(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;
+}
+
 %>
--- a/APPL/API/api_SOAP.asp
+++ b/APPL/API/api_SOAP.asp
@@ -123,17 +123,21 @@ try
    for (i=0; i < filters.length; i++)
    {
        var filterName = filters[i].baseName;
+        var found = false;
        for (xx in requestData.filter) // kennen we dit filter?
        {
            if (filterName == xx)
            {
+                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 : "EQ"
-                              }
+                                operand : "LIKE"
+                              };
+                    wildtext += "%";
                }
                else
                {
@@ -169,7 +173,7 @@ try
                        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(filters[i].text))
+                        wheres.push("UPPER("+colHash.colName + ") LIKE " + safe.quoted_sql_wild(wildtext))
                        break;
                    case "LT":
                        wheres.push(""+colHash.colName + " < " + criterium)
@@ -186,6 +190,23 @@ try
                }
            }
        }
+        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
--- a/APPL/API/api_besordsoap.asp
+++ b/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,9 +73,9 @@
    {
        var FCLTdata = xmlResp.createElement(param);
        FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
-        FCLTHeader.appendChild(FCLTdata);
+        elmHeader.appendChild(FCLTdata);
    }
-    FCLTElement.appendChild(FCLTHeader);
+    FCLTElement.appendChild(elmHeader);

    // Hier zou het echte werk moeten gebeuren nav. xmlReq
    // en FCLTElement moeten we uitbreiden met antwoorden.
@@ -88,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";
@@ -124,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";
                            }
@@ -154,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.
@@ -178,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";
                            }
@@ -193,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 = {
@@ -320,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)
+    }
 %>
--- a/APPL/API/api_bessoap.asp
+++ b/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)
+   }
+%>
--- a/APPL/API/api_bezsoap.asp
+++ b/APPL/API/api_bezsoap.asp
@@ -56,155 +56,239 @@
        }

 */
-    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';
+// 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 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 + ")");


-    var tsql = "-";        // Voor tijdelijke statement(s)
-    var sql = "-";         // De uiteindelijke insert/update-sql
-    var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
-    xmlReq.load(Request);
+SaveOneAfspraak(json_data); // The one and only

-    // 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 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)
+// 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))
    {
-        var FCLTdata = xmlResp.createElement(param);
-        FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
-        FCLTHeader.appendChild(FCLTdata);
+      resultcode = 2;
+      resulttekst = "Undefined vertrek tijd";
    }
-    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 meldingenloop (mochten er ooit nog anderen gaan volgen).
-    var afspraken = xmlReq.getElementsByTagName("afspraak");
-    for (i=0; i < reserveringen.length; i++)
+    else if (date_to < date_from)
    {
-        var resultcode = -1;   /* Zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed). */
-        var resulttekst = "";
+      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;

-        // Lees per node de (optionele) tags en waarden.
-        var fields = []; // Bij te werken velden.
-        var afsid         = afspraken[i].getAttribute("key"); // Bij type=update/delete
-        var afsaction     = afspraken[i].getAttribute("type").toLowerCase();
-        var ruimtekey     = XMLval(afspraken[i], "gebouwkey");
-        var van           = XMLval(afspraken[i], "van");
-        var tot           = XMLval(afspraken[i], "tot");
-
-        if (afsid == null) { // Voorkom problemen als key-attribuut ontbreekt (zoals bij insert)!
-          afsid = '';
-        }
-        var afspraak_key   = afsid; // En anders bepaald bij insert!
-
-        user.checkAutorisation("WEB_BEZUSE");
-
-        if (afsaction == 'insert') {
-            // met default action, geen omschrijving, geen parkeerplaats
-
-
-
-
-
-
-                sql = "INSERT INTO bez_afspraak etc"
-
-
-
-
-
-
-
-
-
-        }
-        else if (afsaction == 'delete') {
-          if (afsid == '') {
-            resultcode = 2;
-            resulttekst = "Undefined reservering (key)";
-          }
-          else {
-
-
-
-
-
-
-
-
-            sql = "DELETE FROM bez-afspraak etc"
-
-
-
-
-
-
-
-
-
-
-          }
-       	}
-        else {
-          resultcode = 2;
-          resulttekst = "Undefined operation (type)";
-        }
-
-        var binfo = {
-                     returncode: resultcode,
-                     returntekst: resulttekst,
-                     // executed:sql,   // debug
-                     datum: nowtxt,
-                     resid: resid
-                    }
-
-        var FCLTBody = xmlResp.createElement("afspraak");   // type=response
-        FCLTBody.setAttribute('key', afsid);
-        FCLTBody.setAttribute('type', 'response');
-        for (param in binfo)
+      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
        {
-            var FCLTdata = xmlResp.createElement(param);
-            FCLTdata.appendChild(xmlResp.createTextNode(binfo[param]));
-            FCLTBody.appendChild(FCLTdata);
+          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;

-        FCLTElement.appendChild(FCLTBody);
-    } // end for
-    // Alle nodes zijn behandeld.
+        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 });

-    xmlResp.appendChild(FCLTElement);
+          // 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" }
+                        ];

-    Response.ContentType = "text/xml";
-    Response.Write(xmlResp.xml)
+          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)
 %>
--- a/APPL/API/api_cntsoap.asp
+++ b/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,9 +56,9 @@
    {
        var FCLTdata = xmlResp.createElement(param);
        FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
-        FCLTHeader.appendChild(FCLTdata);
+        elmHeader.appendChild(FCLTdata);
    }
-    FCLTElement.appendChild(FCLTHeader);
+    FCLTElement.appendChild(elmHeader);

    // Hier zou het echte werk moeten gebeuren nav. xmlReq
    // en FCLTElement moeten we uitbreiden met antwoorden.
--- a/APPL/API/api_inssoap.asp
+++ b/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;
+    }
+%>
--- a/APPL/API/api_mldsoap.asp
+++ b/APPL/API/api_mldsoap.asp
@@ -35,8 +35,21 @@
    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");

@@ -49,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,
@@ -61,9 +74,9 @@
    {
        var FCLTdata = xmlResp.createElement(param);
        FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
-        FCLTHeader.appendChild(FCLTdata);
+        elmHeader.appendChild(FCLTdata);
    }
-    FCLTElement.appendChild(FCLTHeader);
+    FCLTElement.appendChild(elmHeader);

    // Hier zou het echte werk moeten gebeuren nav. xmlReq
    // en FCLTElement moeten we uitbreiden met antwoorden.
@@ -79,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)
@@ -91,8 +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");
+        //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
@@ -124,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"
@@ -196,6 +229,9 @@
                    // 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++)
                    {
@@ -249,7 +285,25 @@
                              }
                              else
                              {
-                                ksql = "INSERT INTO mld_kenmerkmelding (mld_kenmerk_key, mld_melding_key, mld_kenmerkopdr_waarde) "
+                                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);
@@ -329,8 +383,17 @@

    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.
--- a/APPL/API/api_opdrsoap.asp
+++ b/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,9 +23,8 @@
 <!-- #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';

@@ -42,25 +40,49 @@
      }
    }

-    var tsql = "-";     // Voor tijdelijke statement
-    var sql = "-";      // De uiteindelijke update-sql
+    //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 (API.apidata.loglevel) __Log2File(xmlReq.xml, APIname + "_IN");
+        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,
@@ -72,345 +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);

-    // 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++)
    {
-        var resultcode = -1;        /* zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed) */
+        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) 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 mld_fields      = [];   // bij te werken velden
-        var opdr_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");
+        // 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 opdrgereed      = XMLval(opdrachten[i], "datumgereed");
-        var opdrkosten      = XMLval(opdrachten[i], "kosten");
-        var opdrkenmerken   = (opdrachten[i].getElementsByTagName("kenmerk"));
+        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

+        var txt_mut_datum   = XMLval(opdrachten[i], "mut_datum"); // UPD
+        var opdrstatus      = XMLval(opdrachten[i], "status"); // UPD
+        var opdropmerking   = XMLval(opdrachten[i], "opmerking"); // UPD

-        var idarr = opdrid.split('/');
-        var mldkey = parseInt(idarr[0], 10);
-        var opdrvolgnr = parseInt(idarr[1], 10);
+        var opdrgereed      = XMLval(opdrachten[i], "datumgereed"); // NEW/UPD
+        var opdrkosten      = XMLval(opdrachten[i], "kosten"); // NEW/UPD
+        var opdrkenmerken   = (opdrachten[i].getElementsByTagName("kenmerk")); // NEW/UPD

-        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 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 (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))
+        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);
-
-                    sql = "SELECT mld_stdmelding_autoorder"
-                        + "  FROM mld_stdmelding ms"
-                        + " WHERE mld_stdmelding_key = " + mld_opdr.stdm_key;
-                    var oRs = Oracle.Execute(sql);
-                    var autoorder = oRs("mld_stdmelding_autoorder").value == 1;
-
-                    var mut_datum = new Date();
-                    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 = new Date(); // 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)
+                    // 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)
+                        {
+                            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
+                            {
+                                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.
                    {
-                        // 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) // Antidateren voor SLA rapportages.
+                        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);
-                                }
-                            }
-                        }
+                                    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 }
+                                            ]
+                                });

-                        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);
-                                Oracle.Execute(mldUpd.sql);
-                                mld.trackmeldingupdate(mld_opdr.mld_key, L("lcl_mld_is_updatedbysoap") + "\n" + mldUpd.trackarray.join("\n"));
-                                if (mut_datum) // Antidateren 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')
-                            {
-                              // we ondersteunen alleen nog maar karakter 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 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));
-                                }
-
-
-
-                                // 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)
-                                  // 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 (mldkey, 5); // Afgemeld
-                                    var sql = "BEGIN fac.backtrackaction('MLDAFM', " + mldkey + ", " + user_key + ", " + mut_datum.toSQL(true) +"); END;"
-                                    Oracle.Execute(sql); // Statuswijzigingen wel even tracken
-                                    mld.trackmeldingupdate(mldkey, 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 (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
-                   }
+                     // executed:sql,   // debug
+                     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);
@@ -420,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)
+    }
+%>
--- a/APPL/API/api_perslid.asp
+++ b/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);
+}
+%>
--- a/APPL/API/api_ressoap.asp
+++ b/APPL/API/api_ressoap.asp
@@ -58,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,
@@ -70,9 +70,9 @@
    {
        var FCLTdata = xmlResp.createElement(param);
        FCLTdata.appendChild(xmlResp.createTextNode(headerinfo[param]));
-        FCLTHeader.appendChild(FCLTdata);
+        elmHeader.appendChild(FCLTdata);
    }
-    FCLTElement.appendChild(FCLTHeader);
+    FCLTElement.appendChild(elmHeader);

    // Hier zou het echte werk moeten gebeuren nav. xmlReq
    // en FCLTElement moeten we uitbreiden met antwoorden.
@@ -234,7 +234,7 @@
                          { dbs: "res_status_bo_key",             typ: "key",      val: 2 } // ingevoerd
                        ]);

-              var resIns = buildInsert("res_rsv_ruimte", fields);
+              var resIns = buildInsert("res_rsv_ruimte", fields, { noValidateToken: true });
              rsv_ruimte_key = resIns.sequences["res_rsv_ruimte_key"];
              sql = "BEGIN "
                  + resIns.sql + ";"
--- a/APPL/API/api_ressoap_info.asp
+++ b/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;
+    }
+}
+%>
--- a/APPL/API/phonebook_js.asp
+++ b/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" -->
--- a/APPL/API/shorturl.asp
+++ b/APPL/API/shorturl.asp
@@ -33,7 +33,8 @@
            + "       fac_bookmark_query,"
            + "       prs_perslid_key_auth,"
            + "       fac_bookmark_unauth_url,"
-            + "       fac_bookmark_expire"
+            + "       fac_bookmark_expire,"
+            + "       fac_bookmark_refreshtime"
            + "  FROM fac_bookmark"
            + " WHERE fac_bookmark_id = " + safe.quoted_sql(u);
    var oRs = Oracle.Execute(sql);
@@ -51,6 +52,7 @@
    }

    var url = oRs("fac_bookmark_path").Value;
+    var refresher = oRs("fac_bookmark_refreshtime").Value;

    if (oRs("prs_perslid_key_auth").Value)
    {
@@ -59,25 +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)
    {
        if (keyparam > -1)
        {
            rest = rest.substring(("k="+keyparam).length+1);
-            url += "?" + oRs("fac_bookmark_query").Value + keyparam + (rest?"&"+rest:"");
+            params += keyparam;
        }
-        else
-        {
-            url += "?" + oRs("fac_bookmark_query").Value + (rest?"&"+rest:"");
-        }
-
+        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);
 %>

--- a/APPL/API2/api2.inc
+++ b/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");
+}
+%>
--- a/APPL/API2/api_appointments.asp
+++ b/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);
+%>
--- a/APPL/API2/api_buildings.asp
+++ b/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);
+%>
--- a/APPL/API2/api_districts.asp
+++ b/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);
+%>
--- a/APPL/API2/api_locations.asp
+++ b/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);
+%>
--- a/APPL/API2/api_persons.asp
+++ b/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);
+%>
--- a/APPL/API2/api_regions.asp
+++ b/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);
+%>
--- a/APPL/API2/api_reservablerooms.asp
+++ b/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);
+%>
--- a/APPL/API2/api_reservations.asp
+++ b/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);
+%>
--- a/APPL/API2/api_visitors.asp
+++ b/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);
+%>
--- a/APPL/API2/model_appointments.inc
+++ b/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);
+    }
+}
+%>
--- a/APPL/API2/model_buildings.inc
+++ b/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 */
+    {
+    }
+}
+%>
--- a/APPL/API2/model_districts.inc
+++ b/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 */
+    {
+    }
+}
+%>
--- a/APPL/API2/model_locations.inc
+++ b/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 */
+    {
+    }
+}
+%>
--- a/APPL/API2/model_persons.inc
+++ b/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 */
+    {
+    }
+}
+%>
--- a/APPL/API2/model_regions.inc
+++ b/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 */
+    {
+    }
+}
+%>
--- a/APPL/API2/model_reservablerooms.inc
+++ b/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 */
+    {
+    }
+}
+%>
--- a/APPL/API2/model_reservations.inc
+++ b/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 */
+    {
+    }
+}
+%>
--- a/APPL/API2/model_visitors.inc
+++ b/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);
+    }
+}
+%>
--- a/APPL/BES/DynArtikelInfo.asp
+++ b/APPL/BES/DynArtikelInfo.asp
@@ -123,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);
@@ -142,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?
--- a/APPL/BES/ModalForm.asp
+++ b/APPL/BES/ModalForm.asp
@@ -8,7 +8,7 @@

 <html>
  <head>
-    <title><%=titleString%></title>
+    <title><%=safe.html(titleString)%></title>
    <script>
        function closeModal(retval)
        {
--- a/APPL/BES/addFavourites.asp
+++ b/APPL/BES/addFavourites.asp
@@ -102,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'"
--- a/APPL/BES/bes.inc
+++ b/APPL/BES/bes.inc
@@ -74,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)
        {
@@ -89,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"
@@ -109,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)
@@ -141,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?
@@ -203,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();
@@ -254,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);
              }

@@ -287,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);
@@ -298,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)
@@ -344,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();

@@ -399,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();
@@ -435,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)
@@ -451,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()
            }

@@ -470,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();
@@ -536,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,
@@ -586,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") ||
@@ -622,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);
@@ -657,69 +726,96 @@
                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;
                            break;
@@ -751,9 +847,9 @@
                      + "   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",
@@ -763,7 +859,9 @@
                                              false, // pessimist
                                              false); // isOptional

-              bresult.canRead = bresult.canRead("WEB_BESBOF") || 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
@@ -852,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))
                  }
                }
              }
@@ -894,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;
                }
              }
@@ -940,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";
@@ -948,7 +1046,7 @@
            if (!oRs.eof)
            {
              // Korting tot grenswaarde
-              opdrachtkorting = oRs("opdrachtkorting").value;
+              opdrachtkorting = oRs("opdrachtkorting").Value;
            }

            // Nieuw subtotaal: Bestelbedrag - alle kortingen
@@ -962,7 +1060,7 @@
            if (!oRs.eof)
            {
              // Korting tot grenswaarde
-              grenswaardetot = oRs("grenswaarde").value;
+              grenswaardetot = oRs("grenswaarde").Value;
            }

            // Nu grenswaarde bepalen vanaf
@@ -976,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"
@@ -993,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
@@ -1048,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;
@@ -1064,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)
@@ -1073,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
@@ -1093,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;
            }
          }
@@ -1116,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
@@ -1133,7 +1230,7 @@
        // Bepaal AGB limiet
        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
@@ -1191,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;
@@ -1204,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");
      },
@@ -1258,13 +1355,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_txt.push(txt);
-          l_orders_key.push(oRs("bes_bestelopdr_key").value);
+          l_orders_key.push(oRs("bes_bestelopdr_key").Value);
          oRs.MoveNext();
        }
        oRs.Close();
@@ -1272,8 +1369,40 @@
                 , 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;
      }
-
    }
-
- %>
+%>
--- a/APPL/BES/bes_accept.asp
+++ b/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));
--- a/APPL/BES/bes_approve.asp
+++ b/APPL/BES/bes_approve.asp
@@ -84,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(bes_bestelling.bes_key, bes_bestelling.perslid_key_voor, bes_bestelling.fiatteur_key);
+      message = bes.sendNeedApprovalNotification(ingesloten[i].bes_key, ingesloten[i].fiatteur_key);
  }

  result.success = true;
--- a/APPL/BES/bes_bestelling.asp
+++ b/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", "leverdatum", "flex_defaults"]); // 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

@@ -162,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('/');
--- a/APPL/BES/bes_delete.asp
+++ b/APPL/BES/bes_delete.asp
@@ -67,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;

@@ -106,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;
@@ -119,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
    {
--- a/APPL/BES/bes_edit_bestelling.asp
+++ b/APPL/BES/bes_edit_bestelling.asp
@@ -105,7 +105,10 @@ else // nieuwe bestelling. Defaults bepalen
    bes_bestelling.rfoDeliverydate = new Date(leverdatum);
  else
  {
-    bes_bestelling.rfoDeliverydate = new Date();
+    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')"
@@ -142,7 +145,7 @@ 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 if (!fronto)
@@ -155,7 +158,7 @@ else // nieuwe bestelling. Defaults bepalen
    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.
@@ -493,15 +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);
-              // Droom: niet reloaden igv geen persoonsafhankelijke kenmerken; dat weet ik hier echter niet..
-              // TEST: wat als niet bes_voor?
-              var s = "load_kenmerk.asp?urole=<%=urole%>"
-                    + "&bes_key=<%=bes_bestelling.bes_key%>"
-                    + "&disc_key="+ dis_key
-                    + "&kenmerktype=B"
-                    + (bes_key > 0 && !this_bes.canMainChange? "&reado=1" : "")   // testen
-                    + "&prs_key=" + p_key;
-              $("#besFlexList").load(s, function () { FcltMgr.resized () });
+              // 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>
@@ -621,7 +626,8 @@ 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) || leverdatum,
              saveValue: (leverdatum!=null), // wel submitten
@@ -631,6 +637,9 @@ else // nieuwe bestelling. Defaults bepalen
        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")
@@ -656,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,
                     {
@@ -789,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>
--- a/APPL/BES/bes_edit_bestelling_save.asp
+++ b/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), 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
+
+// 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
@@ -400,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
@@ -513,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>
--- a/APPL/BES/bes_edit_opdr.asp
+++ b/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,23 +36,25 @@ 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_BESBOF';

-  var authparams = user.checkAutorisation(autfunction);
-  // TODO: Scherper
-  user.auth_required_or_abort(authparams.ALGwritelevel < 9 && authparams.PRSwritelevel < 9);
+  var authparams = user.checkAutorisation("WEB_BESBOF");
+  user.auth_required_or_abort(this_bestelopdr.canChange);

  var submitting = getQParamInt("submit", 0) == 1;
  if (submitting)
  {
    protectRequest.validateToken();

-    itemregels = getFParamInt("itemregels");
+    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++)
    {
      cnt  = getFParamInt('cnt' + i);
@@ -66,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", len: 320 },
-                    { 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)
@@ -83,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>
@@ -181,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,
@@ -210,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>
 <%

--- a/APPL/BES/bes_fe_menu.asp
+++ b/APPL/BES/bes_fe_menu.asp
@@ -32,26 +32,32 @@ var disckey = getQParamInt("disc",0);

          //urole=func_enabled["WEB_BESUSE"]?"fe":"fo";  // fe-menu, dus wat willen we hier nou echt?
          urole="fe";
-          FcltMgr.openDetail("appl/bes/bes_bestelling.asp?urole="+urole+"&artikel_key="+p_product_key+"&dis_key="+p_disc_key, 'Bestelling');
+          FcltMgr.openDetail("appl/bes/bes_bestelling.asp?urole="+urole+"&artikel_key="+p_product_key+"&dis_key="+p_disc_key);
 	    }

       $(function ()
-         {
-            jQuery('#accordion').accordion({collapsible: true,
-                                            active: false,
-                                            heightStyle: "content",
-                                            autoHeight: false,
-                                            activate: FcltMgr.resized,
-                                            beforeActivate: function(event, ui)
-                                            {  // delay load images
-                                                    $("img", ui.newPanel ).each(function ()
-                                                            {
-                                                                this.src = this.getAttribute("theSrc");
-                                                            }
-                                                         );
-                                                }
-                                            });
-         });
+       {    // Noot: vrijwel identieke code te vinden in mld_fe_menu.asp
+            var accord = $('#accordion');
+            var nnheads = accord.children("h3").length; // Voordat accordion de DOM heeft aangepast
+
+            accord.accordion({collapsible: true,
+                              active: false,
+                              heightStyle: "content",
+                              autoHeight: false,
+                              activate: FcltMgr.resized,
+                              beforeActivate: function(event, ui)
+                              {  // delay load images
+                                      $("img", ui.newPanel ).each(function ()
+                                              {
+                                                  this.src = this.getAttribute("theSrc");
+                                              }
+                                           );
+                                  }
+                              });
+
+            if (nnheads == 1) // Dan direct openklappen
+                accord.accordion({ active: 0 });
+       });
    </script>
  </head>

@@ -113,9 +119,12 @@ while (!oRs.Eof)
        pos = 0;
    }
    // Wel erg hard...
-    if (oRs("foto").Value){
-         icon = oRs("foto");
-         l_icon = icon.value;
+    if (oRs("foto").Value)
+    {
+         icon = oRs("foto").Value;
+         if (icon.indexOf("/") == -1) // Nog geen enkele slash? Dan moet het wel lokaal zijn.
+            icon = S("bes_image_path") + oRs("disc_key").Value + "/" + icon;
+         l_icon = icon;
         l_index = l_icon.lastIndexOf('.');
         if (l_index != -1){
            l_icon=l_icon.substr(l_index+1);
--- a/APPL/BES/bes_flexkenmerk.inc
+++ b/APPL/BES/bes_flexkenmerk.inc
@@ -135,7 +135,7 @@ function generateFlexKenmerkCode(params)
          +   " AND k.bes_kenmerk_verwijder IS NULL"
          +   " AND k.bes_srtkenmerk_key = sk.bes_srtkenmerk_key"
          +   " AND sk.bes_srtkenmerk_verwijder IS NULL"
-          +   " AND k.bes_kenmerk_type = '" + kenmerktype + "'"
+          +   " AND k.bes_kenmerk_type = " + safe.quoted_sql(kenmerktype)
          + (!besman ? " AND k.bes_kenmerk_volgnummer < 900 ":"")
          +   " ORDER BY k.bes_kenmerk_volgnummer, UPPER("+lcl.xsql('sk.bes_srtkenmerk_omschrijving', 'sk.bes_srtkenmerk_key')+")";

--- a/APPL/BES/bes_hook_punch.asp
+++ b/APPL/BES/bes_hook_punch.asp
@@ -43,7 +43,7 @@
    quantity            = parseInt(punchNVL("NEW_ITEM-QUANTITY[#]",i, "-1"),10);
    unitOfMeasure       = punchNVL("NEW_ITEM-UNIT[#]",i, '');
    price               = punchNVL("NEW_ITEM-PRICE[#]",i, '');
-    eenheid             = punchNVL("NEW_ITEM-UNIT[#]",i, "Onbekend");
+    // eenheid             = punchNVL("NEW_ITEM-UNIT[#]",i, "Onbekend");
    vendorProductNumber = punchNVL("NEW_ITEM-VENDORMAT[#]",i, '');
    vendor              = punchNVL("NEW_ITEM-VENDOR[#]",i, '');
    opmerking           = punchNVL("NEW_ITEM-LONGTEXT_#:132[]",i, '');
@@ -64,7 +64,7 @@
          + "     , " + safe.quoted_sql(unitOfMeasure, 30)       // bes_srtdeel_eenheid
          + "     , " + safe.quoted_sql(vendorProductNumber, 32) // bes_srtdeel_nr
          + "     , -1 "
-          + "     , sysdate "
+          + "     , NULL "                                       // vervaldatum
          + "     , ''"
          + "     , 1 "
          + "     , " + safe.quoted_sql(opmerking, 2000) + "); END;";
@@ -82,7 +82,7 @@
          + "   AND sg.bes_srtgroep_key = sd.bes_srtgroep_key "
          + "   AND sg.bes_srtgroep_omschrijving = " + safe.quoted_sql(productGroup, 60) /* NOXLAT */
          + "   AND UPPER(sd.bes_srtdeel_omschrijving) = " + safe.quoted_sql_upper(description, 100)  /* NOXLAT */
-          + "   AND sd.bes_srtdeel_eenheid = " + safe.quoted_sql(unitOfMeasure, 30)
+          + "   AND sd.bes_srtdeel_eenheid " + (unitOfMeasure? "= " + safe.quoted_sql(unitOfMeasure, 30): " IS NULL")
          + "   AND sd.bes_srtdeel_nr = " + safe.quoted_sql(vendorProductNumber, 32)
          + " ORDER BY sd.bes_srtdeel_key DESC ";

--- a/APPL/BES/bes_list.inc
+++ b/APPL/BES/bes_list.inc
@@ -70,11 +70,7 @@ FCLTHeader.Requires({ plugins:["jQuery"],
                    });

 function bes_list (pautfunction, params)
-{ // VALIDATE AND PREPARE
-  // Als een parameter niet gedefinieerd of null is, dan doet-ie niks
-  // anders wordt die verondersteld een zinvolle waarde te hebben
-  // NB: -1 is vaak geen zinvolle waarde; null had het dan moeten zijn!
-
+{
  // Valid and supported parameters are:
  // params.urole         : the usuals two-letter lowercase string
  // params.outputmode    : print to 0 = screen, 1 = printer, 2 = excel, etc.
@@ -110,7 +106,6 @@ function bes_list (pautfunction, params)
  // params.besordstlev   : boolean (true | false)
  // params.besordstver   : boolean (true | false)

-  // De functie checkAutorisation(autfunction) geeft een Response.End indien er geen autorisatie voor autfunction wordt gevonden
  var authparams = user.checkAutorisation(pautfunction);

  var urole = params.urole;
@@ -135,6 +130,8 @@ function bes_list (pautfunction, params)
  var supplier_key = params.supplier_key;
  var groupbes = params.groupbes;
  var groupbes2 = params.groupbes2;
+  if (groupbes == 12) // geen groepering?
+    groupbes2 = null; // Dan zeker geen niveau 2
  var requestor_key = params.requestor_key;
  var personfor_key = params.personfor_key;
  var company_key = params.company_key;
@@ -199,6 +196,18 @@ function bes_list (pautfunction, params)
        return S("bes_bestelling_prefix") + (oRs.fields("bes_bestelling_parentkey").value > 0 ? oRs.fields("bes_bestelling_parentkey").value + "*" : oRs.fields("bes_bestelling_key").value);
      }

+      function fncolOordeel(oRs)
+      {
+        var result = null;
+        var displ_val = oRs("oordeel").Value;
+        var displ_txt = oRs("oordeel_opm").Value;
+        if (displ_val)
+        {
+          result = "<span id='oordeel' title='" + safe.htmlattr(displ_txt)+"'>" + displ_val + "</span>";
+        }
+        return result;
+      }
+
      /**********************************************
       * End general Callback functies ResultsetTable
       *********************************************/
@@ -211,7 +220,7 @@ function bes_list (pautfunction, params)
        if (pcatalogus_key || pgroep_key || pitem_key)
        {
          sqlDGI = (minfo && (groupbes == 1 || groupbes == 6) // Management Info Opdrachten
-                   ? " AND b.bes_bestelopdr_key IN"
+                   ? " AND bo.bes_bestelopdr_key IN"
                     + " (SELECT bes_bestelopdr_key"
                     + " FROM bes_bestelopdr_item boi"
                     + ", bes_bestelling_item bi"
@@ -269,6 +278,31 @@ function bes_list (pautfunction, params)
        return sqlDGI;
      }

+      function makeDisGroepItemsFilter(pcatalogus_key, pgroep_key, pitem_key, pitem)
+      {
+        var filterDGI = "";
+        if (pitem_key) // Item filter
+        {
+          filterDGI = " AND srt.bes_srtdeel_key = " + pitem_key;
+        }
+        else
+        {
+          if (pgroep_key) // Groep filter
+          {
+            filterDGI = " AND grp.bes_srtgroep_key = " + pgroep_key;
+          }
+          else
+          {
+            if (pcatalogus_key) // Catalogus filter
+            {
+              filterDGI = " AND dis.ins_discipline_key = " + pcatalogus_key;
+            }
+          }
+        }
+        return filterDGI;
+      }
+
+
      // Management Info
      if (minfo) // Management Info
      {
@@ -290,12 +324,15 @@ function bes_list (pautfunction, params)
          sql_date = " < " + ora_date2;
        }

-        var sql_filter = "";
+        // Embargo bestellingen uitsluiten (als er eentje met parent is, willen we die zonder niet zien).
+        var sql_filter = " AND NOT EXISTS (SELECT b1.bes_bestelling_key"
+                       + "                   FROM bes_bestelling b1"
+                       + "                  WHERE bes_bestelling_parentkey = b.bes_bestelling_key)";

        if (params.mld_key)
            sql_filter += " AND b.mld_melding_key = " + params.mld_key;

-        if ((groupbes == 0) || (groupbes == 2) || (groupbes == 3) ||
+        if ((groupbes == 12) || (groupbes == 0) || (groupbes == 2) || (groupbes == 3) ||
            (groupbes == 4) || (groupbes == 5) || (groupbes == 7) ||
            (groupbes == 8) || (groupbes == 10) || (groupbes == 11))
        {
@@ -417,6 +454,59 @@ function bes_list (pautfunction, params)
          return safe.html(bestellingvoor);
        }

+        var tot_aantal_bes = 0;
+        var tot_aantal_art = 0
+        var tot_totaalbedrag = 0;
+        var tot_inktotaalbedrag = 0;
+        var sum_satisfaction = 0;
+        var cnt_satisfaction = 0;
+        var aantal_oordeel = 0;
+
+        function fntotalCalc(oRs)
+        {
+          tot_totaalbedrag += oRs("totaalbedrag").Value;
+          tot_inktotaalbedrag += oRs("inktotaalbedrag").Value;
+
+          if (groupbes == 0)
+          { // Totaal oordeel is alle cijfers opgeteld gedeeld door het aantal beoordelingen.
+            if (oRs("oordeel").Value)
+            {
+              sum_satisfaction += oRs("oordeel").Value;
+              aantal_oordeel++;
+            }
+          }
+          else
+          {
+            tot_aantal_bes += oRs("aantalbes").Value;
+            if (groupbes == 12 || groupbes == 5)
+              tot_aantal_art += oRs("aantalart").Value;
+
+            if (groupbes != 12)
+            { // Totaal oordeel is alle cijfers opgeteld gedeeld door het aantal beoordelingen.
+              sum_satisfaction += oRs("sum_satisfaction").Value;
+              cnt_satisfaction += oRs("cnt_satisfaction").Value;
+            }
+          }
+        }
+
+        function fntotalShow(column, nrlines)
+        {
+          var result = "";
+          switch (column.caption)
+          {
+            case L("lcl_bes_amount_key")   : result = tot_aantal_bes; break;
+            case L("lcl_bes_artamount")    : result = tot_aantal_art; break;
+            case L("lcl_bes_oordeel")      : if (groupbes == 0)
+                                               result = aantal_oordeel > 0? safe.displayfloat(sum_satisfaction/aantal_oordeel, 1) : "";
+                                             else
+                                               result = cnt_satisfaction > 0? safe.displayfloat(sum_satisfaction/cnt_satisfaction, 1) : "";
+                                             break;
+            case L("lcl_rfo_total_sum_eur"): result = safe.curr(tot_totaalbedrag); break;
+            case L("lcl_rfo_total_inksum") : result = safe.curr(tot_inktotaalbedrag); break;
+          }
+          return result;
+        }
+
        /**************************************************
         * End callback functies ResultsetTable for only MI
         *************************************************/
@@ -430,7 +520,7 @@ function bes_list (pautfunction, params)
              + ", bes_bestelling_datum"
              + ", bes_bestelling_retourvan_key"
              + ", " + S("prs_pers_string") + " requestor"
-              + ", " + S("prs_dep_string") + " organisation "
+              + ", " + S("prs_dep_string") + " organisation"
              + ", (SELECT " + S("prs_pers_string")
                + " FROM prs_perslid p"
                + " WHERE p.prs_perslid_key = b.prs_perslid_key_voor) ordervoor";
@@ -444,10 +534,13 @@ function bes_list (pautfunction, params)
                       + ", " + S("prs_dep_string")
                       + ", b.bes_bestelling_status"
                       + ", b.bes_bestelling_module"
+                       + ", b.bes_bestelling_satisfaction"
                       + ", b.prs_perslid_key_voor";

          sql += ", b.bes_bestelling_status"
               + ", b.bes_bestelling_module"
+               + ", b.bes_bestelling_satisfaction oordeel"
+               + ", MAX(b.bes_bestelling_satisfaction_op) oordeel_opm"
               + " , SUM( bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_prijs, 0)) totaalbedrag"
               + " , SUM( bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag"
               + " FROM bes_bestelling_item bi"
@@ -470,10 +563,7 @@ function bes_list (pautfunction, params)
               + " AND d.prs_afdeling_key = boom.prs_afdeling_key"
               + " AND b.mld_adres_key_lev = m.mld_adres_key"
               + " AND m.alg_locatie_key = l.alg_locatie_key(+)"
-               + " AND l.alg_district_key = di.alg_district_key(+)"
-               + " AND b.bes_bestelling_key NOT IN (SELECT b1.bes_bestelling_parentkey"
-               + "                                    FROM bes_bestelling b1"
-               + "                                   WHERE b1.bes_bestelling_parentkey IS NOT NULL)";
+               + " AND l.alg_district_key = di.alg_district_key(+)";

          sql += sql_filter;

@@ -505,7 +595,9 @@ function bes_list (pautfunction, params)
                                        filterParams: params,
                                        outputmode: outputmode,
                                        title: L("lcl_bes_bestellingen"),
-                                        showAll: showall
+                                        showAll: showall,
+                                        totalCalc: fntotalCalc,
+                                        totalShow: fntotalShow
                                       });

          // Kolommen
@@ -518,6 +610,7 @@ function bes_list (pautfunction, params)
          rst.addColumn(new Column({caption: L("lcl_rfo_total_sum_eur"), content: "totaalbedrag", datatype: "currency", total: true})); //@@ TODO: AANPASSEN
          if (S("bes_show_inkprijs") == 1)
            rst.addColumn(new Column({caption: L("lcl_rfo_total_inksum"), content: "inktotaalbedrag", datatype: "currency", total: true}));
+          rst.addColumn(new Column({caption: L("lcl_bes_oordeel"), content: fncolOordeel, datatype: "float", decimals: 1, total: true}));

          // Acties
          rst.addAction({image: "../Pictures/spot1.jpg", action: "besEdit;", caption: L("lcl_edit"), isDefault: true});
@@ -559,16 +652,23 @@ function bes_list (pautfunction, params)
          }
        }

+        select_oordeel = ", SUM(b.bes_bestelling_satisfaction) sum_satisfaction"
+                       + ", COUNT(b.bes_bestelling_satisfaction) cnt_satisfaction"
+                       + ", AVG(b.bes_bestelling_satisfaction) oordeel";
+
+
        if ((groupbes == 2) || (groupbes == 7))
        { // Aanvraag - Cluster/Aanvraag - Afdeling (Organisatie niveau 1 en 2)
          sql = "SELECT d.prs_afdeling_key"
-              + ", COUNT(b.bes_bestelling_key) aantalbes"
-              + ", " + S("prs_dep_string") + " afdeling"
-              + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_prijs, 0)) totaalbedrag"
-              + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag";
+              + "     , b.bes_bestelling_key"
+              + "     , " + S("prs_dep_string") + " afdeling"
+              + "     , SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_prijs, 0)) totaalbedrag"
+              + "     , SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag"
+              + select_oordeel;

          sql_group_by = " GROUP BY d.prs_afdeling_key"
-                       + ", " + S("prs_dep_string");
+                       + "        , " + S("prs_dep_string")
+                       + "        , b.bes_bestelling_key";

          if (groupbes2)
          {
@@ -596,13 +696,14 @@ function bes_list (pautfunction, params)
               + " AND p.prs_perslid_key = b.prs_perslid_key"
               + " AND p.prs_afdeling_key = afd.prs_afdeling_key"
               + " AND afd.prs_afdeling_key = boom.prs_afdeling_key"
-               + " AND d.prs_afdeling_key = boom.prs_afdeling_key" + (groupbes == 2? "1" : "2")
+               + " AND d.prs_afdeling_key(+) = boom.prs_afdeling_key" + (groupbes == 2? "1" : "2")
               + " AND b.mld_adres_key_lev = adr.mld_adres_key"
               + " AND adr.alg_locatie_key = l.alg_locatie_key"
               + " AND l.alg_district_key = di.alg_district_key"
               + where2;

          sql += sql_filter;
+          sql += makeDisGroepItemsFilter(catalogus_key, besgroep_key, item_key);

          sql = discx3d (sql,
                         "dis.ins_discipline_key",
@@ -619,7 +720,24 @@ function bes_list (pautfunction, params)
                         2,
                         sql_group_by);

-          //sql += " ORDER BY " + S("prs_dep_string");
+          sql = "SELECT x.prs_afdeling_key"
+              + "     , COUNT(x.bes_bestelling_key) aantalbes"
+              + "     , COALESCE(x.afdeling, ' ') afdeling"
+              + "     , SUM(x.totaalbedrag) totaalbedrag"
+              + "     , SUM(x.inktotaalbedrag) inktotaalbedrag"
+              + "     , SUM(x.sum_satisfaction) sum_satisfaction"
+              + "     , SUM(x.cnt_satisfaction) cnt_satisfaction"
+              + (groupbes2
+                ? "     , x.sel2col sel2col"
+                : "")
+              + "     , AVG(x.oordeel) oordeel"
+              + " FROM (" + sql + ") x"
+              + " GROUP BY x.prs_afdeling_key"
+              + "        , x.afdeling"
+              + (groupbes2
+                ? "        , x.sel2col"
+                : "")
+              + " ORDER BY afdeling";

          var rst = new ResultsetTable({keyColumn: "prs_afdeling_key",
                                        ID: "bestable",
@@ -627,7 +745,9 @@ function bes_list (pautfunction, params)
                                        filterParams: params,
                                        outputmode: outputmode,
                                        title: L("lcl_bes_bestellingen"),
-                                        showAll: showall
+                                        showAll: showall,
+                                        totalCalc: fntotalCalc,
+                                        totalShow: fntotalShow
                                       });

          // Kolommen
@@ -638,6 +758,7 @@ function bes_list (pautfunction, params)
          rst.addColumn(new Column({caption: L("lcl_rfo_total_sum_eur"), content: "totaalbedrag", datatype: "currency", total: true}));
          if (S("bes_show_inkprijs") == 1)
            rst.addColumn(new Column({caption: L("lcl_rfo_total_inksum"), content: "inktotaalbedrag", datatype: "currency", total: true}));
+          rst.addColumn(new Column({caption: L("lcl_bes_oordeel"), content: "oordeel", datatype: "float", decimals: 1, total: true}));

          var count = rst.processResultset();
        }
@@ -645,13 +766,15 @@ function bes_list (pautfunction, params)
        if (groupbes == 8)
        { // Aanvraag - Kostenplaats
          sql = "SELECT k.prs_kostenplaats_key"
-              + ", COUNT(b.bes_bestelling_key) aantalbes"
+              + ", b.bes_bestelling_key"
              + " , " + S("prs_kpn_string") + " kostenplaats"
              + " , SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_prijs, 0)) totaalbedrag"
-              + " , SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag";
+              + " , SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag"
+              + select_oordeel;

          sql_group_by = " GROUP BY k.prs_kostenplaats_key"
-                       + ", " + S("prs_kpn_string");
+                       + "        , " + S("prs_kpn_string")
+                       + "        , b.bes_bestelling_key";

          if (groupbes2)
          {
@@ -684,6 +807,7 @@ function bes_list (pautfunction, params)
               + where2;

          sql += sql_filter;
+          sql += makeDisGroepItemsFilter(catalogus_key, besgroep_key, item_key);

          sql = discx3d (sql,
                         "dis.ins_discipline_key",
@@ -700,7 +824,24 @@ function bes_list (pautfunction, params)
                         2,
                         sql_group_by);

-          sql += " ORDER BY 3";
+          sql = "SELECT x.prs_kostenplaats_key"
+              + "     , COUNT(x.bes_bestelling_key) aantalbes"
+              + "     , x.kostenplaats kostenplaats"
+              + "     , SUM(x.totaalbedrag) totaalbedrag"
+              + "     , SUM(x.inktotaalbedrag) inktotaalbedrag"
+              + "     , SUM(x.sum_satisfaction) sum_satisfaction"
+              + "     , SUM(x.cnt_satisfaction) cnt_satisfaction"
+              + "     , AVG(x.oordeel) oordeel"
+              + (groupbes2
+                ? "   , x.sel2col sel2col"
+                : "")
+              + " FROM (" + sql + ") x"
+              + " GROUP BY x.prs_kostenplaats_key"
+              + "        , x.kostenplaats"
+              + (groupbes2
+                ? "      , x.sel2col"
+                : "")
+              + " ORDER BY 3";

          var rst = new ResultsetTable({keyColumn: "prs_kostenplaats_key",
                                        sql: sql,
@@ -709,7 +850,9 @@ function bes_list (pautfunction, params)
                                        filterParams: params,
                                        outputmode: outputmode,
                                        title: L("lcl_bes_bestellingen"),
-                                        showAll: showall
+                                        showAll: showall,
+                                        totalCalc: fntotalCalc,
+                                        totalShow: fntotalShow
                                       });

          // Kolommen
@@ -720,27 +863,29 @@ function bes_list (pautfunction, params)
          rst.addColumn(new Column({caption: L("lcl_rfo_total_sum_eur"), content: "totaalbedrag", datatype: "currency", total: true}));
          if (S("bes_show_inkprijs") == 1)
            rst.addColumn(new Column({caption: L("lcl_rfo_total_inksum"), content: "inktotaalbedrag", datatype: "currency", total: true}));
+          rst.addColumn(new Column({caption: L("lcl_bes_oordeel"), content: "oordeel", datatype: "float", decimals: 1, total: true}));

          var count = rst.processResultset();
        }

        if ((groupbes == 10) || (groupbes == 11))
        { // District/Locatie -->
-          sql = "SELECT" + (groupbes == 10? " di.alg_district_key" : " l.alg_locatie_key")
-              + ", COUNT(b.bes_bestelling_key) aantalbes"
+          sql = "SELECT" + (groupbes == 10? " di.alg_district_key" : " l.alg_locatie_key") + " dlkey"
+              + "     , b.bes_bestelling_key"
              + (groupbes == 10
-                ? ", di.alg_district_omschrijving"
-                : ", l.alg_locatie_omschrijving")
-                + " dlomschrijving"
-              + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_prijs, 0)) totaalbedrag"
-              + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag";
+                ? "   , di.alg_district_omschrijving"
+                : "   , l.alg_locatie_omschrijving") + " dlomschrijving"
+              + "     , SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_prijs, 0)) totaalbedrag"
+              + "     , SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag"
+              + select_oordeel;

          sql_group_by = " GROUP BY"
                       + (groupbes == 10
                         ? " di.alg_district_key"
-                           + ", di.alg_district_omschrijving"
+                           + "    , di.alg_district_omschrijving"
                         : " l.alg_locatie_key"
-                           + ", l.alg_locatie_omschrijving");
+                           + "    , l.alg_locatie_omschrijving")
+                       + "        , b.bes_bestelling_key";

          if (groupbes2)
          {
@@ -771,6 +916,7 @@ function bes_list (pautfunction, params)
               + where2;

          sql += sql_filter;
+          sql += makeDisGroepItemsFilter(catalogus_key, besgroep_key, item_key);

          sql = discx3d (sql,
                         "dis.ins_discipline_key",
@@ -787,18 +933,34 @@ function bes_list (pautfunction, params)
                         2,
                         sql_group_by);

-//          sql += " ORDER BY"
-//               + (groupbes == 10
-//                 ? " d.alg_district_omschrijving"
-//                 : " l.alg_locatie_omschrijving");
+          sql = "SELECT x.dlkey dlkey"
+              + "     , COUNT(x.bes_bestelling_key) aantalbes"
+              + "     , x.dlomschrijving dlomschrijving"
+              + "     , SUM(x.totaalbedrag) totaalbedrag"
+              + "     , SUM(x.inktotaalbedrag) inktotaalbedrag"
+              + "     , SUM(x.sum_satisfaction) sum_satisfaction"
+              + "     , SUM(x.cnt_satisfaction) cnt_satisfaction"
+              + "     , AVG(x.oordeel) oordeel"
+              + (groupbes2
+                ? "     , x.sel2col sel2col"
+                : "")
+              + " FROM (" + sql + ") x"
+              + " GROUP BY x.dlkey"
+              + "        , x.dlomschrijving"
+              + (groupbes2
+                ? "        , x.sel2col"
+                : "")
+              + " ORDER BY dlomschrijving";

-          var rst = new ResultsetTable({keyColumn: (groupbes == 10? "alg_district_key" : "alg_locatie_key"),
+          var rst = new ResultsetTable({keyColumn: "dlkey",
                                        ID: "bestable",
                                        sql: sql,
                                        filterParams: params,
                                        outputmode: outputmode,
                                        title: L("lcl_bes_bestellingen"),
-                                        showAll: showall
+                                        showAll: showall,
+                                        totalCalc: fntotalCalc,
+                                        totalShow: fntotalShow
                                       });

          // Kolommen
@@ -809,22 +971,42 @@ function bes_list (pautfunction, params)
          rst.addColumn(new Column({caption: L("lcl_rfo_total_sum_eur"), content: "totaalbedrag", datatype: "currency", total: true}));
          if (S("bes_show_inkprijs") == 1)
            rst.addColumn(new Column({caption: L("lcl_rfo_total_inksum"), content: "inktotaalbedrag", datatype: "currency", total: true}));
+          rst.addColumn(new Column({caption: L("lcl_bes_oordeel"), content: "oordeel", datatype: "float", decimals: 1, total: true}));

          var count = rst.processResultset();
        }

-        if ((groupbes == 3) || (groupbes == 4) || (groupbes == 5))
-        { // Aanvraag - Catalogus/Aanvraag - Groep/Aanvraag - Item
+        if ((groupbes == 12) || (groupbes == 3) || (groupbes == 4) || (groupbes == 5))
+        { // Geen/Aanvraag - Catalogus/Aanvraag - Groep/Aanvraag - Item
+          if (groupbes == 12) // Geen
+          {
+            sql = "SELECT b.bes_bestelling_key"
+                + ", bes_bestelling_parentkey"
+                + ", srt.bes_srtdeel_key"
+                + ", " + lcl.xsqla('dis.ins_discipline_omschrijving','dis.ins_discipline_key')
+                + ", " + lcl.xsqla('grp.bes_srtgroep_omschrijving','grp.bes_srtgroep_key')
+                + ", " + lcl.xsqla('srt.bes_srtdeel_nr','srt.bes_srtdeel_key')
+                + ", " + lcl.xsqla('srt.bes_srtdeel_omschrijving','srt.bes_srtdeel_key')
+                + ", 1 aantalbes"
+                + ", bi.bes_bestelling_item_aantal aantalart"
+                + ", bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_prijs, 0) totaalbedrag"
+                + ", bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0) inktotaalbedrag";
+
+            sql_group_by = "";
+          }
+
          if (groupbes == 3) // op catalogus
          {
-            sql = "SELECT dis.ins_discipline_key"
-                + ", "+ lcl.xsqla('dis.ins_discipline_omschrijving','dis.ins_discipline_key')
-                + ", COUNT(*) aantal"
+            sql = "SELECT dis.ins_discipline_key ins_discipline_key"
+                + ", " + lcl.xsqla('dis.ins_discipline_omschrijving','dis.ins_discipline_key')
+                + ", b.bes_bestelling_key"
                + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_prijs, 0)) totaalbedrag"
-                + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag";
+                + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag"
+                + select_oordeel;

            sql_group_by = " GROUP BY dis.ins_discipline_key"
-                         + ", "+ lcl.xsql('dis.ins_discipline_omschrijving','dis.ins_discipline_key');
+                         + ", " + lcl.xsql('dis.ins_discipline_omschrijving','dis.ins_discipline_key')
+                         + ", b.bes_bestelling_key";
          }

          if (groupbes == 4) // op groep
@@ -832,13 +1014,15 @@ function bes_list (pautfunction, params)
            sql = "SELECT grp.bes_srtgroep_key"
                + ", "+ lcl.xsqla('dis.ins_discipline_omschrijving','dis.ins_discipline_key')
                + ", "+ lcl.xsqla('grp.bes_srtgroep_omschrijving','grp.bes_srtgroep_key')
-                + ", COUNT(*) aantal"
+                + ", b.bes_bestelling_key"
                + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_prijs, 0)) totaalbedrag"
-                + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag";
+                + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag"
+                + select_oordeel;

            sql_group_by = " GROUP BY grp.bes_srtgroep_key"
                         + ", "+ lcl.xsql('grp.bes_srtgroep_omschrijving','grp.bes_srtgroep_key')
-                         + ", "+ lcl.xsql('dis.ins_discipline_omschrijving','dis.ins_discipline_key');
+                         + ", "+ lcl.xsql('dis.ins_discipline_omschrijving','dis.ins_discipline_key')
+                         + ", b.bes_bestelling_key";
          }

          if (groupbes == 5) // op artikel
@@ -848,15 +1032,18 @@ function bes_list (pautfunction, params)
                + ", "+ lcl.xsqla('grp.bes_srtgroep_omschrijving','grp.bes_srtgroep_key')
                + ", "+ lcl.xsqla('srt.bes_srtdeel_nr','srt.bes_srtdeel_key')
                + ", "+ lcl.xsqla('srt.bes_srtdeel_omschrijving','srt.bes_srtdeel_key')
-                + ", COUNT(*) aantal"
+                + ", b.bes_bestelling_key"
+                + ", SUM(bi.bes_bestelling_item_aantal) aantalart"
                + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_prijs, 0)) totaalbedrag"
-                + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag";
+                + ", SUM(bi.bes_bestelling_item_aantal * COALESCE(bi.bes_bestelling_item_inkprijs, 0)) inktotaalbedrag"
+                + select_oordeel;

            sql_group_by = " GROUP BY srt.bes_srtdeel_key"
                         + ", "+ lcl.xsql('srt.bes_srtdeel_nr','srt.bes_srtdeel_key')
                         + ", "+ lcl.xsql('srt.bes_srtdeel_omschrijving','srt.bes_srtdeel_key')
                         + ", "+ lcl.xsql('grp.bes_srtgroep_omschrijving','grp.bes_srtgroep_key')
-                         + ", "+ lcl.xsql('dis.ins_discipline_omschrijving','dis.ins_discipline_key');
+                         + ", "+ lcl.xsql('dis.ins_discipline_omschrijving','dis.ins_discipline_key')
+                         + ", b.bes_bestelling_key";
          }

          if (groupbes2)
@@ -890,6 +1077,7 @@ function bes_list (pautfunction, params)
               + where2;

          sql += sql_filter;
+          sql += makeDisGroepItemsFilter(catalogus_key, besgroep_key, item_key);

          sql = discx3d (sql,
                         "dis.ins_discipline_key",
@@ -906,7 +1094,57 @@ function bes_list (pautfunction, params)
                         2,
                         sql_group_by);

-          sql += " ORDER BY 2, 3, 4";
+          if (groupbes == 12)
+            sql += " ORDER BY 1, 3, 4, 5";
+          else
+          {
+            if (groupbes == 3)
+              sql_start = "SELECT x.ins_discipline_key"
+                        + "     , x.ins_discipline_omschrijving";
+            if (groupbes == 4)
+              sql_start = "SELECT x.bes_srtgroep_key"
+                        + "     , x.ins_discipline_omschrijving"
+                        + "     , bes_srtgroep_omschrijving";
+            if (groupbes == 5)
+              sql_start = "SELECT x.bes_srtdeel_key"
+                        + "     , x.ins_discipline_omschrijving"
+                        + "     , x.bes_srtgroep_omschrijving"
+                        + "     , x.bes_srtdeel_nr"
+                        + "     , x.bes_srtdeel_omschrijving"
+                        + "     , x.aantalart";
+
+            sql = sql_start
+                + "     , COUNT(x.bes_bestelling_key) aantalbes"
+                + "     , SUM(x.totaalbedrag) totaalbedrag"
+                + "     , SUM(x.inktotaalbedrag) inktotaalbedrag"
+                + "     , SUM(x.sum_satisfaction) sum_satisfaction"
+                + "     , SUM(x.cnt_satisfaction) cnt_satisfaction"
+                + "     , AVG(x.oordeel) oordeel"
+                + (groupbes2
+                  ? "     , x.sel2col sel2col"
+                  : "")
+                + "  FROM (" + sql + ") x";
+
+            if (groupbes == 3)
+              sql += " GROUP BY x.ins_discipline_key"
+                   + "        , x.ins_discipline_omschrijving";
+            if (groupbes == 4)
+              sql += " GROUP BY x.bes_srtgroep_key"
+                   + "        , x.ins_discipline_omschrijving"
+                   + "        , x.bes_srtgroep_omschrijving";
+            if (groupbes == 5)
+              sql += " GROUP BY x.bes_srtdeel_key"
+                   + "        , x.ins_discipline_omschrijving"
+                   + "        , x.bes_srtgroep_omschrijving"
+                   + "        , x.bes_srtdeel_nr"
+                   + "        , x.bes_srtdeel_omschrijving"
+                   + "        , x.aantalart";
+
+            sql += (groupbes2
+                   ? "        , x.sel2col"
+                   : "")
+                 + " ORDER BY 2, 3, 4";
+          }

          var keyCol = "";
          if (groupbes == 3)
@@ -915,6 +1153,8 @@ function bes_list (pautfunction, params)
            keyCol = "bes_srtgroep_key";
          else if (groupbes == 5)
            keyCol = "bes_srtdeel_key";
+          else if (groupbes == 12)
+            keyCol = "bes_srtdeel_key";

          var rst = new ResultsetTable({keyColumn: keyCol,
                                        ID: "bestable",
@@ -922,12 +1162,16 @@ function bes_list (pautfunction, params)
                                        filterParams: params,
                                        outputmode: outputmode,
                                        title: L("lcl_bes_bestellingen"),
-                                        showAll: showall
+                                        showAll: showall,
+                                        totalCalc: fntotalCalc,
+                                        totalShow: fntotalShow
                                       });

          // Kolommen
+          if (groupbes == 12)
+              rst.addColumn(new Column({caption: L("lcl_bes_key"), content: fncolBesNr}));
          rst.addColumn(new Column({caption: L("lcl_bes_Catalogus"), content: "ins_discipline_omschrijving"}));
-          if (groupbes == 5)
+          if (groupbes == 12 || groupbes == 5)
          {
              rst.addColumn(new Column({caption: L("lcl_bes_srtgroup"), content: "bes_srtgroep_omschrijving"}));
              rst.addColumn(new Column({caption: L("lcl_bes_srtdeel_nr"), content: "bes_srtdeel_nr"}));
@@ -941,10 +1185,15 @@ function bes_list (pautfunction, params)

          if (groupbes2)
            rst.addColumn(new Column({caption: th2, content: "sel2col" }));
-          rst.addColumn(new Column({caption: L("lcl_bes_amount_key"), content: "aantal", datatype: "integer", total: true}));
+          if (groupbes != 12)
+            rst.addColumn(new Column({caption: L("lcl_bes_amount_key"), content: "aantalbes", datatype: "integer", total: true}));
+          if (groupbes == 12 || groupbes == 5)
+            rst.addColumn(new Column({caption: L("lcl_bes_artamount"), content: "aantalart", datatype: "integer", total: true}));
          rst.addColumn(new Column({caption: L("lcl_rfo_total_sum_eur"), content: "totaalbedrag", datatype: "currency", total: true}));
          if (S("bes_show_inkprijs") == 1)
            rst.addColumn(new Column({caption: L("lcl_rfo_total_inksum"), content: "inktotaalbedrag", datatype: "currency", total: true}));
+          if (groupbes != 12)
+            rst.addColumn(new Column({caption: L("lcl_bes_oordeel"), content: "oordeel", datatype: "float", decimals: 1, total: true}));

          var count = rst.processResultset();
        }
@@ -956,12 +1205,12 @@ function bes_list (pautfunction, params)

          if (rfo_key)
          {
-            sql_filter += " AND UPPER(b.bes_bestelopdr_id) LIKE " + safe.quoted_sql_wild(rfo_key + "%");
+            sql_filter += " AND UPPER(bo.bes_bestelopdr_id) LIKE " + safe.quoted_sql_wild(rfo_key + "%");
          }
          else
          {
            if (showordstatus)
-               sql_filter += " AND b.bes_bestelopdr_status IN (" + showordstatus + ")";
+               sql_filter += " AND bo.bes_bestelopdr_status IN (" + showordstatus + ")";

            if (showbesstatus) {
              sql_filter += " AND bi.bes_bestelopdr_item_key IN"
@@ -974,10 +1223,10 @@ function bes_list (pautfunction, params)
            }

            if (requestor_key)
-              sql_filter += " AND b.prs_perslid_key = " + requestor_key;
+              sql_filter += " AND bo.prs_perslid_key = " + requestor_key;

            if (personfor_key)
-              sql_filter += " AND b.prs_perslid_key_voor = " + personfor_key;
+              sql_filter += " AND bo.prs_perslid_key_voor = " + personfor_key;

            if (kp)
            {
@@ -995,9 +1244,9 @@ function bes_list (pautfunction, params)
            sql_filter += makeDisGroepItemsSql(catalogus_key, besgroep_key, item_key);

            if (supplier_key)
-              sql_filter += " AND b.prs_bedrijf_key = " + supplier_key;
+              sql_filter += " AND bo.prs_bedrijf_key = " + supplier_key;
            if (sql_date)
-              sql_filter += " AND b.bes_bestelopdr_datum" + sql_date;
+              sql_filter += " AND bo.bes_bestelopdr_datum" + sql_date;
            if (dep_key)
              sql_filter += " AND d.prs_afdeling_key = " + dep_key;
          }
@@ -1007,9 +1256,9 @@ function bes_list (pautfunction, params)
        { // Opdracht
          sql = "SELECT bbi.bes_bestelling_key"
              + ", NULL bes_bestelling_parentkey"  // doen we hier mee?
-              + ", b.bes_bestelopdr_key"
-              + ", b.bes_bestelopdr_id"
-              + ", bes_bestelopdr_datum"
+              + ", bo.bes_bestelopdr_key"
+              + ", bo.bes_bestelopdr_id"
+              + ", bo.bes_bestelopdr_datum"
              + ", (SELECT bst.bes_bestelling_retourvan_key"
              + "     FROM bes_bestelling bst"
              + ",         bes_bestelling_item bbi"
@@ -1018,8 +1267,8 @@ function bes_list (pautfunction, params)
              + ", prs_bedrijf_naam supplier"
              + ", " + S("prs_pers_string") + " besteller"
              + ", " + S("prs_dep_string") + " organisation"
-              + ", b.bes_bestelopdr_status"
-              + ", b.bes_bestelopdr_module"
+              + ", bo.bes_bestelopdr_status"
+              + ", bo.bes_bestelopdr_module"
              + ", dis.ins_discipline_key"
              + ", d.prs_afdeling_key"
              + ", (bi.bes_bestelopdr_item_aantal * bes_bestelopdr_item_prijs) totaalbedrag"  // klopt dit wel?
@@ -1028,13 +1277,14 @@ function bes_list (pautfunction, params)
              + ", di.alg_district_key"
              + ", di.alg_regio_key"
              + " FROM bes_bestelopdr_item bi"
-              + ", bes_bestelopdr b"
+              + ", bes_bestelopdr bo"
              + ", prs_bedrijf be"
              + ", prs_perslid p"
              + ", prs_v_afdeling d"
              // next lines: tbv 3D autorisatie mbt discipline(catalogus) en afdeling (organisatie)
              + ", prs_v_afdeling_boom boom"
              + ", bes_bestelling_item bbi"
+              + ", bes_bestelling b"
              + ", bes_srtdeel srt"
              + ", bes_srtgroep grp"
              + ", ins_tab_discipline dis"
@@ -1044,9 +1294,10 @@ function bes_list (pautfunction, params)
              + ", mld_adres adr"
              + ", alg_locatie l"
              + ", alg_district di"
-              + " WHERE be.prs_bedrijf_key = b.prs_bedrijf_key"
-              + " AND bi.bes_bestelopdr_key = b.bes_bestelopdr_key"
-              + " AND p.prs_perslid_key = b.prs_perslid_key" // MB--indien op aanvrager:: deze regel uitcommentarieren
+              + " WHERE b.bes_bestelling_key = bbi.bes_bestelling_key"
+              + " AND be.prs_bedrijf_key = bo.prs_bedrijf_key"
+              + " AND bi.bes_bestelopdr_key = bo.bes_bestelopdr_key"
+              + " AND p.prs_perslid_key = bo.prs_perslid_key" // MB--indien op aanvrager:: deze regel uitcommentarieren
              // MB--indien op aanvrager: add next 2 lines
              // + " and p.prs_perslid_key = bstl.prs_perslid_key "
              // + " and bstl.bes_bestelling_key = bbi.bes_bestelling_key"
@@ -1059,33 +1310,33 @@ function bes_list (pautfunction, params)
              + " AND srt.bes_srtgroep_key = grp.bes_srtgroep_key"
              + " AND grp.ins_discipline_key = dis.ins_discipline_key"
              // next 3 lines: 3D-autoriatie op district en locatie
-              + " AND b.mld_adres_key_lev = adr.mld_adres_key"
+              + " AND bo.mld_adres_key_lev = adr.mld_adres_key"
              + " AND adr.alg_locatie_key = l.alg_locatie_key"
              + " AND l.alg_district_key = dI.alg_district_key"
              + sql_filter;

+          sql += makeDisGroepItemsFilter(catalogus_key, besgroep_key, item_key);
+
          sql = "SELECT x.bes_bestelling_key"
-//              + ", x.bes_bestelling_parentkey"
-              + ", x.bes_bestelopdr_key"
-              + ", x.bes_bestelopdr_id"
-              + ", x.bes_bestelopdr_datum"
-              + ", x.bes_bestelling_retourvan_key"
-              + ", x.bes_bestelopdr_status"
-              + ", x.bes_bestelopdr_module"
-              + ", x.supplier"
-              + ", x.besteller"
-              + ", x.organisation"
-              + ", SUM(x.totaalbedrag) totaalbedrag"
-              + ", SUM(x.inktotaalbedrag) inktotaalbedrag"
-              + ", x.alg_locatie_key"
-              + ", x.alg_district_key"
-              + ", x.alg_regio_key"
-              + " FROM (" + sql + ") x"
-              + ", prs_v_afdeling_boom boom"
+              + "     , x.bes_bestelopdr_key"
+              + "     , x.bes_bestelopdr_id"
+              + "     , x.bes_bestelopdr_datum"
+              + "     , x.bes_bestelling_retourvan_key"
+              + "     , x.bes_bestelopdr_status"
+              + "     , x.bes_bestelopdr_module"
+              + "     , x.supplier"
+              + "     , x.besteller"
+              + "     , x.organisation"
+              + "     , SUM(x.totaalbedrag) totaalbedrag"
+              + "     , SUM(x.inktotaalbedrag) inktotaalbedrag"
+              + "     , x.alg_locatie_key"
+              + "     , x.alg_district_key"
+              + "     , x.alg_regio_key"
+              + "  FROM (" + sql + ") x"
+              + "     , prs_v_afdeling_boom boom"
              + " WHERE x.prs_afdeling_key = boom.prs_afdeling_key";

          sql_group_by = " GROUP BY x.bes_bestelling_key"
-//                       + ", x.bes_bestelling_parentkey"
                       + ", x.bes_bestelopdr_key"
                       + ", x.bes_bestelopdr_id"
                       + ", x.bes_bestelopdr_datum"
@@ -1158,22 +1409,23 @@ function bes_list (pautfunction, params)

        if (groupbes == 6)
        { // Opdracht - Leverancier
-          sql = "SELECT be.prs_bedrijf_key"
-              + ", be.prs_bedrijf_naam supplier"
-              + ", COUNT(*) aantal"
-              + ", SUM(bi.bes_bestelopdr_item_aantal * bi.bes_bestelopdr_item_prijs) totaalbedrag"  // klopt dit wel?
-              + ", SUM(bi.bes_bestelopdr_item_aantal * bi.bes_bestelopdr_item_inkprijs) inktotaalbedrag";
+          sql = "SELECT be.prs_bedrijf_key prs_bedrijf_key"
+              + "     , be.prs_bedrijf_naam supplier"
+              + "     , bo.bes_bestelopdr_key"
+              + "     , SUM(bi.bes_bestelopdr_item_aantal * bi.bes_bestelopdr_item_prijs) totaalbedrag"  // klopt dit wel?
+              + "     , SUM(bi.bes_bestelopdr_item_aantal * bi.bes_bestelopdr_item_inkprijs) inktotaalbedrag";

-          sql_group_by = " GROUP BY be.prs_bedrijf_key, be.prs_bedrijf_naam";
+          sql_group_by = " GROUP BY be.prs_bedrijf_key, be.prs_bedrijf_naam, bo.bes_bestelopdr_key";

          sql += " FROM bes_bestelopdr_item bi"
-               + ", bes_bestelopdr b"
+               + ", bes_bestelopdr bo"
               + ", prs_bedrijf be"
               + ", prs_perslid p"
               + ", prs_v_afdeling d"
               // next line: tbv 3D autorisatie mbt discipline(catalogus) en afdeling (organisatie)
               + ", prs_v_afdeling_boom boom"
               + ", bes_bestelling_item bbi"
+               + ", bes_bestelling b"
               + ", bes_srtdeel srt"
               + ", bes_srtgroep grp"
               + ", ins_tab_discipline dis"
@@ -1181,9 +1433,10 @@ function bes_list (pautfunction, params)
               + ", alg_locatie l"
               + ", alg_district di";

-          sql += " WHERE be.prs_bedrijf_key = b.prs_bedrijf_key"
-               + " AND bi.bes_bestelopdr_key = b.bes_bestelopdr_key"
-               + " AND p.prs_perslid_key = b.prs_perslid_key"
+          sql += " WHERE b.bes_bestelling_key = bbi.bes_bestelling_key"
+               + " AND be.prs_bedrijf_key = bo.prs_bedrijf_key"
+               + " AND bi.bes_bestelopdr_key = bo.bes_bestelopdr_key"
+               + " AND p.prs_perslid_key = bo.prs_perslid_key"
               // next 2 lines: 3D-autoriatie op organisatie
               + " AND p.prs_afdeling_key = d.prs_afdeling_key"
               + " AND d.prs_afdeling_key = boom.prs_afdeling_key"
@@ -1192,11 +1445,12 @@ function bes_list (pautfunction, params)
               + " AND bbi.bes_srtdeel_key = srt.bes_srtdeel_key"
               + " AND srt.bes_srtgroep_key = grp.bes_srtgroep_key"
               + " AND grp.ins_discipline_key = dis.ins_discipline_key"
-               + " AND b.mld_adres_key_lev = adr.mld_adres_key"
+               + " AND bo.mld_adres_key_lev = adr.mld_adres_key"
               + " AND adr.alg_locatie_key = l.alg_locatie_key"
               + " AND l.alg_district_key = dI.alg_district_key";

          sql += sql_filter;
+          sql += makeDisGroepItemsFilter(catalogus_key, besgroep_key, item_key);

          sql = discx3d (sql,
                         "dis.ins_discipline_key",
@@ -1213,9 +1467,15 @@ function bes_list (pautfunction, params)
                         2,
                         sql_group_by);

-//          sql += " ORDER BY prs_bedrijf_naam"
-//               + ", aantal"
-//               + ", totaalbedrag DESC";
+          sql = "SELECT x.prs_bedrijf_key"
+              + "     , x.supplier supplier"
+              + "     , COUNT (x.bes_bestelopdr_key) aantal"
+              + "     , SUM (x.totaalbedrag) totaalbedrag"
+              + "     , SUM (x.inktotaalbedrag) inktotaalbedrag"
+              + "  FROM (" + sql + ") x"
+              + " GROUP BY x.prs_bedrijf_key"
+              + "        , x.supplier"
+              + " ORDER BY supplier";

          var rst = new ResultsetTable({keyColumn: "prs_bedrijf_key",
                                        sql: sql,
@@ -1372,14 +1632,26 @@ function bes_list (pautfunction, params)
        rst.addAction({image: "../Pictures/spot1.jpg", action: "besEdit", caption: L("lcl_edit"), isDefault: true});

        var count = rst.processResultset();
-%>
-        <iframe src="../Shared/empty.asp" style="display:none" id="hidFrame"></iframe>
-<%
      }
      else if (fronto || backo) // Front Office en Back Office
      {
-        // 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") + ") ";
+        // Kan ik zelf fiatteren?: true:  totaalbedrag <= can_selfapprove
+        //                         false  totaalbedrag > can_selfapprove
+        // TODO: Het totaalbedrag zou eigenlijk berekend moeten worden via staffelprijzen en staffelkortingen.
+        //       Dit zou een databasefunctie moeten worden.
+        //       Tot nu toe gebruikt geen enkele klant staffelprijzen en staffelkortingen.
+        //       Dus voor nu kan totaalbedrag berekend worden via de som van aantal maal prijs
+        var totaalbedrag = "(SELECT SUM(i1.bes_bestelling_item_aantal * COALESCE(i1.bes_bestelling_item_prijs, 0))"
+                         + "   FROM bes_bestelling_item i1"
+                         + "  WHERE i1.bes_bestelling_key = b.bes_bestelling_key)";
+
+        // Deze mag/hoeft niet meer te fiatteren
+        var exclude_fiatter = " COALESCE(b.bes_bestelling_fiat_user, "
+                            + " CASE"
+                            + " WHEN " + totaalbedrag + " <= " + S("can_selfapprove")
+                            + " THEN -1"
+                            + " ELSE b.prs_perslid_key"
+                            + " END)";

        sql = "SELECT b.bes_bestelling_key"
            + ", bes_bestelling_parentkey"
@@ -1451,8 +1723,6 @@ function bes_list (pautfunction, params)

        if (rfo_key)
        {
-          // TODO: een decode oid, als er eentje met parent is, willen we die zonder niet zien
-          // niet hier overigens, maar in de where.
          sql += " AND COALESCE(b.bes_bestelling_parentkey, b.bes_bestelling_key) = " + rfo_key;
        }
        else
@@ -1551,20 +1821,19 @@ function bes_list (pautfunction, params)
        function fnrowActionEnablerFOBO(oRs)
        {
          var eEdit   = true; // Altijd aanwezig
-          var eAccept = false;
-          var eReject = false;
-          var eSubmit = false;
          var m_stat = oRs("bes_bestelling_status").value;
-
-          if (backo)
-          { // SEE NOTE A
-            eAccept = (m_stat == 3);
-            eReject = (m_stat == 3);
-            // Gathering of RFOs is not switched on yet
-            eSubmit = (m_stat == 4 && !oRs("isordered").value);
+          if (m_stat == 3) // func_enabled_bestelling is traag, alleen als echt noodzakelijk
+          {
+            // We weten al dat we mogen lezen. Geef dat mee aan func_enabled_bestelling, die wordt daar efficienter van
+            var bes_bestelling = bes.bestelling_info(oRs("bes_bestelling_key").Value);
+            var this_bes = bes.func_enabled_bestelling(bes_bestelling, { knownread: true });
+            var eAccept = this_bes.canAccept || this_bes.canAccept2 || this_bes.canAccept3 || this_bes.canAccept4 || this_bes.canAccept5;
+            var eReject = this_bes.canReject;
          }
+          var eSubmit = (m_stat == 4 && !oRs("isordered").value); // eigenlijk this_bes.canSubmit maar we hebben niet
+                                                                  // altijd bes.func_enabled_bestelling gedaan

-          var data = {eAccept:eAccept, eReject:eReject, eEdit:eEdit, eSubmit:eSubmit};
+          var data = {eAccept: eAccept, eReject: eReject, eEdit: eEdit, eSubmit: eSubmit};

          return data;
        }
@@ -1650,9 +1919,6 @@ function bes_list (pautfunction, params)
        rst.addAction({action: "besSubmit", caption: L("lcl_bes_Submit"), enabler: "eSubmit", multi: (S("mld_order_autoprint") != 1 && !params.tiny), multiOnce: true});

        var count = rst.processResultset();
-%>
-        <iframe src="../Shared/empty.asp" frameborder="0" id="hidFrame" style="display:none"></iframe>
-<%
      } %>
    </body>
  </html>
--- a/APPL/BES/bes_opdr.asp
+++ b/APPL/BES/bes_opdr.asp
@@ -61,13 +61,7 @@ oRs.Close();
    </script>
  </head>
 <%
-  var autfunction = "";
-  if (minfo)
-    autfunction = "WEB_BESBAC";
-  else
-    autfunction = ["WEB_BESBOF", "WEB_BESBOR"];
-
-  var authparams = user.checkAutorisation(autfunction);
+// Autorisatie wordt geregeld in iframe bestanden (bes_show_opdr.asp en fin_list.asp)
 %>
  <body id="editbody">
 <%  page = "./bes_show_opdr.asp?urole=" + urole + "&ordernr=" + ordernr + "&autoopdr=" + autoopdr;
--- a/APPL/BES/bes_reject.asp
+++ b/APPL/BES/bes_reject.asp
@@ -36,7 +36,7 @@ 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.canApprove || this_bes.canAccept) // Als je mag accepteren mag je ook rejecten
+  if (this_bes.canApprove || this_bes.canReject) // Als je mag fiatteren mag je ook rejecten
  {
    ingesloten.push(bes_key_arr[i]);
    if (bes_bestelling.parent_key)
@@ -52,52 +52,6 @@ user.anything_todo_or_abort(toberejected > 0); // We klagen niet over enkele wel
 <html>
  <head>
 <%  FCLTHeader.Generate(); %>
-
-<%  if (submitting && opmerk != "")
-    {
-      protectRequest.validateToken();
-      for (var i = 0; i < hasnoparentkey.length; i++)
-      {
-        sql = "UPDATE bes_bestelling"
-            + "   SET bes_bestelling_opmerking = " + safe.quoted_sql(opmerk, 320)
-            + " WHERE bes_bestelling_key = " + hasnoparentkey[i];
-        oRs = Oracle.Execute(sql);
-        bes.setbestellingstatus(hasnoparentkey[i], 1); // rejected
-        var sql = "UPDATE bes_bestelling"
-                + "   SET bes_bestelling_fiat_user = " + user_key
-                + " WHERE bes_bestelling_key = " + hasnoparentkey[i];
-        Oracle.Execute(sql);
-      }
-      if (hasparentkey.length > 0)
-      { // Gewijzigde (embargo) reservering
-        // Rollback uitvoeren. Betekent gewoon het verwijderen van de change reservering
-%>      <script type="text/javascript">
-          jQuery(document).ready(function()
-                                 {
-                                   var data = { urole: "bo",
-                                                bes_key: <%=hasparentkey.join(",")%>
-                                              };
-                                   <% protectRequest.dataToken("data"); %>
-                                   $.post("bes_delete.asp",
-                                          data,
-                                          function(json, textStatus)
-                                          {
-                                             FcltMgr.closeDetail( window, { close: true, success: true, opmerk: "<%=opmerk%>" });
-                                          },
-                                          "json");
-                                 });
-        </script>
-<%    }
-      else
-      {
-%>      <script type="text/javascript">
-          FcltMgr.closeDetail( window, { close: true, success: true, opmerk: "<%=opmerk%>" });
-        </script>
-<%    }
-      Response.End;
-    }
-    else
-    { %>
      <script type="text/javascript">
        jQuery(document).ready(function()
                               {
@@ -109,8 +63,9 @@ user.anything_todo_or_abort(toberejected > 0); // We klagen niet over enkele wel
          // Standaard checks op verplichte velden, datum formaat, numeriek en float formaat, currency formaat.
          if (!validateForm("rejectform"))
            return false;
-          document.rejectform.submit();
-          return true; // disable button
+
+          $.post($("form[name=rejectform]")[0].action, $("[name=rejectform]").serialize(), FcltCallbackClose, "json");;
+          return true; // disable submit
        }

        function bes_cancel()
@@ -118,11 +73,10 @@ user.anything_todo_or_abort(toberejected > 0); // We klagen niet over enkele wel
          FcltMgr.closeDetail(window, { cancel: true } );
        }
      </script>
-<%  } %>
  </head>

  <body class="modal" id="besrejectbody">
-      <form id="rejectform" name="rejectform" action="bes_reject.asp?submit=1&bes_key=<%=ingesloten.join(",")%>" method="post">
+      <form id="rejectform" name="rejectform" action="bes_reject_save.asp?bes_key=<%=ingesloten.join(",")%>" method="post">
 <%
        BLOCK_START("besReject", L("lcl_bes_rejectfollowing") + S("bes_bestelling_prefix") + ingesloten.join(", " + S("bes_bestelling_prefix")));
        RWTEXTAREATR("opmerk", "fldremark required", L("lcl_bes_reject_remark"), "", {html: "rows='8'"});
--- a/APPL/BES/bes_reject_save.asp
+++ b/APPL/BES/bes_reject_save.asp
@@ -0,0 +1,74 @@
+<%@language = "javascript" %>
+<% /*
+     $Revision$
+     $Id$
+
+     File:               bes_reject_save.asp
+     Description:        Afwijzen van een bestelaanvraag door de de fiatteur. (canApprove)
+                         OF: Door de Backoffice (canAccept)
+                         Opmerking moet ingevuld worden.
+     Parameters:
+         bes_key         Bestelaanvraag nummer (key)
+         submitting      0 = invoer opmerking, 1 = reject mode
+         opmerk          Opmerking
+*/
+var JSON_Result = true;
+%>
+
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="./bes.inc" -->
+
+<%
+protectRequest.validateToken();
+
+var bes_key_arr = getQParamIntArray("bes_key");
+var submitting = getQParamInt("submit", 0) == 1;
+var opmerk = getFParam("opmerk", "");
+
+var result = {};
+var toberejected = 0;
+var ingesloten = [];
+var hasparentkey = [];
+var hasnoparentkey = [];
+// Bepaal de bestellingen in de selectie die
+// ook echt afgewezen kunnen of mogen worden.
+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.canApprove || this_bes.canAccept) // Als je mag accepteren mag je ook rejecten
+  {
+    ingesloten.push(bes_key_arr[i]);
+    if (bes_bestelling.parent_key)
+      hasparentkey.push(bes_key_arr[i]);
+    else
+      hasnoparentkey.push(bes_key_arr[i]);
+    toberejected++;
+  }
+}
+user.anything_todo_or_abort(toberejected > 0); // We klagen niet over enkele wel en enkele niet
+
+for (var i = 0; i < hasnoparentkey.length; i++)
+{
+  sql = "UPDATE bes_bestelling"
+      + "   SET bes_bestelling_opmerking = " + safe.quoted_sql(opmerk, 320)
+      + " WHERE bes_bestelling_key = " + hasnoparentkey[i];
+  oRs = Oracle.Execute(sql);
+  bes.setbestellingstatus(hasnoparentkey[i], 1); // rejected
+  var sql = "UPDATE bes_bestelling"
+          + "   SET bes_bestelling_fiat_user = " + user_key
+          + " WHERE bes_bestelling_key = " + hasnoparentkey[i];
+  Oracle.Execute(sql);
+}
+for (var pp in hasparentkey)
+{
+  bes.verwijderBestelling(hasparentkey[pp]);
+}
+
+result = { close: true, success: true, opmerk: opmerk };
+
+Response.Write(JSON.stringify(result));
+Response.End;
+%>
--- a/APPL/BES/bes_search.asp
+++ b/APPL/BES/bes_search.asp
@@ -44,7 +44,7 @@

 <%
 FCLTHeader.Requires({ plugins:["jQuery", "kenmerk"],
-                      js: ["../BES/bes_search.js"]
+                      js: ["../bes/bes_search.js"]
                    });

 /***** Get webform parameters *****/
@@ -83,10 +83,10 @@ var disc = getQParamInt("disc", -1); // Catalogus
 var srtgroup = getQParamInt("srtgroup", -1); // Groep
 var srtdeel = getQParamInt("srtdeel", -1); // Item (key voor select box)
 var supplier = getQParamInt("supplier", -1); // Leverancier
-var groupby = getQParamInt("groupby", -1); // Groepering 1
+var groupby = getQParamInt("groupby", 0); // Groepering 1 (Aanvraag (key = 0) is default)
 var groupby2 = getQParamInt("groupby2", -1); // Groepering 2
 var rfo_key = getQParamInt("rfo_key", ""); // Aanvraag nummer (rfo key, request for order)
-var rfostatus_key_arr = getQParamIntArray("rfostatus", [2,3,4,5,6,7,8]); // Aanvraag status string
+var rfostatus_key_arr = getQParamIntArray("rfostatus", [2,3,4,5,6,7]); // Aanvraag status string
 var order_key = getQParamInt("order_key", ""); // Opdracht nummer
 var orderstatus_key_arr = getQParamIntArray("orderstatus", []); // Opdracht status string
 var prs_key = getQParamInt("prs_key", -1); // Aanvrager (Requestor_key)
@@ -119,7 +119,6 @@ switch(urole)
             break;
 }

-// De functie checkAutorisation(autfunction) geeft een Response.End indien er geen autorisatie voor autfunction wordt gevonden
 var authparams = user.checkAutorisation(autfunction);

 sql = "select count(*) aantal"
@@ -136,12 +135,6 @@ oRs.Close();
 <%  FCLTHeader.Generate(); %>

    <script type="text/javascript">
-      var front_end = false;  // Needed by sel_Obj_Op.js
-      var maninfo = true;     // Needed by sel_Obj_Op.js
-      var empty_option = true;
-
-      // TODO: calender afhankelijkheid: calender1 <= calender2
-
      function doSubmit()
      {
 <%      if (backo)
@@ -227,7 +220,7 @@ oRs.Close();
 <%          if (minfo)
            {
              // <!-- Datum van -->
-                FCLTcalendar( "date_from",
+              FCLTcalendar( "date_from",
                              { label : L("lcl_period_from"),
                                datum: date_from,
                                trclass: "primsearch",
@@ -240,50 +233,47 @@ oRs.Close();
                                trclass: "primsearch",
                                volgnr: 2
                              });
-
            }

            if (!frontend)
            { // <!-- Catalogus -->
-                sql = "SELECT ins_discipline_key"
-                    + ", "+ lcl.xsqla('ins_discipline_omschrijving','ins_discipline_key')
-                    + " FROM bes_v_aanwezigdiscipline"
-                    + " WHERE ins_discipline_key IN"
-                      + " (SELECT ins_discipline_key"
-                      + " FROM fac_v_webgebruiker g"
-                      + ", fac_functie f"
-                      + " WHERE g.prs_perslid_key = " + user_key
-                      + " AND f.fac_functie_key = g.fac_functie_key "
-                      + " AND f.fac_functie_code = " + safe.quoted_sql(autfunction) + ") "
-                    + " ORDER BY "+ lcl.xsql('ins_discipline_omschrijving','ins_discipline_key') +" ASC";
-                FCLTselector("disc",
-                             sql,
-                             { initKey: disc,
-                               label: L("lcl_bes_Catalogus"),
-                               onChange: 'updateSrtGroup("' + autfunction + '");', // discChanged
-                               trclass:"primsearch",
-                               emptyOption: ""
-                             });
-                             %>
-
-              <!-- Groep -->
-<%            FCLTselector("srtgroup",
+              sql = "SELECT ins_discipline_key"
+                  + ", "+ lcl.xsqla('ins_discipline_omschrijving','ins_discipline_key')
+                  + " FROM bes_v_aanwezigdiscipline"
+                  + " WHERE ins_discipline_key IN"
+                    + " (SELECT ins_discipline_key"
+                    + " FROM fac_v_webgebruiker g"
+                    + ", fac_functie f"
+                    + " WHERE g.prs_perslid_key = " + user_key
+                    + " AND f.fac_functie_key = g.fac_functie_key "
+                    + " AND f.fac_functie_code = " + safe.quoted_sql(autfunction) + ") "
+                  + " ORDER BY "+ lcl.xsql('ins_discipline_omschrijving','ins_discipline_key') +" ASC";
+              FCLTselector("disc",
+                           sql,
+                           { initKey: disc,
+                             label: L("lcl_bes_Catalogus"),
+                             onChange: 'updateSrtGroup("' + autfunction + '");', // discChanged
+                             trclass:"primsearch",
+                             emptyOption: ""
+                           });
+              // <!-- Groep -->
+              FCLTselector("srtgroup",
                           "", // sql: lege selectbox die onload wordt geladen
                           { initKey: srtgroup,
                             label: L("lcl_bes_srtgroup"),
                             onChange: 'updateSrtDeel("' + autfunction + '");', // srtgroupChanged
                             trclass: "secsearch",
                             emptyOption: ""
-                           }); %>
-
-              <!-- Item select box -->
-<%            FCLTselector("srtdeelmulti",
+                           });
+              // <!-- Item select box -->
+              FCLTselector("srtdeelmulti",
                           "", // sql: lege selectbox die onload wordt geladen
                           { initKey: srtdeel,
                             label: L("lcl_bes_srtdeel"),
                             trclass: "secsearch",
                             emptyOption: ""
-                           }); %>
+                           });
+%>
              <script type="text/javascript">
                // Laad de groupen en de items
                // Selecteer eventueel de initi<74>le groepen en items die meegegeven kunnen worden
@@ -308,7 +298,8 @@ oRs.Close();

 <%          if (minfo)
            { // <!-- Groepering1 -->
-                sql = "SELECT 0, '" + L("lcl_bes_RFOs") + "', 1 FROM DUAL"
+                sql = "SELECT 12, '', 0 FROM DUAL"
+                    + " UNION SELECT 0, '" + L("lcl_bes_RFOs") + "', 1 FROM DUAL"
                    + " UNION SELECT 3,' " + L("lcl_bes_RFOs") + " - " + L("lcl_bes_Catalogus") + "', 2 FROM DUAL"
                    + " UNION SELECT 4, '" + L("lcl_bes_RFOs") + " - " + L("lcl_bes_srtgroup") + "', 3 FROM DUAL"
                    + " UNION SELECT 5, '" + L("lcl_bes_RFOs") + " - " + L("lcl_bes_srtdeel") + "', 4 FROM DUAL"
@@ -501,8 +492,6 @@ oRs.Close();
              onload='FcltMgr.iframeLoaded(this)'
              frameborder="0" scrolling="no">
      </iframe>
-      <iframe height=0 width=100% name="hidFrame" id="hidFrame" src="../Shared/empty.asp">
-      </iframe>
    </div>

  </body>
--- a/APPL/BES/bes_search.js
+++ b/APPL/BES/bes_search.js
@@ -52,13 +52,16 @@ function updateSrtGroup(pautfunction, psrtgroup, psrtdeel)

 function updateSrtDeel(pautfunction, psrtdeel)
 {
+  var maninfo = $('#date_from').length;
  var lsrtgroup = $('#srtgroup :selected').val();
  $("#srtdeelmulti").load("../Shared/loadDeel.asp",
                          { autfunction: pautfunction,
                            srtgroup_key_arr: lsrtgroup,
                            module: "bes",
                            emptyOption: "",
-                            srtdeel: (psrtdeel? psrtdeel : [])
+                            srtdeel: (psrtdeel? psrtdeel : []),
+                            verwijderd: (maninfo ? 1 : ""),
+                            datefrom: (maninfo ? $('#date_from').val() : "")
                          });
 }

--- a/APPL/BES/bes_search_list.asp
+++ b/APPL/BES/bes_search_list.asp
@@ -38,7 +38,8 @@ var rfo_key = getQParamInt("rfonum", null, true); // Aanvraag nummer (rfo key, r
 if (rfo_key > 0)
 {
  params.rfo_key = (rfo_key != -1 ? rfo_key : null);
-  params.groupbes = getQParamInt("groupby", -1); // Groepering 1
+  var groupbes = getQParamInt("groupby", -1); // Groepering 1
+  params.groupbes      = (groupbes != -1? groupbes : null);
 }
 else
 { // Alleen als rfo_key (bestelaanvraag key) niet opgegeven is, zijn de resterende parameters van belang!
--- a/APPL/BES/bes_show_bestelling.asp
+++ b/APPL/BES/bes_show_bestelling.asp
@@ -42,7 +42,11 @@ FCLTHeader.Requires({plugins:["suggest","jQuery"],

  user.auth_required_or_abort(this_bes.canReadAny);
  var subjectMail = L("lcl_bes_RFO") + S("bes_bestelling_prefix") + bes_key;
-  var urlMail = "../shared/queuemail.asp?pcode=BESMAI&defemail_key="+bes_bestelling.perslid_key+"&key="+bes_key+"&subject=" + Server.URLencode(subjectMail);
+  var hasFOBOread = this_bes.canReadFOF || this_bes.canReadBOF;
+  var urlMail = "../shared/queuemail.asp?pcode=BESMAI&defemail_key=" + bes_bestelling.perslid_key
+              + "&key=" + bes_key
+              + "&subject=" + Server.URLencode(subjectMail)
+              + "&mailfrom=" + (hasFOBOread? 1 : 0);
 %>
 <html>
 <head>
@@ -124,6 +128,18 @@ var buttons =  [];
  if (this_bes.canChange)
    buttons.push({title: L("lcl_change"), icon: "wijzigen.png", action: "bes_change()"});

+  if (this_bes.canAccept ||
+      this_bes.canAccept2 ||
+      this_bes.canAccept3 ||
+      this_bes.canAccept4 ||
+      this_bes.canAccept5)
+  {
+    buttons.push({ icon: "accept.png", title: L("lcl_approve"), action: "bes_accept()" });
+  }
+
+  if (this_bes.canReject)
+    buttons.push({ icon: "reject.png", title: L("lcl_reject"), action: "bes_reject()" });
+
  if (bes_bestelling.fac_activiteit_key == -1)
  {
    if (this_bes.canDelete)
@@ -214,9 +230,21 @@ var show_price = '<%=show_price%>';
 var lower = false;
 var inclBTW = <%=bes_bestelling.inclBTW%> == 1;

+function bes_accept()
+{
+  if (confirm(L("lcl_bes_accepteren1").format("<%=bes_key%>")))
+  {
+    $.post("bes_accept.asp",
+           { urole: "<%=urole%>",
+             bes_key: <%=bes_key%> },
+           FcltCallbackRefresh,
+           "json");
+  }
+}
+
 function bes_approve()
 {
-  if (confirm(L("lcl_bes_approve_1") + "<%=bes_key%>" + L("lcl_bes_approve_2")))
+  if (confirm(L("lcl_bes_approve").format("<%=bes_key%>")))
  {
    var data = { bes_key: <%=bes_key%>
               };
@@ -245,10 +273,10 @@ function bes_reject()
    <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"><%=L("lcl_bes_geleverd")%></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"><%=L("lcl_bes_geleverd")%></th>
+    <th style="text-align:right" <% = show_price ? "" : " style='display:none;'" %> ><%=L("lcl_bes_subtotal")%></th>
  </tr>
 </thead>
 <tbody>
--- a/APPL/BES/bes_show_opdr.asp
+++ b/APPL/BES/bes_show_opdr.asp
@@ -27,6 +27,11 @@ var bes_bestelopdr = bes.bestelopdracht_info(opdr_key);
 var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);

 var this_bestelopdr = bes.func_enabled_bestelopdracht(opdr_key);
+var this_bestelling = bes.func_enabled_bestelling(bes_bestelling)
+var hasBOread = this_bestelopdr.canReadBOF || this_bestelopdr.canReadBOR;
+
+// Ik moet leesrechten (BESBOF, BESBOR of BESBAC) hebben of ik moet kostenplaatsverantwoordelijke zijn om de opdracht in te mogen zien.
+user.auth_required_or_abort(this_bestelopdr.canReadAny || this_bestelling.isVerantwoordelijke);
 %>
 <html>
  <head>
@@ -94,7 +99,10 @@ var this_bestelopdr = bes.func_enabled_bestelopdracht(opdr_key);
            defemail = oRs("email").value
        }
        var subjectMail = L("lcl_bes_BesOrder") + ' ' + S("bes_bestelopdr_prefix") + bes_bestelopdr.bestelopdr_id;
-        var urlMail = "../shared/queuemail.asp?pcode=BES2MA&defemail="+Server.URLencode(defemail||"")+"&key="+opdr_key+"&subject="+Server.URLencode(subjectMail);
+        var urlMail = "../shared/queuemail.asp?pcode=BES2MA&defemail=" + Server.URLencode(defemail || "")
+                    + "&key=" + opdr_key
+                    + "&subject=" + Server.URLencode(subjectMail)
+                    + "&mailfrom=" + (hasBOread? 1 : 0);
 %>
        var subject = "<%=safe.jsstring(subjectMail)%>";
        var url = "<%=safe.jsstring(protectQS.create(urlMail))%>";
@@ -195,9 +203,9 @@ var this_bestelopdr = bes.func_enabled_bestelopdracht(opdr_key);
          <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_delivered_so_far")%></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_delivered_so_far")%></th>
+          <th style="text-align:right"><%=L("lcl_bes_Price") + " " + (bes_bestelopdr.inclBTW? L("lcl_shared_inclBTW") : L("lcl_shared_exclBTW"))%></th>
        </tr>

 <%      for (var i = 0; i < bes_bestelopdr.artikel_arr.length; i++)
--- a/APPL/BES/bes_srtdeel_search_list.asp
+++ b/APPL/BES/bes_srtdeel_search_list.asp
@@ -39,7 +39,7 @@ var authparams = user.checkAutorisation("WEB_BESMSU");
        function bes_new()
        {
          <% if (disc_key<0) { %>
-            alert(L("lcl_Filter eerst op catalogus"));
+            alert(L("lcl_bes_srtdeel_need_cat"));
          <% } else {
            var addurl = "appl/bes/bes_srtdeel.asp?disc_key=" + disc_key;
          %>
--- a/APPL/BES/bes_voorraad_list.inc
+++ b/APPL/BES/bes_voorraad_list.inc
@@ -19,23 +19,17 @@
 <!-- #include file="bes.inc" -->

 <%
-FCLTHeader.Requires({ plugins:["jQuery"]//,
-                      //js: ["../bes/bes_voorraad_list.js"]
+FCLTHeader.Requires({ plugins:["jQuery"]
                    });

 function bes_voorraad_list (pautfunction, params)
-{ // VALIDATE AND PREPARE
-  // Als een parameter niet gedefinieerd of null is, dan doet-ie niks
-  // anders wordt die verondersteld een zinvolle waarde te hebben
-  // NB: -1 is vaak geen zinvolle waarde; null had het dan moeten zijn!
-
+{
  // Valid and supported parameters are:
  // params.urole         : the usuals two-letter lowercase string
  // params.outputmode    : print to 0 = screen, 1 = printer, 2 = excel, etc.
  // params.showall       : boolean (true | false)
  // params.catalogus_key : key

-  // De functie checkAutorisation(autfunction) geeft een Response.End indien er geen autorisatie voor autfunction wordt gevonden
  var authparams = user.checkAutorisation(pautfunction);

  var urole = params.urole;
@@ -297,7 +291,6 @@ function bes_voorraad_list (pautfunction, params)

      var count = rst.processResultset();
 %>
-      <iframe src="../Shared/empty.asp" style="display:none" id="hidFrame"></iframe>
    </body>
  </html>
 <%
--- a/APPL/BES/details.inc
+++ b/APPL/BES/details.inc
@@ -25,6 +25,7 @@ function generateDetails(bes_key, edit, psrt_keys, pamounts)
        + "     , i.bes_srtdeel_key"
        + "     , s.bes_srtdeel_nr"
        + ", " + lcl.xsqla('s.bes_srtdeel_omschrijving', 's.bes_srtdeel_key')
+        + "    , bes_srtdeel_details_loc"
        + "     , i.bes_bestelling_item_aantal"
        + ", " + lcl.xsqla('g.bes_srtgroep_omschrijving', 'g.bes_srtgroep_key')
        + (edit
@@ -66,6 +67,7 @@ function generateDetails(bes_key, edit, psrt_keys, pamounts)
        + "     , s.bes_srtdeel_nr"
        + ", " + lcl.xsqla('s.bes_srtdeel_omschrijving', 's.bes_srtdeel_key')
 //        + "     , 0 bes_bestelling_item_aantal" // komt straks uit pamounts
+        + "    , bes_srtdeel_details_loc"
        + ", " + lcl.xsqla('g.bes_srtgroep_omschrijving', 'g.bes_srtgroep_key')
        + "    , bes.getsrtdeelprijs (s.bes_srtdeel_key, NULL) prijs"
        + "    , s.bes_srtdeel_veelvoud"
@@ -185,6 +187,7 @@ function generateDetails(bes_key, edit, psrt_keys, pamounts)
            { srtdeel_key: <%=oRs("bes_srtdeel_key").value%>,
              srtdeel_nr: "<%=safe.jsstring(oRs("bes_srtdeel_nr").value)%>",
              srtdeel_omschrijving: "<%=safe.jsstring(oRs("bes_srtdeel_omschrijving").value)%>",
+              srtdeel_details_loc: "<%=safe.jsstring(oRs("bes_srtdeel_details_loc").value)%>",
              srtgroup_text: "<%=safe.jsstring(oRs("bes_srtgroep_omschrijving").value)%>",
              amount: <%=amount%>,
              price: <%=safe.jsfloat(oRs("prijs").value || 0)%>,
--- a/APPL/BES/kenmerkresult.asp
+++ b/APPL/BES/kenmerkresult.asp
@@ -103,6 +103,6 @@
  }
  __Log("xml_content = " + xml_content);

-  stylesheet = GetStylesheet(-1);
+  stylesheet = GetStylesheet();
  STR2Stream(xml_content, stylesheet, Response);
 %>
--- a/APPL/BES/opdr_delivery.asp
+++ b/APPL/BES/opdr_delivery.asp
@@ -50,26 +50,42 @@ user.auth_required_or_abort(this_bestelopdr.canDeliver);
  {
    protectRequest.validateToken();
    max_o_i = getFParamInt( 'max_o_i');
+    var trackarray = [];
+    var besopdr_id = "";
    for (i = 0; i < max_o_i; i++)
    {
-      ontv = getFParamInt('cnt' + i);
+      ontv = getFParamInt('cnt' + i, 0);
      oldcnt = getFParamInt('amto' + i);
      bokey = getFParamInt('bokey' + i);
      bikey = getFParamInt('bi_key' + i);

-      if ( !isNaN(ontv) && ontv != 0 && !isNaN(oldcnt)) {
-          sql = "UPDATE bes_bestelopdr_item B"
-              + "   SET bes_bestelopdr_item_aantalontv = "
-              + "           COALESCE(bes_bestelopdr_item_aantalontv, 0) + " + ontv
-              + "     , bes_bestelopdr_item_ontvangen = SYSDATE"
-              + " WHERE bes_bestelopdr_item_key = " + bokey;
-          Oracle.Execute(sql);
+      if ( !isNaN(ontv) && ontv != 0 && !isNaN(oldcnt))
+      {
+        sql = "UPDATE bes_bestelopdr_item B"
+            + "   SET bes_bestelopdr_item_aantalontv = "
+            + "           COALESCE(bes_bestelopdr_item_aantalontv, 0) + " + ontv
+            + "     , bes_bestelopdr_item_ontvangen = SYSDATE"
+            + " WHERE bes_bestelopdr_item_key = " + bokey;
+        Oracle.Execute(sql);

-          sql = "UPDATE bes_bestelling_item"
-              + "   SET bes_bestelling_item_aantalontv = "
-              + "           COALESCE(bes_bestelling_item_aantalontv, 0) + " + ontv
-              + " WHERE bes_bestelling_item_key = " + bikey;
-          Oracle.Execute(sql);
+        sql = "UPDATE bes_bestelling_item"
+            + "   SET bes_bestelling_item_aantalontv = "
+            + "           COALESCE(bes_bestelling_item_aantalontv, 0) + " + ontv
+            + " WHERE bes_bestelling_item_key = " + bikey;
+        Oracle.Execute(sql);
+
+        // Tracking
+        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 = " + bokey;
+        oRs = Oracle.Execute(sql);
+        var item_oms = oRs("bes_bestelopdr_item_omschrijv").Value;
+        besopdr_id = oRs("bes_bestelopdr_id").Value;
+
+        trackarray.push(L("lcl_bes_delivery") + ": " + ontv + " " + item_oms);
      }
    }
    // Laat de gevolgen bepalen..
@@ -90,6 +106,12 @@ user.auth_required_or_abort(this_bestelopdr.canDeliver);
      sql = buildUpdate("bes_bestelopdr", fields) + " bes_bestelopdr_key = " + opdr_key;
      Oracle.Execute(sql);
    }
+
+    // Update nog tracken
+    shared.trackaction("BES2UP",
+                       opdr_key,
+                       L("lcl_bes_is_bes2uptrack").format(S("bes_bestelopdr_prefix") + besopdr_id) + "\n" + trackarray.join("\n"));
+
 %>  <script>FcltMgr.closeDetail(window, { } );</script>
 <%  Response.End;
  }
@@ -162,9 +184,9 @@ user.auth_required_or_abort(this_bestelopdr.canDeliver);
          <th><%=L("lcl_bes_srtdeel_nr")%></th>
          <th><%=L("lcl_bes_srtdeel")%></th>
          <th><%=L("lcl_bes_total_order")%></th>
-          <th align="right"><%=L("lcl_bes_delivered_so_far")%></th>
-          <th align="right"><%=L("lcl_bes_delivered_now")%></th>
-          <th align="right"><%=L("lcl_bes_remaining")%></th>
+          <th style="text-align:right"><%=L("lcl_bes_delivered_so_far")%></th>
+          <th style="text-align:right"><%=L("lcl_bes_delivered_now")%></th>
+          <th style="text-align:right"><%=L("lcl_bes_remaining")%></th>
      </tr>
 <%    while(!oRs.eof)
      {
--- a/APPL/BES/opdr_list.inc
+++ b/APPL/BES/opdr_list.inc
@@ -42,11 +42,7 @@ FCLTHeader.Requires({ plugins:["jQuery"],
                    });

 function opdr_list (pautfunction, params)
-{ // VALIDATE AND PREPARE
-  // Als een parameter niet gedefinieerd of null is, dan doet-ie niks
-  // anders wordt die verondersteld een zinvolle waarde te hebben
-  // NB: -1 is vaak geen zinvolle waarde; null had het dan moeten zijn!
-
+{
  // Valid and supported parameters are:
  // params.urole         : the usuals two-letter lowercase string
  // params.outputmode    : print to 0 = screen, 1 = printer, 2 = excel, etc.
@@ -68,7 +64,6 @@ function opdr_list (pautfunction, params)
  // params.besopdrstlev  : boolean (true | false)
  // params.besopdrstver  : boolean (true | false)

-  // De functie checkAutorisation(autfunction) geeft een Response.End indien er geen autorisatie voor autfunction wordt gevonden
  var authparams = user.checkAutorisation(pautfunction);

  var urole = params.urole;
@@ -137,7 +132,6 @@ function opdr_list (pautfunction, params)
 //          + ",      bst.prs_perslid_key"
 //          + ",      bst.prs_perslid_key_voor"
          + ",      b.bes_bestelopdr_id"
-          + ",      be.prs_bedrijf_order_adres"
          + ",      bid.ins_discipline_key"
          + ",      bes_bestelling_parentkey"
          + ",      bes_bestelopdr_opmerking"
@@ -325,7 +319,6 @@ function opdr_list (pautfunction, params)

      var count = rst.processResultset();
 %>
-      <iframe src="../Shared/empty.asp" frameborder="0" id="hidFrame" style="display:none"></iframe>
    </body>
  </html>
 <%
--- a/APPL/BES/sel_items_tab.js
+++ b/APPL/BES/sel_items_tab.js
@@ -241,10 +241,17 @@ function CreateRow(bes_item_info, aantal, received, editable, objFlex, urole)
  // Create srtdeel
  cell = tr.insertCell(-1);
  cell.vAlign = 'top';
-  $(cell).html(bes_item_info.srtdeel_nr);
+  $(cell).text(bes_item_info.srtdeel_nr);

  cell = tr.insertCell(-1);
-  $(cell).html(bes_item_info.srtdeel_omschrijving + "<input type='hidden' id='price" + id_key + "' value=" + new_price +">");
+  $(cell).text(bes_item_info.srtdeel_omschrijving)
+  if (bes_item_info.srtdeel_details_loc)
+  {
+    $(cell).wrapInner("<a href='" + bes_item_info.srtdeel_details_loc + "' target='_new'></a>");
+  }
+
+  $(cell).append("<input type='hidden' id='price" + id_key + "' value=" + new_price +">");
+
  if (objFlex && objFlex[0]!='')
  {
    var flexkeys = [];
--- a/APPL/BEZ/bez.inc
+++ b/APPL/BEZ/bez.inc
@@ -251,6 +251,8 @@ bez =
            }

            bresult.canReadAny  = bresult.canRead("WEB_BEZFOF")  || bresult.canRead("WEB_BEZBOF")  || bresult.canRead("WEB_BEZUSE");
+            bresult.canReadFOF  = bresult.canRead("WEB_BEZFOF");
+            bresult.canReadBOF  = bresult.canRead("WEB_BEZBOF");

            bresult.canBadge = bresult.canRead("WEB_BEZBOF");
            bresult.canCheckInOut = bresult.canWrite("WEB_BEZBOF");
--- a/APPL/BEZ/bez.js
+++ b/APPL/BEZ/bez.js
@@ -9,6 +9,6 @@ function printBadge(evt, pbez_key)
 { // Printen van de bezoekers badge
  FcltMgr.stopPropagation(evt); // This prevents the event from bubbling up to the onclick event handler for the line.

-  window.open("bez_xml.asp?bez_key=" + pbez_key, "", "resizable=0,scrollbars=0,menubar=0,width=500,height=400");
+  window.open("bez_xml.asp?badge=1&bez_key=" + pbez_key, "", "resizable=0,scrollbars=0,menubar=0,width=500,height=400");
 }

--- a/Show More
+++ b/Show More