CONN#29414: vooraankondiging uitvoeringsopdrachten + einddatum naar Basware

svn path=/Website/branches/v5.3.1/; revision=21874

APPL/ALG/alg.inc

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

APPL/ALG/alg_delete.asp

@@ -18,6 +18,7 @@ DOCTYPE_Disable = 1;
 <!--#include file="../Shared/common.inc"-->
 <!--#include file="../Shared/json2.js" -->
 <%
+protectRequest.validateToken();
 
 var level = getFParam("level");
 var dis_key_arr = getFParamIntArray("key");

APPL/ALG/alg_district_list.inc

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

APPL/ALG/alg_edit_district.asp

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

APPL/ALG/alg_edit_gebouw.asp

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

APPL/ALG/alg_edit_locatie.asp

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

APPL/ALG/alg_edit_regio.asp

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

APPL/ALG/alg_edit_ruimte.asp

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

APPL/ALG/alg_edit_ruimte_save.asp

@@ -67,8 +67,9 @@
                           + "    AND alg_onrgoed_niveau = 'R' "
                           + "    AND alg_onrgoed_key = " + room_key;
 
-      allKenmerkenSQL     = " SELECT "+lcl.xsql('k.alg_kenmerk_omschrijving','k.alg_kenmerk_key')+" kenmerk_omschrijving, "
-                          + "        alg_kenmerk_key srtkenmerk_key"
+      allKenmerkenSQL     = " SELECT "+lcl.xsql('k.alg_kenmerk_omschrijving','k.alg_kenmerk_key')+" kenmerk_omschrijving"
+                          + "      , alg_kenmerk_key srtkenmerk_key"
+                          + "      , fac_kenmerkdomein_key"
                           + "   FROM alg_kenmerk k"
                           + "  WHERE k.alg_kenmerk_verwijder IS NULL"
                           + "    AND k.alg_kenmerk_niveau = 'R'"

APPL/ALG/alg_edit_ruimtefunctie.asp

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

APPL/ALG/alg_edit_terreinsector.asp

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

APPL/ALG/alg_edit_verdieping.asp

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

APPL/ALG/alg_edit_wp.asp

@@ -147,6 +147,7 @@ BLOCK_START("algInfo", "");
               });
 
 BLOCK_END();
+IFACE.FORM_END();
 %>
 </form>
 <iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>

APPL/ALG/alg_flexkenmerk.inc

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

APPL/ALG/alg_gebouw_list.inc

@@ -57,11 +57,16 @@ function doDelete(rowArray, isMulti)
 {
   var bldKeyString = getKeyString(rowArray);
   if (isMulti || confirm(L("lcl_alg_del_txt_gebouw")))
+  {
+    var data = { key: bldKeyString,
+                 level: "G"
+               };
+    <% protectRequest.dataToken("data"); %>
     $.post("alg_delete.asp",
-           { key: bldKeyString,
-             level: "G" },
+           data,
            FcltCallbackRefresh,
            "json");
+  }
 }
 </script>
 <%
@@ -183,7 +188,7 @@ function gebouw_list(pautfunction, params)
 
     rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_descr"), content: "alg_locatie_omschrijving"}));
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_code"), content: "alg_gebouw_code"}));
-    rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_name"), content: "alg_gebouw_naam", hasActions: true}));
+    rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_name"), content: "alg_gebouw_naam" }));
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_srtgebouw"), content: "alg_srtgebouw_omschrijving"}));
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_bruto_vloeropp"), content: "alg_gebouw_bruto_vloeropp"}));
 

APPL/ALG/alg_gebouw_search.asp

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

APPL/ALG/alg_locatie_list.inc

@@ -64,11 +64,16 @@ function fnrowData(oRs)
   {
     var locKeyString = getKeyString(rowArray);
     if (isMulti || confirm(L("lcl_alg_del_txt_locatie")))
+    {
+      var data = { key: locKeyString,
+                   level: "L"
+                 };
+      <% protectRequest.dataToken("data"); %>
       $.post("alg_delete.asp",
-             { key: locKeyString,
-               level: "L" },
+             data,
              FcltCallbackRefresh,
              "json");
+    }
   }
 </script>
 <%
@@ -174,7 +179,7 @@ function locatie_list(pautfunction, params)
 
     rst.addColumn(new Column({caption: L("lcl_estate_district_man_descr"), content: "alg_district_omschrijving"}));
     rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_code"), content: "alg_locatie_code"}));
-    rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_descr"), content: "alg_locatie_omschrijving", hasActions:true}));
+    rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_descr"), content: "alg_locatie_omschrijving" }));
     rst.addColumn(new Column({caption: L("lcl_prs_address_bezoek_adres"), content: "alg_locatie_adres"}));
     rst.addColumn(new Column({caption: L("lcl_prs_address_bezoek_postcode"), content: "alg_locatie_postcode"}));
     rst.addColumn(new Column({caption: L("lcl_prs_address_bezoek_plaats"), content: "alg_locatie_plaats"}));

APPL/ALG/alg_locatie_search.asp

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

APPL/ALG/alg_regio_list.inc

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

APPL/ALG/alg_regio_search.asp

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

APPL/ALG/alg_ruimte_list.inc

@@ -80,11 +80,16 @@ function ruimte_list(pautfunction, params)
           $(row).addClass('dirty');
           var room_key = row.getAttribute("ROWKEY");
           if (isMulti || confirm(L("lcl_alg_del_txt_ruimte")))
+          {
+            var data = { key: room_key,
+                         level: "R"
+                       };
+            <% protectRequest.dataToken("data"); %>
             $.post("alg_delete.asp",
-                   { key: room_key,
-                     level: "R" },
+                   data,
                    FcltCallbackRefresh,
                    "json");
+          }
         }
       </script>
     </head>
@@ -221,7 +226,7 @@ function ruimte_list(pautfunction, params)
 
       rst.addColumn(new Column({caption: L("lcl_estate_ruimte_man_nr"), content: "alg_ruimte_nr"}));
 
-      rst.addColumn(new Column({caption: L("lcl_estate_ruimte_man_descr"), content: "alg_ruimte_omschrijving", hasActions: true}));
+      rst.addColumn(new Column({caption: L("lcl_estate_ruimte_man_descr"), content: "alg_ruimte_omschrijving" }));
       rst.addColumn(new Column({caption: L("lcl_estate_ruimte_man_sort"), content: "alg_srtruimte_omschrijving"}));
       rst.addColumn(new Column({caption: L("lcl_estate_ruimte_bruto_vloeropp"), content: "alg_ruimte_bruto_vloeropp", datatype: "float", decimals: 2 }));
 

APPL/ALG/alg_ruimte_search.asp

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

APPL/ALG/alg_ruimteafdeling.asp

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

APPL/ALG/alg_ruimtefunctie_delete.asp

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

APPL/ALG/alg_ruimtefunctie_list.inc

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

APPL/ALG/alg_show_district.asp

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

APPL/ALG/alg_show_gebouw.asp

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

APPL/ALG/alg_show_locatie.asp

