RWSN#86923: Probleem e-mailnotificaties bij fiatteren €3-opdrachten na update 2024.2.

svn path=/Website/branches/v2024.2/; revision=67553

APPL/API/api_mldsoap.asp

@@ -467,7 +467,10 @@ for (i = 0; i < meldingen.length; i++)
           upsertKenmerk(mldkenmerken, stdmld_key, mld_key);
 
           resultcode = 0; // Ik heb gedaan wat ik moest en mocht doen voor deze melding.
-          // En nog maar even de aanname dat een extern systeem niet aan workflows/ktos doet?
+
+          // Handle workflow actions for new call:
+          // Let wel: alleen initiele stap ondersteund, niet latere vervolgstappen bij statuswijzigingen!
+          mld.nextworkflowstep(mld_key, -1);  // -1 = initial (the originating call)
 
           // Klantspecifieke check functie (hookfunction) voor de invoer
           var pResult = new HookResult();

APPL/API2/model_appointments.inc

@@ -228,17 +228,20 @@ function model_appointments()
                 else if (jsondata.building)
                     alg_key = jsondata.building;
 
-                var sql = "SELECT MAX(alg_locatie_key) loc_key"
-                        + "  FROM alg_v_allonroerendgoed"
-                        + " WHERE alg_onroerendgoed_keys = " + alg_key;
-                var oRs = Oracle.Execute(sql);
-                if (!oRs.eof)
+                if (alg_key > 0) // anders niet meegegeven bij update en/of het is een appointment onder een reservering en er komt nog wel een follow_afspraak
                 {
-                    var loc_key = oRs("loc_key").Value;
-                    dbfields["location"] = { dbs: "alg_locatie_key", typ: "key", foreign: "alg_locatie", val: loc_key};
-                    jsondata.location = loc_key;
+                    var sql = "SELECT MAX(alg_locatie_key) loc_key"
+                            + "  FROM alg_v_allonroerendgoed"
+                            + " WHERE alg_onroerendgoed_keys = " + alg_key;
+                    var oRs = Oracle.Execute(sql);
+                    if (!oRs.eof)
+                    {
+                        var loc_key = oRs("loc_key").Value;
+                        dbfields["location"] = { dbs: "alg_locatie_key", typ: "key", foreign: "alg_locatie", val: loc_key};
+                        jsondata.location = loc_key;
+                    }
+                    oRs.Close();
                 }
-                oRs.Close();
             }
         }
     };

APPL/API2/model_issues.inc

@@ -445,14 +445,6 @@ function model_issues(mld_key, params)
         var this_mld = mld.func_enabled_melding(mld_info.mld_key);
         var stdm_info = mld.mld_stdmeldinginfo(mld_info.stdm_key);
 
