WOHW#76914: Voltooien op clusterniveau geeft ai ai foutmelding.

svn path=/Website/branches/v2022.3/; revision=59297

APPL/CAD/cad_verify.asp

@@ -66,8 +66,26 @@ else
             MMap.SetLabelPosition(2);
             //MMap.Refresh(true); // Do zoom extents
             myRefresh();
+
+<%          if (!S("fg_dwfviewer_installed")) { %>
+                MMap.addButtonAfter("ImgPrint",
+                                        { id:"dwf",
+                                          alt:"Open DWF",
+                                          label: L("lcl_slnk_dwfviewer"),
+                                          onClick: onDwf,
+                                          icon: "fa-file-export"
+                                        });
+<%            }%>
         }
 
+        function onDwf(evt)
+        {
+            if (!evt) evt=window.event;
+
+            FcltMgr.stopPropagation(evt);
+            var url = "../CAD/cad_verify_proc.asp?AsDWF=1" + MMap.gCustomParameters;
+            FcltMgr.windowopen(url,'FGShow');
+        }
         function resizeIframes()
         {
             //var height = parseInt(document.documentElement.clientHeight);
@@ -323,7 +341,7 @@ if (!xd.EplotSections.Count)
     Response.Write("<p style='color:red'>Strange, no EPlotSections. DWF not created with AutoCAD?</p>");
 else
 {
-    if (epl.Title != "Model")
+    if (!epl.Title.match(/Model$/i))
         Response.Write("<p style='color:red'>Strange, plotsection is not named 'Model' but '{0}'.\nPerhaps exported from paperspace layout?</p>".format(epl.Title));
 }
 if (!xc.layercount)

APPL/CNT/cnt_change_cnttype.asp

@@ -65,26 +65,30 @@ user.anything_todo_or_abort(this_cnt.canChangeSrt);
                   + "   AND k_old.cnt_kenmerk_groep = k_new.cnt_kenmerk_groep"
         RenameFlexFolders(flexsql, "CNT", "C", cnt_key);
       }
-      sql_waarde = " (SELECT v.cnt_kenmerkcontract_waarde"
-                 + "   FROM cnt_kenmerkcontract v"
+      sql_waarde = " (SELECT vkc.cnt_kenmerkcontract_waarde"
+                 + "   FROM cnt_kenmerkcontract vkc"
                  + "      , cnt_kenmerk vk"
-                 + "  WHERE v.cnt_contract_key = " + cnt_key
-                 + "    AND v.cnt_kenmerk_key = vk.cnt_kenmerk_key"
+                 + "      , cnt_srtkenmerk vsk"
+                 + "  WHERE vkc.cnt_kenmerk_key = vk.cnt_kenmerk_key"
+                 + "    AND vk.cnt_srtkenmerk_key = vsk.cnt_srtkenmerk_key"
+                 + "    AND vkc.cnt_contract_key = " + cnt_key
                  + "    AND vk.cnt_srtcontract_key = " + cnt_srt_current_key
+                 + "    AND COALESCE (vk.cnt_kenmerk_omschrijving, vsk.cnt_srtkenmerk_omschrijving)"
+                 + "      = COALESCE (k.cnt_kenmerk_omschrijving, sk.cnt_srtkenmerk_omschrijving)"
                  + "    AND vk.cnt_srtkenmerk_key = k.cnt_srtkenmerk_key"
                  + "    AND vk.cnt_kenmerk_groep = k.cnt_kenmerk_groep)";
 
       var sql = "SELECT k.cnt_kenmerk_key new_kenmerk_key"
-              + "     , t.cnt_srtkenmerk_kenmerktype kenmerk_kenmerktype"
+              + "     , sk.cnt_srtkenmerk_kenmerktype kenmerk_kenmerktype"
               + "     , " + sql_waarde + " kenmerk_waarde"
-              + "  FROM cnt_srtkenmerk t"
+              + "  FROM cnt_srtkenmerk sk"
               + "     , cnt_kenmerk k"
-              + "   WHERE k.cnt_srtcontract_key = " + cnt_srt_new_key
+              + " WHERE k.cnt_srtcontract_key = " + cnt_srt_new_key
               + "   AND k.cnt_kenmerk_niveau = 'S'"
               + "   AND k.cnt_kenmerk_verwijder IS NULL"
-              + "   AND t.cnt_srtkenmerk_verwijder IS NULL"
-              + "   AND k.cnt_srtkenmerk_key=t.cnt_srtkenmerk_key";
-      oRs = Oracle.Execute(sql);
+              + "   AND sk.cnt_srtkenmerk_verwijder IS NULL"
+              + "   AND k.cnt_srtkenmerk_key = sk.cnt_srtkenmerk_key";
+      var oRs = Oracle.Execute(sql);
 
       // Verwijder eerst alle kenmerkwaarden van de oude contractsoort
       sql = "DELETE FROM cnt_kenmerkcontract"
@@ -111,6 +115,7 @@ user.anything_todo_or_abort(this_cnt.canChangeSrt);
         }
         oRs.MoveNext();
       }
+      oRs.Close();
 
       var old_cntsrt = cnt_info.discipline_omschrijving;
 
@@ -171,7 +176,7 @@ user.anything_todo_or_abort(this_cnt.canChangeSrt);
           + ", cnt_disc_params dp"
           + " WHERE cc.ins_discipline_key = dp.cnt_ins_discipline_key"
           + " AND cc.cnt_contract_key = " + cnt_key;
-      oRs = Oracle.Execute(sql);
+      var oRs = Oracle.Execute(sql);
       var cnt_disc_params_key = oRs("cnt_disc_params_key").value;
       var cnt_srt_key = oRs("ins_discipline_key").value;
       var cnt_type_key = oRs("cnt_srtcontract_type").value;
@@ -188,6 +193,7 @@ user.anything_todo_or_abort(this_cnt.canChangeSrt);
                    + (oRs("cnt_prs_perslid_key").Value != null ? " AND BITAND (dp.cnt_disc_params_binding, 2) = 2" : "")
                    + "   AND dp.cnt_srtcontract_type = " + cnt_type_key
                    + "   ORDER BY 2";