@@ -71,13 +71,16 @@ oRs.Close();
 
       function loc_delete()
       {
-         if (confirm(L("lcl_alg_del_txt_locatie")))
-         {
-             $.post("alg_delete.asp",
-                    { key: <%=loc_key%>,
-                      level: "L" },
-                    FcltCallbackClose,
-                    "json");
+        if (confirm(L("lcl_alg_del_txt_locatie")))
+        {
+          var data = { key: <%=loc_key%>,
+                       level: "L"
+                     };
+          <% protectRequest.dataToken("data"); %>
+          $.post("alg_delete.asp",
+                 data,
+                 FcltCallbackClose,
+                 "json");
          }
       }
     </script>
@@ -88,7 +91,7 @@ oRs.Close();
     buttons.push({title: L("lcl_photos"),  icon: "camera.png", action: "alg_showphotos()"});
     if (!loc_deleted)
     {
-      if (this_alg.writeman || this_alg.writeman)
+      if (this_alg.writeman || this_alg.writeuse)
         buttons.push({title: L("lcl_change"), action: "loc_change()",  icon: "wijzigen.png"});
       if (this_alg.writeman) // ALGMAN nodig
         buttons.push({title: L("lcl_delete"), action: "loc_delete()",  icon: "delete.png"});

APPL/ALG/alg_show_regio.asp

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

APPL/ALG/alg_show_ruimte.asp

@@ -90,11 +90,14 @@ oRs.Close();
       {
           if (confirm(L("lcl_alg_del_txt_ruimte")))
           {
-             $.post("alg_delete.asp",
-                    { key: <%=room_key%>,
-                      level: "R" },
-                    FcltCallbackClose,
-                    "json");
+            var data = { key: <%=room_key%>,
+                         level: "R"
+                       };
+            <% protectRequest.dataToken("data"); %>
+            $.post("alg_delete.asp",
+                   data,
+                   FcltCallbackClose,
+                   "json");
           }
       }
       function openFG()

APPL/ALG/alg_show_terreinsector.asp

@@ -89,12 +89,15 @@ oRs.Close();
       {
           if (confirm(L("lcl_alg_del_txt_terreinsector")))
           {
-             var ter_key = <%=ter_key%>
-             $.post("alg_delete.asp",
-                    { key: <%=ter_key%>,
-                      level: "T" },
-                    FcltCallbackClose,
-                    "json");
+            var data = { key: <%=ter_key%>,
+                         level: "T"
+                       };
+            <% protectRequest.dataToken("data"); %>
+            var ter_key = <%=ter_key%>
+            $.post("alg_delete.asp",
+                   data,
+                   FcltCallbackClose,
+                   "json");
           }
       }
     </script>

APPL/ALG/alg_show_verdieping.asp

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

APPL/ALG/alg_show_wp.asp

@@ -60,11 +60,16 @@ var wp_typ_str = (wp_type == 1 ? L("lcl_wptype_1") : L("lcl_wptype_0"));
       {
          var wp_key = <%=wp_key%>;
          if (confirm(L("lcl_alg_del_txt_werkplek")))
-             $.post("alg_delete.asp",
-                 { key: <%=wp_key%>,
-                   level: "W" },
-                   FcltCallbackClose,
-                   "json");
+         {
+           var data = { key: <%=wp_key%>,
+                        level: "W"
+                      };
+           <% protectRequest.dataToken("data"); %>
+           $.post("alg_delete.asp",
+                  data,
+                  FcltCallbackClose,
+                  "json");
+         }
       }
     </script>
   </head>

APPL/ALG/alg_terreinsector_list.inc

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

APPL/ALG/alg_verdieping_list.inc

@@ -57,11 +57,16 @@ function fnrowData(oRs)
   {
     var flrKeyString = getKeyString(rowArray);
     if (isMulti || confirm(L("lcl_alg_del_txt_verdieping")))
-       $.post("alg_delete.asp",
-              { key: flrKeyString,
-                level: "V" },
-              FcltCallbackRefresh,
-              "json");
+    {
+      var data = { key: flrKeyString,
+                   level: "V"
+                 };
+      <% protectRequest.dataToken("data"); %>
+      $.post("alg_delete.asp",
+             data,
+             FcltCallbackRefresh,
+             "json");
+    }
   }
 
 </script>
@@ -168,7 +173,7 @@ function verdiepingen_list(pautfunction, params)
     rst.addColumn(new Column({caption: L("lcl_estate_locatie_man_descr"), content: "alg_locatie_omschrijving"}));
     rst.addColumn(new Column({caption: L("lcl_estate_gebouw_man_descr"), content: "alg_gebouw_omschrijving"}));
     rst.addColumn(new Column({caption: L("lcl_estate_verdieping_man_code"), content: "alg_verdieping_code"}));
-    rst.addColumn(new Column({caption: L("lcl_estate_verdieping_man_descr"), content: "alg_verdieping_omschrijving", hasActions: true}));
+    rst.addColumn(new Column({caption: L("lcl_estate_verdieping_man_descr"), content: "alg_verdieping_omschrijving" }));
 
     rst.addAction({ action: "verdiepingEdit", caption: L("lcl_edit"), isDefault:  true});
     rst.addAction({ action: "doDelete", caption: L("lcl_delete"), enabler: "eDelete", single: !noref, multi: true, multiOnce: true});

APPL/ALG/alg_verdieping_search.asp

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

APPL/ALG/alg_werkplek_list.inc

@@ -56,11 +56,16 @@ FCLTHeader.Requires({ plugins:["jQuery"],
     {
     var wpKeyString = getKeyString(rowArray);
       if (isMulti || confirm(L("lcl_alg_del_txt_werkplek")))
-           $.post("alg_delete.asp",
-                  { key: wpKeyString,
-                    level: "W" },
-                  FcltCallbackRefresh,
-                  "json");
+      {
+        var data = { key: wpKeyString,
+                     level: "W"
+                   };
+        <% protectRequest.dataToken("data"); %>
+        $.post("alg_delete.asp",
+               data,
+               FcltCallbackRefresh,
+               "json");
+      }
     }
 
     function doAddWP(room_key) // als impliciet==0
@@ -79,7 +84,7 @@ FCLTHeader.Requires({ plugins:["jQuery"],
     {
         var algData = eval('(' + row.getAttribute("ROWDATA") + ')');
         var url = "../prs/prs_edit_perslidwerkplek.asp?wp_key=" + algData.key;
-        FcltMgr.openModalDetail(url, "<%=L("lcl_add")%>", {callback: refreshall });
+        FcltMgr.openModalDetail(url, "<%=L("lcl_change")%>", {callback: refreshall });
     }
 </script>
 <%
@@ -218,7 +223,7 @@ function werkplek_list(pautfunction, params)
     rst.addColumn(new Column({caption: L("lcl_estate_ruimte_man_descr"), content: "alg_ruimte_omschrijving"}));
     if (S("prs_werkplek_implicit")==0)
     {
-        rst.addColumn(new Column({caption: L("lcl_workplace"), content: "prs_werkplek_omschrijving", hasActions: true}));
+        rst.addColumn(new Column({caption: L("lcl_workplace"), content: "prs_werkplek_omschrijving" }));
         rst.addColumn(new Column({caption: L("lcl_estate_wp_fixed"), content: "decode_vastopp"}));
         rst.addColumn(new Column({caption: L("lcl_estate_wp_area"), content: prepareArea}));
     }

APPL/ALG/alg_werkplek_search.asp

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

APPL/ALG/load_kenmerk.asp

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

APPL/API/api.inc

@@ -3,51 +3,63 @@
     $Id$
 
     File:           api.inc
-    Description:
-    Parameters:
-    Context:
+    Description:    Functies voor API's
     Notes:
 
-
 */
-%>
-<%
-    function API_func(APIname, APIKEY)
+
+function API_func(APIname, APIKEY)
+{
+    this.APIname = APIname;
+    this.APIKEY = APIKEY;
+
+    var sql = "SELECT *"
+            + " FROM fac_api"
+            + " WHERE fac_api_name = " + safe.quoted_sql(APIname);
+    var oRs = Oracle.Execute(sql);
+    if (oRs.Eof)
     {
-      this.APIname = APIname;
-      this.APIKEY = APIKEY;
-
-      var sql = "SELECT *"
-              + " FROM fac_api"
-              + " WHERE fac_api_name = " + safe.quoted_sql(APIname);
-      var oRs = Oracle.Execute(sql);
-      if (oRs.Eof)
-      {
-          Response.Write("Unknown API: " + APIname);
-          Response.End;
-      }
-      else if (oRs("fac_api_apikey").Value != APIKEY)
-      {
-          Response.Write("Invalid APIKEY for: " + APIname);
-          Response.End;
-      };
-      this.apidata =
-        {
-            APIname: APIname,
-            APIKEY: APIKEY,
-            file: oRs("fac_api_filepath").Value,
-            // niet meer gebruikt. API=machine2machine is nooit session
-            // no_session: oRs("fac_api_no_session").Value,
-            prs_perslid_key: oRs("prs_perslid_key").Value,
-            loglevel: oRs("fac_api_loglevel").Value,
-            usrrap_key: oRs("fac_usrrap_key").Value,
-            stylesheet: oRs("fac_api_stylesheet").Value,
-            import_app_key: oRs("fac_import_app_key").Value,
-            options: eval("("+oRs("fac_api_options_json").Value+")"),
-            viewmapping: eval("("+oRs("fac_api_viewmapping_json").Value+")")
-        }
-      oRs.Close();
-
-      // We doen niets met eventuele prs_perslid_key; dat doet loginTry.asp maar voor ons
+        this.error("Invalid API: " + APIname);
+        oRs.Close();
+        Response.End;
     }
+
+    var sql2 = "SELECT prs_perslid_key, prs_perslid_naam"
+            + " FROM prs_perslid"
+            + " WHERE prs_perslid_apikey = " + safe.quoted_sql(APIKEY);
+    var oRs2 = Oracle.Execute(sql2);
+    if (oRs2.Eof)
+    {
+        this.error("Invalid APIKEY: " + APIKEY);
+        oRs2.Close();
+        Response.End;
+    };
+    __Log("API User is: " + oRs2("prs_perslid_naam"));
+
+    this.apidata =
+    {
+        APIname:          APIname,
+        APIKEY:           APIKEY,
+        file:             oRs("fac_api_filepath").Value,
+        prs_perslid_key:  oRs2("prs_perslid_key").Value,
+        loglevel:         oRs("fac_api_loglevel").Value,
+        usrrap_key:       oRs("fac_usrrap_key").Value,
+        stylesheet:       oRs("fac_api_stylesheet").Value,
+        import_app_key:   oRs("fac_import_app_key").Value,
+        options:          eval("("+oRs("fac_api_options_json").Value+")"),
+        viewmapping:      eval("("+oRs("fac_api_viewmapping_json").Value+")")
+    };
+
+    oRs2.Close();
+    oRs.Close();
+    // Wij doen niets met eventuele prs_perslid_key; dat doet loginTry.asp maar voor ons
+}
+
+API_func.prototype.error = function (msg)
+{
+    Response.Status = "500 Internal server error";
+    Response.Write(msg);
+    Response.End;
+}
+
 %>

APPL/API/api_SOAP.asp

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

APPL/API/api_besordsoap.asp

@@ -63,19 +63,6 @@
     }
     FCLTElement.appendChild(FCLTHeader);
 
-		function XMLval(xml, tag)
-		{
-        if (!xml)
-            return null;
-        var xx = xml.getElementsByTagName(tag);
-        if (!xx || !xx.length)
-            return null;
-        xx = xx[0].childNodes
-        if (!xx || !xx.length)
-            return null;
-        return xx[0].nodeValue;
-		}
-
     // Hier zou het echte werk moeten gebeuren nav. xmlReq
     // en FCLTElement moeten we uitbreiden met antwoorden.
     var detected ="?";

APPL/API/api_bezsoap.asp

@@ -10,6 +10,51 @@
      Status:
      Context:
      Notes:
+                        Onderstaand het voorstel van RWSN/MOOP. Wij doen XML ipv JSON, daar moet getransformeerd worden
+
+        (2) Versturen van de bezoekersregistraties
+        Voor het versturen van de registraties stel ik voor om een HTTP-POST service te maken, deze is bijvoorbeeld te bereiken op ~/visitations
+        In de request header geef ik de Api Key mee:
+          Api-Key: 'te_bepalen_door_facilitor'
+        In de body stel ik voor <20><>n key-value pair mee te geven met de naam jsonData waarin de hele json van de bezoekersregistratie in verwerkt zit:
+        json_data={
+          "start":"Fri, 03 Aug 2012 10:09:39 +0200", //begindatum in RFC2822 formaat
+          "end":"HH:MM",
+          "host_id":2934, //id van de ingelogde gebruiker
+          "building_id":4712, //id van gekozen locatie
+          "visitors":
+            [
+              {
+                "name":"Pietje Puk",
+                "company":"RUG"
+              },
+              {
+                "name":"Jan Janssen",
+                "company":"Achmea"
+              },
+              {...}
+            ]
+        }
+        Bij een juiste verwerking wordt http status code 201 teruggegeven met enkel een succes json:
+        {
+          "success":true,
+        }
+
+        Anders een 4xx of 5xx code met daarin een json geformatteerde fout:
+        {
+          "success":false,
+          "errors":
+            [
+              {
+                "description":"start is not a valied RFC2822 format"
+              },
+              {
+                "description":"building_id cannot be null"
+              },
+              {...}
+            ]
+        }
+
 */
     DOCTYPE_Disable = 1;
     THIS_FILE = "appl/api/api_bezsoap.asp";
@@ -26,4 +71,140 @@
     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");
+    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 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 meldingenloop (mochten er ooit nog anderen gaan volgen).
+    var afspraken = xmlReq.getElementsByTagName("afspraak");
+    for (i=0; i < reserveringen.length; i++)
+    {
+        var resultcode = -1;   /* Zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed). */
+        var resulttekst = "";
+
+        // Lees per node de (optionele) tags en waarden.
+        var fields = []; // Bij te werken velden.
+        var 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 FCLTdata = xmlResp.createElement(param);
+            FCLTdata.appendChild(xmlResp.createTextNode(binfo[param]));
+            FCLTBody.appendChild(FCLTdata);
+        }
+
+        FCLTElement.appendChild(FCLTBody);
+    } // end for
+    // Alle nodes zijn behandeld.
+
+    xmlResp.appendChild(FCLTElement);
+
+    Response.ContentType = "text/xml";
+    Response.Write(xmlResp.xml)
+
 %>

APPL/API/api_cntsoap.asp

@@ -60,29 +60,6 @@
     }
     FCLTElement.appendChild(FCLTHeader);
 
-    // Luie oplossing: Oracle kan dit simpeler dan JavaScript.
-    function XMLtoJsDate(xmlDate)
-    {
-        var sql = "SELECT TO_DATE("+safe.quoted_sql(xmlDate)+", 'YYYY-MM-DD HH24:MI:SS') FROM DUAL";
-        var oRs = Oracle.Execute(sql);
-        var dt = new Date(oRs(0).Value);
-        oRs.Close();
-        return dt;
-    }
-
-    function XMLval(xml, tag)
-    {
-        if (!xml)
-            return null;
-        var xx = xml.getElementsByTagName(tag);
-        if (!xx || !xx.length)
-            return null;
-        xx = xx[0].childNodes
-        if (!xx || !xx.length)
-            return null;
-        return xx[0].nodeValue;
-    }
-
     // Hier zou het echte werk moeten gebeuren nav. xmlReq
     // en FCLTElement moeten we uitbreiden met antwoorden.
     var detected ="?";
@@ -152,7 +129,7 @@
                     if (resultcode == -1) { // Nog steeds geen fouten.
                         if (fields.length > 0) {
                             // Construct/uitvoeren update.
-                            var cntUpd = buildTrackingUpdate("cnt_contract", "cnt_contract_key = " + cnt_key, fields);
+                            var cntUpd = buildTrackingUpdate("cnt_contract", "cnt_contract_key = " + cnt_key, fields, { noValidateToken: true });
                             oRs = Oracle.Execute(cntUpd.sql);
 
                             // Tot slot nog de tracking toevoegen.

APPL/API/api_mldsoap.asp

@@ -28,26 +28,6 @@
     Session.Codepage = 65001;
     Response.Charset = 'utf-8';
 
-// CreateFullPath moet hier weg bij overnemen naar trunk 531!
-function CreateFullPath(sPath)
-{
-    var oFS = Server.CreateObject("Scripting.FileSystemObject");
-    if (!oFS.FolderExists(sPath))
-    {
-        while (!oFS.FolderExists(sPath))
-        {
-            var sParent = sPath;
-            while (!oFS.FolderExists(sParent))
-            {
-               var sChild = sParent;
-               var sParent = oFS.GetParentFolderName(sChild);
-            }
-            oFolder = oFS.CreateFolder(sChild)
-        }
-    }
-    oFS = null;
-}
-
     var APIname = getQParam("API");
     var APIKEY = getQParam("APIKEY");
     var API = new API_func(APIname, APIKEY);
@@ -58,6 +38,8 @@ function CreateFullPath(sPath)
     var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
     xmlReq.load(Request);
 
+    if (API.apidata.loglevel) __Log2File(xmlReq.xml, APIname + "_IN");
+
     var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
     xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))
 
@@ -83,29 +65,6 @@ function CreateFullPath(sPath)
     }
     FCLTElement.appendChild(FCLTHeader);
 
-    // Luie oplossing: Oracle kan dit simpeler dan JavaScript.
-    function XMLtoJsDate(xmlDate)
-    {
-        var sql = "SELECT TO_DATE("+safe.quoted_sql(xmlDate)+", 'YYYY-MM-DD HH24:MI:SS') FROM DUAL";
-        var oRs = Oracle.Execute(sql);
-        var dt = new Date(oRs(0).Value);
-        oRs.Close();
-        return dt;
-    }
-
-    function XMLval(xml, tag)
-    {
-        if (!xml)
-            return null;
-        var xx = xml.getElementsByTagName(tag);
-        if (!xx || !xx.length)
-            return null;
-        xx = xx[0].childNodes
-        if (!xx || !xx.length)
-            return null;
-        return xx[0].nodeValue;
-    }
-
     // Hier zou het echte werk moeten gebeuren nav. xmlReq
     // en FCLTElement moeten we uitbreiden met antwoorden.
     var detected ="?";
@@ -228,7 +187,7 @@ function CreateFullPath(sPath)
                 // We weten wat te inserten, nu nog uitvoeren; rechten voldoende afgedekt via MLDUSE-check hierboven?
 
                 if (resultcode == -1) {  // nog steeds geen fouten
-                    var mldIns = buildInsert("mld_melding", fields);
+                    var mldIns = buildInsert("mld_melding", fields, { noValidateToken: true });
                     mld_key = mldIns.sequences["mld_melding_key"];
 
                     sql = mldIns.sql;

APPL/API/api_opdrsoap.asp

@@ -30,30 +30,13 @@
     Session.Codepage = 65001;
     Response.Charset = 'utf-8';
 
-    // Zet de loglevel in de API op 1 om de xml te loggen naar de TEMP folder
-    function XML2TEMP(xml, postfix)
-    {
-        if (!API.apidata.loglevel) return;
-        var in_file = Server.MapPath("./temp") + "/" + customerId + "_" + APIname + "_" + postfix + "_";
-        var jsDate = new Date();
-        var s = String(jsDate.getFullYear()) + padout(jsDate.getMonth() + 1) + padout(jsDate.getDate())
-              + padout(jsDate.getHours()) + padout(jsDate.getMinutes()) + padout(jsDate.getSeconds())
-        in_file = in_file + s + ".xml";
-        //Response.Write(in_file);Response.End;
-
-        var fs  = Server.CreateObject("Scripting.FileSystemObject");
-        var ts  = fs.CreateTextFile(in_file, true, -1); // -1 voor de Unicode
-        ts.WriteLine (xml);                             // Anders hier Invalid procedure call or argument
-        ts.Close();
-    }
-
     var APIname = getQParam("API");
     var APIKEY = getQParam("APIKEY");
     var API = new API_func(APIname, APIKEY);
     var appendRemark = -1;
     for (opt in API.apidata.options)
     {
-      if (opt = "appendRemark") 
+      if (opt = "appendRemark")
       {
          appendRemark = API.apidata.options["appendRemark"] == 1;
       }
@@ -61,13 +44,11 @@
 
     var tsql = "-";     // Voor tijdelijke statement
     var sql = "-";      // De uiteindelijke update-sql
-    var resultcode = -1;        /* zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed) */
-    var resulttekst = "";
 
     var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
     xmlReq.load(Request);
-    
-    XML2TEMP(xmlReq.xml, "IN");
+
+    if (API.apidata.loglevel) __Log2File(xmlReq.xml, APIname + "_IN");
 
     var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
     xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))
@@ -95,28 +76,6 @@
     }
     FCLTElement.appendChild(FCLTHeader);
 
-   // Luie oplossing: Oracle kan dit simpeler dan JavaScript
-   function XMLtoJsDate(xmlDate)
-   {
-        var sql = "select to_date("+safe.quoted_sql(xmlDate)+", 'YYYY-MM-DD HH24:MI:SS') FROM DUAL";
-        var oRs = Oracle.Execute(sql);
-        var dt = new Date(oRs(0).Value);
-        oRs.Close();
-        return dt;
-   }
-   function XMLval(xml, tag)
-   {
-        if (!xml)
-            return null;
-        var xx = xml.getElementsByTagName(tag);
-        if (!xx || !xx.length)
-            return null;
-        xx = xx[0].childNodes
-        if (!xx || !xx.length)
-            return null;
-        return xx[0].nodeValue;
-   }
-
     // Hier zou het echte werk moeten gebeuren n.a.v. xmlReq
     // en FCLTElement moeten we uitbreiden met antwoorden
     var detected ="?";
@@ -127,6 +86,9 @@
     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 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
@@ -162,7 +124,7 @@
                 opdr_key = oRs("mld_opdr_key").value;
                 oldstatus = oRs("mld_statusopdr_key").value;
                 topdr_key = oRs("mld_typeopdr_key").value;
-            }             
+            }
 
             if (opdr_key == -1) {
                 resultcode = 5;
@@ -178,9 +140,9 @@
                         + "  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 autoorder = oRs("mld_stdmelding_autoorder").value == 1;
 
-                    var mut_datum = null;
+                    var mut_datum = new Date();
                     if (txt_mut_datum && mld_opdr.typeopdr_afmeldmarge>0)
                     {
                         var mut_datum = XMLtoJsDate(txt_mut_datum);
@@ -302,7 +264,7 @@
                         {
                             if (opdr_fields.length>0)
                             {
-                                var mldUpd = buildTrackingUpdate("mld_opdr", "mld_opdr_key = " + opdr_key, opdr_fields);
+                                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.
@@ -312,14 +274,14 @@
                                 }
                             }
                         }
-                        
+
                         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);
