Release 2022.2 Gold F

svn path=/Website/branches/v2022.2/; revision=58017

APPL/API2/model_prs_bedrijfdienstlocatie.inc

@@ -19,7 +19,7 @@ function model_prs_bedrijfdienstlocatie()
     this.table = "prs_bedrijfdienstlocatie";
     this.primary = "prs_bedrijfdienstlocatie_key";
     // TODO: als de user contactpersoon is geldt prs.checkAutorisation(prs_perslid_key).readcontact/.writecontact en WEB_EXTREL
-    this.autfunction = ["WEB_PRSMSU","WEB_MLDORD","WEB_EXTORD"];
+    this.autfunction = ["WEB_PRSMSU", "WEB_MLDORD", "WEB_EXTORD"];
     this.record_title = L("lcl_prs_dienst_frame");
     this.records_title = L("lcl_prs_dienst_scope");
 
@@ -106,7 +106,6 @@ function model_prs_bedrijfdienstlocatie()
         }
     };
 
-
     this.edit = {
         "modal": true
     };
@@ -127,7 +126,11 @@ function model_prs_bedrijfdienstlocatie()
 
     this.REST_GET    = generic_REST_GET(this);
     this.REST_POST   = generic_REST_POST(this);
-    this.REST_PUT    = generic_REST_PUT(this);
-    this.REST_DELETE = generic_REST_DELETE(this);
+    if (user.has("WEB_PRSMSU")) {
+        this.REST_PUT    = generic_REST_PUT(this);
+    }
+    if (!(bedrijf_key > -1 || prs_key > -1)) {
+        this.REST_DELETE = generic_REST_DELETE(this);
+    }
 }
 %>

APPL/API2/model_prs_dienst.inc

@@ -27,11 +27,12 @@ function model_prs_dienst()
     this.record_name = "service";
     this.table = "prs_dienst";
     this.primary = "prs_dienst_key";
-    this.autfunction = ["WEB_PRSMSU", (prsauthparams.readcontact ? prsauthparams.fac_functie_code : "")]
+    this.autfunction = ["WEB_PRSMSU"]
+    if (prsauthparams.readcontact)
+        this.autfunction.push("WEB_EXTREL");
     this.record_title = L("prs_dienst");
     this.records_title = L("prs_dienst_m");
 
-
     this.fields = {
         "id": {
             "dbs": "prs_dienst_key",
@@ -127,17 +128,13 @@ function model_prs_dienst()
 
     this.REST_GET    = generic_REST_GET(this, gparams);
     this.REST_POST   = generic_REST_POST(this);
-    if (hasQParam("company") && company_key == -1)
-    {   // Vanuit het tabblad Service mogen de knoppen Wijzigen en Verwijderen niet aanwezig zijn.
-        // Als dit scherm wordt aangeroepen vanuit het tabblad Admin moeten ze er natuurlijk wel zijn.
-        this.REST_PUT    = generic_REST_PUT(this);
-        this.REST_DELETE = generic_REST_DELETE(this, {});
-    }
-    if (hasQParam("person"))
-    {
-        this.REST_DELETE = generic_REST_DELETE(this, {});
-        if (prs_key == -1)
+    if (user.has("WEB_PRSMSU") && // Nvt met alleen EXTREL
+        (hasQParam("company") && !(company_key > -1)) ||
+        (hasQParam("person") && !(prs_key > -1))) {
+            // Vanuit het tabblad Service mogen de knoppen Wijzigen en Verwijderen niet aanwezig zijn.
+            // Als dit scherm wordt aangeroepen vanuit het tabblad Admin moeten ze er natuurlijk wel zijn.
             this.REST_PUT    = generic_REST_PUT(this);
+            this.REST_DELETE = generic_REST_DELETE(this, {});
     }
 }
 %>

APPL/BEZ/bez_afspraak.asp

@@ -194,7 +194,7 @@ user.auth_required_or_abort(this_bez.canReadAny);
                                 refreshOnClose: true,
                                 FcltClose: "afspraakClose"
                               });
