PNBR#89328: Foutmelding bij toevoegen object aan melding.

svn path=/Website/branches/v2025.1/; revision=69337

APPL/API2/model_objects.inc

@@ -321,6 +321,14 @@ function model_objects(ins_key, params)
 
     this.REST_GET = function _GET(params)
     {
+        var withcomponents = true; // default 2025.1 gedrag
+        if (params.filter.components == "0")
+            withcomponents = false; // oude 2024.3 gedrag (geen onderdelen)
+        if (!withcomponents)
+        {
+            this.tablesql = "ins_deel ins_v_deelenonderdeel";  // voor het gemak alias ins_v_deelenonderdeel
+        }
+
         _check_authorization(params, "GET");
         var query = api2.sqlfields(params, this);
 
@@ -360,7 +368,14 @@ function model_objects(ins_key, params)
 
         // TODO: We ondersteunen uitsluitend ruimte- werkplek- en persoonsgebonden objecten
         // MGE: Let op dat de view "ins_v_deel_gegevens" geen onderdelen oplevert omdat de view afdwingt dat ins_deel_parent_key "NULL" moet zijn.
-        query.tables.push("ins_v_deelenonderdeel_gegevens");
+        if (withcomponents)
+        {
+            query.tables.push("ins_v_deelenonderdeel_gegevens");
+        }
+        else
+        {
+            query.tables.push("ins_v_deel_gegevens ins_v_deelenonderdeel_gegevens"); // voor het gemak alias ins_v_deelenonderdeel_gegevens
+        }
         query.wheres.push("ins_v_deelenonderdeel.ins_alg_ruimte_type IN ('R', 'W', 'P') ");
         query.wheres.push("ins_v_deelenonderdeel_gegevens.ins_deel_key = ins_v_deelenonderdeel.ins_deel_key");
 

APPL/CNT/cnt.inc

@@ -330,8 +330,18 @@ cnt = { setcontractstatus:
                       + "      AND t.fac_tracking_refkey = c.cnt_contract_key" // contract key uit "sql"
                       + "      AND sn.fac_srtnotificatie_xmlnode = 'contract') recentdatum";
 
-             sql =  "WITH  slowafd as (select * from prs_v_afdeling) "
-                 + "SELECT c.cnt_contract_nummer"
+             //PCHD#88955: de prs_v_afdeling maakt de query soms enorm traag
+             //            voorkom dat door indien mogelijk prs_v_afdeling_fullnames te gebruiken, die is veel lichter
+             var simpledepstring = inArray(S("prs_dep_string"), "d.prs_afdeling_naam1,d.prs_afdeling_naam2,d.prs_afdeling_naam3,d.prs_afdeling_naam4,d.prs_afdeling_naam5,d.prs_afdeling_naam6".split(","))
+             if (simpledepstring)
+             {
+                sql =  "WITH  slowafd as (select * from prs_v_afdeling_fullnames) "
+             }
+             else
+             {
+                sql =  "WITH  slowafd as (select * from prs_v_afdeling) "
+             }
+             sql +="SELECT c.cnt_contract_nummer"
                  + "     , c.cnt_contract_versie"
                  + "     , c.cnt_contract_omschrijving"
                  + "     , c.cnt_contract_opmerking"

APPL/EXP/Zendesk.asp

@@ -570,7 +570,8 @@ ANONYMOUS_Allowed = 1;
         if (p_methode == "POST" && p_actie == "ticket")
         {
             var sql = "UPDATE mld_opdr"
-                    + "   SET mld_opdr_externnr = " + parseInt(p_ticket.id)
+                    + "   SET mld_opdr_externnr = " + safe.quoted_sql(parseInt(p_ticket.id))
+                    + "     , mld_opdr_id = " + safe.quoted_sql(parseInt(p_ticket.id))
                     + " WHERE mld_opdr_key = " + parseInt(p_ticket.external_id);
             Oracle.Execute(sql);
         }

APPL/FAC/fac_scan_aiai.asp

@@ -143,6 +143,31 @@ result.scanner.dbcreated = new Date(oRs("created").Value);
 result.scanner.dbuser = oRs("user").Value;
 oRs.Close();
 
+// Busy taken
+var sql = "SELECT fac_cust_customerid, "
+        + "       fac_task_code, "
+        + "       fac_task_nextrun, "
+        + "       fac_task_lastrun, "
+        + "       fac_task_flags"
+        + "  FROM fac_cust fc, fac_task ft "
+        + " WHERE ft.fac_cust_key = fc.fac_cust_key  "
+        + "   AND BITAND (fac_task_flags, 2) = 2 " // busy
+        + "   AND fac_task_nextrun IS NOT NULL"
+        + " ORDER BY fac_cust_customerid, fac_task_code"
+var oRs = Oracle.Execute(sql);
+result.tasker = {};
+while (!oRs.EOF)
+{
+    var data = { "fac_task_code": oRs("fac_task_code").Value,
+                 "fac_task_nextrun": new Date(oRs("fac_task_nextrun").Value),
+                 "fac_task_lastrun": new Date(oRs("fac_task_lastrun").Value),
+                 "fac_task_flags": oRs("fac_task_flags").Value
+               }
+    result.tasker[oRs("fac_cust_customerid").Value] = data;
+    oRs.MoveNext;
+}
+oRs.Close();
+
 
 result.applicationpoolstart = new Date(Application("SET_INSTANCE_TIME"));
 

APPL/INS/ins_deelkoppelingen.asp

@@ -262,8 +262,8 @@ PAGE_START();
                         "",
                         autfunction,
                         [],
-                        0)
-             + sql_to_where2;
+                        0,
+                        sql_to_where2); // Eigenlijk de group_by parameter, hier misbruikt als subquery-postfix
 
   var sql_from_ALG = sql_from_select
                    + sql_from_from