-        var sql = "SELECT mld_meldbron_kiesbaar"
-                + "  FROM mld_meldbron"
-                + " WHERE mld_meldbron_key = " + mld_info.meldbron_key;
-        var oRs = Oracle.Execute(sql);
-        if (!oRs.eof)
-            mld_info.meldbron_kiesbaar = oRs("mld_meldbron_kiesbaar").Value;
-        oRs.Close();
-
         // Uitgebreide condities eerst hier maken.
         var remark_canchange = (  (this_mld.canBOwrite || this_mld.canFOwrite)
                                && (S("mld_afhandeling_restrict_edit") == 0)
@@ -489,7 +481,6 @@ function model_issues(mld_key, params)
         delete_fld(jsondata, "handler",       !this_mld.canAfhandChange);
         delete_fld(jsondata, "public",        !mld_info.canbepublished);
         delete_fld(jsondata, "origin",        true);
-        delete_fld(jsondata, "extern_id",     !((mld_info.mld_meldbron_kiesbaar & 2) == 2));
         delete_fld(jsondata, "indult" ,       !(stdm_info.slabewaken && this_mld.canSLAChange) );
         delete_fld(jsondata, "completed",     !this_mld.canAfrond);
         delete_fld(jsondata, "kto",           !((mld_info.kto_opt & 2) == 2 && mld_info.kto_verstuurd == null && this_mld.canClose) );

APPL/CAD/rap_alg.asp

@@ -71,7 +71,7 @@ if (floorKey != -1)
       + "     , r.alg_ruimte_omschrijving"
       + "     , r.alg_ruimte_opp_alt1"
       + "     , r.alg_ruimte_opp_alt2"
-      + "     , ROUND(100 * cr.prs_ruimteafdeling_bezetting / rp.som_bezetting) bezet_perc"
+      + "     , (100 * cr.prs_ruimteafdeling_bezetting / rp.som_bezetting) bezet_perc"
       + "     , r.alg_ruimte_bruto_vloeropp * (cr.prs_ruimteafdeling_bezetting / rp.som_bezetting) bezet_vloeropp"
       + "     , (SELECT " + S("prs_dep_string")
             + "   FROM prs_v_afdeling d"

APPL/EXP/facilitor.asp

@@ -483,7 +483,7 @@ __Log(actie);
         var opdr_key = melding.opdracht.mld_opdr_key || -1;
         if (params.ticket)
         {
-            if (params.ticket.status >= 200 && params.ticket.status < 300)
+            if (params.ticket.status >= 200 && params.ticket.status < 300 && params.ticket.data.issue.id)
             {
                 var sql = "";
                 var v_id = "";
@@ -500,12 +500,26 @@ __Log(actie);
                 }
                 else if (methode == "PUT" && actie == "issue")
                 {
+                    // Soms wordt er een nieuwe opdracht aangemaakt als er een bug wordt afgemeld die leidt tot een change
+                    // Voor de change is dan een nieuwe opdracht aangemaakt die gelinkt is aan dezelfde melding in het logcenter
+                    // In dat geval gaan we toch het externnummer vullen voor de verdere communicatie.
                     v_id = "Update naar facilitor doorgestuurd. id: " + params.ticket.data.issue.id;
+                    sql = "UPDATE mld_opdr"
+                        + "   SET mld_opdr_externnr = " + safe.quoted_sql("" + params.ticket.data.issue.id)
+                        + " WHERE mld_opdr_externnr IS NULL "
+                        + "   AND mld_opdr_key = " + opdr_key;
                 }
                 if (sql)
                     Oracle.Execute(sql);
                 shared.trackaction("#ORDTRK", opdr_key, v_id);
             }
+            else
+            {
+               if (params.ticket.data.message)
+               {
+                  shared.trackaction("#ORDTRK", opdr_key, "Foutmelding: " + safe.quoted_sql(params.ticket.data.message));
+               }
+            }
             //var opm = (methode == "POST" ? "Creating " : "Updating ") + actie + " facilitor. Status: " + params.ticket.status;
             //shared.trackaction("#MLDDOO", opdr_key, opm);
         }
@@ -577,6 +591,10 @@ __Log(actie);
     __Log(result);
     __Log("*< facilitor.api");
     Response.Write(JSON.stringify(result));
-    //Response.End;
+    if (result.ticket.status)
+    {
+       Response.Status = result.ticket.status + " " + result.ticket.message;
+    }
+    Response.End;
 %>
 <% ASPPAGE_END(); %>

APPL/FAC/fac_fiattering_list.inc

@@ -495,17 +495,41 @@ function getSqlFiatMld(fiatstatus, prsKeys, params)
                   // Daarom de database functie fac.gettrackinguserkey (peventcode IN VARCHAR2, pkey IN NUMBER) uitgeschreven.
                   // De fac_tracking en fac_srtnotificatie mee joinen duurder langer dan onderstaande oplossing.
 /* A1 */          //+ " AND p2.prs_perslid_key = CASE WHEN fac.gettrackinguserkey('ORDFOK', op.mld_opdr_key) IS NULL"