+      oRs.Close();
       FCLTselector("cnt_srt_new_key",
                    sql_typecnt,
                    { initKey: cnt_srt_key,
@@ -204,4 +210,4 @@ IFACE.FORM_END();
     <% MODAL_END(); %>
   </body>
 </html>
-<% ASPPAGE_END(); %> 
+<% ASPPAGE_END(); %>

APPL/EXP/base27.asp

@@ -180,7 +180,7 @@ ANONYMOUS_Allowed = 1;
     {
         function xml_from_file()
         {   // Te gebruiken bij testen als je al een xml-bestand met data hebt.
-            var test_header_xml_file = "../../temp/dsma/putorders/puo_20221103-082408_01_transformed.xml";
+            var test_header_xml_file = "../../temp/dsma/putorders/puo_20221130-140807_01_transformed.xml";
             var fso = new ActiveXObject("Scripting.FileSystemObject");
             var filePath = Server.MapPath(test_header_xml_file);
             var f = fso.OpenTextFile(filePath, 1);
@@ -189,6 +189,24 @@ ANONYMOUS_Allowed = 1;
             return x.substr(3);
         }
 
+        function set_customFields(obj)
+        {   // Vervang de namen van de custom velden. Xml-tagnames moeten met een underscore of letter beginnen, dus niet met +.
+            var data = obj.facilitor.base27.data;
+            data["+reporterName"] = data._reporterName;
+            data["+reporterEmail"] = data._reporterEmail;
+            data["+location"] = data._location;
+            data["+personalData"] = data._personalData;
+            data["+personalDataDescription"] = data._personalDataDescription;
+            delete data._reporterName;
+            delete data._reporterEmail;
+            delete data._location;
+            delete data._personalData;
+            delete data._personalDataDescription;
+
+            obj.facilitor.base27.data = data;
+            return obj;
+        }
+
         // Lees de xml-data uit de html-header.
         var xmlReq = Server.CreateObject("MSXML2.DOMDocument.6.0");
 
@@ -197,6 +215,7 @@ ANONYMOUS_Allowed = 1;
 
         // Converteer de xml naar json-dataobject.
         var objreq = xmlToJson(xmlReq);
+        objreq = set_customFields(objreq);
         var result_header = { success: (objreq && objreq.facilitor && objreq.facilitor.base27 ? true : false)
                             , facilitor: objreq.facilitor
                             };

APPL/FAC/fac_faq_list.asp

@@ -247,16 +247,25 @@ function make_faq_list (searchtext, ororand)
        + "                                      AND fw.prs_perslid_key = " + user_key + ")"
        + "   OR f.prs_perslid_key = " + user_key + ")";
 
+  sql += " AND (    f.faq_ins_discipline_key IN "
+      + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+      + "                WHERE prs_perslid_key = " + user_key
+      + "                  AND fac_functie_key = " + F("WEB_FAQBOF") + ")"
+      + "       OR BITAND (fac_faq_level, 2) = 2" // Zichtbaar frontoffice
+      + "          AND f.faq_ins_discipline_key IN "
+      + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+      + "                WHERE prs_perslid_key = " + user_key
+      + "                  AND fac_functie_key = " + F("WEB_FAQFOF") + ")"
+      + "       OR BITAND (fac_faq_level, 1) = 1" // Zichtbaar frontend
+      + "          AND f.faq_ins_discipline_key IN "
+      + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+      + "                WHERE prs_perslid_key = " + user_key
+      + "                  AND fac_functie_key = " + F("WEB_FAQUSE") + ")"
+      + "     )"
+
   // Welke items zichtbaar zijn voor zelfservice en/of professionals wordt bepaald door fac_faq_level.
   if (!authparamsBOF)
   {
-    var bits = 0;
-    if (authparamsFOF)
-      bits |= (urole == "fo"? 3 : 2);
-    if (authparamsUSE)
-      bits |= 1;
-    sql += " AND BITAND (fac_faq_level, " + bits + ") <> 0";
-
     if (!authparamsFOF)
       sql += " AND (fac_faq_datum < SYSDATE OR prs_perslid_key = " + user_key + ")"; // zelf ingevoerd zie je wel terug.
   }

APPL/FAC/fac_report.asp

@@ -81,7 +81,7 @@ CSP_EXTRADATA = 1; // eventuele S("csp_header_extradata") ook toestaan voor tile
     if (rapport.styling && (rapport.styling.id & 2)) // view proc doen we "old style"
             Response.Redirect("fac_usrrap_search.asp?usrrap_key=" + usrrap_key);
 
-    var params = { transit: { "usrrap_key": usrrap_key },
+    var params = { transit: { "usrrap_key": usrrap_key, "viewname": rapport.table }, // viewname uitsluitend ter (logging)informatie
                    search: { requires: { js: ["./fac_report.js"] }, keepfilter: "report"}
                  };
 

APPL/FAC/fac_verify.inc

@@ -606,8 +606,14 @@ checker("HTTP Request protocol",
             }
         )
 
-var CN = String(Request.ServerVariables("HTTPS_SERVER_SUBJECT"));
-//CN = "CN=areo.facilitor.de";
+var subject = String(Request.ServerVariables("HTTPS_SERVER_SUBJECT")).split(", ");
+// subject = "CN=areo.facilitor.de" of "C=NL, S=Utrecht, L=Utrecht, O=ProRail B.V., CN=fmis.testprorail.nl"
+var CN="";
+for (var i=0; i < subject.length; i++)
+{
+    if (subject[i].substr(0, 3) == 'CN=')
+        CN = subject[i];
+}
 if (CN)
 checker("Certificate checker for " + CN,
             function ()
@@ -615,7 +621,7 @@ checker("Certificate checker for " + CN,
                 try
                 {
                     // CertStore is no license required, geen lockcode nodig
-                    //oChilglob = new ActiveXObject("Chilkat_9_5_0.Global");
+                    var oChilglob = new ActiveXObject("Chilkat_9_5_0.Global"); // voor version
                     //var txt ="Version: " + oChilglob.Version;
                     //var success = oChilglob.UnlockBundle(S("puo_chilkat_secret"));
                     //if (success != 1)
@@ -647,7 +653,6 @@ checker("Certificate checker for " + CN,
                 }
 
                 var cert = certStore.FindCertBySubjectCN(commonname);
-                //var cert = certStore.FindCertBySubjectCN("marx.mareon-test.nl");
                 if (!cert)
                 {
                     return { result: resultcodes.warning,
@@ -659,6 +664,9 @@ checker("Certificate checker for " + CN,
                 var dtFrom = new Date(cert.ValidFromStr);
                 var dtTo = new Date(cert.ValidToStr);
                 msg += "<br>Found and valid from " + toDateTimeString(dtFrom) + " to " + toDateTimeString(dtTo);
+                // pas vanaf 9.5.0.85, wij hebben nog 9.5.0.83 in gebruik?
+                // msg += "<br><pre>" + Server.HTMLEncode(cert.SubjectAlternativeName) + "</pre>";
+
                 var days = Math.floor((dtTo.getTime() - new Date().getTime()) / 1000 / 3600 / 24);
 
                 return { result: days > 28?resultcodes.ok:days > 7?resultcodes.warning:resultcodes.error,
@@ -1883,7 +1891,7 @@ checker("Chilkat Installed",
             {
                 try
                 {
-                    oChilglob = new ActiveXObject("Chilkat_9_5_0.Global");
+                    var oChilglob = new ActiveXObject("Chilkat_9_5_0.Global");
                 }
                 catch(e)
                 {

APPL/FAC/prodsearch.inc

@@ -412,9 +412,6 @@ function prodsearch_queries(write_discs, filter)
 
   if (S("faq_enabled") == 1)
   {
-      var authparamsBOF = user.checkAutorisation("WEB_FAQBOF", true); // ziet alles
-      var authparamsFOF = user.checkAutorisation("WEB_FAQFOF", true); // ziet ook FO-items
-      var authparamsUSE = user.checkAutorisation("WEB_FAQUSE", true); // ziet ook FO-items
       var fieldstrarr = ["UPPER(fac_faq_hint)"];
       if (S("faq_search_hints_only") <= 0) fieldstrarr.push("UPPER(fac_faq_question)","UPPER(fac_faq_answer)");
 
@@ -440,14 +437,22 @@ function prodsearch_queries(write_discs, filter)
            + " AND (ff.fac_faq_lang = " + safe.quoted_sql(user.lang()) + " OR ff.fac_faq_lang IS NULL)"
            + " AND ff.fac_faq_datum < SYSDATE" // zelf ingevoerd zie je hier niet per se terug
            + " AND (ff.fac_faq_vervaldatum IS NULL OR ff.fac_faq_vervaldatum > SYSDATE)";
-      if (!authparamsBOF)
-      { var lvl=0;
-        if (authparamsFOF)
-          lvl=2;
-        if (authparamsUSE)
-          lvl+=1;
-        fsql += " AND BITAND (fac_faq_level," + lvl +") <> 0";
-      }
+
+      fsql += " AND (    ff.faq_ins_discipline_key IN "
+            + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+            + "                WHERE prs_perslid_key = " + user_key
+            + "                  AND fac_functie_key = " + F("WEB_FAQBOF") + ")"
+            + "       OR BITAND (fac_faq_level, 2) = 2" // Zichtbaar frontoffice
+            + "          AND ff.faq_ins_discipline_key IN "
+            + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+            + "                WHERE prs_perslid_key = " + user_key
+            + "                  AND fac_functie_key = " + F("WEB_FAQFOF") + ")"
+            + "       OR BITAND (fac_faq_level, 1) = 1" // Zichtbaar frontend
+            + "          AND ff.faq_ins_discipline_key IN "
+            + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+            + "                WHERE prs_perslid_key = " + user_key
+            + "                  AND fac_functie_key = " + F("WEB_FAQUSE") + ")"
+            + "     )"
       fsql += " ORDER BY fac_faq_rank DESC, fac_faq_datum DESC";
        //TODO   + (urole=="fe" ? " AND fac_faq_level < 2" : "")
 

APPL/INS/ins_edit_inspect.asp

@@ -206,8 +206,10 @@ else
     // Kan de inspectie gereed gemeld/afgemeld of afgerond worden?
     if (insClose)
     { // Bij bulkacties (multi) alleen kijken naar de bulkactie die uitgevoerd moet worden.
-      if (insClose && ((multi && ((!fromfinish && !this_ins.canInspClose) || (fromfinish && !(this_ins.canInspFinish || this_ins.canInspFinishMjb)))) ||
-                       (!multi && !this_ins.canInspClose && !(this_ins.canInspFinish || this_ins.canInspFinishMjb))))
+      if ((!fromfinish && !this_ins.canInspClose) ||
+          (multi && fromfinish && !(this_ins.canInspFinish || this_ins.canInspFinishMjb)) ||
+          (!multi && !this_ins.canInspClose && !(this_ins.canInspFinish || this_ins.canInspFinishMjb))
+         )
         // De inspectie kan niet afgemeld/afgerond worden. Overslaan.
         continue;
     }
@@ -924,7 +926,7 @@ if (!catclose && ins_key_arr.length == 1)
 
             if (mjob)
             { // Bij MJOB mag de maxDate niet na het freeze jaar liggen. Dit checken.
-              var maxFreezeDate = new Date(mjb_freeze_year, 11, 31, 23,59,59,99);
+              var maxFreezeDate = new Date(mjb_freeze_year, 11, 31, 23, 59, 59, 999);
               if (maxDate.getTime() > maxFreezeDate.getTime())
                 maxDate = maxFreezeDate;
             }

APPL/INS/ins_flexkenmerk.inc

@@ -89,7 +89,7 @@ function generateFlexKenmerkBlock(params)
       var writeslefof = false;
       if (ins_key > 0)
       {
-        this_ins = ins.func_enabled_deel(ins_key);
+        var this_ins = ins.func_enabled_deel(ins_key);
         // Of writeman en writeuse zijn gedefinieerd of writeslebof.
         writeman = this_ins.writeman; // this_ins.writeman is gelijk aan this_ins.canChangeAlg.
         writeuse = this_ins.writeuse;

APPL/INS/ins_inspect.asp

@@ -50,8 +50,8 @@ var transitParam = buildTransitParam(["deelsrtcont_keys", "fromfinish", "finishm
       function inspectClose(params)
       {
 <%      if (deelsrtcont_key < 0)
-        { %>
-          if (<%=multi? 1 : 0%> == 1 || params.cancel || params.close)
+        { // Scherm sluiten bij: 1) multi actie, 2) voltooien per categorie, 3) annuleren, 4) gereedmelden.
+%>        if (<%=multi? 1 : 0%> == 1 || <%=catclose? 1 : 0%> == 1 || params.cancel || params.close)
           {
             FcltMgr.closeDetail(window, params );
             return true;

APPL/INS/ins_inspect_list.asp

@@ -95,7 +95,7 @@ var authparams = user.checkAutorisation("WEB_INSUSE");
         });
       }
 
-      function insClose(row)
+      function insClose(row, fromfinish)
       {
         $(row).addClass('dirty');
         var inskey = row.getAttribute("ROWKEY");
@@ -104,7 +104,14 @@ var authparams = user.checkAutorisation("WEB_INSUSE");
         {
           var srtcontrolekey = rowdata.insSrtControleKey;
           var deellsrtcontkey = rowdata.insDeelSrtContrKey;
-          var url = "appl/ins/ins_edit_inspect.asp?close=1&ins_keys=" + inskey + "&srtcont_keys=" + srtcontrolekey + "&deelsrtcont_keys=" + deellsrtcontkey;
+          var url = "appl/ins/ins_edit_inspect.asp?close=1&ins_keys=" + inskey
+                  + "&srtcont_keys="
+                  + srtcontrolekey
+                  + "&deelsrtcont_keys="
+                  + deellsrtcontkey
+                  + (fromfinish
+                    ? "&fromfinish=1"
+                    : "");
           FcltMgr.openDetail(url, L("lcl_ins_close"));
         }
       }
@@ -124,7 +131,7 @@ var authparams = user.checkAutorisation("WEB_INSUSE");
                             if (isc_status != 5)  // Als ((isc_options & 4) != 4) geldt dan geldt zeker (isc_status != 5).
                             { // Er is nog niet Gereed gemeld(5) of er kan niet Gereed gemeld(5) worden.
                               // Dan moet ik de gegevens invullen via insClose.
-                              insClose(row);
+                              insClose(row, true); // fromfinish is true;
                             }
                             else
                             {

APPL/INS/ins_inspect_save.asp

@@ -156,9 +156,9 @@ if (catclose)
                     dist_key_arr: dist_key_arr,
                     loc_key_arr: loc_key_arr,
                     bld_key_arr: bld_key_arr,
-                    disc_key_arr: disc_key,
-                    srtgroep_key_arr: srtgroep_key,
-                    srtdeel_key_arr: srtdeel_key,
+                    disc_key_arr: disc_key_arr,
+                    srtgroep_key_arr: srtgroep_key_arr,
+                    srtdeel_key_arr: srtdeel_key_arr,
                     groep_str_arr: groep_str_arr,
                     categorie_key: categorie_key,
                     srtcontrole_key_arr: srtcontrole_key_arr,

APPL/MARX/API_plan_intern.asp

@@ -97,7 +97,7 @@ xsi:schemaLocation="http://www.ketenstandaard.nl/planningsverzoek/SALES/005 Plan
 Van belang zijn de volgende gegevens:
 PlanningRequestNumber --> v_PlanningRequestNumber (gaat als antwoord retour, zie XML hieronder)
 Contractor/GLN --> v_bedrijf_key van leverancier, deze zal dezelfde (moeten) zijn als waar de 'user_key' contactpersoon is van dit bedrijf.
-CompetenceCode --> v_prs_srtperslid_upper (ELE/SCH/LOO/...)
+CompetenceCode --> v_prs_dienst_hint (ELE/SCH/LOO/...)
 MaintenanceMoment/EarliestExecutionDate --> v_date_start (zoek vanaf deze datum)
 MaintenanceMoment/LatestExecutionDate --> v_date_end (zoek t/m deze datum)
 Timeblock/EarliestExecutionTime --> v_time_start (zoek vanaf dit tijdstip)
@@ -294,20 +294,6 @@ function marx_plan_get_competentie_code (p_xml)
   return (l_competentie_code);
 }
 
-function marx_plan_get_srtperslid_omschr (p_competentie_code)
-{ var l_srtperslid_omschr;
-  if (p_competentie_code){
-    var sql = "SELECT marx_get_srtperslid_sales005(" + safe.quoted_sql(p_competentie_code) + ") prs_srtperslid_omschrijving FROM DUAL";
-    var oRs = Oracle.Execute(sql);
-    if (!oRs.eof)
-    {
-        l_srtperslid_omschr = oRs("prs_srtperslid_omschrijving").Value;
-    }
-    oRs.close();
-  }
-  return (l_srtperslid_omschr);
-}
-
 //MARX#70053 Mareon Premium Groene Planningen: plannen met geografische optimalisatie
 //Heeft leverancier p_bedrijf_key wel autorisatie voor Mareon Premium Groene Planningen
 //Waarde = 0, dan geen autorisatie
@@ -479,9 +465,7 @@ if (xmlNodeVal(xmlReq, "//pln_nspace:PlanningRequest")){
   
   if (l_bedrijf_is_oke){
     var l_competentie_code = marx_plan_get_competentie_code(xmlReq);
-    __Log("l_competentie_code:" + l_competentie_code);
-    var l_srtperslid_omschr = marx_plan_get_srtperslid_omschr(l_competentie_code);    
-    __Log("l_srtperslid_omschr:" + l_srtperslid_omschr);
+    __Log("l_competentie_code:" + l_competentie_code);    
     var l_startdatum = marx_plan_get_startdatum(xmlReq);
     __Log("l_startdatum:" + l_startdatum);
     var l_einddatum = marx_plan_get_einddatum(xmlReq);
@@ -572,7 +556,7 @@ if (xmlNodeVal(xmlReq, "//pln_nspace:PlanningRequest")){
     var l_sun_times = marx_plan_get_alltime_intervals(xmlReq, "SUN");
     __Log("l_sun_times:" + l_sun_times);
     
-    var sql = "select marx_get_planproposals(" + l_prs_bedrijf_key + "," + safe.quoted_sql(l_srtperslid_omschr) + ", fac.safe_to_date(" + safe.quoted_sql(l_startdatum) + ",'yyyy-mm-dd'), fac.safe_to_date(" + safe.quoted_sql(l_einddatum) + ",'yyyy-mm-dd')," + safe.quoted_sql(l_mon_times) + "," + safe.quoted_sql(l_tue_times) + "," + safe.quoted_sql(l_wed_times) + "," + safe.quoted_sql(l_thu_times) + "," + safe.quoted_sql(l_fri_times) + "," + safe.quoted_sql(l_sat_times) + "," + safe.quoted_sql(l_sun_times) + "," + l_duration_minutes + ", " + l_interval_minutes + ", " +  l_aant_opties + ", " + " fac.safe_to_number(" + safe.quoted_sql(l_lat) + ")" +  ", " + " fac.safe_to_number(" + safe.quoted_sql(l_lng) + ")" + " ) planproposals from dual"; 
+    var sql = "select marx_get_planproposals(" + l_prs_bedrijf_key + "," + safe.quoted_sql(l_competentie_code) + ", fac.safe_to_date(" + safe.quoted_sql(l_startdatum) + ",'yyyy-mm-dd'), fac.safe_to_date(" + safe.quoted_sql(l_einddatum) + ",'yyyy-mm-dd')," + safe.quoted_sql(l_mon_times) + "," + safe.quoted_sql(l_tue_times) + "," + safe.quoted_sql(l_wed_times) + "," + safe.quoted_sql(l_thu_times) + "," + safe.quoted_sql(l_fri_times) + "," + safe.quoted_sql(l_sat_times) + "," + safe.quoted_sql(l_sun_times) + "," + l_duration_minutes + ", " + l_interval_minutes + ", " +  l_aant_opties + ", " + " fac.safe_to_number(" + safe.quoted_sql(l_lat) + ")" +  ", " + " fac.safe_to_number(" + safe.quoted_sql(l_lng) + ")" + " ) planproposals from dual"; 
   }
 }
 else{
@@ -592,7 +576,7 @@ else{
     __Log("l_gln_contractor:" + l_gln_contractor);
     
     //In het request-nummer staat het response-nummer die leverancier in vorig bericht terug heeft gegegeven, en nu in de confirmation weer retour gaat, zodat leverancier de plan-id terug heeft.
-    //Betreft unieke res_rsv_ruimte_key die leverancier in 1e call (planproposals) heeft teruggegeven aan caller, die deze in 2e call (nu dus) weer mee moet geven, waarmee de andere (STATIC) parameters (prs_bedrijf_key, v_duration_minutes, v_prs_srtperslid_omschr) bepaald kunnen worden
+    //Betreft unieke res_rsv_ruimte_key die leverancier in 1e call (planproposals) heeft teruggegeven aan caller, die deze in 2e call (nu dus) weer mee moet geven, waarmee de andere (STATIC) parameters (prs_bedrijf_key, v_duration_minutes, v_dienst_hint bepaald kunnen worden
     var l_req_nr = marx_plan_get_request_nr(xmlReq);
     var l_res_rsv_ruimte_key_str= l_req_nr;
     __Log("l_res_rsv_ruimte_key_str:" + l_res_rsv_ruimte_key_str);
@@ -602,11 +586,15 @@ else{
     var l_ion_nr = l_rsp_nr;
     __Log("l_rsp_nr:" + l_rsp_nr);
     
+    user.auth_required_or_abort(l_bedrijf_is_oke);
+    
     if (l_bedrijf_is_oke){
       // Autorisatie check: is de user_key wel perslid binnen het bedrijf? --> op dit punt dus: JA
       
       var l_contact_key = marx_get_dummy_res_rsv_ruimte_contact_key(l_res_rsv_ruimte_key_str);
       var l_api_user_key = marx_plan_get_api_user_key (l_prs_bedrijf_key);
+      
+      user.auth_required_or_abort(l_contact_key == l_api_user_key);
       if (l_contact_key == l_api_user_key){
         // Extra Autorisatie check: is l_res_rsv_ruimte_key_str wel van l_prs_bedrijf_key? --> op dit punt dus: JA
         // De contact-key van de dummy reservering zou de (one-and-only) api-user van het bedrijf moeten zijn, en als we hier zijn gekomen, is dat het geval --> autorisatiecheck geslaagd, deze dummy reservering mag aangepast worden
@@ -656,7 +644,7 @@ if (l_bedrijf_is_oke){
     if (!oRs.eof){
       var l_res_rsv_ruimte_key = oRs(0).Value;
       oRs.close();
-      var sql = "BEGIN marx_put_dummy_res_reservering (" + l_prs_woco_key + "," + l_prs_bedrijf_key + "," + safe.quoted_sql(l_srtperslid_omschr) + "," + l_duration_minutes + "," + l_res_rsv_ruimte_key + ", " + " fac.safe_to_number(" + safe.quoted_sql(l_lat) + ")" +  ", " + " fac.safe_to_number(" + safe.quoted_sql(l_lng) + ")" + "); END;";
+      var sql = "BEGIN marx_put_dummy_res_reservering (" + l_prs_woco_key + "," + l_prs_bedrijf_key + "," + safe.quoted_sql(l_competentie_code) + "," + l_duration_minutes + "," + l_res_rsv_ruimte_key + ", " + " fac.safe_to_number(" + safe.quoted_sql(l_lat) + ")" +  ", " + " fac.safe_to_number(" + safe.quoted_sql(l_lng) + ")" + "); END;";
        __Log("Aanroep van marx_put_dummy_res_reservering");
       var oRs = Oracle.Execute(sql);
       var l_rsp_nr = l_res_rsv_ruimte_key;

APPL/MARX/PlanningGoogleMap.asp

@@ -89,7 +89,7 @@ function GetIcon(p_stat_code){
   var v_toon_werkgebied = getQParamInt("werkgebied", 0); // Default wel tonen van werkgebieden.
   var v_stat_omschr = getQParam("status", ""); // Default geen "" status
   var v_days_future = getQParamInt("daysfuture", 0); // Default aantal dagen in de toekomst = 0 (= vandaag).
-  var v_functie_key = getQParamInt("functiekey", -1); // prs_srtperslid_key
+  var v_dienst_key = getQParamInt("dienstkey", -1); // prs_dienst_key
 
   if (urole == "fe") v_vakman_key = user_key;
 
@@ -97,8 +97,8 @@ function GetIcon(p_stat_code){
   __Log("v_vakman_key: " + v_vakman_key);
   __Log("v_toon_werkgebied: " + v_toon_werkgebied);
   __Log("v_stat_omschr: " + v_stat_omschr);
-  __Log("v_days_future: " + v_days_future);
-  __Log("v_functie_key: " + v_functie_key);
+  __Log("v_days_future: " + v_days_future);  
+  __Log("v_dienst_key: " + v_dienst_key);
 
 
 %>
@@ -163,9 +163,9 @@ function GetIcon(p_stat_code){
     {
       sql = sql + " AND mld_statusopdr_omschrijving=" + safe.quoted_sql(v_stat_omschr);
     }
-    if (v_functie_key != -1)
+    if (v_dienst_key != -1)
     {
-      sql = sql + " AND prs_srtperslid_key=" + v_functie_key;
+      sql = sql + " AND prs_dienst_key=" + v_dienst_key;
     }
     if (v_days_future >= 0)
     {
@@ -195,8 +195,8 @@ function GetIcon(p_stat_code){
     var dag_naam_list = "";
     var datum_list = "";
     var woco_list = "";
-    var functie_key_list = "";
-    var functie_naam_list = "";
+    var dienst_key_list = "";
+    var dienst_naam_list = "";
     var latlng;
     var lat;
     var lng;
@@ -244,9 +244,10 @@ function GetIcon(p_stat_code){
 
     // DISTINCT vakmannen, en staan los van de opdrachten die al of niet aan hun zijn gekoppeld, maw ze hoeven nog geen opdracht te hebben
     // Dus gewoon een complete lijst van vakmannen behorende bij user_key
+    // MARX#70903: DISTINCT omdat een vakman (=perslid) meerdere expertises (prs_bedrijfdienstlocatie) kan hebben, en als competentie (als parameter) niet is meegegeven (= leeg), dan wil je ze niet dubbel in de lijst tonen.
 
-    sql = " SELECT p.prs_perslid_key, pf.prs_perslid_naam_friendly, COALESCE(pi.prs_perslid_inzetbaar_dag, dagnrs.prs_perslid_inzetbaar_dag), pi.prs_perslid_inzetbaar_plaats_x, pi.prs_perslid_inzetbaar_plaats_y, pi.prs_perslid_inzetbaar_radius"
-        + " FROM res_deel d, prs_v_perslid_fullnames pf, prs_perslid p, prs_srtperslid sp, prs_contactpersoon cp,"
+    sql = " SELECT DISTINCT p.prs_perslid_key, pf.prs_perslid_naam_friendly, COALESCE(pi.prs_perslid_inzetbaar_dag, dagnrs.prs_perslid_inzetbaar_dag), pi.prs_perslid_inzetbaar_plaats_x, pi.prs_perslid_inzetbaar_plaats_y, pi.prs_perslid_inzetbaar_radius"
+        + " FROM res_deel d, prs_v_perslid_fullnames pf, prs_perslid p, prs_bedrijfdienstlocatie bdl, prs_contactpersoon cp,"
         + " prs_perslid_inzetbaar pi, (SELECT TRUNC (SYSDATE + (LEVEL - 1)) datum, TO_CHAR (SYSDATE + (LEVEL - 1), 'D') - 1 prs_perslid_inzetbaar_dag, LEVEL - 1 dagentoekomst FROM DUAL CONNECT BY LEVEL <= " + v_7dagen + ") dagnrs"
         + " WHERE d.res_deel_verwijder IS NULL"
         + " AND d.res_prs_perslid_key = p.prs_perslid_key"
@@ -255,8 +256,7 @@ function GetIcon(p_stat_code){
         + " AND p.prs_perslid_key = pi.prs_perslid_key (+)"
         + " AND dagnrs.prs_perslid_inzetbaar_dag = pi.prs_perslid_inzetbaar_dag (+)"
         + " AND dagnrs.dagentoekomst = MOD(" +  v_days_future + "," + v_7dagen + ")"
-        + " AND sp.prs_srtperslid_key = p.prs_srtperslid_key"
-        + " AND sp.prs_srtperslid_verwijder IS NULL"
+        + " AND bdl.prs_perslid_key = p.prs_perslid_key"     
         + " AND p.prs_perslid_key = cp.prs_perslid_key"
         + " AND cp.prs_bedrijf_key IN"
         + "    (SELECT cp2.prs_bedrijf_key FROM prs_contactpersoon cp2"
@@ -267,9 +267,9 @@ function GetIcon(p_stat_code){
     {
       sql = sql + " AND p.prs_perslid_key=" + v_vakman_key;
     }
-    if (v_functie_key != -1)
+    if (v_dienst_key != -1)
     {
-      sql = sql + " AND sp.prs_srtperslid_key=" + v_functie_key;
+      sql = sql + " AND bdl.prs_dienst_key=" + v_dienst_key;
     }
     var oRs = Oracle.Execute(sql);
     while (!oRs.eof)
@@ -301,9 +301,9 @@ function GetIcon(p_stat_code){
         {
           sql = sql + " AND mld_statusopdr_omschrijving=" + safe.quoted_sql(v_stat_omschr);
         }
-        if (v_functie_key != -1)
+        if (v_dienst_key != -1)
         {
-          sql = sql + " AND prs_srtperslid_key =" + v_functie_key;
+          sql = sql + " AND prs_dienst_key =" + v_dienst_key;
         }
         if (v_days_future >= 0)
         {
@@ -339,9 +339,9 @@ function GetIcon(p_stat_code){
         {
           sql = sql + " AND mld_statusopdr_omschrijving=" + safe.quoted_sql(v_stat_omschr);
         }
-        if (v_functie_key != -1)
+        if (v_dienst_key != -1)
         {
-          sql = sql + " AND prs_srtperslid_key=" + v_functie_key;
+          sql = sql + " AND prs_dienst_key=" + v_dienst_key;
         }
         if (v_days_future >= 0)
         {
@@ -362,12 +362,13 @@ function GetIcon(p_stat_code){
 
     // DISTINCT functies/expertises oftewel de competentie (ele, loo, sch etc)
 
-    sql = " SELECT DISTINCT uc.prs_srtperslid_key, uc.prs_srtperslid_omschrijving"
-        + " FROM res_deel d, prs_perslid p, marx_v_uitvoerder_competenties uc, prs_contactpersoon cp"
+    sql = " SELECT DISTINCT di.prs_dienst_key, di.prs_dienst_omschrijving"
+        + " FROM res_deel d, prs_perslid p, prs_bedrijfdienstlocatie bdl, prs_dienst di, prs_contactpersoon cp"
         + " WHERE d.res_deel_verwijder IS NULL"
         + " AND d.res_prs_perslid_key = p.prs_perslid_key"
         + " AND p.prs_perslid_verwijder IS NULL"
-        + " AND uc.prs_srtperslid_key = p.prs_srtperslid_key"
+        + " AND bdl.prs_perslid_key = p.prs_perslid_key"
+        + " AND di.prs_dienst_key = bdl.prs_dienst_key"
         + " AND cp.prs_perslid_key = p.prs_perslid_key"
         + " AND cp.prs_contactpersoon_verwijder IS NULL"
         + " AND cp.prs_bedrijf_key IN"
@@ -378,15 +379,15 @@ function GetIcon(p_stat_code){
     {
       sql = sql + " AND p.prs_perslid_key=" + v_vakman_key;
     }
-    if (v_functie_key != -1)
+    if (v_dienst_key != -1)
     {
-      sql = sql + " AND uc.prs_srtperslid_key=" + v_functie_key;
+      sql = sql + " AND di.prs_dienst_key=" + v_dienst_key;
     }
     var oRs = Oracle.Execute(sql);
     while (!oRs.eof)
     {
-      functie_key_list = functie_key_list + "|" + oRs("prs_srtperslid_key").Value;
-      functie_naam_list = functie_naam_list + "|" + oRs("prs_srtperslid_omschrijving").Value;
+      dienst_key_list = dienst_key_list + "|" + oRs("prs_dienst_key").Value;
+      dienst_naam_list = dienst_naam_list + "|" + oRs("prs_dienst_omschrijving").Value;
       oRs.MoveNext();
     }
     oRs.close();
@@ -440,8 +441,8 @@ function GetIcon(p_stat_code){
     dag_naam_list = dag_naam_list.substring(1);
     datum_list = datum_list.substring(1);
     woco_list = woco_list.substring(1); // lijstje met statussen (omschrijvingen)
-    functie_key_list = functie_key_list.substring(1); // lijst met gedefinieerde expertises (keys) bij de leverancier
-    functie_naam_list = functie_naam_list.substring(1); // lijst met gedefinieerde expertises (namen) bij de leverancier
+    dienst_key_list = dienst_key_list.substring(1); // lijst met gedefinieerde expertises (keys) bij de leverancier
+    dienst_naam_list = dienst_naam_list.substring(1); // lijst met gedefinieerde expertises (namen) bij de leverancier
 
     __Log("lat_list: " + lat_list);
     __Log("lng_list: " + lng_list);
@@ -463,8 +464,8 @@ function GetIcon(p_stat_code){
     __Log("dag_naam_list: " + dag_naam_list);
     __Log("datum_list: " + datum_list);
     __Log("woco_list: " + woco_list);
-    __Log("functie_key_list: " + functie_key_list);
-    __Log("functie_naam_list: " + functie_naam_list);
+    __Log("dienst_key_list: " + dienst_key_list);
+    __Log("dienst_naam_list: " + dienst_naam_list);
     __Log("v_marx_greenplan: " + v_marx_greenplan);
 
 
@@ -695,13 +696,13 @@ function GetIcon(p_stat_code){
         });
       }
 
-      function marx_show_maps (p_vakman_key, p_status_omschr, p_daysfuture, p_bedrijf_naam, p_functiekey, p_toon_werkgebied){
+      function marx_show_maps (p_vakman_key, p_status_omschr, p_daysfuture, p_bedrijf_naam, p_dienst_key, p_toon_werkgebied){
           var v_url = "../../appl/marx/PlanningGoogleMap.asp?" + "vakmankey=" + p_vakman_key
                                                                + "&werkgebied=" + p_toon_werkgebied
                                                                + "&status=" + encodeURIComponent(p_status_omschr)
                                                                + "&daysfuture=" + p_daysfuture
                                                                + "&bedrijf=" + encodeURIComponent(p_bedrijf_naam)
-                                                               + "&functiekey=" + p_functiekey;
+                                                               + "&dienstkey=" + p_dienst_key;
         window.location.href = v_url;
       }
 
@@ -751,7 +752,7 @@ function GetIcon(p_stat_code){
           v_centre_lat = map.getCenter().lat();
           v_centre_lng = map.getCenter().lng();
           marx_draw_circle_vakgebied(p_vakman_key, v_centre_lat, v_centre_lng, 5000, 1);
-          marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, <%=v_toon_werkgebied%>);
+          marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, <%=v_toon_werkgebied%>);
         <% } %>
       }
       function marx_delete_vakgebied(p_vakman_key, p_vakman_naam){
@@ -760,7 +761,7 @@ function GetIcon(p_stat_code){
           if (window.confirm("Verwijderen <%=L("lcl_prs_work_location")%> van " + p_vakman_naam + " ?"))
           {
             marx_draw_circle_vakgebied(p_vakman_key, 0, 0, 0, 1);
-            marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, <%=v_toon_werkgebied%>);
+            marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, <%=v_toon_werkgebied%>);
           }
         <% } %>
       }
@@ -899,18 +900,18 @@ function GetIcon(p_stat_code){
         <td colspan="19" style="text-align:center">
           <div class="card-header"><div class="card-header-content"><i class="fa fa-layer-plus fa-w-16"></i>
             <span><b><%=L("lcl_orders")%></b></span>
-            <span style="cursor:pointer;float:center" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, <%=v_toon_werkgebied%>)">
+            <span style="cursor:pointer;float:center" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, <%=v_toon_werkgebied%>)">
               <%=I("fa-fclt-refresh", { "fastyle": "fas" })%>
             </span>
             <% if (v_marx_greenplan == 1){ %>
               <% if (v_toon_werkgebied == 1){ %>
-                <span style="cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, 0)">
+                <span style="cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, 0)">
                 &nbsp;&nbsp;&nbsp;(<%=L("lcl_prs_work_location")%>&nbsp;&nbsp;&nbsp;<i class="fas fa-eye-slash">)</i>
                 </span>
               <%} %>
               <%else %>
               <%{ %>
-                <span style="cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, 1)">
+                <span style="cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, 1)">
                 &nbsp;&nbsp;&nbsp;(<%=L("lcl_prs_work_location")%>&nbsp;&nbsp;&nbsp;<i class="fas fa-eye">)</i>
                 </span>
               <%} %>
@@ -926,14 +927,14 @@ function GetIcon(p_stat_code){
               <div class="card-header">
                 <div class="card-header-content">
                 <% if (v_days_future >= 1*v_7dagen){ %>
-                  <span style="cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future-v_7dagen%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, <%=v_toon_werkgebied%>)">
+                  <span style="cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future-v_7dagen%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, <%=v_toon_werkgebied%>)">
                   <i class="fas fa-less-than"></i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                   </span>
                 <%} %>
                 <i class="fas fa-calendar-day"></i>
                 <span style="font-size:10.0pt"> <%=L("lcl_opdr_plandate") + v_selected_datum%></span>
                 <% if (v_days_future < 3*v_7dagen){ %>
-                  <span style="cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future+v_7dagen%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, <%=v_toon_werkgebied%>)">
+                  <span style="cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future+v_7dagen%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, <%=v_toon_werkgebied%>)">
                   &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<i class="fas fa-greater-than"></i>
                   </span>
                 <%} %>
@@ -956,7 +957,7 @@ function GetIcon(p_stat_code){
               %>
               <td style="width:14%">
               <div class="card-header">
-                <span style="text-align:left;font-size:7.0pt;cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_dagnr%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, <%=v_toon_werkgebied%>)">
+                <span style="text-align:left;font-size:7.0pt;cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_dagnr%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, <%=v_toon_werkgebied%>)">
                   <% if (v_days_future >= 0 && v_dagnr == v_days_future){%><i class="fas fa-calendar-day"></i><b> <%}%>
                   <%=safe.html(v_dag_text)%>
                   <% if (v_days_future >= 0 && v_dagnr == v_days_future){%></b><%}%>
@@ -973,17 +974,17 @@ function GetIcon(p_stat_code){
             <div class="card-header"><div class="card-header-content"></i><i class="fas fa-hammer"></i>
               <span style="font-size:10.0pt"> <%=L("lcl_prs_person_function")%>
               <%
-                var v_functie_key_list = functie_key_list.split("|");
-                var v_functie_naam_list = functie_naam_list.split("|");
-                if (v_functie_key != -1){ %>
+                var v_dienst_key_list = dienst_key_list.split("|");
+                var v_dienst_naam_list = dienst_naam_list.split("|");
+                if (v_dienst_key != -1){ %>
                 <span style="cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>', <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', '' , <%=v_toon_werkgebied%>)">
-                &nbsp;&nbsp;&nbsp;(<%=safe.html(v_functie_naam_list[0])%>&nbsp;&nbsp;&nbsp;<i class="fa fa-trash fa-w-12"> )</i>
+                &nbsp;&nbsp;&nbsp;(<%=safe.html(v_dienst_naam_list[0])%>&nbsp;&nbsp;&nbsp;<i class="fa fa-trash fa-w-12"> )</i>
               </span>
               <%} %>
               </span></div></div>
-              <% for (i = 0; i < v_functie_naam_list.length; i++) {%>
-                  <span style="font-size:9.0pt;cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>', <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key_list[i]%>, <%=v_toon_werkgebied%>)">
-                    <%=safe.html(v_functie_naam_list[i])%>
+              <% for (i = 0; i < v_dienst_naam_list.length; i++) {%>
+                  <span style="font-size:9.0pt;cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>', <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key_list[i]%>, <%=v_toon_werkgebied%>)">
+                    <%=safe.html(v_dienst_naam_list[i])%>
                   </span>
                 <br/>
               <%}%>
@@ -999,7 +1000,7 @@ function GetIcon(p_stat_code){
             <div class="card-header"><div class="card-header-content"><i class="fa fa-map-marker-alt fa-w-12"></i>
               <span style="font-size:10.0pt"> <%=L("lcl_prs_person_name")%>
               <% if (v_vakman_key != -1){ %>
-                <span style="cursor:pointer" onclick="marx_show_maps('', '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, <%=v_toon_werkgebied%>)">
+                <span style="cursor:pointer" onclick="marx_show_maps('', '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, <%=v_toon_werkgebied%>)">
                 &nbsp;&nbsp;&nbsp;(<%=safe.html(v_prs_vakmannen[0])%>&nbsp;&nbsp;&nbsp;<i class="fa fa-trash fa-w-12"> )</i>
                 </span>
               <%} %>
@@ -1012,7 +1013,7 @@ function GetIcon(p_stat_code){
                 for (i = 0; i < v_prs_vakmannen.length; i++) {%>
                   <% var v_color = marx_getHexColor(v_vakman_ids[i]); %>
                   <span style="color:<%=v_color%>;font-size:9.0pt"><i class="fas fa-circle"></i></span>
-                  <span style="font-size:9.0pt;cursor:pointer" onclick="marx_show_maps(<%=safe.jsstring(v_vakman_ids[i])%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, <%=v_toon_werkgebied%>)"><%=safe.html(v_prs_vakmannen[i])%></span>
+                  <span style="font-size:9.0pt;cursor:pointer" onclick="marx_show_maps(<%=safe.jsstring(v_vakman_ids[i])%>, '<%=safe.jsstring(v_stat_omschr)%>' , <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, <%=v_toon_werkgebied%>)"><%=safe.html(v_prs_vakmannen[i])%></span>
                   <% if (v_marx_greenplan == 1 && urole == "fo")%>
                   <%{ %>
                     <% if (v_toon_werkgebied == 1)%>
@@ -1037,7 +1038,7 @@ function GetIcon(p_stat_code){
             <div class="card-header"><div class="card-header-content"><i class="fas fa-thermometer-half"></i>
               <span style="font-size:10.0pt"> <%=L("lcl_mld_opdr_status")%>
               <% if (v_stat_omschr){ %>
-                <span style="cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '', <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, <%=v_toon_werkgebied%>)">
+                <span style="cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '', <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, <%=v_toon_werkgebied%>)">
                 &nbsp;&nbsp;&nbsp;(<%=safe.html(v_stat_omschr)%>&nbsp;&nbsp;&nbsp;<i class="fa fa-trash fa-w-12"> )</i>
               </span>
               <%} %>
@@ -1047,7 +1048,7 @@ function GetIcon(p_stat_code){
                 var v_stat_code_G_list = stat_code_G_list.split("|");
                 // bv ['Nieuw', 'Geaccepteerd', 'Afgemeld']
                 for (i = 0; i < v_stat_list.length; i++) {%>
-                    <span style="font-size:9.0pt;cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_list[i])%>', <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_functie_key%>, <%=v_toon_werkgebied%>)">
+                    <span style="font-size:9.0pt;cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_list[i])%>', <%=v_days_future%>, '<%=safe.jsstring(v_bedrijf_naam)%>', <%=v_dienst_key%>, <%=v_toon_werkgebied%>)">
                       <%=safe.html(v_stat_list[i])%>
                     </span>
                     <% var v_icon = GetIcon(parseInt(v_stat_code_G_list[i]));%>
@@ -1062,7 +1063,7 @@ function GetIcon(p_stat_code){
             <div class="card-header"><div class="card-header-content"><i class="fa fa-address-card fa-w-18"></i>
               <span style="font-size:10.0pt"> <%=safe.html(v_bedrijf_label)%>
               <% if (v_bedrijf_naam){ %>
-                <span style="text-align:left;font-size:9.0pt;cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>', <%=v_days_future%>, '' , <%=v_functie_key%>, <%=v_toon_werkgebied%>)">
+                <span style="text-align:left;font-size:9.0pt;cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>', <%=v_days_future%>, '' , <%=v_dienst_key%>, <%=v_toon_werkgebied%>)">
                 &nbsp;&nbsp;&nbsp;(<%=safe.html(v_bedrijf_naam)%>&nbsp;&nbsp;&nbsp;<i class="fa fa-trash fa-w-12"> )</i>
               </span>
               <%} %>
@@ -1071,7 +1072,7 @@ function GetIcon(p_stat_code){
                 var v_woco_list = woco_list.split("|");
                 // bv ['Trivire', 'Stadgenoot', 'de Alliantie']
                 for (i = 0; i < v_woco_list.length; i++) {%>
-                    <span style="font-size:9.0pt;cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>', <%=v_days_future%>, '<%=safe.jsstring(v_woco_list[i])%>', <%=v_functie_key%>, <%=v_toon_werkgebied%>)">
+                    <span style="font-size:9.0pt;cursor:pointer" onclick="marx_show_maps(<%=v_vakman_key%>, '<%=safe.jsstring(v_stat_omschr)%>', <%=v_days_future%>, '<%=safe.jsstring(v_woco_list[i])%>', <%=v_dienst_key%>, <%=v_toon_werkgebied%>)">
                       <%=safe.html(v_woco_list[i])%>
                     </span>
                   <br/>

APPL/MARX/export/BCTAdapter.asp

@@ -190,7 +190,7 @@ var postdata =
 {     "requestid": request_id, // deze komt met de XML response helaas niet terug
       "partner": config.BCT_partnerID,
       "partnertenant": klantid,
-      "jobid": "invoice_aareon",
+      "jobid": "Aareon_NL_invoice",
       "jobdescription": "invoice_mareon",
       "filename": filename,
       "contentsize": data64.length,

APPL/MGT/mgt_generic.asp

@@ -151,6 +151,11 @@
         var field = model.fields[fld];
         var exception = edit_fields[table.toLowerCase()];
         if (fld == model.soft_delete ||
+            fld.match(/externsyncdate$/) ||
+            fld.match(/extsyncdate$/) ||
+            fld.match(/extsyncd$/) ||
+            fld.match(/externnr$/) ||
+            fld.match(/externid$/) ||
             exception && inArray(fld, exception.fields))
         {
             field.multiedit = !field.foreign; // complexer met plaatsselector en zo

APPL/MGT/mgt_genericsql_list.asp

@@ -102,6 +102,7 @@ var showall = getFParamInt("showall", 0) == 1;
     var rst = new ResultsetTable({ sql: "dummy",
                                    pRs: oRs, // oRs is al eerder bepaald
                                    ID: "sqldatatable",
+                                   canCSV: true,
                                    showAll: true, //showall,
                                    outputmode: outputmode, //0,
                                    title: "SQL ({0}ms)".format(tm.toFixed(1)),

APPL/MGT/res_deel.asp

@@ -38,7 +38,7 @@ if (res_deel_key > 0)
             + "       isd.ins_srtgroep_key,"
             + "       idd.ins_deel_key,"
             + "       p.prs_perslid_key,"
-            + lcl.xsqla('sp.prs_srtperslid_omschrijving', 'prs_srtperslid_key')  // TODO, Diensten en zo, wat kan deze man?
+            + lcl.xsqla("sp.prs_srtperslid_omschrijving", "sp.prs_srtperslid_key")  // TODO, Diensten en zo, wat kan deze man?
             + "     , isd.ins_srtgroep_key"
             + "  FROM ins_srtdeel isd, "
             + "       ins_deel idd, "

APPL/MJB/mjb_search_list.asp

@@ -1164,6 +1164,7 @@ var transitParam = buildTransitParam(["deel", "groep", "categorie_key", "distric
                                    outputmode: outputmode,
                                    title: L("lcl_mjb_begroting") + (inflatiepct != 0 ? " "+L("lcl_mjb_inflation").format(safe.curr(inflatiepct)): ""),
                                    showAll: showall,
+                                   canCSV: true,
                                    buttons: buttons
                                  });
 

APPL/MJB/mjb_search_list_curr.asp

@@ -184,10 +184,11 @@ var transitParam = buildTransitParam(["disc_key_arr", "srtgroep_key_arr", "srtde
                   + "   AND v.alg_gebouw_key = g.alg_gebouw_key"
                   + "   AND g.alg_locatie_key = l.alg_locatie_key"
                   + "   AND d.alg_district_key = l.alg_district_key"
-                  + "   AND ins_deelsrtcontrole_key = (SELECT MAX(id2.ins_deelsrtcontrole_key)"
-                  + "                                    FROM ins_deelsrtcontrole id2"
-                  + "                                   WHERE id2.ins_deel_key = dsc.ins_deel_key"
-                  + "                                     AND id2.ins_srtcontrole_key = dsc.ins_srtcontrole_key)"
+                  + "   AND dsc.ins_deelsrtcontrole_key = (SELECT MAX(id2.ins_deelsrtcontrole_key)"
+                  + "                                        FROM ins_deelsrtcontrole id2"
+                  + "                                       WHERE id2.ins_deel_key = dsc.ins_deel_key"
+                  + "                                         AND id2.ins_srtcontrole_key = dsc.ins_srtcontrole_key"
+                  + "                                         AND id2.ins_scenario_key = 1)"
                   + "   AND xcp.ins_srtcontrole_periode > 0"
                   + "   AND xcp.ins_scenario_key = 1"
                   + "   AND xcp.ctr_ismjob = 1"
@@ -247,7 +248,8 @@ var transitParam = buildTransitParam(["disc_key_arr", "srtgroep_key_arr", "srtde
                   + sql_from
                   + sql_where;
 
-    var sql_list_years = "SELECT LISTAGG(freezedate, ',') WITHIN GROUP (ORDER BY freezedate) listfdjaar"
+    var sql_list_years = "SELECT /*+ OPT_PARAM('optimizer_features_enable','12.1.0.1') */"
+                       + "       LISTAGG(freezedate, ',') WITHIN GROUP (ORDER BY freezedate) listfdjaar"
                        + "  FROM (" + sql_years + ")";
     var oRs = Oracle.Execute(sql_list_years);
     var listfdjaar = oRs("listfdjaar").Value || -1;

APPL/MLD/mld.inc

@@ -3589,8 +3589,8 @@ mld = {
                        + "     , ms.mld_stdmelding_externurl"
                        + "     , ms.cad_thema_key"
                        + "     , mld_stdmelding_enddate_empty"
-                       + "     , (SELECT COUNT(*)"
-                       + "          FROM fac_faq ff"
+                       + "     , (SELECT COUNT(*)"    // ietwat grof qua autorisatie controle maar aantal_faq (iets) te hoog is geen risco
+                       + "          FROM fac_faq ff"  // Hoogstens een keer de hele aantal_faq er uit schrijven
                        + "             , mld_stdmeldingfaq sf"
                        + "         WHERE ff.fac_faq_key = sf.fac_faq_key"
                        + "           AND (sf.mld_stdmelding_key = ms.mld_stdmelding_key"
@@ -3759,11 +3759,6 @@ mld = {
                {
                  var canFAQUSEread = user.checkAutorisation("WEB_FAQUSE", true);
                  var canFAQFOFread = user.checkAutorisation("WEB_FAQFOF", true);
-                 var faq_bits = 0;
-                 if (canFAQUSEread)
-                     faq_bits += 1;
-                 if (canFAQFOFread)
-                     faq_bits += 2;
 
                   var sql = "SELECT ff.fac_faq_key, "
                            + "       fac_faq_question, "
@@ -3781,10 +3776,26 @@ mld = {
                            + "        OR fac_functie_key IN "
                            + "            (SELECT fac_functie_key FROM fac_v_webgebruiker"
                            + "              WHERE prs_perslid_key = " + user_key + "))"
-                           + "   AND BITAND(fac_faq_level," + faq_bits + ") <> 0"
                            + "   AND fac_faq_datum < SYSDATE"
                            + "   AND (fac_faq_lang = " + safe.quoted_sql(user_lang) + " OR fac_faq_lang IS NULL)"
-                           + " ORDER BY fac_faq_rank DESC NULLS LAST"
+
+                  sql += " AND (    ff.faq_ins_discipline_key IN "
+                        + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+                        + "                WHERE prs_perslid_key = " + user_key
+                        + "                  AND fac_functie_key = " + F("WEB_FAQBOF") + ")"
+                        + "       OR BITAND (fac_faq_level, 2) = 2" // Zichtbaar frontoffice
+                        + "          AND ff.faq_ins_discipline_key IN "
+                        + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+                        + "                WHERE prs_perslid_key = " + user_key
+                        + "                  AND fac_functie_key = " + F("WEB_FAQFOF") + ")"
+                        + "       OR BITAND (fac_faq_level, 1) = 1" // Zichtbaar frontend
+                        + "          AND ff.faq_ins_discipline_key IN "
+                        + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+                        + "                WHERE prs_perslid_key = " + user_key
+                        + "                  AND fac_functie_key = " + F("WEB_FAQUSE") + ")"
+                        + "     )"
+
+                   sql +=    " ORDER BY fac_faq_rank DESC NULLS LAST"
                            + "        , fac_faq_datum DESC"
                            + "        , fac_faq_question";
 
@@ -3866,11 +3877,6 @@ mld = {
 
                var canFAQUSEread = user.checkAutorisation("WEB_FAQUSE", true);
                var canFAQFOFread = user.checkAutorisation("WEB_FAQFOF", true);
-               var faq_bits = 0;
-               if (canFAQUSEread)
-                   faq_bits += 1;
-               if (canFAQFOFread)
-                   faq_bits += 2;
 
                // Deze functie wordt alleen aangeroepen als de plaats of stdmelding is aangepast.
                var sql = [];
@@ -3918,7 +3924,7 @@ mld = {
                    if (has.loc)
                        filtWHERE += "       )";
 
-                   sql.push(mld.getkennisbank_sql(filtSELECT, filtFROM, filtWHERE, faq_bits));
+                   sql.push(mld.getkennisbank_sql(filtSELECT, filtFROM, filtWHERE));
                }
 
                if (has.loc || has.alg) // kennisbank items gekoppeld aan plaats en niet aan vakgroep/stdm
@@ -3951,7 +3957,7 @@ mld = {
                    if (has.loc)
                        filtWHERE += "       )";
 
-                   sql.push(mld.getkennisbank_sql(filtSELECT, filtFROM, filtWHERE, faq_bits));
+                   sql.push(mld.getkennisbank_sql(filtSELECT, filtFROM, filtWHERE));
                }
 
                if (has.ins || has.stdm) // kennisbank items gekoppeld aan vakgroep/stdm en niet aan plaats
@@ -3983,7 +3989,7 @@ mld = {
                               + "                     FROM alg_algfaq af"
                               + "                    WHERE af.fac_faq_key = ff.fac_faq_key)";
 
-                   sql.push(mld.getkennisbank_sql(filtSELECT, filtFROM, filtWHERE, faq_bits));
+                   sql.push(mld.getkennisbank_sql(filtSELECT, filtFROM, filtWHERE));
                }
 
                sql = sql.join(" UNION ALL ")
@@ -7210,10 +7216,10 @@ mld = {
             },
 
         getkennisbank_sql:
-            function (sqlSelect, sqlFrom, sqlWhere, faq_bits)
+            function (sqlSelect, sqlFrom, sqlWhere)
             { // Lever kennisbank items overzicht sql op.
 
-               return "SELECT ff.fac_faq_key, "
+               var fsql = "SELECT ff.fac_faq_key, "
                        + "       fac_faq_rank, "
                        + "       fac_faq_datum, "
                        + "       fac_faq_question, "
@@ -7229,13 +7235,30 @@ mld = {
                        + sqlFrom
                        + " WHERE fac_faq_datum < SYSDATE"
                        + "   AND (ff.fac_faq_vervaldatum IS NULL OR ff.fac_faq_vervaldatum > SYSDATE)"
-                       + "   AND BITAND(fac_faq_level," + faq_bits + ") <> 0"
                        + "   AND (fac_faq_lang = " + safe.quoted_sql(user_lang) + " OR fac_faq_lang IS NULL)"
                            + " AND (fac_functie_key IS NULL"
                            + "     OR fac_functie_key IN "
                            + "             (SELECT fac_functie_key FROM fac_v_webgebruiker"
                            + "                WHERE prs_perslid_key = " + user_key + "))"
                        + sqlWhere;
+
+                  fsql += " AND (    ff.faq_ins_discipline_key IN "
+                        + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+                        + "                WHERE prs_perslid_key = " + user_key
+                        + "                  AND fac_functie_key = " + F("WEB_FAQBOF") + ")"
+                        + "       OR BITAND (fac_faq_level, 2) = 2" // Zichtbaar frontoffice
+                        + "          AND ff.faq_ins_discipline_key IN "
+                        + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+                        + "                WHERE prs_perslid_key = " + user_key
+                        + "                  AND fac_functie_key = " + F("WEB_FAQFOF") + ")"
+                        + "       OR BITAND (fac_faq_level, 1) = 1" // Zichtbaar frontend
+                        + "          AND ff.faq_ins_discipline_key IN "
+                        + "             (SELECT ins_discipline_key FROM fac_v_webgebruiker"
+                        + "                WHERE prs_perslid_key = " + user_key
+                        + "                  AND fac_functie_key = " + F("WEB_FAQUSE") + ")"
+                        + "     )"
+
+                   return fsql;
             }
       }
 

APPL/MLD/mld_close_confirm.asp

@@ -149,6 +149,7 @@ for (var i = 0; i < ingesloten.length; i++)
     var sql = "SELECT dsc.ins_deel_key"
             + "     , dsc.ins_srtcontrole_key"
             + "     , ctr_disc_params_controle_type"
+            + "     , dsc.ins_deelsrtcontrole_freezedate"
             + "  FROM ins_deelsrtcontrole dsc"
             + "     , ins_srtcontrole isc"
             + "     , ctr_disc_params cdp"
@@ -169,7 +170,8 @@ for (var i = 0; i < ingesloten.length; i++)
             canCloseCtr.push({ ins_key: oRs("ins_deel_key").Value,
                                srtcont_key: oRs("ins_srtcontrole_key").Value,
                                deelsrtcont_key: mld_melding.kto_key,
-                               controlemode: oRs("ctr_disc_params_controle_type").Value
+                               controlemode: oRs("ctr_disc_params_controle_type").Value,
+                               freezedateyear: new Date(oRs("ins_deelsrtcontrole_freezedate").Value).getFullYear()
                              });
             srtContKeyArray.push(oRs("ins_srtcontrole_key").Value);
             controleModeArray[oRs("ctr_disc_params_controle_type").Value - 1] = oRs("ctr_disc_params_controle_type").Value; // Controlemode 2 op de 2de plek van de Array invullen [-1, 2, -1].
@@ -209,12 +211,13 @@ for (var i = 2; i >= 0; i--)
           {
 <%          for (var i = 0; i < canCloseCtr.length; i++)
             { %>
+              var maxFreezeDate = new Date(<%=canCloseCtr[i].freezedateyear%>, 11, 31, 23, 59, 59, 999); // 31 December of freezedate year at midnight.
               var data = { savemode: 'C',
                            ins_keys: <%=canCloseCtr[i].ins_key%>,
                            srtcont_key_arr: <%=canCloseCtr[i].srtcont_key%>,
                            //deelsrtcont_key wordt niet gebruikt door ins_inspect_save.asp
                            finish: 1,
-                           deelsrtcontrole_datum: (new Date()).getTime(),
+                           deelsrtcontrole_datum: (new Date()).getTime() > maxFreezeDate.getTime()? maxFreezeDate.getTime() : (new Date()).getTime(),
                            sel_controlemode: $("#sel_controlemode" + <%=canCloseCtr[i].controlemode%>).val()
                          };
               protectRequest.dataToken(data);

APPL/MLD/mld_edit_melding.asp

@@ -113,6 +113,9 @@ else
 
 var authparams = user.checkAutorisation(autfunction); // Dit is nog ongeacht de melding
 
+// Autorisatie vakgroep en stdmelding voor bepalen inhoud, hetzelfde als autorisatie voor het bepalen van het readonly zijn.
+var authparams_disc_stdm = user.checkAutorisation(["WEB_MLDUSE", "WEB_MLDFOF", "WEB_MLDBOF"]);
+
 // De melding waar het over gaat
 var copy = (getQParamInt("mld_copy", 0) == 1);
 // Bij een vervolgmelding moet er ook een kopie gemaakt worden van de orginele melding, als het hetzelfde vakgroeptype betreft => copy = true.
@@ -714,7 +717,7 @@ lcl.set_dialect(mld_melding.srtdisc, "MLD_SRTDISCIPLINE_KEY");
                       {
                         $("#r_objs_button").val(L("lcl_mld_objects") + " (" + data.length + ")");
 
-                        toggleObjectPicker(0);
+                        _toggleObjectPicker(0);
                         $("#r_objs").append($(document.createElement("option")).attr("value", data[i].key).attr("uitvoertijd", data[i].uitvoertijd).text(data[i].omschrijving));
                         if (typeof sgObject != "undefined") // setTimeout zodat de onChangeAlg klaar is (met evt. leeg maken van objectSelector)
                             setTimeout(function () { sgObject.setValue(data[i].key, data[i].omschrijving); }, 1);
@@ -886,7 +889,7 @@ SUBFRAME_START();
         var urlAdd = [];
         if (mld.useAlgScope("A")) {
           if (mld_melding.alg_level >= 2) {
-            urlAdd.push({urlParam: "lockey", field: "locatiekey", init: mld_melding.loc_key});
+            urlAdd.push({urlParam: "loc_key", field: "locatiekey", init: mld_melding.loc_key});
           }
         }
         var hasPersonFor = (S("mld_allow_for_others") == 1 || S("mld_allow_for_others") == 2) &&
@@ -1047,7 +1050,7 @@ SUBFRAME_START();
                                  disc_key: mld_melding.disc,
                                  module: "MLDP",
                                  perslidKey: (lBestaandeMelding ? mld_melding.melder_key : user_key),
-                                 autfunctionKey: (canUseTeams && vakg_readonly ? -1 : authparams.autfunctionkey), // Dan mag ik alles zien (readonly, zie: func_enabled)
+                                 autfunctionKey: (canUseTeams && vakg_readonly ? -1 : authparams_disc_stdm.autfunctionkeys), // Dan mag ik alles zien (readonly, zie: func_enabled)
                                  autRW: "W",
                                  srtdisc_key: mld_melding.srtdisc,
                                  ins_key: ins_key,
@@ -1072,7 +1075,7 @@ SUBFRAME_START();
                                     "sgStdm",
                                     { label: L("lcl_complain"),
                                       stdmelding_key: mld_melding.stdm,
-                                      autfunctionKey: (canUseTeams && stdm_readonly ? -1 : authparams.autfunctionkey), // Dan mag ik alles zien (readonly, zie: func_enabled)
+                                      autfunctionKey: (canUseTeams && stdm_readonly ? -1 : authparams_disc_stdm.autfunctionkeys), // Dan mag ik alles zien (readonly, zie: func_enabled)
                                       srtdisc_key: mld_melding.srtdisc,
                                       ins_key: ins_key,
                                       ref_type: ref_type,

APPL/MLD/mld_edit_opdr_save.asp

@@ -137,8 +137,9 @@ if (isNew && copyorder_key < 0 && mld_typeopdr_isofferte == 1)
       shared.simpel_page(L("lcl_orders_no_contractor"));
 }
 else
-{
-  if (uitvoerende < 0)
+{ // Het is een nieuwe opdracht die geen offerte is (geen multi uitvoerders) of het is een bestaande opdracht.
+  // Alleen bij een nieuwe opdracht moet de uitvoerder bekend zijn. Bij een bestaande opdracht de uitvoerder dan niet opslaan (old_uitvoerende == uitvoerende == -1).
+  if (isNew && uitvoerende < 0)
     // Er is geen uitvoerende mee gegeven en er kon ook niet automatisch een uitvoerende bepaald worden.
     // Alert geven en terug. Beter dan error in de IIS log.
     shared.simpel_page(L("lcl_orders_no_contractor"));

APPL/MLD/mld_flexkenmerk.inc

@@ -401,7 +401,17 @@ function generateFlexKenmerkBlock(params)
           + "     , " + sql_filter
           + "   AND k.mld_kenmerk_verwijder IS NULL"
           + "   AND k.mld_srtkenmerk_key = t.mld_srtkenmerk_key"
-          + "   AND t.mld_srtkenmerk_verwijder IS NULL";
+          + "   AND t.mld_srtkenmerk_verwijder IS NULL"
+          + "   AND (  (t.mld_srtkenmerk_kenmerktype = 'M'"   // bijlagen niet meenemen als deze gewist moeten worden
+          + "          AND CASE WHEN ((BITAND(k.mld_kenmerk_wissen, 1) = 1) AND (" + (params.copy?1:0)    + "=1))"
+                       + "      THEN k.mld_kenmerk_default"
+                       + "      WHEN ((BITAND(k.mld_kenmerk_wissen, 2) = 2) AND (" + (params.forward?1:0) + "=1))"
+                       + "      THEN ''"
+                       + "      ELSE '1'"
+                       + "  END = '1'"
+          + "          )"
+          + "       OR (t.mld_srtkenmerk_kenmerktype <> 'M')"
+          + "       )";
   var sql1 = "";
 
 

APPL/MLD/mld_list.inc

@@ -956,7 +956,7 @@ oRs.close();
       function fncolRuimte(oRs)
       {
         if (oRs("alg_ruimte_nr").Value && (oRs("alg_ruimte_nr").Value).substring(0,1) != "_")
-        return safe.html(oRs("alg_ruimte_nr").Value) + "&nbsp" + safe.html(oRs("alg_ruimte_omschrijving").Value);
+        return safe.html(oRs("alg_ruimte_nr").Value) + " " + safe.html(oRs("alg_ruimte_omschrijving").Value);
       }
 
       function fncolNote(oRs)

APPL/MLD/mld_opdr_actions.asp

@@ -165,7 +165,7 @@ user.auth_required_or_abort(this_opdr.canReadAny);
     <h2><%="Beste uitvoerder,"%></h2>
     <p><%="U heeft opdracht" + "&nbsp;" +(mld_opdr.srtdiscprefix||"") + mld_opdr.mld_key + "/" + mld_opdr.volgnr + "&nbsp;" + "van ons ontvangen."%></p>
 	<p><%="<u>Omschrijving:</u>"%><br><%=safe.html(mld_opdr.opdr_omschr)%></p>
-	<p><%="Oorspronkelijk gemeld door:" + "&nbsp" + safe.html(prs_info.naam || "Geen contactpersoon opgegeven")%>
+	<p><%="Oorspronkelijk gemeld door:" + "&nbsp;" + safe.html(prs_info.naam || "Geen contactpersoon opgegeven")%>
 	     <br><%="Telefoonnummer:" +"&nbsp;" + safe.html(prs_info.prs_perslid_telefoonnr)%></p>
     <p><%=L("lcl_opdr_action_status").format(mld.getextendedopdrstatustext(mld_opdr.extended_opdr_status, opdr_key))%></p>
     <%

APPL/MLD/opdr_edit_uren.asp

@@ -510,6 +510,7 @@ if (urole != "fe" && canWrite)
                 + "       COALESCE(pf.prs_perslid_naam_full, pf2.prs_perslid_naam_full, pb.prs_bedrijf_naam) naam,"
                 + "       mld_opdr_datumbegin,"
                 + "       mld_opdr_einddatum,"
+                + lcl.xsqla('mto.mld_typeopdr_omschrijving', 'mto.mld_typeopdr_key') + ", "
                 + "       mld_typeopdr_uren"
                 + "  FROM mld_opdr mo,"
                 + "       mld_typeopdr mto,"
@@ -571,6 +572,7 @@ if (urole != "fe" && canWrite)
                + "       '' naam,"
                + "       null mld_opdr_datumbegin,"
                + "       null mld_opdr_einddatum,"
+               + "       '' mld_typeopdr_omschrijving,"
                + "       0 mld_typeopdr_uren"
                + "  FROM mld_impropdr mo,"
                + "       prs_v_perslid_fullnames_all pf"
@@ -614,57 +616,77 @@ if (urole != "fe" && canWrite)
         var anyNotSelf = false; // Dan gaan we op het laatst de handlercolom aanzetten
         while (!oRs.Eof)
         {
-          var ttl="";
+          var txt = "";
+          var ttl = "";
+          var oms = "";
+          //
+          // Bepalen van de gewenste identificatie om uren te kunnen schrijven
+          // txt = eerste kolom: opdrachtnummer|contractnummer|improductiefcode
+          //      (tweede kolom: naam van de opdrachtnemer)
+          // oms = derde kolom:  bepaald door S("mld_uren_omschrijving")
+          //       1=melder (care)
+          //       2=vakgroep/stdmelding 
+          //       3=opdrachtomschrijving
+          //       4=opdrachttype/aanvrager
+          // ttl = tooltip op de omschrijving: de opdrachtomschrijving
+          // ttl1= tooltip op het opdrachtnummer: de opdrachtperiode (van-tot)
+          // 
           if (oRs("mld_melding_key").value > 0)
           {
-            var txt = oRs("mld_melding_key").value+"/"+oRs("mld_opdr_bedrijfopdr_volgnr").value;
+            txt = oRs("mld_melding_key").value+"/"+oRs("mld_opdr_bedrijfopdr_volgnr").value;
             ttl = oRs("mld_opdr_omschrijving").Value;
-            if (S("mld_uren_omschrijving") == 1) {  // care laat client zien.
-              var tsql = "SELECT prs_perslid_naam_full"
+
+            if (S("mld_uren_omschrijving") == 1 || S("mld_uren_omschrijving") == 4) 
+            {
+              // dan heb ik de naam van de melder nodig.
+              var tsql = "SELECT prs_perslid_naam_full, prs_perslid_naam_friendly"
                        + "  FROM prs_v_perslid_fullnames_all pf"
                        + "     , mld_melding m "
                        + " WHERE m.prs_perslid_key=pf.prs_perslid_key"
                        + "   AND m.mld_melding_key = " + oRs("mld_melding_key").value;
               var toRs = Oracle.Execute(tsql);
-              var oms = toRs("prs_perslid_naam_full").Value;
+              if (S("mld_uren_omschrijving") == 1)
+                oms = toRs("prs_perslid_naam_full").Value;
+              else  // 4
+                oms = oRs("mld_typeopdr_omschrijving").Value + " - " + toRs("prs_perslid_naam_friendly").Value;
               toRs.Close();
             }
-            else
+            if (S("mld_uren_omschrijving") == 3) // opdrachtomschrijving
             {
-              var tsql = "SELECT ins_srtdiscipline_prefix"
-                       + "     , SUBSTR(ins_discipline_omschrijving || '/' || mld_stdmelding_omschrijving, 1,40) omschrijving"
-                       + "  FROM ins_srtdiscipline sd"
-                       + "     , ins_tab_discipline d"
-                       + "     , mld_stdmelding std"
-                       + "     , mld_melding m"
-                       + " WHERE d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)"
-                       + "   AND std.mld_ins_discipline_key = d.ins_discipline_key"
-                       + "   AND m.mld_stdmelding_key = std.mld_stdmelding_key"
-                       + "   AND m.mld_melding_key = " + oRs("mld_melding_key").value;
-              var toRs = Oracle.Execute(tsql);
-              var prefix = toRs("ins_srtdiscipline_prefix").Value || "";
-              txt = prefix + txt;
-              if (S("mld_uren_omschrijving") == 2 || !ttl) // meldingomschrijving primair tonen
-              {
-                var oms = toRs("omschrijving").Value;
-              }
-              else // 3 opdracht omschrijving primair tonen
-              {
-                var oms = ttl.substring(0, 50) + (ttl.length>50?"...":"");
-                ttl = toRs("omschrijving").Value + "\n" + ttl;
-              }
-              toRs.Close();
+              oms = (oRs("mld_opdr_omschrijving").Value).substring(0, 50) + ((oRs("mld_opdr_omschrijving").Value).length>50?"...":"");
             }
+            // ik moet sowieso de prefix hebben, en voor 2 die omschrijvingen
+            var tsql = "SELECT sd.ins_srtdiscipline_prefix"
+                      + "     , " + lcl.xsqla('d.ins_discipline_omschrijving', 'd.ins_discipline_key')
+                      + "     , " + lcl.xsqla('std.mld_stdmelding_omschrijving', 'std.mld_stdmelding_key')
+                      + "  FROM ins_srtdiscipline sd"
+                      + "     , ins_tab_discipline d"
+                      + "     , mld_stdmelding std"
+                      + "     , mld_melding m"
+                      + " WHERE d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)"
+                      + "   AND std.mld_ins_discipline_key = d.ins_discipline_key"
+                      + "   AND m.mld_stdmelding_key = std.mld_stdmelding_key"
+                      + "   AND m.mld_melding_key = " + oRs("mld_melding_key").value;
+            var toRs = Oracle.Execute(tsql);
+            var prefix = toRs("ins_srtdiscipline_prefix").Value || "";
+            txt = prefix + txt;
+            if (S("mld_uren_omschrijving") == 2 || !ttl) // vakgroep/stdmelding
+            {
+              oms = (toRs("ins_discipline_omschrijving").Value + "/" + toRs("mld_stdmelding_omschrijving").Value).substring(0, 50) 
+                  + ((toRs("ins_discipline_omschrijving").Value + "/" + toRs("mld_stdmelding_omschrijving").Value).length>50 ? "..." : "");
+              ttl = toRs("ins_discipline_omschrijving").Value + "/" + toRs("mld_stdmelding_omschrijving").Value + "\n" + ttl;
+            }
+            toRs.Close();
           }
           else if (oRs("cnt_contract_key").value > 0)
           {
-            var txt = "C" + oRs("cnt_contract_key").value + "/" + oRs("mld_opdr_bedrijfopdr_volgnr").value;
-            var oms = oRs("mld_opdr_omschrijving").Value;
+            txt = "C" + oRs("cnt_contract_key").value + "/" + oRs("mld_opdr_bedrijfopdr_volgnr").value;
+            oms = oRs("mld_opdr_omschrijving").Value;
           }
           else // waarschijnlijk improductief
           {
-            var txt = oRs("mld_impropdr_code").Value;
-            var oms = oRs("mld_opdr_omschrijving").Value;
+            txt = oRs("mld_impropdr_code").Value;
+            oms = oRs("mld_opdr_omschrijving").Value;
           }
           var cls="";
           if (oRs("mld_uitvoerende_keys").Value != user_key)

APPL/PDA/orders_list.asp

@@ -161,7 +161,7 @@ if (!hasParamFlag)
         }
         __Log ('autfunction bepaald op '+ autfunction.join(","));
         // Zo nee
-        if (autfunction.length == 0)
+        if (autfunction.length == 0 || urole == "fe")
         { // c. ben ik een interne uitvoerder van opdrachten? Dan mag ik de aan mij toegekende opdrachten zien.
           // Dat kan ik passief controleren: zijn er actieve opdrachten op mijn naam?
           listmode = 3;
@@ -368,7 +368,7 @@ if (!hasParamFlag)
     // Bij groepslijst tonen (orders_list.asp) sorteren op naam of stdmelding omschrijving
     sql = "SELECT * FROM (" + sqlA + ") ORDER BY "
         + (grp_sel == "" && (listmode == 2 || listmode == 3)
-          ? (listmode == 2? " naam," : (listmode == 3? " mld_stdmelding_omschrijving," : " mld_opdr_bedrijfopdr_volgnr,")) + " mld_opdr_datumbegin"
+          ? (listmode == 2? " naam," : (listmode == 3? " plaatsmelding, mld_stdmelding_omschrijving," : " mld_opdr_bedrijfopdr_volgnr,")) + " mld_opdr_datumbegin"
           : " actief DESC, halted, einddatum, opdracht")
 
 
@@ -385,7 +385,7 @@ if (!hasParamFlag)
         {
           var col = (listmode == 2 ? "naam" : (listmode == 3 ? "plaatsmelding" : ""));
           if (col != "")
-            url = "../pda/orders_list.asp?grp=" + safe.urlUTF8(oRs(col).Value) + (own? "&own=1" : "") + (klus? "&klus=1" : "");
+            url = "../pda/orders_list.asp?grp=" + safe.urlUTF8(oRs(col).Value) + "&urole=" + urole + (own? "&own=1" : "") + (klus? "&klus=1" : "");
             for (flagkey=0; flagkey < S("mld_opdracht_flags"); flagkey++)
             {
                 url += ((getQParam("flag" + flagkey, "off") == "on") ? "&flag" + flagkey + "=on" : "");

APPL/RES/res_list.inc

@@ -511,7 +511,7 @@ function res_list (pautfunction, params)
           sql_reg = " AND di.alg_regio_key IN (" + reg_key_arr.join(",") + ")";
 
         if (dist_key_arr.length)
-          sql_dist = " AND ruimte_geg.alg_district_key IN (" +  dist_key.join(",") + ")";
+          sql_dist = " AND ruimte_geg.alg_district_key IN (" +  dist_key_arr.join(",") + ")";
 
         if (loc_key_arr.length)
           sql_loc = " AND ruimte_geg.alg_locatie_key IN (" + loc_key_arr.join(",") + ")";
@@ -611,7 +611,9 @@ function res_list (pautfunction, params)
                      + "     , res_rsv_ruimte_opmerking opmerking"
                      + "     , res_geg.res_rsv_ruimte_key rsv_ruimte_key"
                      + "     , res_geg.res_item_key"
-                     + "     , res_geg.aantal_art_kenm"
+                     + (groupres == -1 || groupres == 4
+                       ? "     , res_geg.aantal_art_kenm"
+                       : "")
                      + ((groupres == 1) // Bij groupering op deelreservering is het afmelden afhankelijk van de laagste bo status
                        ? "   , (SELECT MIN(res_status_bo_key)"
                          + "      FROM (SELECT rrr.res_rsv_ruimte_key"
@@ -858,9 +860,11 @@ function res_list (pautfunction, params)
                               + "        FROM res_ruimte_opstelling rro"
                               + "       WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key) AS res_ruimte_key"
                             + "     , rra.res_rsv_artikel_key AS res_item_key"
-                            + "     , (SELECT COUNT(ka.res_kenmerkartikel_key)"
-                            + "          FROM res_kenmerkartikel ka"
-                            + "         WHERE ka.res_rsv_artikel_key = rra.res_rsv_artikel_key) aantal_art_kenm"
+                            + (groupres == -1 || groupres == 4
+                              ? "   , (SELECT COUNT(ka.res_kenmerkartikel_key)"
+                                + "      FROM res_kenmerkartikel ka"
+                                + "     WHERE ka.res_rsv_artikel_key = rra.res_rsv_artikel_key) aantal_art_kenm"
+                              : "")
                             + (groupres == 1
                               ? "   , rrr.res_rsv_ruimte_van AS res_reservering_van"
                               : "   , rra.res_rsv_artikel_levering AS res_reservering_van")
@@ -941,7 +945,9 @@ function res_list (pautfunction, params)
                             + "          FROM res_ruimte_opstelling rro"
                             + "         WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key) AS res_ruimte_key"
                             + "     , rrd.res_rsv_deel_key AS res_item_key"
-                            + "     , 0 aantal_art_kenm"
+                            + (groupres == -1 || groupres == 4
+                              ? "     , 0 aantal_art_kenm"
+                              : "")
                             + (groupres == 1
                               ? "   , rrr.res_rsv_ruimte_van AS res_reservering_van"
                               : "   , rrd.res_rsv_deel_van AS res_reservering_van")
@@ -1024,7 +1030,9 @@ function res_list (pautfunction, params)
                              + "     , rrr.res_rsv_ruimte_key"
                              + "     , rro.res_ruimte_key"
                              + "     , rrr.res_rsv_ruimte_key AS res_item_key"
-                             + "     , 0 aantal_art_kenm"
+                             + (groupres == -1 || groupres == 4
+                               ? "     , 0 aantal_art_kenm"
+                               : "")
                              + "     , rrr.res_rsv_ruimte_van AS res_reservering_van"
                              + "     , rrr.res_rsv_ruimte_tot AS res_reservering_tot"
                              + "     , TO_NUMBER(null) AS aantal"
@@ -1313,7 +1321,6 @@ function res_list (pautfunction, params)
             + "      , opmerking"
             + "      , rsv_ruimte_key"
             + "      , NULL res_item_key"
-            + "      , aantal_art_kenm"
             + "      , res_status_bo_key"
             + "      , res_rsv_ruimte_flag"
             + "      , CASE categorie"
@@ -2285,7 +2292,7 @@ function res_list (pautfunction, params)
           var sqlFlex = "";
           var flexData = [];
           var flex = "";
-          if (poRs("aantal_art_kenm").Value > 0)
+          if ((groupres == -1 || groupres == 4) && poRs("aantal_art_kenm").Value > 0)
           {
             sqlFlex = getSqlFlex("RESA", poRs("res_item_key").Value, true);
             flexData = getFlexData(sqlFlex, poRs("res_item_key").Value, { showProperties: true, onlyWithValue: true }); // Alleen flexkenmerken met een waarde ophalen.

APPL/RES/res_reservering.asp

@@ -356,7 +356,7 @@ if (showMldFrame && urole == 'fe') // fe krijgt geen Add knop. Als er dan ook ge
 <%      }
 
 
-        if (bez_edit || (verynew && rrr.aantal_verplicht == 2))
+        if (bez_edit || (verynew && rrr.aantal_verplicht == 2 && !rrr.rsv_ruimte_dirtlevel))
         { // Bezoekersscherm direct in edit mode
 %>
           $("#frametabs").tabs({ "active": 2 }); // Open direct het externe bezoekers subframe (3de frame/subtab, dus index == 2)

APPL/RES/res_search_list.asp

@@ -167,9 +167,8 @@ else
 }
 
 var sortout = getFParamInt("sortout", -1); // Sortering
-var groupres = getFParamInt("groupby", -1); // Groepering
-params.sortout        = (sortout != -1? sortout : null);
-params.groupres       = (groupres != -1? groupres : null);
+params.groupres = getFParamInt("groupby", -1); // Groepering
+params.sortout = (sortout != -1? sortout : null);
 if (getFParam("fnStep", ""))
     params.fnStep = "parent.fnStepPlanbord";
 

APPL/Shared/FlexFiles.inc

@@ -694,6 +694,8 @@ function flexProps(pModule, pKey, pSubpath, pNiveau, params)
           {
               result.extFilter = postfix.split(".").pop();
           }
+          if ((oRs("fac_export_app_flags").Value||0) & 1)
+            result.extFilter = "zip";
           //settings.overrule_setting("flexAllowedExt", oRs("fac_folder_extfilter").Value); // tijdelijk meer toestaan
           settings.overrule_setting("flexFilesOrdering", 1); // nieuwste bovenaan.
           result.searchfile = true;
@@ -1153,11 +1155,12 @@ function get_bijlagen(p_module, p_refkey, p_kenmerkkey, p_flexwaarde, pNiveau, p
                                         + "  FROM mld_opdr o"
                                         + "     , mld_srtkenmerk t"
                                         + "     , mld_kenmerk k"
-                                        + " WHERE o.mld_typeopdr_key = k.mld_typeopdr_key"
-                                        + "   AND k.mld_srtkenmerk_key = t.mld_srtkenmerk_key"
+                                        + " WHERE k.mld_srtkenmerk_key = t.mld_srtkenmerk_key"
                                         + "   AND k.mld_kenmerk_verwijder IS NULL"
                                         + "   AND t.mld_srtkenmerk_verwijder IS NULL"
-                                        + "   AND k.mld_kenmerk_niveau IN ('P', 'O')"
+                                        + "   AND (  (k.mld_kenmerk_niveau = 'P' AND k.mld_typeopdr_key IS NULL)"
+                                        + "       OR (k.mld_kenmerk_niveau = 'O' AND k.mld_typeopdr_key = o.mld_typeopdr_key)"
+                                        + "       )"
                                         + "   AND t.mld_srtkenmerk_kenmerktype IN ('M', 'F', 'E', 'X')"
                                         + "   AND o.mld_opdr_key = " + p_refkey;
                         else

APPL/Shared/Suggest/SuggestPerslid.asp

@@ -52,10 +52,7 @@ var filtvalue = getQParam("filtvalue", "");
 var extracode = getQParam("extraCode", "");
 var prefKeys = getQParamIntArray("prefKeys", []);
 var afd_key = getQParamInt("afd_key", -1); // Afdeling gegeven
-var loc_key = getQParamInt("lockey", -1);
-var bld_key = getQParamInt("bldkey", -1);
-var flr_key = getQParamInt("flrkey", -1);
-var room_key = getQParamInt("roomkey", -1);
+var loc_key = getQParamInt("loc_key", -1);
 params = {};
 
 if (filtcode == "BEHF" || filtcode == "BEHB" ||
@@ -82,9 +79,6 @@ if (afd_key > 0)
   params.afd_key = afd_key;
 
 params.loc_key = loc_key;
-params.bld_key = bld_key;
-params.flr_key = flr_key;
-params.room_key = room_key;
 
 chars = chars.replace(/\*/g,"%");
 

APPL/Shared/Suggest/SuggestStdmelding.asp

@@ -25,7 +25,7 @@ JSON_Result = true;
 
 <%
 var chars = getQParam("k", "");
-var autfunctionKey = getQParamInt("autfunctionKey");
+var autfunctionKeyArray = getQParamIntArray("autfunctionKey", null, true); // pAll = true want dan wordt de waarde -1 gewoon doorgegeven.
 var bAll = getQParamInt("SuggestAll", 0) == 1;
 var srtdisc_key = getQParamInt("srtdisc_key", -1);
 var disc_key = getQParamInt("disc_key", -1);
@@ -51,7 +51,7 @@ var filt_params = { disc_key: disc_key,
                     flr_key: flr_key,
                     room_key: room_key,
                     perslidKey: perslidKey,
-                    autfunctionKey: autfunctionKey,
+                    autfunctionKeyArray: autfunctionKeyArray,
                     show_expired: show_expired,
                     ref_type: ref_type
                   };
@@ -95,4 +95,4 @@ WriteResult2(sql, { bAll:          bAll,
                    fldTitle:      'mld_stdmelding_hint'
                  })
 %>
-<% ASPPAGE_END(); %> 
+<% ASPPAGE_END(); %>

APPL/Shared/Suggest/stdmeldingFilter.inc

@@ -76,43 +76,31 @@ function getFiltClauseStdmelding(pfiltcode, params, init)
     lfiltClause.where += " AND di.ins_srtdiscipline_key IN (" + params.srtdisc_keys.join(",") + ")"
   }
 
-  // params.autfunctionKey kan een key of een array met keys zijn. Maak hier altijd een array van.
-  var autfunctionkeys = [];
-  if (typeof params.autfunctionKey === "object")
-    autfunctionkeys = params.autfunctionKey;
-  else
+  if (params.autfunctionKeyArray && params.autfunctionKeyArray[0] > 0) // Efficiente versie van FAC_V_MY_PR**S_AFDELINGEN_READ
   {
-    if (params.autfunctionKey != -1)
-      autfunctionkeys.push(params.autfunctionKey);
+    if (!("perslidKey" in params) || user_key == params.perslidKey)
+      var same_level = 9;
+    else if (params.perslidKey > 0) // aut.fac_get_prs_same_level niet onnodig aanroepen
+    {
+      var sql = "SELECT aut.fac_get_prs_same_level(" + user_key + ", " + params.perslidKey + ") theLevel FROM DUAL";
+      var oRs = Oracle.Execute(sql);
+      var same_level = oRs("theLevel").Value;
+      oRs.Close();
+    }
+    else
+    {
+      var same_level = 0; // Dit geeft aut.fac_get_prs_same_level bij params.perslidKey == -1.
+    }
+
+    lfiltClause.where += " AND di.ins_discipline_key IN"
+                        + " (SELECT ins_discipline_key FROM fac_v_webgebruiker fw"
+                        + "   WHERE fac_gebruiker_alg_level_write < 9" // extra: Vooral voor MLDUSE gebruikers met alleen PRS-leesrechten
+                        + "     AND fac_gebruiker_prs_level_write <= " + same_level
+                        + "     AND fac_functie_key IN (" + params.autfunctionKeyArray.join(",") + ")"
+                        + "     AND prs_perslid_key = " + user_key
+                        + "     AND di.ins_discipline_key = fw.ins_discipline_key)"
   }
 
-  if (!("perslidKey" in params) || user_key == params.perslidKey)
-    var same_level = 9;
-  else if (params.perslidKey > 0) // aut.fac_get_prs_same_level niet onnodig aanroepen
-  {
-    var sql = "SELECT aut.fac_get_prs_same_level(" + user_key + ", " + params.perslidKey + ") theLevel FROM DUAL";
-    var oRs = Oracle.Execute(sql);
-    var same_level = oRs("theLevel").Value;
-    oRs.Close();
-  }
-  else
-  {
-    var same_level = 0; // Dit geeft aut.fac_get_prs_same_level bij params.perslidKey == -1.
-  }
-
-  lfiltClause.where += " AND di.ins_discipline_key IN"
-                      + " (SELECT ins_discipline_key FROM fac_v_webgebruiker fw"
-                      + "   WHERE fac_gebruiker_alg_level_write < 9" // extra: Vooral voor MLDUSE gebruikers met alleen PRS-leesrechten
-                      + "     AND fac_gebruiker_prs_level_write <= " + same_level
-                      + (autfunctionkeys.length
-                        ? "   AND fac_functie_key IN (" + autfunctionkeys.join(",") + ")"
-                        : "")
-                      + "     AND prs_perslid_key = " + user_key
-                      + "     AND di.ins_discipline_key = fw.ins_discipline_key)"
-
-
-
-
   if (params.ins_key > 0)
   {
      lfiltClause.where += " AND EXISTS"

APPL/Shared/default.inc

@@ -8,7 +8,7 @@
     Context:     Vanuit ELK asp bestand
 */
 
-var FCLTVersion="2022.3b";
+var FCLTVersion="2022.3e";
 var FCLTMinDatabaseSchema="43"; // Alleen de cijfers
 
 var custpath = rooturl + "/cust/" + customerId;  // path to customer files

APPL/Shared/default.xsl

@@ -1775,6 +1775,7 @@ END:VCALENDAR
           </td>
           <td colspan="3" style="padding-top:10px;">
             <xsl:call-template name="linebreaks">
+            	<xsl:with-param name="escaping" select="'no'"/>
               <xsl:with-param name="string" select="fclt:fclthtml(notes/note[key=$mx_key]/omschrijving)"/>
             </xsl:call-template>
           </td>
@@ -2173,6 +2174,7 @@ END:VCALENDAR
           </td>
           <td colspan="5" style="padding-top:15px;padding-bottom:10px;">
             <xsl:call-template name="linebreaks">
+            	<xsl:with-param name="escaping" select="'no'"/>
               <xsl:with-param name="string" select="fclt:fclthtml(notes/note[key=$ox_key]/omschrijving)"/>
             </xsl:call-template>
           </td>
@@ -2860,8 +2862,8 @@ END:VCALENDAR
         <td class="label"> <xsl:value-of select="//lcl/FAC/opmerking"/></td>
         <td class="value" colspan="9">
           : <xsl:call-template name="linebreaks">
-          <xsl:with-param name="string" select="fclt:fclthtml(opmerking)"/>
           <xsl:with-param name="escaping" select="'no'"/>
+          <xsl:with-param name="string" select="fclt:fclthtml(opmerking)"/>
           </xsl:call-template>
         </td>
       </tr>
@@ -3432,6 +3434,7 @@ END:VCALENDAR
           </td>
           <td colspan="3" style="padding-top:10px;" class="value">
             <xsl:call-template name="linebreaks">
+            	<xsl:with-param name="escaping" select="'no'"/>
               <xsl:with-param name="string" select="fclt:fclthtml(notes/note[key=$mx_key]/omschrijving)"/>
             </xsl:call-template>
           </td>
@@ -3864,6 +3867,7 @@ END:VCALENDAR
           </td>
           <td colspan="3" style="padding-top:10px;" class="value">
             <xsl:call-template name="linebreaks">
+            	<xsl:with-param name="escaping" select="'no'"/>
               <xsl:with-param name="string" select="fclt:fclthtml(notes/note[key=$mx_key]/omschrijving)"/>
             </xsl:call-template>
           </td>
@@ -4299,4 +4303,15 @@ END:VCALENDAR
             <xsl:apply-templates select="printfg"/>
             <xsl:apply-templates select="resultset"/>
     </xsl:template>
-</xsl:stylesheet>
+</xsl:stylesheet><!-- Stylus Studio meta-information - (c) 2004-2009. Progress Software Corporation. All rights reserved.
+
+<metaInformation>
+	<scenarios/>
+	<MapperMetaTag>
+		<MapperInfo srcSchemaPathIsRelative="yes" srcSchemaInterpretAsXML="no" destSchemaPath="" destSchemaRoot="" destSchemaPathIsRelative="yes" destSchemaInterpretAsXML="no"/>
+		<MapperBlockPosition></MapperBlockPosition>
+		<TemplateContext></TemplateContext>
+		<MapperFilter side="source"></MapperFilter>
+	</MapperMetaTag>
+</metaInformation>
+-->

APPL/Shared/disciplineselector.inc

@@ -15,7 +15,7 @@
                                   idadd:             Identieficatie verschil bij gebruik van meerdere disciplineselectoren
                                   sgRelType:         De onderliggende multiSuggest-types die afhankelijk zijn van deze FCLTdisciplineselector, gescheiden door komma's.
                                                      De eerst volgende afhankelijke als eerste vermelden (bijv. "stdmelding, srtgroep, srtdeel").
-                                  autfunctionKey:    verplicht fac_function_key
+                                  autfunctionKey:    Verplicht: fac_functie key of een array van fac_functie keys.
                                   label:             label dat voor het veld wordt weergegeven.
                                   filtercode:        extra filtercode voor de query die gebruikt wordt voor de suggest.
                                   cndfilter:         filter de conditie gebreken (srtdisc = xx(setting)) eruit.

APPL/Shared/queuemail.asp

@@ -95,6 +95,13 @@ function bestandenlijst(pmodule, pniveau, pkey)
 // Bij MLD-meldingen worden ook de bestanden van de 'parents' aangeboden
 function bestandenlijstALL(pmodule, pniveau, pkey, pnoWorkflow)
 {
+    function sort_name(a,b)
+    {
+        if (a.name < b.name) return -1;
+        if (a.name > b.name) return 1;
+        return 0;
+    }
+
     var bestandlijst = bestandenlijst(pmodule, pniveau, pkey);
     if (pmodule == "MLD" && pniveau == "M" && !pnoWorkflow && S("mld_show_parent_attachments"))
     {
@@ -112,6 +119,7 @@ function bestandenlijstALL(pmodule, pniveau, pkey, pnoWorkflow)
             }
         }
     }
+    bestandlijst.files.sort(sort_name);
     return bestandlijst;
 }
 

APPL/Shared/queuemail_save.asp

@@ -122,6 +122,13 @@ function bestandenlijst(pmodule, pniveau, pkey)
 // Bij MLD worden ook de bestanden van de 'parents' aangeboden
 function bestandenlijstALL(pmodule, pniveau, pkey)
 {
+    function sort_name(a,b)
+    {
+        if (a.name < b.name) return -1;
+        if (a.name > b.name) return 1;
+        return 0;
+    }
+
     var bestandlijst = bestandenlijst(pmodule, pniveau, pkey);
     if (pmodule == "MLD" && pniveau == "M")
     {
@@ -140,6 +147,7 @@ function bestandenlijstALL(pmodule, pniveau, pkey)
             mk = sk;
         }
     }
+    bestandlijst.sort(sort_name);
     return bestandlijst
 }
 

APPL/Shared/stdmeldingselector.inc

@@ -9,7 +9,7 @@
                     objectName:   naam van het suggest object dat wordt aangemaakt.
                     params:       object met meegegeven parameters.
                                   stdmelding_key:    initi<74>le key waarde van de stdmelding die ingevuld moet worden.
-                                  autfunctionKey:    verplicht fac_function_key
+                                  autfunctionKey:    Verplicht: fac_functie key of een array van fac_functie keys.
                                   perslidKey:        Verplicht: persoon waarvoor melding is, Kan ook met urlAdd meegegeven worden. De waarden wordt dan uit een veld gehaald.
                                   multitoggle:       Sta multi-toggle toe
                                   label:             label dat voor het veld wordt weergegeven.
@@ -50,9 +50,15 @@ function FCLTstdmeldingselector(fieldName, objectName, params)
     }
   }
 
-  var lextraInit = "";
+  params.autfunctionKeyArray = [];
+  if (typeof params.autfunctionKey == "object")
+    params.autfunctionKeyArray = params.autfunctionKey;
+  else // (typeof params.autfunctionKey == "number")
+    params.autfunctionKeyArray = [params.autfunctionKey];
+
   var filtClause = getFiltClauseStdmelding(params.filtercode, params, true);
   var extraInf = getExtraInfStdmelding(params.extracode);
+
   sql = "SELECT COUNT(*) aantal"
       + "  FROM mld_stdmelding sm"
       + ",      mld_discipline di"
@@ -64,6 +70,7 @@ function FCLTstdmeldingselector(fieldName, objectName, params)
   var oRs = Oracle.Execute(sql);
   // Als er maar <20><>n vakgroep is, dan deze selecteren.
   var justone = (oRs("aantal").value == 1);
+  var lextraInit = "";
   if (oRs("aantal").value == 1)
   {
     sql = "SELECT mld_stdmelding_key,"
@@ -91,7 +98,7 @@ function FCLTstdmeldingselector(fieldName, objectName, params)
 
   // Bouw de url voor de melding query op
   var stdmQueryUrl = rooturl + "/appl/shared/suggest/SuggestStdmelding.asp"
-                     + "?autfunctionKey=" + params.autfunctionKey
+                     + "?autfunctionKey=" + (typeof params.autfunctionKey == "object" && params.autfunctionKey instanceof Array? params.autfunctionKey.join(",") : params.autfunctionKey)
                      + (params.perslidKey > 0? "&perslidKey=" + params.perslidKey : "") // Kan ook met urlAdd meegegeven worden
                      + (params.disc_key > 0? "&disc_key=" + params.disc_key : "")
                      + (params.srtdisc_key > 0? "&srtdisc_key=" + params.srtdisc_key : "")

UTILS/PutOrders/puo_allorders.js

@@ -272,7 +272,7 @@ function send1Order(Bedrijf_key, XMLnode, params) // XMLNode=opdracht, bestelopd
     var oRsB = Oracle.Execute(sqlB);
     if (oRsB.Eof)
     {
-        Log2File(1, sql);
+        Log2File(1, sqlB);
         var tekst = "Error: No suitable technical address for company '{0}' key {1} found.".format(bedrijfnaam, Bedrijf_key);
         Log2File(1, tekst);
         marksent(XMLnode, OpdrKey, -1, tekst, cust);