APPL/MLD/mld_load_obj_info.asp

@@ -92,6 +92,9 @@ var sql = "SELECT d.ins_deel_key"
         + "     , ins_srtgroep g"
         + "     , ins_tab_discipline dis"
         + "     , alg_v_allonrgoed_gegevens dg"
+        + (wpprefix
+           ? "  , prs_werkplek wp"
+           : "")
         + "     , prs_v_aanwezigafdeling d"
         + "     , prs_perslid p"
         + " WHERE d.ins_srtdeel_key = s.ins_srtdeel_key"
@@ -100,6 +103,9 @@ var sql = "SELECT d.ins_deel_key"
         + "   AND d.ins_deel_verwijder IS NULL"
         + "   AND d.ins_alg_ruimte_type = dg.alg_type(+)"
         + "   AND d.ins_alg_ruimte_key = dg.alg_onroerendgoed_keys(+)"
+        + (wpprefix
+          ? " AND d.ins_alg_ruimte_key = wp.prs_werkplek_key(+)"
+          : "")
         + "   AND d.ins_alg_ruimte_key = d.prs_afdeling_key(+)"
         + "   AND d.ins_alg_ruimte_key = p.prs_perslid_key(+)"
         + "   AND d.ins_deel_key = " + ins_key;

APPL/RES/res.inc

@@ -757,6 +757,7 @@ res = {
           // Als grens wijzigingshorizon (tijd) is verstreken en res_disc_params_expire_wkdag is null; begin morgen
           // Als grens wijzigingshorizon (dag) is verstreken (al dan niet icm grens wijzigingshorizon (tijd)); De eerstvolgende maandag na volgende week
           var beginDate = new Date();
+          var beginDateSql = beginDate.toSQL(true);
           if (mode != 1) { // Hou rekening met een evt. 'grens wijzigingshorizon'
             var sql = "SELECT rdp.res_disc_params_expire_tijd"
                     + "     , rdp.res_disc_params_expire_wkdag"
@@ -781,10 +782,11 @@ res = {
               return beginDate; // Klaar, want hier luisteren we niet naar de relatieve wijzigingshorizon (dagen)
             } else if (exp_time !== null && beginDate.getFloatHours() > exp_time) {
               beginDate = new Date(beginDate.setDate(beginDate.getDate() + 1)); // Verschuif naar morgen
+              beginDateSql = beginDate.beginToSQL();
             }
           }
 
-          var sql = "SELECT fac.DatumTijdPlusUitvoerTijd(" + beginDate.beginToSQL()
+          var sql = "SELECT fac.DatumTijdPlusUitvoerTijd(" + beginDateSql
                   + "                                  , " + (mode == 1
                                                              ? "res_disc_params_cancel_dagen"
                                                              : "res_disc_params_expire_dagen")

APPL/Shared/default.inc

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

UTILS/gen_scheduler/gen_tasker.js

@@ -73,7 +73,8 @@ function tasker_loop(params)
             {
                 Log2File(1, "{0} Task seems busy in lockfile {1}\nNot starting task, trying again in 1 minute".format(toDateTimeString(new Date()), lockfilename));
                 var sqlu = "UPDATE fac_task"
-                         + "   SET fac_task_nextrun = fac_task_nextrun + 1/60/24" // Over 1 minuut weer testen
+                         + "   SET fac_task_nextrun = fac_task_nextrun + 1/60/24," // Over 1 minuut weer testen
+                         + "        fac_task_flags = fac_task_flags + 2 - bitand(fac_task_flags, 2)" // zet bitje 2 om aan te geven dat we busy zijn
                          + " WHERE fac_task_key = " + task_key;
                 Oracle.Execute(sqlu);
 
@@ -83,7 +84,8 @@ function tasker_loop(params)
 
         var sqlu = "UPDATE fac_task"
                  + "   SET fac_task_nextrun = NULL,"
-                 + "       fac_task_lastrun = SYSDATE"
+                 + "       fac_task_lastrun = SYSDATE,"
+                 + "       fac_task_flags = fac_task_flags - bitand(fac_task_flags, 2)" // reset busy bitje
                  + " WHERE fac_task_key = " + task_key;
         Oracle.Execute(sqlu);