-/* A1 */          + " AND p2.prs_perslid_key = prs.getFiatteur(op.prs_kostenplaats_key"
-                  + (S("mld_opdr_reapproval_rate") >= 0
-                    ? "                                      , -1"
-                    : "                                      , CASE"
-                      + "                                      WHEN op.mld_opdr_fiatbedrag IS NULL"
-                      + "                                      THEN NULL"
-                      + "                                      ELSE fac.gettrackinguserkey('ORDFOK', op.mld_opdr_key)"
-                      + "                                      END")
-                  + "                                        , op.mld_opdr_kosten"
-                  + "                                        , op.mld_opdr_discipline_key"
-                  + "                                        , COALESCE(op.mld_opdr_fiatbedrag, 0))"
+
+/* A1 */          + (S("prs_approvemethod") == 2
+                    ? // Doe de oude variant van de code.
+                      " AND p2.prs_perslid_key = prs.nextfiatteur(op.mld_opdr_key"
+                      + "                                         , 'MLD'"
+                      + (S("mld_opdr_reapproval_rate") >= 0
+                        ? "                                       , -1"
+                        : "                                       , CASE" // vier-ogenprincipe.
+                          + "                                       WHEN mld_opdr_fiatbedrag IS NOT NULL OR"                 // Geen nieuwe melding.
+                          + "                                            (op.mld_statusopdr_key_refiat > 0 AND"              // Herfiattering (refiat).
+                          + "                                             k.prs_kostenplaats_fiat = 1 AND"                   // Opdrachten fiatteren 1=Ja.
+                          + "                                             fac.getsetting('mld_opdr_refiat_preference') = 1)" // Goedkeuren met vinkje aan.
+                          + "                                       THEN -1" // Geen nieuwe melding of herfiattering als nieuw fiatteren.
+                          + "                                       WHEN op.mld_opdr_kosten <= fac.getsetting('can_selfapprove')"
+                          + "                                       THEN -1" // Melder van de melding en opdrachtaanmakre niet excluden als zijzelf mogen fiatteren.
+                          + "                                       WHEN m.mld_kosten_klant = 1 AND"
+                          + "                                            m.prs_kostenplaats_key = op.prs_kostenplaats_key AND"
+                          + "                                            fac.getsetting ('mld_opdr_ignore_caller_profile') = 0"
+                          + "                                       THEN m.prs_perslid_key" // De melder mag niet fiatteren.
+                          + "                                       ELSE (SELECT fac.gettrackinguserkey('ORDNEW', op.mld_opdr_key) opdrachtaanmaker"
+                          + "                                               FROM DUAL)" // De opdrachtaanmaker mag niet fiatteren.
+                          + "                                       END")
+                      + "                                          )"
+                    : // Doe de nieuwe variant van de code.
+                      " AND p2.prs_perslid_key = prs.getFiatteur(op.prs_kostenplaats_key"
+                      + (S("mld_opdr_reapproval_rate") >= 0
+                        ? "                                    , -1"
+                        : "                                    , CASE"
+                          + "                                    WHEN op.mld_opdr_fiatbedrag IS NULL"
+                          + "                                    THEN NULL"
+                          + "                                    ELSE fac.gettrackinguserkey('ORDFOK', op.mld_opdr_key)"
+                          + "                                    END")
+                      + "                                      , op.mld_opdr_kosten"
+                      + "                                      , op.mld_opdr_discipline_key"
+                      + "                                      , COALESCE(op.mld_opdr_fiatbedrag, 0))")
                   + " AND p2.prs_perslid_key IN (" + prsKeys + ")"
                 : " AND fno.fac_srtnotificatie_code = " + (fiatstatus == "close"? "'ORDFOK'" : "'ORDFNO'") // Er is gefiatteerd.
                   + " AND ft.prs_perslid_key IN (" + prsKeys + ")") // Gefiatterd door jezelf of waarvoor je vervanger bent

APPL/FAC/fac_refresh_accept_save.asp

@@ -32,7 +32,7 @@ var ForAppending = 8
 var tsUnicode = -1;
 var tsAscii = 0;
 