-    if (afspr_key > -1 && this_bez.canReadAny)
+    if (afspr_key > -1 && (this_bez.canReadBOF || this_bez.canReadAny && !S("fac_reserved_number1"))) // Temp fix; met S(fac_reserved_number1) = 1 mag alleen de Backoffice het mutatie-tabje zien
     {
       // tracking naar subframe :-)
       page = protectQS.create("../shared/status_info.asp?afspr_key=" + afspr_key + "&urole=" + urole);

APPL/EXP/axxerion.asp

@@ -71,6 +71,8 @@ ANONYMOUS_Allowed = 1;
             try
             {
                 var http_request = new ActiveXObject("Chilkat_9_5_0.Http");
+                http_request.ProxyDomain = "80.250.129.1";
+                http_request.ProxyPort = "92";
                 http_request.setRequestHeader("Authorization", axxerion_aut);
                 http_request.setRequestHeader("Accept", "application/json");
                 http_request.setRequestHeader("Content-Type", axxerion_conn.contenttype);
@@ -85,9 +87,10 @@ ANONYMOUS_Allowed = 1;
                                , "clobMBValue": body_data_64
                                };
 
+                __Log(json_msg);
                 var resp = http_request.PostJson2(axxerion_url,"application/json", JSON.stringify(json_msg));
-
-                if (http_request.LastMethodSuccess = 0)
+                __Log("Na Post");
+                if (http_request.LastMethodSuccess == 0)
                 {
                    __Log (http_request.LastErrorText);
                    errmsg = "Axxerion error. " + http_request.LastErrorText;

APPL/FAC/fac_report.asp

@@ -84,7 +84,7 @@
         params.search.autosearch = true;
     params.search.keepfilters = getQParamInt("keepfilters", 0) == 1;
 
-    Oracle.Execute("ALTER SESSION SET optimizer_features_enable = '12.1.0.2'"); // BLCC#71903 anders te vaak ORA-04023
+    Oracle.Execute("ALTER SESSION SET optimizer_features_enable = '12.1.0.1'"); // BLCC#71903 anders te vaak ORA-04023
 
     if (rapport.styling && (rapport.styling.id & 1)) // XSL proc doen we niet via resultsettable
     {

APPL/FAC/fac_report_worker.asp

@@ -28,7 +28,7 @@ JSON_Result = true;
     xxx_params.filter.limit = 9999;
     xxx_params.filter.scf_pivot = 0; // nooit
 
-    Oracle.Execute("ALTER SESSION SET optimizer_features_enable = '12.1.0.2'"); // RABO#70522 anders te traag
+    Oracle.Execute("ALTER SESSION SET optimizer_features_enable = '12.1.0.1'"); // RABO#70522 anders te traag
     var result = { success: true, distinct: distinct, colname: columns[0], values: rapport.REST_GET(xxx_params) };
 
     Response.Write(JSON.stringify(result));

APPL/INS/ins.inc

@@ -5491,6 +5491,7 @@ ins = {checkAutLevel:
                                         + "       ELSE ''"
                                         + "       END opm_has_higherprio" // Opmerking als het een hogere prio heeft (has_higherprio)
                                         + "     , isd.ins_srtdeel_omschrijving"
+                                        + "     , xcp.ins_srtcontrole_omschrijving"
                                         + "     , xcp.ins_srtcontrole_info";
                }
                else // finish

APPL/MGT/prs_bedrijfdienstlocatie.asp

@@ -35,7 +35,7 @@ var model_params = {
 };
 model_params.list.columns = ( bedrijf_key > -1
                             ? ["company", "location", "building", "duration"]
-                            : ["person",  "location", "building", "duration"]
+                            : ["person"]
                             );
 
 if (mode == "list")
@@ -47,13 +47,6 @@ if (mode == "list")
             { icon: "fa-fclt-edit", title: L("lcl_change"), action: "scf_add_location("+dienst_key+","+bedrijf_key+")", id: "btn_scf_my_add" }
         ];
     }
-    if (prs_key > -1)
-    {
-        // Voeg een knop voor toevoegen van dienst aan persoon toe.
-        model_params.list.buttons = [
-            { icon: "fa-plus", title: L("lcl_add"), action: "scf_add_service("+dienst_key+","+prs_key+")", id: "btn_scf_my_add" }
-        ];
-    }
 }
 
 if (mode == "edit")