+                                var mldUpd = buildTrackingUpdate("mld_melding", "mld_melding_key = " + mld_opdr.mld_key, mld_fields, { noValidateToken: true });
                                 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.
@@ -343,20 +305,20 @@
                                + "   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) 
+
+                          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') 
+
+                            if (kenmerk_type = 'C')
                             {
                               // we ondersteunen alleen nog maar karakter velden.
                               if (!oRs.eof)
@@ -411,7 +373,10 @@
                                   var oRs = Oracle.Execute(tsql);
 
                                   // Afhankelijk van sluitmelding nu melding status zetten (0=nooit, 1=vragen en 2=altijd)
-                                  if ((oRs("mld_typeopdr_sluitmelding").value == 2 || oRs("mld_typeopdr_sluitmelding").value == 1) && this_mld.canClose) {
+                                  // 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

APPL/API/api_phonebook_sample.html

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

APPL/API/api_ressoap.asp

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

APPL/API/phonebook_js.asp

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

APPL/API/shorturl.asp

@@ -17,8 +17,6 @@
                     dat is in tegenspraak met het betekenisloos zijn van de u-param
                     Als je dat wilt moet je maar BOOKMARK's gebruiken
 */
-
-    LCL_Disable = 1;
     ANONYMOUS_Allowed = 1;
 %>
 <!-- #include file="../Shared/common.inc"-->
@@ -28,21 +26,30 @@
     // For flexiblity reasons: Literal or runtime parameter(s), just pass through...
     var rest = String(Request.ServerVariables("QUERY_STRING")); // Request.ServerVariables("QUERY_STRING") is url-encoded,
                                                                 // dat is hier safer dan Request.QueryString
-    rest = rest.substring(("u="+u).length+1);
+    // Strip eventuele leading &fac_id=XXXX er ook af.
+    rest = rest.substring(rest.indexOf("u=")).substring(("u="+u).length+1);
 
     var sql = "SELECT fac_bookmark_path,"
             + "       fac_bookmark_query,"
             + "       prs_perslid_key_auth,"
-            + "       fac_bookmark_unauth_url"
+            + "       fac_bookmark_unauth_url,"
+            + "       fac_bookmark_expire"
             + "  FROM fac_bookmark"
-            + " WHERE fac_bookmark_id = " + safe.quoted_sql(u)
-            + "   AND (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)";
+            + " WHERE fac_bookmark_id = " + safe.quoted_sql(u);
     var oRs = Oracle.Execute(sql);
     if (oRs.Eof)
     {
-        Response.Write("BOOKMARK URL NOT FOUND");
-        Response.End;
+        shared.simpel_page(L("lcl_fac_bookmark_unknown"));
     }
+    if (oRs("fac_bookmark_expire").Value != null)
+    {
+        var expire = new Date(oRs("fac_bookmark_expire").Value);
+        if (expire <= new Date)
+        {
+            shared.simpel_page(L("lcl_fac_bookmark_expired"));
+        }
+    }
+
     var url = oRs("fac_bookmark_path").Value;
 
     if (oRs("prs_perslid_key_auth").Value)

APPL/BES/addFavourites.asp

@@ -35,6 +35,7 @@ function doSubmit()
   var srtdeel_key = getQParamInt('srtdeel_key');
 
   if (submitting) {
+    protectRequest.validateToken();
     // Sla de ingevoerde gegevens op in een nieuwe bestellingsaanvraag
 %>
     <body id="info" topmargin='0' onLoad="">
@@ -142,6 +143,7 @@ function doSubmit()
   var buttons =  [ {title: L("lcl_submit"), icon:"opslaan.png", action:"doSubmit()" },
                    {title: L("lcl_cancel"), icon: "undo.png", action:"FcltMgr.closeDetail(window, { cancel: true })" } ];
   CreateButtons(buttons);
+IFACE.FORM_END();
 %>
     </form>
 <%

APPL/BES/bes.inc

@@ -11,8 +11,6 @@
 
 */ %>
 <%
-    FCLTHeader.Requires({lcl: ["BES"]});
-
     bes =
     {
         setbestellingstatus:
@@ -756,6 +754,7 @@
               var perslid_key = oRs("prs_perslid_key").value;
               var dis_key = oRs("ins_discipline_key").value;
               var bestelopdr_status = oRs("bes_bestelopdr_status").value;
+              oRs.Close();
 
               var bresult = user.func_enabled("BES",
                                               dis_key, // discipline key
@@ -1132,7 +1131,7 @@
         var amount = bestelbedrag; // Indien geen agblimiet dan gehele bestel bedrag
 
         // Bepaal AGB limiet
-        var sql = "SELECT prs.getlimietagb(" + prs_key + ", " + S("prs_approvemethod") + ") agblimiet FROM DUAL";
+        var sql = "SELECT prs.getlimietagb(" + prs_key + ", " + S("prs_approvemethod") + ", " + dis_key + ") agblimiet FROM DUAL";
         var oRs = Oracle.Execute(sql);
         var agblimiet = oRs("agblimiet").value;
 
@@ -1163,10 +1162,10 @@
       // Geeft true als het bestelde bedrag boven de AGB-limiet van prs_key uit komt
       // en dus (eventueel) goedkeuring vereist zal zijn.
       // Negeer evt bestaand bestelbedrag van bes_key (indien > -1)
-      exceeds_agb: function(bestelbedrag, prs_key, bes_key)
+      exceeds_agb: function(bestelbedrag, prs_key, dis_key, bes_key)
       {
         if (bes_disc_info.disc_params_pgb == 2 || bes_disc_info.disc_params_pgb == 3)
-          return shared.exceeds_limietagb(bestelbedrag + bes.besteed_budget_agb(prs_key, bes_key), prs_key);
+          return shared.exceeds_limietagb(bestelbedrag + bes.besteed_budget_agb(prs_key, bes_key), prs_key, dis_key);
         else // Geen agb. Dan kan je ook niet boven de agb zitten
           return false;
       },
@@ -1233,7 +1232,48 @@
       {
         var sql = "BEGIN bes.changeorders("+ puserkey + ", " + pbestelling_key + "); END;";
         Oracle.Execute(sql);
+      },
+
+      bestelopdracht: function (bes_bestelling)
+      {
+        var l_orders_txt = [];
+        var l_orders_key = [];
+        sql_boi = "(SELECT bo.bes_bestelopdr_id, " +
+                  "        bes_bestelopdr_status, " +
+                  "        bes_bestelopdr_item_key, " +
+                  "        bo.bes_bestelopdr_key " +
+                  "   FROM BES_BESTELOPDR_ITEM boi, " +
+                  "        BES_BESTELOPDR bo " +
+                  "  WHERE bo.BES_BESTELOPDR_key = boi.BES_BESTELOPDR_key " +
+                  "  GROUP BY bo.bes_bestelopdr_id, bes_bestelopdr_status, bes_bestelopdr_item_key, bo.bes_bestelopdr_key)";
+        // Door welke bestelopdracht(en) wordt deze aanvraag afgehandeld?
+        sql = "SELECT DISTINCT boi.bes_bestelopdr_id"
+            + "     , boi.bes_bestelopdr_status"
+            + "     , boi.bes_bestelopdr_key"
+            + "  FROM bes_bestelling_item bi"
+            + "     , " + sql_boi + " boi"
+            + " WHERE bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key"
+            + "   AND bi.bes_bestelling_key =" + bes_bestelling.bes_key
+            + " ORDER BY 1";
+            oRs = Oracle.Execute(sql);
+        while(!oRs.eof)
+        {
+          var txt = S("bes_bestelopdr_prefix") + oRs("bes_bestelopdr_id").value;
+          if (oRs("bes_bestelopdr_status").value == 1) // afgewezen
+              txt += " (" + bes.getbesopdrstatustext(oRs("bes_bestelopdr_status").value) + ")";
+          if (bes_bestelling.parent_key)
+              txt += "*"; // wij zijn een change dus de opdracht ook
+          l_orders_txt.push(txt);
+          l_orders_key.push(oRs("bes_bestelopdr_key").value);
+          oRs.MoveNext();
+        }
+        oRs.Close();
+        result = { key : l_orders_key
+                 , txt : l_orders_txt
+                 };
+        return result;
       }
+
     }
 
  %>

APPL/BES/bes_approve.asp

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

APPL/BES/bes_bedrijf_srtprod.asp

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

APPL/BES/bes_bedrijfproduct_save.asp

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

APPL/BES/bes_bedrijfproduct_search_list.asp

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

APPL/BES/bes_bestelling.asp

@@ -50,7 +50,7 @@ if (bes_key == -1 && urole == "xx") // Vanuit prodsearch, probeer intelligente a
   urole = canFOF?"fo":"fe";
 }
 
-transitParam = buildTransitParam(["punch", "mld_key", "artikel_key", "ps", "pn", "act_key"]); // ps en pn zijn array vanuit bes_hook_punch.asp
+transitParam = buildTransitParam(["punch", "mld_key", "artikel_key", "ps", "pn", "act_key", "leverdatum", "flex_defaults"]); // ps en pn zijn array vanuit bes_hook_punch.asp
 
 // OVERIGE PARAMETERS
 
@@ -84,7 +84,6 @@ transitParam = buildTransitParam(["punch", "mld_key", "artikel_key", "ps", "pn",
       {
 <%      if (bes_key == -1)
         { %>
-          FcltMgr.startEdit(window);
           if (params.cancel || params.close)
           {
             FcltMgr.closeDetail(window, params );
@@ -132,6 +131,7 @@ transitParam = buildTransitParam(["punch", "mld_key", "artikel_key", "ps", "pn",
         {
 %>
         <script type="text/javascript" >
+         FcltMgr.fixActiveelementError();
          FcltMgr.openModalDetail("bes_select_discipline.asp", "<%=L("lcl_bes_fac_select_cat")%>",
                   { callback: function (data)
                       {
@@ -146,6 +146,13 @@ transitParam = buildTransitParam(["punch", "mld_key", "artikel_key", "ps", "pn",
         }
         else if (dis_key > 0) // Is het punchout?
         {
+            var autfunction = {fo: 'WEB_BESFOF', bo: 'WEB_BESBOF'}[urole] || 'WEB_BESUSE';
+            var authparams = user.checkAutorisation(autfunction, false, dis_key); // verplicht, is toch niet veel gevraagd?
+            // Eigenlijk had je hier zonder rechten al nooit mogen komen maar soms lukt het via een deeplink
+            // Vooral met punchout is dat erg pijnlijk: je kwam wel bij de leverancier, kon alles kiezen
+            // en later, pas bij terugkomst kreeg je melding dat je geen rechten had.
+            user.auth_required_or_abort(authparams.PRSwritelevel < 9 && authparams.ALGwritelevel < 9);
+
             sql = "SELECT bes_disc_params_punchouturl"
                 + "  FROM bes_disc_params dp"
                 + " WHERE dp.bes_ins_discipline_key = " + dis_key;

APPL/BES/bes_bestelling.js

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

APPL/BES/bes_delete.asp

@@ -15,6 +15,7 @@ DOCTYPE_Disable = 1;
 <!-- #include file="./bes.inc" -->
 
 <%
+protectRequest.validateToken();
 /***** Get webform parameters *****/
 var urole = getFParam("urole");
 

APPL/BES/bes_edit_bestelling.asp

@@ -47,6 +47,7 @@ if (bes_key == -1)
 var artikel_key = getQParamInt("artikel_key", -1); //deeplink/productsearch
 var from_punch = getQParamInt("punch", 0) == 1; // dan zijn pn en sn in de QueryString ook gezet.
                                                 // en mogen de details niet meer aangepast
+var leverdatum = getQParamInt("leverdatum", null); // Leverdatum
 var transitParam = buildTransitParam(["urole", "bes_key", "dis_key", "mld_key"]);
 
 var fronto = urole == "fo";
@@ -100,13 +101,18 @@ else // nieuwe bestelling. Defaults bepalen
   this_bes = { canChange: true,
                canItemsChange: !from_punch };
 
-  bes_bestelling.rfoDeliverydate = new Date();
-  if (bes_disc_info.disc_params_leverdagen > 0)
+  if (leverdatum)
+    bes_bestelling.rfoDeliverydate = new Date(leverdatum);
+  else
   {
-    sql = "SELECT fac.DatumTijdPlusUitvoerTijd(" + (new Date).toSQL() + "," + bes_disc_info.disc_params_leverdagen + ", 'DAGEN')"
-        + " FROM DUAL"
-    oRs = Oracle.Execute(sql);
-    bes_bestelling.rfoDeliverydate = new Date(oRs(0).Value);
+    bes_bestelling.rfoDeliverydate = new Date();
+    if (bes_disc_info.disc_params_leverdagen > 0)
+    {
+      sql = "SELECT fac.DatumTijdPlusUitvoerTijd(" + (new Date).toSQL() + "," + bes_disc_info.disc_params_leverdagen + ", 'DAGEN')"
+          + " FROM DUAL"
+      oRs = Oracle.Execute(sql);
+      bes_bestelling.rfoDeliverydate = new Date(oRs(0).Value);
+    }
   }
 
   if (frontend)
@@ -188,6 +194,15 @@ else // nieuwe bestelling. Defaults bepalen
   // Vul de punchoutkeuzes automatisch in
   var psrt_keys = getQParamIntArray("ps", []); // array met srtdeel_key's
   var pamounts = getQParamIntArray("pn", []); // array met aantallen
+
+  bes_bestelling.flex_defaults = {};
+  var flex_defaults = getQParam("flex_defaults", "").split("&"); // flex_defaults=bestellingid=12345
+  for (var i in flex_defaults)
+  {
+    var nm = flex_defaults[i].split("=")[0].toLowerCase();
+    var val = flex_defaults[i].split("=")[1];
+    bes_bestelling.flex_defaults[nm] = val;
+  }
 }
 %>
 
@@ -231,7 +246,7 @@ else // nieuwe bestelling. Defaults bepalen
       {
         if (zelf)
         { // Aanroep van onchange van kostenklant vinkje. zelf is dan checkbox object
-          if ($("#kostenklant").attr("checked"))
+          if ($("#kostenklant").prop("checked"))
           { // Kostenklant UIT => AAN: Zet eigen (default) kostenplaats van de ingevulde persoon. Indien niet aanwezig dan wordt suggestbox automatisch leeg gemaakt.
             if ($("#person").val() > 0)
             { // Persoon is ingevuld.
@@ -271,7 +286,7 @@ else // nieuwe bestelling. Defaults bepalen
             frm.ordernr.className = '';
             frm.ordernr.value = ''; // Altijd wisselen bij toggle
 <%        } %>
-          if (prop.attr("checked"))
+          if (prop.prop("checked"))
           {
 <%          if (S("show_ordernr") == 2)
             { %>
@@ -367,7 +382,11 @@ else // nieuwe bestelling. Defaults bepalen
               changeKostK(); // Even ordernr goed aan/uitzetten
 <%          }
           }
-%>
+          if (this_bes.canItemsChange)
+          { %>
+            sgBesItem.CheckJustOne();
+<%        } %>
+
           if (front_end)
             showPicture('<%=bes_disc_info.disc_params_logo_url%>');
 
@@ -604,7 +623,8 @@ else // nieuwe bestelling. Defaults bepalen
               datum   : bes_bestelling.rfoDeliverydate,
               maxPast : (bes_disc_info.disc_params_leverdagen >= 0)? 0 : null,
               maxFuture: S("bes_datum_limiet"),
-              readonly: bes_key > 0 && !this_bes.canMainChange,
+              readonly: (bes_key > 0 && !this_bes.canMainChange) || leverdatum,
+              saveValue: (leverdatum!=null), // wel submitten
               required: true
             });
 
@@ -658,7 +678,8 @@ else // nieuwe bestelling. Defaults bepalen
                                    kenmerktype: "B",
                                    reado: (bes_bestelling.bes_key > 0) && !this_bes.canMainChange,
                                    prs_key : bes_bestelling.perslid_key_voor,
-                                   flexcolumns: S("bes_flexcolumns")
+                                   flexcolumns: S("bes_flexcolumns"),
+                                   defaults : bes_bestelling.flex_defaults // flex_defaults=bestellingid=12345
                                  });
           %></td></tr><%
         BLOCK_END(); %>
@@ -809,7 +830,8 @@ else // nieuwe bestelling. Defaults bepalen
           </div>
 <%      }
 %>      </td></tr><%
-        BLOCK_END(); %>
+        BLOCK_END(); IFACE.FORM_END();
+%>
       </form>
       <iframe src="../Shared/empty.html"
               onload='iface.button.enable("btn_bes_submit")';

APPL/BES/bes_edit_bestelling_save.asp

@@ -126,7 +126,7 @@ if (bes_disc_info.disc_params_pgb > 0)
   // S("prs_dep_default_kpn_voor") == 1: de "voor wie" (bestelling voor) prs_key_voor
   // Als bes_disc_params_for_others niet is gezet zijn prs_key en prs_key_voor identiek
   var exceeds_pgb = bes.exceeds_pgb(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), dis_key, bes_key)
-  var exceeds_agb = bes.exceeds_agb(staffel_info.totaalbedrag, (S("prs_dep_default_kpn_voor") == 0? prs_key : prs_key_voor), bes_key)
+  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))
@@ -300,6 +300,7 @@ currentKenmerkenSQL = " SELECT kb.bes_kenmerk_key"
                     + " AND bes_bestelling_key = " + bes_key;
 allKenmerkenSQL     = "SELECT " + lcl.xsql('t.bes_srtkenmerk_omschrijving', 't.bes_srtkenmerk_key') +" kenmerk_omschrijving"
                     + ",      b.bes_srtkenmerk_key srtkenmerk_key"
+                    + ",      fac_kenmerkdomein_key"
                     + "  FROM bes_kenmerk b, "
                     + "       bes_srtkenmerk t"
                     + " WHERE b.bes_srtkenmerk_key = t.bes_srtkenmerk_key"

APPL/BES/bes_edit_item_kenmerk.asp

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

APPL/BES/bes_edit_opdr.asp

@@ -48,6 +48,8 @@ var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);
   var submitting = getQParamInt("submit", 0) == 1;
   if (submitting)
   {
+    protectRequest.validateToken();
+
     itemregels = getFParamInt("itemregels");
 
     for (i = 1; i <= itemregels; i++)
@@ -267,6 +269,7 @@ var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);
 %>
         <input type='hidden' id='itemregels' name='itemregels' value='<%=bes_bestelopdr.artikel_arr.length%>'>
         <input type='hidden' id='total' name='total' value='<%=safe.jsfloat(total)%>'>
+<% IFACE.FORM_END(); %>
       </form>
     </div>
   </body>

APPL/BES/bes_edit_srtdeel.asp

@@ -165,7 +165,7 @@ else
             onSubmit="bes_submit()">
 <%      BLOCK_START("besArtikel", L("lcl_bes_srtdeelblok"));
 
-        RWFIELDTR("srtdeel_nr",      "fld", L("lcl_bes_srtdeel_nr"), art.nr, { maxlength: 32 });
+        RWFIELDTR("srtdeel_nr",      "fld", L("lcl_bes_srtdeel_nr"), art.nr, { required: true, maxlength: 32 });
         RWFIELDTR("omschrijving",    "fld", L("lcl_bes_srtdeel_oms"), art.omschrijving, { required: true, maxlength: 100 });
         ROFIELDTR("fld", L("lcl_bes_discipline"), art.disc_oms);
         var sql = "SELECT bes_srtgroep_key, "
@@ -241,6 +241,7 @@ else
         RWFIELDTR("depotverdeelpct", "fldshort", L("lcl_bes_depotverdeelpct"), art.depotverdeelpct);
 
         BLOCK_END();
+IFACE.FORM_END();
 %>
       </form>
     </div>

APPL/BES/bes_edit_srtdeel_save.asp

@@ -12,6 +12,7 @@
 
 <% FCLTHeader.Requires({ plugins:["jQuery"] }) %>
 <%
+  var authparams = user.checkAutorisation("WEB_BESMSU");
   var srtdeel_key = getQParamInt( "srtdeel_key", "-1" );
 
   var fields =  [ { dbs: "bes_srtgroep_key",        typ: "key",      frm: "srtgroep" },

APPL/BES/bes_edit_srtprod.asp

@@ -142,6 +142,7 @@ else
         RWTEXTAREATR("opmerking", "fld", L("lcl_bes_opmerking"), art.opmerking);
 
         BLOCK_END();
+IFACE.FORM_END();
 %>
       </form>
     </div>

APPL/BES/bes_fe_menu.asp

@@ -37,12 +37,14 @@ var disckey = getQParamInt("disc",0);
 
        $(function ()
          {
-            jQuery('#accordion').accordion({alwaysOpen: false,
+            jQuery('#accordion').accordion({collapsible: true,
                                             active: false,
+                                            heightStyle: "content",
                                             autoHeight: false,
-                                            change: FcltMgr.resized,
-                                            changestart: function(event, ui) {
-                                                    $("img", ui.newContent).each(function ()
+                                            activate: FcltMgr.resized,
+                                            beforeActivate: function(event, ui)
+                                            {  // delay load images
+                                                    $("img", ui.newPanel ).each(function ()
                                                             {
                                                                 this.src = this.getAttribute("theSrc");
                                                             }

APPL/BES/bes_flexkenmerk.inc

@@ -149,7 +149,8 @@ function generateFlexKenmerkCode(params)
                     fnIsReadonly: isReadonly,
                     prs_key: params.prs_key,
                     hideVervallen: bes_key<0,
-                    parentKey: bes_key }
+                    parentKey: bes_key,
+                    defaults: params.defaults }
                  );
 %>
     </table>

APPL/BES/bes_hook_punch.asp

@@ -53,8 +53,8 @@
       basketEmpty = true; // and exit loop
     }
     else
-    {   // Maak item (eventueel) aan in catalogus
-        var prijs = !(prijs!=""&&isNaN(parseFloat(price)))?parseFloat(price).toFixed(2):"NULL";
+    { // Maak item (eventueel) aan in catalogus
+      var prijs = !(prijs!=""&&isNaN(parseFloat(price)))?parseFloat(price).toFixed(2):"NULL";
       sql = "BEGIN bes.upsert_srtdeel "
           + "     ( " + dis_key
           + "     , " + safe.quoted_sql(productGroup, 60)        // bes_srtgroep_omschrijving
@@ -91,7 +91,21 @@
       {
         orderurl += "&ps=" + oRs("bes_srtdeel_key").value + "&pn=" + quantity;
       }
-      i= i+1;
+
+      // Check customer specific restrictions
+      // customer hook
+      pResult = new HookResult();
+
+      // Klantspecifieke check functie (hookfunction) voor de invoer
+      var bes_punch_receive = custfunc.bes_punch_receive(Request.Form, oRs("bes_srtdeel_key").value, i, pResult);
+      if (!bes_punch_receive)
+      {
+        abort_with_warning(pResult.errmsg);
+      }
+      else
+        orderurl += bes_punch_receive.orderurl;
+
+      i = i + 1;
     }
   }
   // Mocht deze URL ooit te lang worden dan is een Sessie-variabele een oplossing

APPL/BES/bes_list.asp

@@ -39,6 +39,8 @@ var outputmode = getQParamInt("outputmode", 0);
 var tiny = getQParamInt("tiny", 0);
 var rfo_key = getQParamInt("bes_key", -1);
 var mld_key = getQParamInt("mld_key", -1);
+if (mld_key > 0)
+    cache.whenNoRecords("SELECT 1 FROM bes_bestelling WHERE mld_melding_key = " + mld_key);
 var groupbes = getQParamInt("groupby", -1); // Groepering 1 (nodig indien mi)
 var groupbes2 = getQParamInt("groupby2", null); // Groepering 2
 

APPL/BES/bes_list.inc

@@ -18,6 +18,7 @@
          groupbes        groupbes the orders by
          groupbes2       groupbes2 the orders by
          requestor_key   search for orders for selected requestor
+         personfor_key   search for orders for person
          company_key     search for orders for the selected company
          dep_key         search for orders for the selected department
          kp              search for orders with the given account text in account description
@@ -88,6 +89,7 @@ function bes_list (pautfunction, params)
   // params.groupbes      : key
   // params.groupbes2     : key
   // params.requestor_key : key
+  // params.personfor_key : key
   // params.company_key   : key
   // params.dep_key       : key
   // params.kp            : wildcard string
@@ -134,6 +136,7 @@ function bes_list (pautfunction, params)
   var groupbes = params.groupbes;
   var groupbes2 = params.groupbes2;
   var requestor_key = params.requestor_key;
+  var personfor_key = params.personfor_key;
   var company_key = params.company_key;
   var dep_key = params.dep_key;
   var kp = params.kp;
@@ -336,6 +339,9 @@ function bes_list (pautfunction, params)
             if (requestor_key)
                    sql_filter += " AND b.prs_perslid_key = " + requestor_key;
 
+            if (personfor_key)
+                   sql_filter += " AND b.prs_perslid_key_voor = " + personfor_key;
+
             if (dep_key)
             {
               sql_org = "SELECT ab.niveau"
@@ -403,6 +409,14 @@ function bes_list (pautfunction, params)
                  : bes.getbesbestellingstatustext(oRs("bes_bestelling_status").value))
         }
 
+        function fncolOrderVoorMI(oRs)
+        {
+          var bestellingvoor = oRs("ordervoor").value
+          if (!excel && oRs("requestor").value == bestellingvoor)
+          	bestellingvoor = "";
+          return safe.html(bestellingvoor);
+        }
+
         /**************************************************
          * End callback functies ResultsetTable for only MI
          *************************************************/
@@ -416,7 +430,10 @@ 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";
 
           sql_group_by = " GROUP BY b.bes_bestelling_key"
                        + ", bes_bestelling_parentkey"
@@ -426,7 +443,8 @@ function bes_list (pautfunction, params)
                        + ", " + S("prs_pers_string")
                        + ", " + S("prs_dep_string")
                        + ", b.bes_bestelling_status"
-                       + ", b.bes_bestelling_module";
+                       + ", b.bes_bestelling_module"
+                       + ", b.prs_perslid_key_voor";
 
           sql += ", b.bes_bestelling_status"
                + ", b.bes_bestelling_module"
@@ -493,7 +511,8 @@ function bes_list (pautfunction, params)
           // Kolommen
           rst.addColumn(new Column({caption: L("lcl_bes_key"), content: fncolBesNr}));
           rst.addColumn(new Column({caption: L("lcl_bes_add_date"), content: "bes_bestelling_datum"}));
-          rst.addColumn(new Column({caption: L("lcl_rfo_requestor"), content: "requestor", hasActions: true}));
+          rst.addColumn(new Column({caption: L("lcl_rfo_requestor"), content: "requestor"}));
+          rst.addColumn(new Column({caption: L("lcl_bes_order_for"), content: fncolOrderVoorMI, combine: true, hasActions: true}));
           rst.addColumn(new Column({caption: L("lcl_bes_organisation"), content: "organisation"}));
           rst.addColumn(new Column({caption: L("lcl_bes_RFO_status"), content: fncolStatusOmschr}));
           rst.addColumn(new Column({caption: L("lcl_rfo_total_sum_eur"), content: "totaalbedrag", datatype: "currency", total: true})); //@@ TODO: AANPASSEN
@@ -957,6 +976,9 @@ function bes_list (pautfunction, params)
             if (requestor_key)
               sql_filter += " AND b.prs_perslid_key = " + requestor_key;
 
+            if (personfor_key)
+              sql_filter += " AND b.prs_perslid_key_voor = " + personfor_key;
+
             if (kp)
             {
               sql_filter += " AND bi.bes_bestelopdr_item_key IN "
@@ -1241,6 +1263,9 @@ function bes_list (pautfunction, params)
             + ", SUM(COALESCE(bi.bes_bestelling_item_prijs, 0) * bi.bes_bestelling_item_aantal) bedrag"
             + ", b.bes_bestelling_status"
             + "," + S("prs_pers_string") + " naam"
+            + ", (SELECT " + S("prs_pers_string")
+              + " FROM prs_perslid p"
+              + " WHERE p.prs_perslid_key = b.prs_perslid_key_voor) ordervoor"
             + " FROM bes_bestelling b, mld_adres ma, prs_kostenplaats k"
             + ", bes_bestelling_item bi, prs_perslid p"
             + ", bes_srtdeel isd"
@@ -1282,6 +1307,7 @@ function bes_list (pautfunction, params)
             + ", b.bes_bestelling_datum"
             + ", b.bes_bestelling_status "
             + "," + S("prs_pers_string")
+            + ", b.prs_perslid_key_voor"
             + " ORDER BY b.bes_bestelling_datum DESC";
 
         /**********************************************
@@ -1307,6 +1333,14 @@ function bes_list (pautfunction, params)
           return data;
         }
 
+        function fncolOrderVoorFE(oRs)
+        {
+          var bestellingvoor = oRs("ordervoor").value
+          if (!excel && oRs("naam").value == bestellingvoor)
+          	bestellingvoor = "";
+          return safe.html(bestellingvoor);
+        }
+
         /**************************************************
          * End callback functies ResultsetTable for fe only
          *************************************************/
@@ -1330,8 +1364,10 @@ function bes_list (pautfunction, params)
         rst.addColumn(new Column({caption: L("lcl_account"), content: "kpn_string"}));
         rst.addColumn(new Column({caption: L("lcl_rfo_total_sum_eur"), content: "bedrag", datatype: "currency"}));
         if (S("prs_collegas_used") == 1)
+        {
           rst.addColumn(new Column({caption: L("lcl_rfo_requestor"), content: "naam"}));
-
+          rst.addColumn(new Column({caption: L("lcl_bes_order_for"), content: fncolOrderVoorFE, combine: true}));
+        }
         // Acties
         rst.addAction({image: "../Pictures/spot1.jpg", action: "besEdit", caption: L("lcl_edit"), isDefault: true});
 
@@ -1342,10 +1378,16 @@ function bes_list (pautfunction, params)
       }
       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") + ") ";
+
         sql = "SELECT b.bes_bestelling_key"
             + ", bes_bestelling_parentkey"
             + ", bes_bestelling_datum datum"
             + ", bes_bestelling_retourvan_key"
+            + ", (SELECT " + S("prs_pers_string")
+              + " FROM prs_perslid p"
+              + " WHERE p.prs_perslid_key = b.prs_perslid_key_voor) ordervoor"
             + ", " + S("prs_pers_string") + " prs_string"
             + ", m.mld_adres_naam"
             + ", bes_bestelling_opmerking"
@@ -1360,7 +1402,7 @@ function bes_list (pautfunction, params)
             + ", MAX(bes_bestelopdr_item_key) isordered"
             + ", (SELECT " + S("prs_pers_string")
               + " FROM prs_perslid p"
-              + " WHERE p.prs_perslid_key = prs.getkpverantwoordelijke (b.prs_kostenplaats_key, " + S("prs_approvemethod") + ", " + (S("can_selfapprove") == 1? -1 : "b.prs_perslid_key") + ")) fiatteur"
+              + " WHERE p.prs_perslid_key = prs.getkpverantwoordelijke (b.prs_kostenplaats_key, " + S("prs_approvemethod") + ", " + exclude_fiatter + ")) fiatteur"
             + ", (SELECT " + S("prs_pers_string")
               + " FROM prs_perslid p"
               + " WHERE p.prs_perslid_key = b.bes_bestelling_fiat_user) fiat_user"
@@ -1421,6 +1463,8 @@ function bes_list (pautfunction, params)
           {
             sql += " AND b.prs_perslid_key = " + requestor_key;
           }
+          if (personfor_key)
+            sql += " AND b.prs_perslid_key_voor = " + personfor_key;
           if (kp)
             sql += " AND k.prs_kostenplaats_upper LIKE " + safe.quoted_sql_wild(kp + "%");
           if (dep_key)
@@ -1456,7 +1500,8 @@ function bes_list (pautfunction, params)
                          + ", k.prs_perslid_key"
                          + ", k.prs_kostenplaatsgrp_key"
                          + ", b.bes_bestelling_fiat_user"
-                         + ", l.alg_locatie_key";
+                         + ", l.alg_locatie_key"
+                         + ", prs_perslid_key_voor";
 
         sql = discx3d (sql,
                        "bd.ins_discipline_key",
@@ -1549,6 +1594,14 @@ function bes_list (pautfunction, params)
                 return fncolStatusOmschr(oRs);
         }
 
+        function fncolOrderVoorFOBO(oRs)
+        {
+          var bestellingvoor = oRs("ordervoor").value
+          if (!excel && oRs("prs_string").value == bestellingvoor)
+          	bestellingvoor = "";
+          return safe.html(bestellingvoor);
+        }
+
         /*********************************************************
          * End callback functies ResultsetTable for fo and bo only
          ********************************************************/
@@ -1582,6 +1635,7 @@ function bes_list (pautfunction, params)
         rst.addColumn(new Column({caption: L("lcl_bes_discipline"), content: "categorie", hasActions: true}));
         rst.addColumn(new Column({caption: L("lcl_bes_RFO_status"), content: fncolStatus}));
         rst.addColumn(new Column({caption: L("lcl_rfo_requestor"), content: "prs_string"}));
+        rst.addColumn(new Column({caption: L("lcl_bes_order_for"), content: fncolOrderVoorFOBO, combine: true}));
         rst.addColumn(new Column({caption: L("lcl_delivery_address"), content: "mld_adres_naam"}));
         if (backo)
           rst.addColumn(new Column({caption: L("lcl_rfo_total_sum_eur"), content: "bedrag", datatype: "currency", total: true}));

APPL/BES/bes_opdr.asp

@@ -24,6 +24,7 @@ var backo = (urole == "bo");
 var minfo = (urole == "mi");
 var frontend = (urole == "fe" || (!fronto & !backo & !minfo));
 var ordernr = getQParamInt('ordernr');
+var autoopdr = getQParam('autoopdr', '');
 
 var sql = "SELECT bo.bes_bestelopdr_id"
         + "     , bo.bes_bestelopdr_status"
@@ -69,7 +70,7 @@ oRs.Close();
   var authparams = user.checkAutorisation(autfunction);
 %>
   <body id="editbody">
-<%  page = "./bes_show_opdr.asp?urole=" + urole + "&ordernr=" + ordernr;
+<%  page = "./bes_show_opdr.asp?urole=" + urole + "&ordernr=" + ordernr + "&autoopdr=" + autoopdr;
 
     IFRAMER("opdrFrame", page, { title: L("lcl_opdr_frame_algemeen"),
                                 initHeight: "200px",

APPL/BES/bes_reject.asp

@@ -55,6 +55,7 @@ user.anything_todo_or_abort(toberejected > 0); // We klagen niet over enkele wel
 
 <%  if (submitting && opmerk != "")
     {
+      protectRequest.validateToken();
       for (var i = 0; i < hasnoparentkey.length; i++)
       {
         sql = "UPDATE bes_bestelling"
@@ -73,9 +74,12 @@ user.anything_todo_or_abort(toberejected > 0); // We klagen niet over enkele wel
 %>      <script type="text/javascript">
           jQuery(document).ready(function()
                                  {
+                                   var data = { urole: "bo",
+                                                bes_key: <%=hasparentkey.join(",")%>
+                                              };
+                                   <% protectRequest.dataToken("data"); %>
                                    $.post("bes_delete.asp",
-                                          { urole: "bo",
-                                            bes_key: <%=hasparentkey.join(",")%> },
+                                          data,
                                           function(json, textStatus)
                                           {
                                              FcltMgr.closeDetail( window, { close: true, success: true, opmerk: "<%=opmerk%>" });
@@ -106,6 +110,7 @@ user.anything_todo_or_abort(toberejected > 0); // We klagen niet over enkele wel
           if (!validateForm("rejectform"))
             return false;
           document.rejectform.submit();
+          return true; // disable button
         }
 
         function bes_cancel()
@@ -122,9 +127,10 @@ user.anything_todo_or_abort(toberejected > 0); // We klagen niet over enkele wel
         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'"});
         BLOCK_END();
-        var buttons =  [{ title: L("lcl_reject"), icon: "opslaan.png", action: "bes_reject()" },
+        var buttons =  [{ title: L("lcl_reject"), icon: "opslaan.png", action: "bes_reject()", singlepress: true, id: "btn_reject_submit" },
                         { title: L("lcl_cancel"), icon: "undo.png", action: "bes_cancel()" }];
         CreateButtons(buttons);
+IFACE.FORM_END();
 %>
       </form>
   </body>

APPL/BES/bes_retour.asp

@@ -57,8 +57,9 @@ user.auth_required_or_abort(this_bes.canRetourBES);
 
         if (checkRetour()) {
             document.forms.u2.submit();
+            return true; // disable button
         } else {
-          alert(L("lcl_bes_no_retour"));
+            alert(L("lcl_bes_no_retour"));
         }
       }
 
@@ -120,6 +121,7 @@ user.auth_required_or_abort(this_bes.canRetourBES);
     var submitting = getQParamInt("submit", 0) == 1;
     if (submitting)
     {
+      protectRequest.validateToken();
       // Sla de ingevoerde gegevens op in een nieuwe bestellingsaanvraag
 
       var deliveryAddr = getFParam('deliveryAddr');
@@ -421,10 +423,11 @@ user.auth_required_or_abort(this_bes.canRetourBES);
       <input type='hidden' id='count' name='count' value='<%=count%>'>
 <%    BLOCK_END()
 
-      var buttons = [{title: L("lcl_submit"), icon: "opslaan.png", action: "doSubmit()"},
+      var buttons = [{title: L("lcl_submit"), icon: "opslaan.png", action: "doSubmit()", singlepress: true, id: "btn_retour_submit"},
                      {title: L("lcl_cancel"), icon: "undo.png", action:"FcltMgr.closeDetail(window, {cancel: true});" }
                     ];
       CreateButtons(buttons);
+IFACE.FORM_END();
 %>
     </form>
 </body>

APPL/BES/bes_search.asp

@@ -121,6 +121,14 @@ switch(urole)
 
 // 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"
+    + " from bes_v_aanwezigdiscipline bd, bes_disc_params bdp"
+    + " where bdp.bes_ins_discipline_key = bd.ins_discipline_key"
+    + " and bes_disc_params_for_others = 1"
+oRs = Oracle.Execute(sql);
+var has_bes_disc_params_for_others = (oRs("aantal").value != 0); // minimaal 1 discipline waarvoor "Bestelling voor" kan worden gebruikt.
+oRs.Close();
 %>
 
 <html>
@@ -342,14 +350,23 @@ var authparams = user.checkAutorisation(autfunction);
             <table>
 <%          if (!frontend)
             {
-              //  <!-- Aanvrager -->
-                  FCLTpersoonselector("sName_key", // requestor
-                                      "sgPerson",
-                                      { perslidKey: prs_key,
-                                        label: L("lcl_rfo_requestor"),
-                                        filtercode: "BES",
+                //  <!-- Aanvrager -->
+                FCLTpersoonselector("sName_key", // requestor
+                                    "sgPerson",
+                                    { perslidKey: prs_key,
+                                      label: L("lcl_rfo_requestor"),
+                                      filtercode: "BES",
+                                      trclass: "primsearch",
+                                      autlevel: authparams.PRSreadlevel,
+                                      whenEmpty: L("lcl_search_generic")  // want filter
+                                    });
+                // <!-- Bestelling voor -->
+                if (has_bes_disc_params_for_others)
+                  FCLTpersoonselector("personFor",
+                                      "sgPersonFor",
+                                      { label: L("lcl_bes_order_for"),
+                                        filtercode: 'BESV',
                                         trclass: "primsearch",
-                                        autlevel: authparams.PRSreadlevel,
                                         whenEmpty: L("lcl_search_generic")  // want filter
                                       });
                 // <!-- Organisatie -->

APPL/BES/bes_search_list.asp

@@ -55,6 +55,7 @@ else
   var groupbes = getQParamInt("groupby", -1); // Groepering 1
   var groupbes2 = getQParamInt("groupby2", -1); // Groepering 2
   var requestor_key = getQParamInt("sName_key", -1);
+  var personfor_key = getQParamInt("personFor", -1);
   var company_key = getQParamInt("sComp_key", -1);
   var dep_key = getQParamInt("sDept_key", -1);
   var kp = getQParam("kp", "");
@@ -69,6 +70,7 @@ else
   params.groupbes      = (groupbes != -1? groupbes : null);
   params.groupbes2     = (groupbes2 != -1? groupbes2 : null);
   params.requestor_key = (requestor_key != -1? requestor_key : null);
+  params.personfor_key = (personfor_key != -1? personfor_key : null);
   params.company_key   = (company_key != -1? company_key : null);
   params.dep_key       = (dep_key != -1? dep_key : null);
   params.kp            = (kp != ""? kp : null);

APPL/BES/bes_show_bestelling.asp

@@ -26,10 +26,7 @@
 <%
 FCLTHeader.Requires({plugins:["suggest","jQuery"],
                           js: ["date.js", "./bes_bestelling.js",
-                               "./sel_items_tab.js", "num2curr.js"],
-                          lcl: ["MLD", "SHARED"]})
-
-
+                               "./sel_items_tab.js", "num2curr.js"] })
 
 // AUTORISATIEPARAMETERS
    var urole = getQParamSafe("urole");
@@ -82,9 +79,12 @@ FCLTHeader.Requires({plugins:["suggest","jQuery"],
 <% } %>
         if (confirm(txt + "<%=L("lcl_bes_delete_1") + S("bes_bestelling_prefix") + bes_key + L("lcl_bes_delete_2")%>") )
         {
+            var data = { urole: "<%=urole%>",
+                         bes_key: <%=bes_key%>
+                       };
+            <% protectRequest.dataToken("data"); %>
             $.post("bes_delete.asp",
-                   { urole: "<%=urole%>",
-                     bes_key: <%=bes_key%> },
+                   data,
                    function(json, textStatus)
                    {
                      if (json.change)
@@ -218,10 +218,13 @@ function bes_approve()
 {
   if (confirm(L("lcl_bes_approve_1") + "<%=bes_key%>" + L("lcl_bes_approve_2")))
   {
+    var data = { bes_key: <%=bes_key%>
+               };
+    <% protectRequest.dataToken("data"); %>
     $.post("bes_approve.asp",
-           { bes_key: <%=bes_key%> },
-             FcltCallbackRefresh,
-             "json");
+           data,
+           FcltCallbackRefresh,
+           "json");
   }
 }
 

APPL/BES/bes_show_opdr.asp

@@ -21,6 +21,7 @@ FCLTHeader.Requires({ plugins: ["jQuery"] })
 /***** Get webform parameters *****/
 var urole = getQParamSafe("urole");
 var opdr_key = getQParamInt('ordernr');
+var autoopdr = getQParam('autoopdr', '');
 
 var bes_bestelopdr = bes.bestelopdracht_info(opdr_key);
 var bes_bestelling = bes.bestelling_info(bes_bestelopdr.bes_key_str[0]);
@@ -40,9 +41,12 @@ var this_bestelopdr = bes.func_enabled_bestelopdracht(opdr_key);
       {
         if (confirm(L("lcl_bes_confirm_sent").format("<%=S("bes_bestelopdr_prefix") + bes_bestelopdr.bestelopdr_id%>")))
         {
+          var data = { urole: "<%=urole%>",
+                       opdr_key: <%=opdr_key%>
+                     };
+          <% protectRequest.dataToken("data"); %>
           $.post("opdr_sent.asp",
-                 { urole: "<%=urole%>",
-                   opdr_key: <%=opdr_key%> },
+                 data,
                  FcltCallbackRefresh,
                  "json");
         }
@@ -52,9 +56,12 @@ var this_bestelopdr = bes.func_enabled_bestelopdracht(opdr_key);
       {
         if (confirm(L("lcl_bes_confirm_accept").format("<%=S("bes_bestelopdr_prefix") + bes_bestelopdr.bestelopdr_id%>")))
         {
+          var data = { urole: "<%=urole%>",
+                       opdr_key: <%=opdr_key%>
+                     };
+          <% protectRequest.dataToken("data"); %>
           $.post("opdr_accept.asp",
-                 { urole: "<%=urole%>",
-                   opdr_key: <%=opdr_key%> },
+                 data,
                  <%=bes_bestelling.parent_key? "FcltCallbackClose" : "FcltCallbackRefresh"%>,
                  "json");
         }
@@ -87,7 +94,7 @@ 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="+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);
 %>
         var subject = "<%=safe.jsstring(subjectMail)%>";
         var url = "<%=safe.jsstring(protectQS.create(urlMail))%>";
@@ -100,10 +107,18 @@ var this_bestelopdr = bes.func_enabled_bestelopdracht(opdr_key);
               window.location.href = "bes_edit_opdr.asp?urole=<%=urole%>&ordernr=<%=opdr_key%>";
       }
      jQuery(document).ready(function()
-                             {
-                               $('textarea').resize(function() { FcltMgr.resized(window) });
-                               $('textarea').autogrow();
-                             });
+                            {
+                              $('textarea').resize(function() { FcltMgr.resized(window) });
+                              $('textarea').autogrow();
+<%                            if (autoopdr == 'BES2CO')
+                              { %>
+                                bes_opdr_accept();
+<%                            }
+                              else if (autoopdr == 'BES2RE')
+                              { %>
+                                bes_opdr_reject();
+<%                            } %>
+                            });
     </script>
   </head>
 

APPL/BES/bes_show_srtdeel.asp

@@ -102,10 +102,15 @@ oRs.Close();
       {
          var srtdeel_key = <%=srtdeel_key%>;
          if (confirm(L("lcl_bes_del_srtdeel")))
+         {
+          var data = { bes_srtdeel_key: <%=srtdeel_key%>
+                     };
+          <% protectRequest.dataToken("data"); %>
              $.post("bes_srtdeel_delete.asp",
-                    { bes_srtdeel_key: <%=srtdeel_key%> },
-                      FcltCallbackClose,
-                      "json");
+                    data,
+                    FcltCallbackClose,
+                    "json");
+         }
       }
     </script>
   </head>

APPL/BES/bes_show_srtprod.asp

@@ -79,10 +79,15 @@ oRs.Close();
       {
          var srtprod_key = <%=srtprod_key%>;
          if (confirm(L("lcl_bes_del_srtprod")))
-             $.post("bes_srtprod_delete.asp",
-                 { bes_srtprod_key: <%=srtprod_key%> },
-                   FcltCallbackClose,
-                   "json");
+         {
+           var data = { bes_srtprod_key: <%=srtprod_key%>
+                      };
+           <% protectRequest.dataToken("data"); %>
+           $.post("bes_srtprod_delete.asp",
+                  data,
+                  FcltCallbackClose,
+                  "json");
+         }
       }
     </script>
   </head>

APPL/BES/bes_srtdeel_delete.asp

@@ -14,6 +14,7 @@ DOCTYPE_Disable = 1;
 <!-- #include file="../Shared/json2.js" -->
 
 <%
+protectRequest.validateToken();
 /***** Get webform parameters *****/
 var bes_srtdeel_key = getFParamInt("bes_srtdeel_key");
 /***** End get webform parameters *****/

APPL/BES/bes_srtdeel_prijs.asp

@@ -121,6 +121,7 @@ var TransitParam      = buildTransitParam(["srtdeel_prijs_key", "srtdeel_key"]);
       var buttons =  [ {title: L("lcl_submit"), icon: "accept.png", action: "bes_submit()" },
                        {title: L("lcl_cancel"), icon: "cancel.png", action: "bes_cancel()" } ];
       CreateButtons(buttons);
+IFACE.FORM_END();
 %>
     </form>
   </body>

APPL/BES/bes_srtdeel_prijs_list.asp

@@ -14,8 +14,7 @@
 <!-- #include file="../Shared/iface.inc" -->
 <!-- #include file="../Shared/resultset_table_v2.inc" -->
 <%
-FCLTHeader.Requires({ js: ["jquery-ui.js"],
-                      lcl: ["BES"]});
+FCLTHeader.Requires({ js: ["jquery-ui.js"] });
 
 var srtdeel_key = getQParamInt("srtdeel_key");
 var outputmode = getQParamInt("outputmode", 0);

APPL/BES/bes_srtprod_delete.asp

@@ -14,6 +14,7 @@ DOCTYPE_Disable = 1;
 <!-- #include file="../Shared/json2.js" -->
 
 <%
+protectRequest.validateToken();
 /***** Get webform parameters *****/
 var bes_srtprod_key = getFParamInt("bes_srtprod_key");
 /***** End get webform parameters *****/

APPL/BES/bes_srtprod_prijs.asp

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

APPL/BES/bes_srtprod_prijs_list.asp

@@ -14,15 +14,13 @@
 <!-- #include file="../Shared/iface.inc" -->
 <!-- #include file="../Shared/resultset_table_v2.inc" -->
 <%
-FCLTHeader.Requires({ js: ["jquery-ui.js"],
-                      lcl: ["BES"]});
+FCLTHeader.Requires({ js: ["jquery-ui.js"] });
 
 var srtprod_key = getQParamInt("srtprod_key");
 var outputmode = getQParamInt("outputmode", 0);
 var showall = getQParamInt("showall", 0) == 1;
 
 var authparams = user.checkAutorisation("WEB_BESMSU");
-
 %>
 
 <html>

APPL/BES/bes_srtprod_sel.asp

@@ -30,6 +30,7 @@ var authparams = user.checkAutorisation("WEB_PRDMSU");
 
     if (submitting)
     {
+      protectRequest.validateToken();
       var createnew = getFParamInt("createnew",0)==1;
       if (createnew)
       {
@@ -148,7 +149,8 @@ var authparams = user.checkAutorisation("WEB_PRDMSU");
                        {title: L("lcl_submit"), action:"bes_submit()" },
                        {title: L("lcl_cancel"), action:"bes_cancel()" } ];
       CreateButtons(buttons)
-    %>
+    IFACE.FORM_END();
+%>
     </form>
 </body>
 </html>

APPL/BES/delFavourites.asp

@@ -18,6 +18,7 @@ DOCTYPE_Disable = 1;
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/json2.js" -->
 <%
+protectRequest.validateToken();
   var fav_key = getQParamInt('fav_key');
   if (fav_key > 0) {
     // Verwijder favoriet

APPL/BES/fav_items_list.js

@@ -86,6 +86,8 @@ function delFavourites(img)
     document.getElementById("itemsInList").value = document.getElementById("itemsInList").value -1;
     document.getElementById("item_in_list").innerHTML = document.getElementById("itemsInList").value + " " + L("lcl_bes_fac_items_inlist")
 
-    $.post("delFavourites.asp?fav_key=" + fav_key);
+    var data = {};
+    protectRequest.dataToken(data);
+    $.post("delFavourites.asp?fav_key=" + fav_key, data);
   }
 }

APPL/BES/kenmerkresult.asp

@@ -14,7 +14,6 @@
 */ %>
 
 <!-- #include file="../Shared/common.inc"-->
-<!-- #include file="../Shared/funcodes.inc"-->
 <!-- #include file="../Shared/xml_converter.inc" -->
 
 <%

APPL/BES/opdr_accept.asp

@@ -23,6 +23,7 @@ DOCTYPE_Disable = 1;
 <!-- #include file="bes.inc" -->
 
 <%
+protectRequest.validateToken();
 var opdr_key_arr = getFParamIntArray("opdr_key");
 
 var result = {};

APPL/BES/opdr_delivery.asp

@@ -19,8 +19,7 @@
 
 <%
 FCLTHeader.Requires({ plugins: ["jQuery"],
-                      js: ["./opdr_delivery.js", "num2curr.js"],
-                      lcl: ["BES"] })
+                      js: ["./opdr_delivery.js", "num2curr.js"] })
 
 var opdr_key = getQParamInt("opdr_key");
 var submitting = getQParamInt("submit", 0) == 1;
@@ -41,7 +40,7 @@ user.auth_required_or_abort(this_bestelopdr.canDeliver);
        function opdr_submit()
        {
          document.forms.u2.submit();
-         return false;
+         return true; // disable button
        }
     </script>
   </head>
@@ -49,6 +48,7 @@ user.auth_required_or_abort(this_bestelopdr.canDeliver);
 
   if (submitting)
   {
+    protectRequest.validateToken();
     max_o_i = getFParamInt( 'max_o_i');
     for (i = 0; i < max_o_i; i++)
     {
@@ -219,12 +219,12 @@ user.auth_required_or_abort(this_bestelopdr.canDeliver);
       BLOCK_END();
 %>
       <input type='hidden' id='max_o_i' name='max_o_i' value='<%=count%>'>
-      <input type='submit' style="width:0">
 <%    var buttons = [{title: L("lcl_bes_complete"), action: "complete();"},
-                     {title: L("lcl_submit"), action: "opdr_submit();"},
+                     {title: L("lcl_submit"), action: "opdr_submit();", singlepress: true, id: "btn_delivery_submit"},
                      {title: L("lcl_cancel"), action: "FcltMgr.closeDetail(window, {cancel: true});"}
                     ];
       CreateButtons(buttons);
+IFACE.FORM_END();
 %>
     </form>
   </body>

APPL/BES/opdr_list.inc

@@ -14,6 +14,7 @@
         item_key        search for orders with the given item (srtdeel) key
         supplier_key    search for orders with the given supplier key
         requestor_key   search for orders for selected requestor
+        personfor_key   search for orders for person
         dep_key         search for orders for the selected department
         kp              search for orders with the given account text in account description
         item            search for orders with the given account text in item description
@@ -55,6 +56,7 @@ function opdr_list (pautfunction, params)
   // params.item_key      : key
   // params.supplier_key  : key
   // params.requestor_key : key
+  // params.personfor_key : key
   // params.dep_key       : key
   // params.kp            : wildcard string
   // params.item          : wildcard string
@@ -83,6 +85,7 @@ function opdr_list (pautfunction, params)
   var item_key = params.item_key;
   var supplier_key = params.supplier_key;
   var requestor_key = params.requestor_key;
+  var personfor_key = params.personfor_key;
   var dep_key = params.dep_key;
   var kp = params.kp;
   var item = params.item;
@@ -127,7 +130,12 @@ function opdr_list (pautfunction, params)
           + ",      b.bes_bestelopdr_status"
           + ",      ma.mld_adres_naam afleveradres"
           + ",      bst.bes_bestelling_leverdatum"
-          + ",      bst.prs_perslid_key"
+          + ", " + S("prs_pers_string") + " requestor"
+          + ", (SELECT " + S("prs_pers_string")
+            + " FROM prs_perslid p"
+            + " WHERE p.prs_perslid_key = bst.prs_perslid_key_voor) ordervoor"
+//          + ",      bst.prs_perslid_key"
+//          + ",      bst.prs_perslid_key_voor"
           + ",      b.bes_bestelopdr_id"
           + ",      be.prs_bedrijf_order_adres"
           + ",      bid.ins_discipline_key"
@@ -143,7 +151,7 @@ function opdr_list (pautfunction, params)
           + ",      bes_srtdeel isd"
           + ",      bes_srtgroep isg"
           + ",      ins_tab_discipline bid"
-          + ",      prs_perslid pp"
+          + ",      prs_perslid p"
           + ",      prs_v_afdeling_boom boom"
           + ",      alg_locatie l"
           + ",      alg_district di"
@@ -155,8 +163,8 @@ function opdr_list (pautfunction, params)
           + "   AND bi.bes_srtdeel_key = isd.bes_srtdeel_key"
           + "   AND isd.bes_srtgroep_key = isg.bes_srtgroep_key"
           + "   AND isg.ins_discipline_key = bid.ins_discipline_key"
-          + "   AND pp.prs_perslid_key = bst.prs_perslid_key"
-          + "   AND pp.prs_afdeling_key = boom.prs_afdeling_key"
+          + "   AND p.prs_perslid_key = bst.prs_perslid_key"
+          + "   AND p.prs_afdeling_key = boom.prs_afdeling_key"
           + "   AND ma.alg_locatie_key = l.alg_locatie_key(+)"
           + "   AND l.alg_district_key = di.alg_district_key(+)"
           // Alleen change bestellingopdrachten (embargo) tonen.
@@ -171,11 +179,14 @@ function opdr_list (pautfunction, params)
       else // Niet op opdrachtnummer gezocht, maar op andere criteria
       {
         if (requestor_key) // opdracht behorende bij aanvrager van bestelling
-          sql += " AND pp.prs_perslid_key = " + requestor_key;
+          sql += " AND p.prs_perslid_key = " + requestor_key;
+
+        if (personfor_key)
+          sql += " AND bst.prs_perslid_key_voor = " + personfor_key;
 
         if (dep_key)
         { // opdrachten van aanvragers uit deze afdelingen
-          sql += " AND pp.prs_afdeling_key = " + dep_key;
+          sql += " AND p.prs_afdeling_key = " + dep_key;
         }
 
         if (kp)
@@ -271,6 +282,14 @@ function opdr_list (pautfunction, params)
             return bes.getbesopdrstatustext(opdrStatus);
       }
 
+      function fncolOrderVoor(oRs)
+        {
+          var bestellingvoor = oRs("ordervoor").value
+          if (!excel && oRs("requestor").value == bestellingvoor)
+          	bestellingvoor = "";
+          return safe.html(bestellingvoor);
+        }
+
       var rst = new ResultsetTable({keyColumn: "bes_bestelopdr_key",
                                     ID: "opdrtable",
                                     rowData: fnrowData,
@@ -286,6 +305,8 @@ function opdr_list (pautfunction, params)
       rst.addColumn(new Column({caption: L("lcl_ord_order_num"), content: fncolBesOpdrId}));
       rst.addColumn(new Column({caption: L("lcl_bes_add_date"), content: "datum", datatype: "date"}));
       rst.addColumn(new Column({caption: L("lcl_bes_Supplier"), content: "prs_bedrijf_naam", tooltip: "tooltip"}));
+      rst.addColumn(new Column({caption: L("lcl_rfo_requestor"), content: "requestor"}));
+      rst.addColumn(new Column({caption: L("lcl_bes_order_for"), content: fncolOrderVoor, combine: true}));
       rst.addColumn(new Column({caption: L("lcl_bes_del_place"), content: "afleveradres"}));
       rst.addColumn(new Column({caption: L("lcl_bes_deli_date"), content: "bes_bestelling_leverdatum", datatype: "date"}));
       rst.addColumn(new Column({caption: L("lcl_bes_Bes_status"), content: fncolStatusText}));

APPL/BES/opdr_list.js

@@ -28,11 +28,14 @@ function opdrAccept(rowArray, isMulti)
   var opdrData = eval('(' + rowArray[0].getAttribute("ROWDATA") + ')');
   if (isMulti || (opdrData && confirm(L("lcl_bes_confirm_accept").format(opdrData.opdrId))))
   {
-    $.post("opdr_accept.asp",
-           { urole: urole,
-             opdr_key: opdrKeyString },
-           FcltCallbackRefresh,
-           "json");
+    var data = { urole: urole
+               , opdr_key: opdrKeyString
+               };
+    protectRequest.dataToken(data);
+    $.post("opdr_accept.asp"
+          , data
+          , FcltCallbackRefresh
+          , "json");
   }
 }
 
@@ -43,11 +46,14 @@ function opdrSent(rowArray, isMulti)
   var opdrId = opdrData.opdrId;
   if (isMulti || (opdrData && confirm(L("lcl_bes_confirm_sent").format(opdrData.opdrId))))
   {
-    $.post("opdr_sent.asp",
-           { urole: urole,
-             opdr_key: opdrKeyString },
-           FcltCallbackRefresh,
-           "json");
+    var data = { urole: urole
+               , opdr_key: opdrKeyString
+               };
+    protectRequest.dataToken(data);
+    $.post("opdr_sent.asp"
+          , data
+          , FcltCallbackRefresh
+          , "json");
   }
 }
 

APPL/BES/opdr_reject.asp

@@ -53,6 +53,7 @@ user.anything_todo_or_abort(tobeaccepted > 0); // We klagen niet over enkele wel
 
 <%  if (submitting && opmerk != "")
     {
+      protectRequest.validateToken();
       var success = true;
       for (var i = 0; i < ingesloten.length; i++)
       {
@@ -98,7 +99,9 @@ user.anything_todo_or_abort(tobeaccepted > 0); // We klagen niet over enkele wel
         {
             if (!validateForm("rejectform"))
               return false;
+            $("#btn_reject_submit").addClass("btn_disabled");
             document.rejectform.submit();
+            return true; // disable button
         }
 
         function opdr_cancel()
@@ -121,9 +124,10 @@ user.anything_todo_or_abort(tobeaccepted > 0); // We klagen niet over enkele wel
         </table>
 <%
         BLOCK_END();
-        var buttons =  [{ title: L("lcl_reject"), icon: "opslaan.png", action:"opdr_reject()" },
+        var buttons =  [{ title: L("lcl_reject"), icon: "opslaan.png", action:"opdr_reject()", singlepress: true, id: "btn_reject_submit" },
                         { title: L("lcl_cancel"), icon: "undo.png", action:"opdr_cancel()" }];
         CreateButtons(buttons);
+IFACE.FORM_END();
 %>
       </form>
     </div>

APPL/BES/opdr_search.asp

@@ -57,6 +57,14 @@ var authparams = user.checkAutorisation(autfunction, true);
 
 // De functie checkAutorisation(autfunction) geeft een Response.End indien er geen autorisatie voor autfunction wordt gevonden
 user.auth_required_or_abort(authparams);
+
+sql = "SELECT count(*) aantal"
+    + " FROM bes_v_aanwezigdiscipline bd, bes_disc_params bdp"
+    + " WHERE bdp.bes_ins_discipline_key = bd.ins_discipline_key"
+    + " AND bes_disc_params_for_others = 1"
+oRs = Oracle.Execute(sql);
+var has_bes_disc_params_for_others = (oRs("aantal").value != 0); // minimaal 1 discipline waarvoor "Bestelling voor" kan worden gebruikt.
+oRs.Close();
 %>
 
 <html>
@@ -100,6 +108,15 @@ user.auth_required_or_abort(authparams);
                                       autlevel: authparams.PRSreadlevel,
                                       whenEmpty: L("lcl_search_generic")  // want filter
                                     });
+            // <!-- Bestelling voor -->
+            if (has_bes_disc_params_for_others)
+               FCLTpersoonselector("personFor",
+                                    "sgPersonFor",
+                                    { label: L("lcl_bes_order_for"),
+                                      filtercode: 'BESV',
+                                      trclass: "primsearch",
+                                      whenEmpty: L("lcl_search_generic")  // want filter
+                                    });
             // <!-- Organisatie -->
               FCLTafdelingselector("sDept_key", // organisation
                                    "sgDept",

APPL/BES/opdr_search_list.asp

@@ -44,6 +44,7 @@ else
 
   var supplier_key = getQParamInt("sSuppl_key", -1); // leverancier
   var requestor_key = getQParamInt("sName_key", -1);
+  var personfor_key = getQParamInt("personFor", -1);
   var company_key = getQParamInt("sComp_key", -1);
   var dep_key = getQParamInt("sDept_key", -1);
   var kp = getQParam("kp", "");
@@ -54,6 +55,7 @@ else
   params.item_key      = (item_key != -1? item_key : null);
   params.supplier_key  = (supplier_key != -1? supplier_key : null);
   params.requestor_key = (requestor_key != -1? requestor_key : null);
+  params.personfor_key = (personfor_key != -1? personfor_key : null);
   params.company_key   = (company_key != -1? company_key : null);
   params.dep_key       = (dep_key != -1? dep_key : null);
   params.kp            = (kp != ""? kp : null);

APPL/BES/opdr_sent.asp

@@ -24,6 +24,7 @@ DOCTYPE_Disable = 1;
 <!-- #include file="bes.inc" -->
 
 <%
+protectRequest.validateToken();
 var opdr_key_arr = getFParamIntArray("opdr_key");
 
 var result = {};

APPL/BES/sel_favourites.asp

@@ -118,6 +118,7 @@
   var buttons =  [ {title: L("lcl_submit"), icon:"opslaan.png", action:"doSubmit()" },
                    {title: L("lcl_cancel"), icon: "undo.png", action:"FcltMgr.closeDetail(window, { cancel: true })" } ];
   CreateButtons(buttons);
+IFACE.FORM_END();
 %>
     </form>
 </div>

APPL/BEZ/bez.inc

@@ -4,8 +4,6 @@
 */ %>
 
 <%
-FCLTHeader.Requires({lcl: ["BEZ"]});
-
 bez =
 {
     getgebouwterrein_sql:
@@ -223,8 +221,35 @@ bez =
                                             false); // isOptional
 
             // Kan ik afspraken zien en maken
-            bresult.canWritePrk = bresult.canWrite("WEB_BEZPRK")
+            bresult.canWritePrk = bresult.canWrite("WEB_BEZPRK");
+            bresult.canWritePaf = bresult.canWrite("WEB_BEZPAF");
             bresult.canChange   = bresult.canWrite("WEB_BEZFOF") || bresult.canWrite("WEB_BEZBOF") || bresult.canWrite("WEB_BEZUSE");
+
+            // Als er parkeerplaatsen aanzitten die PAF nodig hebben gelden soms andere regels
+           sql = "SELECT count(*) aantal"
+               + "  FROM bez_bezoekers b"
+               + "     , res_rsv_deel rrd"
+               + "     , res_deel rd"
+               + "     , ins_deel id"
+               + "     , alg_v_aanwezigterreinsector t"
+               + " WHERE b.bez_bezoekers_key = rrd.bez_bezoekers_key"
+               + "   AND rrd.res_deel_key = rd.res_deel_key"
+               + "   AND rd.res_ins_deel_key = id.ins_deel_key"
+               + "   AND id.ins_alg_ruimte_key = t.alg_terreinsector_key"
+               + "   AND id.ins_alg_ruimte_type = 'T'"
+               + "   AND t.prs_afdeling_key IS NOT NULL"
+               + "   AND bez_afspraak_key = " + afspr_key
+            var oRs = Oracle.Execute(sql);
+            bresult.nrPAF = oRs("aantal").Value;
+            oRs.Close();
+            // Beetje grof: als de FO voor jou PAF parkeerplaatsen heeft geregeld terwijl
+            //              je zelf geen PAF rechten hebt laten we je meer niet wijzigen.
+            //              Ander zou je indirect de parkeerplaats langer kunnen claimen.
+            if (!bresult.canWritePaf && bresult.nrPAF > 0)
+            {
+                bresult.canChange = false;
+            }
+
             bresult.canReadAny  = bresult.canRead("WEB_BEZFOF")  || bresult.canRead("WEB_BEZBOF")  || bresult.canRead("WEB_BEZUSE");
 
             bresult.canBadge = bresult.canRead("WEB_BEZBOF");