-// Achterhaal het wachtwoord van de doelomgving uit de udl
+// Achterhaal het wachtwoord van de doelomgeving uit de udl
 function read_ora_udl()
 {
     var fullPath = Server.MapPath("../../CUST");
@@ -81,8 +81,15 @@ try
     {
         var udl_data = read_ora_udl();
         var f = fso.OpenTextFile(batchfile, ForWriting, true, tsAscii);
-        f.WriteLine("SET sourceUSER=" + customerId);
-        f.WriteLine("SET targetUSER=" + customerId + "_TEST"); // of udl_data.UserID
+        if (customerId == 'MAD2')
+        {
+            f.WriteLine("SET sourceUSER=MADE");
+        }
+        else
+        {
+            f.WriteLine("SET sourceUSER=" + customerId);
+        }
+        f.WriteLine("SET targetUSER=" + udl_data['UserID']);
         f.WriteLine("SET targetPASS=" + udl_data.Password);
         var dumpfile = S("refreshfromdumpfile", "").format(customerId);
         if (dumpfile.match(/\.7z$/))
@@ -116,7 +123,7 @@ try
             fso.CreateFolder(folder);
         var nowtxt = toISODateString(new Date());
         /* global */ __LogfileName = folder + "/log_" + nowtxt + ".html";
-        __DoLog("Refresh scheduled for {0}_TEST@{1}".format(customerId, udl_data.DataSource), "#f00");
+        __DoLog("Refresh scheduled for {0}@{1}".format(udl_data['UserID'], udl_data.DataSource), "#f00");
         var dumpfile_timestamp = fso.getFile(dumpfile).DateLastModified;
         __DoLog("Using dump {0} from before {1}".format(dumpfile, toDateTimeString(dumpfile_timestamp)));
         __DoLog("Anonimize option: {0}".format(fac_refresh_anon));

APPL/IMP/imp_shared.js

@@ -34,7 +34,7 @@
 //        stylesheet: optionele overrule van de import-XSL-stylesheet
 
 
-function parseCSVLine(csvLine, delimiter) 
+function parseCSVLine(csvLine, delimiter)
 {
   var fields = csvLine.split(delimiter);
   var correctedFields = [];
@@ -43,21 +43,21 @@ function parseCSVLine(csvLine, delimiter)
   for (var regel in fields)
   {
     var field = fields[regel];
-    if (!mergedField && field.charAt(0) !== '"') 
+    if (!mergedField && field.charAt(0) !== '"')
     {
       correctedFields.push(field);
-    } 
-    else 
+    }
+    else
     {
       mergedField += mergedField ? (delimiter + field) : field;
-      if (mergedField.charAt(mergedField.length - 1) === '"') 
+      if (mergedField.charAt(mergedField.length - 1) === '"')
       {
         correctedFields.push(mergedField.substring(1, mergedField.length - 1));
         mergedField = '';
       }
     }
   };
- 
+
   return correctedFields;
 }
 
@@ -346,12 +346,13 @@ function impReadStream(fileStream, import_app_key, params)
     }
     __Log("Ingelezen regels: " + fileDataArr.length);
 
-    if (!import_csv)
-    {   // De _IMPORT_ proc zal doorgaans de data van FAC_IMP_FILE naar bijv. FAC_IMP_CATALOGUS overzetten
-        var extra_params = (params.proc_params ? params.proc_params : "");
-        sql = "BEGIN " + procprefix + "_IMPORT_" + import_app + "(" + import_key + extra_params + "); END;"
-        Oracle.Execute(sql);
-    }   // Als import_csv=true dan wordt er niet in specifieke import tabellen geimporteerd maar zal verwerking (update) vanuit fac_imp_csv gebeuren.
+    // De _IMPORT_ proc zal doorgaans de data van FAC_IMP_FILE of FAC_IMP_CSV naar bijv. FAC_IMP_CATALOGUS overzetten
+    // De latere _UPDATE_ proc zal zo'n FAC_IMP_CATALOGUS dan echt verwerken
+    // (sommige _UPDATE_ procs werken rechtstreekd op FAC_IMP_CSV maar moeten dan nog steeds een dummy _IMPORT_ hebben)
+    var extra_params = (params.proc_params ? params.proc_params : "");
+     sql = "BEGIN " + procprefix + "_IMPORT_" + import_app + "(" + import_key + extra_params + "); END;"
+    Oracle.Execute(sql);
+
     var read_lines = teller-1;
     var summarytxt = "";
     if (read_lines != 2) // uitsluitend header + 1 dataregel komt bij klanten die PRSIMP per persoon doen duizenden keren per dag voor

APPL/MLD/mld.inc