APPL/MGT/prs_bedrijfdienstlocatie.js

@@ -10,6 +10,41 @@ $(function ()
     $("#btn_scf_add").hide();
 });
 
+function scf_del_bedrijfdienst()
+{
+    // We worden aangeroepen door een eigen scherm, dus we kunnen altijd bij ons eigen parent window
+    var rowArray;
+    for (var i = 0; i < parent.frames.length; i++)
+        if (FcltMgr._frmaccessible(parent.frames[i]) && parent.frames[i].name == "bedrijfdienstlocatie")
+        {
+            rowArray = $(parent.frames[i].document).find("#prs_bedrijfdienstlocatie > tbody > tr");
+            break;
+        }
+    if (!(rowArray && rowArray.length))
+        return false;
+    var scfKeyString = getKeyString(rowArray);
+
+    FcltMgr.confirm("Wilt u deze dienst bij deze relatie verwijderen?", {
+        fncancel: function()
+        {
+            iface.button.enable("btn_scf_my_del")
+        },
+        oktekst: L("lcl_delete")
+    },
+    function() {
+        var data = {
+            id: scfKeyString
+        };
+        protectRequest.dataToken(data);
+        $.post("./prs_bedrijfdienstlocatie.asp?mode=delete&multi=" + (rowArray.length > 1 ? "1" : "0"),
+            data,
+            FcltCallbackAndThen(function() {
+                parent.FcltMgr.reload();
+            }),
+            "json");
+    });
+}
+
 function scf_add_location(dienst_key, bedrijf_key)
 {
     var url = "appl/prs/prs_dienst.asp?mode=viewUpdate&dienst_key=" + dienst_key + "&bedrijf_key=" + bedrijf_key;

APPL/MGT/prs_dienst.asp

@@ -19,7 +19,6 @@ var model_params = {
     },
     "list": {
         "columns": [
-            "id",
             "name",
             "hint"
         ],
@@ -28,7 +27,10 @@ var model_params = {
         }
     },
     "show": {
-        "no_clone": true
+        "no_clone": true,
+        "requires": {
+            "js": ["./prs_bedrijfdienstlocatie.js"]
+        }
     },
     "layout": {
         "miscellaneous": {
@@ -38,36 +40,33 @@ var model_params = {
     }
 }
 
-if (bedrijf_key > -1)
+if (bedrijf_key > -1 || perslid_key > -1)
 {
     model_params.wrap = {
         "frames": [
-            { url: "prs_bedrijfdienstlocatie.asp?mode=list&service={0}&company="+bedrijf_key+"&person="+perslid_key,
-              autfunction: "WEB_PRSMSU",
+            { id: "bedrijfdienstlocatie",
+              url: "prs_bedrijfdienstlocatie.asp?mode=list&service={0}&company="+bedrijf_key+"&person="+perslid_key,
+              autfunction: this_model.autfunction,
               title: L("lcl_prs_dienst_scope"),
               icon: "fa-list"
             }
         ]
     };
-    model_params.transit = { "company": bedrijf_key };
 }
-else
-{
+
+if (bedrijf_key > -1) {
+    model_params.transit = { "company": bedrijf_key };
+} else {
     model_params.transit = { "person": perslid_key };
 }
 
-if (mode == "list")
-{
+if (mode == "list") {
     // Voeg een knop voor toevoegen van dienst aan bedrijf toe.
-    model_params.list.buttons = [
-        { icon: "fa-plus"
-        , title: L("lcl_add")
-        , action: "scf_add_service("+bedrijf_key+","+perslid_key+")"
-        , id: "btn_scf_my_add"
-        }
-    ];
+    model_params.list.buttons = [{ icon: "fa-plus", title: L("lcl_add"), action: "scf_add_service("+bedrijf_key+", "+perslid_key+")", id: "btn_scf_my_add" }];
     if (hasCollapsed)
         model_params.edit.modal = false;
+} else if (mode == "show" && (bedrijf_key > -1 || perslid_key > -1)) {
+    model_params.show.buttons = [{ icon: "fa-trash-alt", title: "Verwijder dienst bij relatie", action: "scf_del_bedrijfdienst()", id: "btn_scf_my_del" }];
 }
 
 scaffolding(this_model, model_params);

APPL/PRS/prs_contactpersoon.asp

@@ -17,14 +17,13 @@
 <!-- #include file="../prs/prs.inc" -->
 <%
   FCLTHeader.Requires({plugins:["suggest","jQuery"], js: ["jQuery-ui.js"]})
-// jQuery-ui.js is nodig in het child formulier prs_perslidwerkplek_search_list
+  // jQuery-ui.js is nodig in het child formulier prs_perslidwerkplek_search_list
 
   var autfunction = ["WEB_RELUSE"];
   if (user.iamContact())
     autfunction.push("WEB_EXTREL");
 
   var authparams = user.checkAutorisation(autfunction);
-
   var cps_key = getQParamInt("key", -1);
   if (cps_key == -1)
     cps_key = getQParamInt("cps_key", -1);
@@ -81,13 +80,30 @@ PAGE_START();
 
     IFRAMER("cpsFrame", page, { FcltClose: "cpsClose", title: L("lcl_prs_contactpersoon_frame") } );
 
+    // Als de contactpersoon ook een user is (prs_perslid) [en een uitvoerende?]
+    // dan kunnen er uitvoeringsgerelateerde gegevens worden gedefineerd
+    // door de beheerder van het bijbehorende bedrijf (WEB_EXTREL) of een algemene beheerder (WEB_PRSMAN??)
+    // Dit hoort in feite in prs_perslid, maar dupliceren we hier precies zo, want zo een beheerder kan niet bij perslid.asp
+    // Setting S("use_capacity_planning") moet wel gezet zijn (..)
     if (S("use_capacity_planning") == 1 && prs_key > 0 && prs.checkAutorisation(prs_key).writecontact)
     {
         // 2. De inzetbaarheid
         page = "prs_inzetbaar_list.asp?embedded=1&prs_key=" + prs_key;
         IFRAMER("prsinzetframe", page, { refreshOnClose: true, icon: "fa-list", title: L("lcl_prs_inzetbaar_title") } );
 
-        // Is dit deel al reserveerbaar?
+        // 3. de skills (diensten)
+        // UNDER CONSTRUCTION TODO: autorisatie
+        // Om Diensten (bij een persoon) te kunnen beheren had je PRSMSU nodig. Dat is hiervoor te zwaar.
+        var thisPrs = new Perslid(prs_key);
+        if (prs.checkAutorisation(prs_key).writecontact && (thisPrs.has("WEB_MLDORD") || thisPrs.has("WEB_EXTORD")))
+        {
+              // 3. De dienstenxpersoon
+              //page = "../mgt/prs_bedrijfdienstlocatie.asp?mode=list&prs_key=" + prs_key;
+              page = "../mgt/prs_dienst.asp?mode=list&person=" + prs_key;
+              IFRAMER("prsdienstlistframe", page, { refreshOnClose: true, icon: "fa-list" } );
+        }
+        // 4. de planning&blokkades..
+        // Is deze resource al reserveerbaar?
         var sql = "SELECT res_deel_key"
                 + "  FROM res_deel"
                 + " WHERE res_deel_verwijder IS NULL"
@@ -101,10 +117,11 @@ PAGE_START();
         oRs.Close();
     }
 
+
     var authparamsINSFOF = user.checkAutorisation("WEB_INSFOF", true);
     var insfof_read = authparamsINSFOF;
     if (insfof_read && cps_key > 0) // Bij interne contactpersonen met INSFOF leesrechten nu ook het objecten frame tonen (UWVA#51402).
-    { // 2. Het optionele objectenschem met objecten die aan contactpersoon zijn uitgeleend
+    { // 5. Het optionele objectenschem met objecten die aan contactpersoon zijn uitgeleend
         page="../ins/ins_list.asp?urole=fo&embedded=1&inacObjIncl=1&cps_key=" + cps_key;
         IFRAMER("insdeel", page, { refreshOnClose: true, title: L("lcl_ins_objects") } );
     }

APPL/PRS/prs_perslid.asp

@@ -29,7 +29,7 @@
   if (prs_key == -1)
     prs_key = getQParamInt("prs_key", -1);
 
-
+  var dienstauthparams = user.checkAutorisation("WEB_PRSMSU", true);  // zoals bij bedrijf. goed?
 
   // *** UNEXUS koppeling ***
   var fuz_tel_org = getQParam("fuzzytel", "");
@@ -112,12 +112,20 @@ PAGE_START();
 
     if (prs_key > 0)
     {
-      if (S("use_capacity_planning") == 1)
+      if (S("use_capacity_planning") == 1)  // hier niet ook die mldord-enz check? BONS?
       {
         // 2. De inzetbaarheid
         page = "prs_inzetbaar_list.asp?embedded=1&prs_key=" + prs_key;
         IFRAMER("prsinzetframe", page, { refreshOnClose: true, icon: "fa-list", title: L("lcl_prs_inzetbaar_title") } );
       }
+      // als dit een uitvoerende is, kan ik de skills aangeven (mits voldoende autorisatie aldaar)
+      if (dienstauthparams && (thisPrs.has("WEB_MLDORD") || thisPrs.has("WEB_EXTORD")))
+      {
+          // 3. De dienstenxpersoon
+          page = "../mgt/prs_dienst.asp?mode=list&person=" + prs_key;
+
+          IFRAMER("prsdienstlistframe", page, { refreshOnClose: true, icon: "fa-list" } );
+      }
 
       if (canBOF)
       { // 3. De bezetting
@@ -137,4 +145,4 @@ PAGE_START();
 %>
   </body>
 </html>
-<% ASPPAGE_END(); %> 
+<% ASPPAGE_END(); %>

APPL/PRS/prs_res_list.js

@@ -11,7 +11,7 @@
 
 function add_reservation(res_deel_key)
 {
-    var url = "appl/res/res_reservering.asp?restype=CV&mld_opdr_key=1&urole=fo&res_deel_key=" + res_deel_key; //activiteit_key=11&
+    var url = "appl/res/res_reservering.asp?restype=O&mld_opdr_key=1&urole=fo&res_deel_key=" + res_deel_key; //activiteit_key=11&
     FcltMgr.openDetail(url, "");
 }
 

APPL/RES/res_reservering.asp

@@ -1041,7 +1041,8 @@ if (options.length > 1) {
 
           verkoopfactuur_IFRAMER('reservering', rsv_ruimte_key);
           // tracking naar subframe :-)
-          if (rsv_ruimte_key > 0) // staat niet tussen de notities
+          if (rsv_ruimte_key > 0 && (this_res.canReadBO || this_res.canReadFO && !(S("fac_reserved_number2") & 2)
+                                                        || this_res.canReadFEOnly && !(S("fac_reserved_number2") & 1))) // staat niet tussen de notities
           {
             page = protectQS.create("../shared/status_info.asp?rsv_ruimte_key=" + rsv_ruimte_key + "&urole=" + urole);
             IFRAMER("opdrhistoryframe", page, { icon: "fa-list", title: L("lcl_tracking")} );

APPL/Shared/default.inc

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