@@ -5585,8 +5585,26 @@ mld = {
                 }
                 else
                 { // tracking aanwezig
-                  var fiat_key = prs.getFiatteur(mld_opdr.kp_key, (S("mld_opdr_reapproval_rate") >= 0? -1 : mld_opdr.mld_opdr_fiat_user), mld_opdr.t_cost, mld_opdr.opdr_disc_key, mld_opdr.fiatbedrag);
-                  isVerantwoordelijke = (user.isCollega(fiat_key));
+                  if (S("prs_approvemethod") == 2)
+                  { // Doe de oude variant van de code.
+                    if (mld_opdr.fiatteur_kp_key) // Als KP (A) aanwezig dan KPN (B) testen als isVerantwoordelijke
+                    {
+                      if (S("mld_opdr_reapproval_rate") >= 0)
+                      { // Met exludekey op "-1" geeft getFiatteur in mode 2 wel de goede waarde terug.
+                        var fiat_key = prs.getFiatteur(mld_opdr.kp_key, -1, mld_opdr.t_cost, mld_opdr.opdr_disc_key, mld_opdr.fiatbedrag);
+                        isVerantwoordelijke = (user.isCollega(fiat_key));
+                      }
+                      else
+                      {
+                        isVerantwoordelijke = (user.isCollega(mld_opdr.nextfiatteur_kpg_key) && mld_opdr.mld_opdr_fiat_user != mld_opdr.nextfiatteur_kpg_key); // 1e is geweest.
+                      }
+                    }
+                  }
+                  else
+                  { // Doe de nieuwe variant van de code.
+                    var fiat_key = prs.getFiatteur(mld_opdr.kp_key, mld_opdr.mld_opdr_fiat_user, mld_opdr.t_cost, mld_opdr.opdr_disc_key, mld_opdr.fiatbedrag);
+                    isVerantwoordelijke = (user.isCollega(fiat_key));
+                  }
 
                   // Kostenplaats(groep)verantwoordelijken mogen na het approven de bestelopdracht inzien.
                   // Als een collega of de user al gefiatteerd heeft mag hij/zij ook de bestelopdracht inzien.
@@ -5731,6 +5749,8 @@ mld = {
                     || (mld_opdr.uitv_intern ? user.isCollega(mld_opdr.uitvoerende_key)
                                              : user.iamContact(mld_opdr.uitvoerende_key)))
                     mresult.myRole = 4; // Ik ben uitvoerder
+                else if (user.isCollega(mld_opdr.contactpers_key))
+                    mresult.myRole = 2; // Ik ben FOBO (interne contactpersoon aka behandelaar zelfs)
                 else if (user.isCollega(mld_opdr.melding_user_key))
                     mresult.myRole = 1; // Ik ben aanvrager
                 else if (mresult.canReadAny)
@@ -7774,17 +7794,37 @@ mld = {
                       + "     , " + lcl.xsqla('md.ins_discipline_omschrijving', 'md.ins_discipline_key')
                       + "     , (SELECT prs_perslid_naam_full"
                       + "          FROM prs_v_perslid_fullnames_all"
-                      + "         WHERE prs_perslid_key = prs.getFiatteur(o.prs_kostenplaats_key"
-                      + (S("mld_opdr_reapproval_rate") >= 0
-                        ? "                                             , -1"
-                        : "                                             , CASE"
-                          + "                                             WHEN o.mld_opdr_fiatbedrag IS NULL"
-                          + "                                             THEN NULL"
-                          + "                                             ELSE fac.gettrackinguserkey('ORDFOK', o.mld_opdr_key)"
-                          + "                                             END")
-                      + "                                               , o.mld_opdr_kosten"
-                      + "                                               , o.mld_opdr_discipline_key"
-                      + "                                               , COALESCE(o.mld_opdr_fiatbedrag, 0))) fiatteur"
+                      + (S("prs_approvemethod") == 2
+                        ? // Doe de oude variant van de code.
+                          "       WHERE prs_perslid_key = prs.nextfiatteur(o.mld_opdr_key"
+                          + "                                            , 'MLD'"
+                          + (S("mld_opdr_reapproval_rate") >= 0
+                            ? "                                          , -1"
+                            : "                                          , CASE" // vier-ogenprincipe.
+                              + "                                            WHEN mld_opdr_fiatbedrag IS NOT NULL"
+                              + "                                            THEN -1" // Geen nieuwe melding.
+                              + "                                            WHEN o.mld_opdr_kosten <= fac.getsetting('can_selfapprove')"
+                              + "                                            THEN -1" // Melder van de melding en opdrachtaanmakre niet excluden als zijzelf mogen fiatteren.
+                              + "                                            WHEN m.mld_kosten_klant = 1 AND"
+                              + "                                                 m.prs_kostenplaats_key = o.prs_kostenplaats_key AND"
+                              + "                                                 fac.getsetting ('mld_opdr_ignore_caller_profile') = 0"
+                              + "                                            THEN m.prs_perslid_key" // De melder mag niet fiatteren.
+                              + "                                            ELSE (SELECT fac.gettrackinguserkey('ORDNEW', o.mld_opdr_key) opdrachtaanmaker"
+                              + "                                                    FROM DUAL)" // De opdrachtaanmaker mag niet fiatteren.
+                              + "                                            END")
+                          + "                                             )) fiatteur"
+                        : // Doe de nieuwe variant van de code.
+                          "       WHERE prs_perslid_key = prs.getFiatteur(o.prs_kostenplaats_key"
+                          + (S("mld_opdr_reapproval_rate") >= 0
+                            ? "                                         , -1"
+                            : "                                         , CASE"
+                              + "                                         WHEN o.mld_opdr_fiatbedrag IS NULL"
+                              + "                                         THEN NULL"
+                              + "                                         ELSE fac.gettrackinguserkey('ORDFOK', o.mld_opdr_key)"
+                              + "                                         END")
+                          + "                                           , o.mld_opdr_kosten"
+                          + "                                           , o.mld_opdr_discipline_key"
+                          + "                                           , COALESCE(o.mld_opdr_fiatbedrag, 0))) fiatteur")
                       + "     , (SELECT COUNT (o.mld_opdr_key)"
                       + "          FROM mld_opdr o  "
                       + "         WHERE o.mld_melding_key = mld_melding_key"

APPL/MLD/mld_edit_opdr.asp

@@ -545,7 +545,14 @@ if (mld_opdr.kp_key == -1)
           if (mld_opdr.opdr_status == 3) // (nog) ter fiattering
           {
             if (fiat_key)
+            {
+              if (S("prs_approvemethod") == 2)
+                // Doe de oude variant van de code.
+                fiat_key = mld_opdr.nextfiatteur_kpg_key; // 1e is geweest
+              else
+                // Doe de nieuwe variant van de code.
                 fiat_key = prs.getFiatteur(mld_opdr.kp_key, (S("mld_opdr_reapproval_rate") >= 0? -1 : mld_opdr.mld_opdr_fiat_user), mld_opdr.t_cost, mld_opdr.opdr_disc_key, mld_opdr.fiatbedrag);
+            }
             else
             { // Als nieuw fiatteren. Ik kan nu de functie getFirstApprover gebruiken.
               var mld_info = mld.mld_melding_info(mld_opdr.mld_key);

APPL/MLD/mld_show_opdr.asp

@@ -506,7 +506,12 @@ for (i in faq_info.fixed_faq)
           if (mld_opdr.opdr_status == 3) // (nog) ter fiattering
           {
             if (fiat_key)
-              fiat_key = prs.getFiatteur(mld_opdr.kp_key, (S("mld_opdr_reapproval_rate") >= 0? -1 : mld_opdr.mld_opdr_fiat_user), mld_opdr.t_cost, mld_opdr.opdr_disc_key, mld_opdr.fiatbedrag);
+              if (S("prs_approvemethod") == 2)
+                // Doe de oude variant van de code.
+                fiat_key = mld_opdr.nextfiatteur_kpg_key; // 1e is geweest.
+              else
+                // Doe de nieuwe variant van de code.
+                fiat_key = prs.getFiatteur(mld_opdr.kp_key, (S("mld_opdr_reapproval_rate") >= 0? -1 : mld_opdr.mld_opdr_fiat_user), mld_opdr.t_cost, mld_opdr.opdr_disc_key, mld_opdr.fiatbedrag);
             else
             { // Als nieuw fiatteren. Ik kan nu de functie getFirstApprover gebruiken.
               var mld_info = mld.mld_melding_info(mld_opdr.mld_key);

APPL/Shared/Putorders.inc

@@ -24,6 +24,7 @@ var putorders = {
                 putorders._puo_Oracle = new SafeOracle(Oracle.RealConnection);
                 putorders._puo_Oracle.marker = "<span style='font-size:smaller'>(PutOrders)</span>";
             }
+            settings.overrule_setting("bdradrfiles_path", Server.MapPath(custpath + "/bdradrfiles")); // Zo verwacht putorders het
             hook.initialize({ customerId: customerId,
                               S: S,
                               settings: settings,

APPL/Shared/default.inc

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

APPL/Shared/resultset_table_v2.inc

@@ -1366,20 +1366,21 @@ function __rsProcessResultset(processParams) // processParams wordt blind aan al
                     +     I("fa-exclamation-triangle fa-lg", { "fastyle": "fas" })
                     + "</span>"
         }
+        if (!this.subtabicon) {
 %>    <script>
           var prevent_badge_reset = false;
 <%        if (!badgehtml && this.rstableNr && this.rstableNr > 1)
           { /* Itereer over alle voorgaande resultsets, als er 1 bestaat hoeven we de spinner niet meer uit de badge te halen,
                want dat is dan al gebeurd, en mogelijk staat er ook al een counter in. */
-%>        for (var i = <%=this.rstableNr-1%>; i && !prevent_badge_reset; i--) {
+%>          for (var i = <%=this.rstableNr-1%>; i && !prevent_badge_reset; i--) {
               prevent_badge_reset = $("[id=rstable].rstable" + i).length > 0;
-          }
+            }
 <%        } %>
           if (!prevent_badge_reset) {
-              FcltMgr.setSubtabExtra("<%=safe.jsstring(badgehtml)%>");
+            FcltMgr.setSubtabExtra("<%=safe.jsstring(badgehtml)%>");
           }
       </script>
-<%
+<%      }
         return -1;
     }
     else

APPL/Shared/save2db.inc

@@ -694,6 +694,8 @@ function _buildFields(fields, params, tabel, where)
                     if (field.typ == 'clob' && val2.length > 4000)
                     {
                         __Log("CLOB field {0} is {1} characters long, switching to bind variables.".format(field.dbs, val2.length))
+                        if (field.len)
+                            val2 = val2.substr(0, field.len);
                         tupel.sql = '? ';
                         bindparams.push({ typ: adLongVarChar, dir: adParamInput, val: val2 });
                     }

UTILS/Exchange/create_webhooks.wsf

@@ -93,6 +93,8 @@
     var full_import_app_key = getImportAppKey("EXCHFULL");
 
     while (!oRs.Eof) {
+        var token = requestToken(config); // iedere keer opnieuw. Moet eigenlijk expiration controleren
+
         // Fullsync bij het aanmaken van een nieuwe subscription zodat we volgens updates snel met een deltatoken kunnen ophalen
         var zaalemail = oRs("res_ruimte_extern_id").Value;
         var res_ruimte_key = oRs("res_ruimte_key").Value;

UTILS/PutOrders/puo_notifications.js

@@ -98,7 +98,7 @@ function sendNotification(ref_key, pcode, params)
             + " WHERE (   BITAND (fac_notificatie_status, " + (puo_const.STATUS_EMAIL | puo_const.STATUS_SMS| puo_const.STATUS_APPPUSH) + ") > 0"
             + "        OR fac_notificatie_systeemadres IS NOT NULL"
             + "        OR prs_bedrijfadres_key IS NOT NULL)"
-            + "   AND fac_notificatie_notbefore <= SYSDATE"
+            + (!forceOrders? "   AND fac_notificatie_notbefore <= SYSDATE":"")
             + "   AND f.prs_perslid_key_receiver = p.prs_perslid_key(+)"
             + strFilter
             + " ORDER BY fac_notificatie_datum"

UTILS/PutOrders/puo_sendmail.js

@@ -554,8 +554,23 @@ function sendMail( p_mailfrom
         if (MailReply)
             objMail.ReplyTo = MailReply;
         objMail.To = p_mailto;
-        objMail.CC = params.cc || "";
-        objMail.BCC = params.bcc || "";
+
+        if (S("puo_forcemailaddress")) // Dat wordt veel te ingewikkeld
+        {
+            if (params.cc)
+                Log2File(1, "Not sending to cc ({0}) because puo_forcemailaddress is set".format(params.cc));
+            if (params.bcc)
+                Log2File(1, "Not sending to bcc ({0}) because puo_forcemailaddress is set".format(params.bcc));
+        }
+        else
+        {
+            if (params.cc)
+                Log2File(1, "CC to {0}".format(params.cc));
+            if (params.bcc)
+                Log2File(1, "BCC toc {0}".format(params.bcc));
+            objMail.CC = params.cc || "";
+            objMail.BCC = params.bcc || "";
+        }
         objMail.subject = p_subject || "(no subject)";
         //
         if (params.attachStream)

UTILS/refresh/autorefreshaccept.bat

@@ -47,11 +47,11 @@ IF NOT EXIST %script% GOTO noupgrade
 ECHO About to perform upgrade %script%>>%logfile%
 EXIT | sqlplus.exe %targetUSER%/%targetPASS%@%targetSERVER% @%script% >>%logfile% 2>>&1
 
+:noupgrade
+
 ECHO Running anon_%fac_refresh_anon%.sql >>%logfile%
 EXIT | sqlplus.exe %targetUSER%/%targetPASS%@%targetSERVER% @anon_%fac_refresh_anon%.sql >>%logfile% 2>>&1
 
-:noupgrade
-
 IF x%deletedmp%==x1 DEL %dmpfile%
 
 GOTO end