FSN#41733 Kostenplaatsgroepen ook via scaffolding

svn path=/Website/trunk/; revision=35034

APPL/API2/model_prs_kostenplaatsgrp.inc

@@ -48,7 +48,6 @@ function model_prs_kostenplaatsgrp()
             "label": L("lcl_prs_number"),
             "typ": "varchar",
             "translate": true,
-            "required": true,
             "filter": "like"
         },
         "person": {
@@ -69,9 +68,35 @@ function model_prs_kostenplaatsgrp()
             "LOV":  "0;" + L("lcl_prs_none") +
                    ";1;" + L("lcl_prs_month") +
                    ";2;" + L("lcl_prs_year")
+        },
+        "kpcount": {
+          "dbs": "nn_leden",
+          "sql": "(SELECT COUNT(*) "
+                + "  FROM prs_kostenplaats"
+                + " WHERE prs_kostenplaats.prs_kostenplaatsgrp_key = prs_kostenplaatsgrp.prs_kostenplaatsgrp_key"
+                + "   AND prs_kostenplaats_verwijder IS NULL)",
+          "label": L("lcl_menu_fin_kostenplaatsen"),
+          "typ": "number"
         }
     };
 
+if (0) {
+        sql = "SELECT SUM(k.prs_kostenplaats_limiet) gebruikt_budget"
+            + "  FROM prs_kostenplaatsgrp kpg"
+            + "     , prs_kostenplaats k"
+            + " WHERE kpg.prs_kostenplaatsgrp_key = k.prs_kostenplaatsgrp_key"
+            + "   AND kpg.prs_kostenplaatsgrp_key = " + kpngroep_key;
+        oRs = Oracle.Execute(sql);
+        var gebruikt_budget = oRs("gebruikt_budget").Value;
+        oRs.close();
+        if (kpngrp_limiet - gebruikt_budget > 0)
+        {
+          BLOCK_START("kpnGrp", L("lcl_prs_budgettering"));
+          ROFIELDTR("fldfreebudget" + (gebruikt_budget > kpngrp_limiet? " hot" : ""), L("lcl_prs_afwijking_budget") + " " + L("lcl_valutasign"), safe.curr(kpngrp_limiet - gebruikt_budget), {suppressEmpty: true});
+          BLOCK_END();
+        }
+}
+
     if (S("bgt_enabled"))
     {
         this.fields["budgetproject"] = {
@@ -90,9 +115,15 @@ function model_prs_kostenplaatsgrp()
     }
 
     this.REST_GET    = generic_REST_GET(this);
-    // Nog even readonly
+    this.REST_POST   = generic_REST_POST(this);
-    //this.REST_POST   = generic_REST_POST(this);
+    this.REST_PUT    = function (params, jsondata, the_key)
-    //this.REST_PUT    = generic_REST_PUT(this);
+                        {
-    //this.REST_DELETE = generic_REST_DELETE(this);
+                            if (prs.exceeds_budgetkps(the_key, jsondata.grouplimit))
+                            { // Is de som van de kostenplaatslimieten(budgetten) lager dan de limiet(budget) van hun kostenplaatsgroep.
+                              abort_with_warning(L("lcl_prs_exceed_limitkpg"));
+                            }
+                            return generic_REST_PUT(this)(params, jsondata, the_key);
+                        }
+    this.REST_DELETE = generic_REST_DELETE(this);
 }
 %>

APPL/MGT/prs_kostenplaatsgrp.asp

@@ -14,6 +14,7 @@
 %>
 <!-- #include file="../scf/scaffolding.inc" -->
 <!-- #include file="../api2/model_prs_kostenplaatsgrp.inc" -->
+<!-- #include file="../prs/prs.inc" -->
 <%
 var this_model = new model_prs_kostenplaatsgrp();
 
@@ -31,8 +32,13 @@ scaffolding(this_model,
             "columns": [
                 "name",
                 "code",
-                "person"
+                "person",
+                "kpcount"
             ]
+        },
+        "edit":{
+            "modal": true
         }
+
     });
 %>

APPL/PRS/kpn_edit_kpngroep.asp

@@ -1,131 +0,0 @@
-<%@language = "javascript" %>
-<%
-/*  $Revision$
-    $Id$
-
-    File:         kpn_edit_kpngroep.asp
-    Description:  file to edot or add kostenplaatsgroepen
-    Parameters:   kpngroep_key
-
-
-    Context:
-    Note:
-
-*/ %>
-<!-- #include file="../Shared/common.inc" -->
-<!-- #include file="../Shared/iface.inc" -->
-<!-- #include file="../Shared/selector.inc" -->
-<!-- #include file="../Shared/persoonselector.inc" -->
-
-<%
-FCLTHeader.Requires({plugins:["suggest", "jQuery"]})
-
-var kpngroep_key  = getQParamInt("kpngroep_key", "-1");
-if (kpngroep_key > 0)
-{
-  var sql = "SELECT prs_kostenplaatsgrp_key"
-          + "     , prs_kostenplaatsgrp_oms"
-          + "     , prs_kostenplaatsgrp_nr"
-          + "     , prs_perslid_key "
-          + "     , prs_kostenplaatsgrp_limiet"
-          + "     , prs_kostenplaatsgrp_limperiode"
-          + "     , bgt_project_key"
-          + "  FROM prs_kostenplaatsgrp"
-          + " WHERE prs_kostenplaatsgrp_key = " + kpngroep_key
-  oRsMes = Oracle.Execute(sql);
-  var kpngrp_oms        = oRsMes("prs_kostenplaatsgrp_oms").Value;
-  var kpngrp_nr         = oRsMes("prs_kostenplaatsgrp_nr").Value;
-  var prs_key           = oRsMes("prs_perslid_key").Value? oRsMes("prs_perslid_key").Value : -1;
-  var kpngrp_limiet     = oRsMes("prs_kostenplaatsgrp_limiet").Value;
-  var kpngrp_limperiode = oRsMes("prs_kostenplaatsgrp_limperiode").Value;
-  var bgt_key           = oRsMes("bgt_project_key").Value;
-  oRsMes.Close();
-}
-else
-{
-  var kpngrp_limperiode = 0;
-  var prs_key = -1;
-}
-
-// Wijzigen van de kostenplaats(groep)? Setting prs_restrict_kpedit {0=volgens autorisatie (default) | 1=alleen eigen kp/kpg wijzigen}.
-// WEB_FINMSU rechten of budgethouder.
-var authparams = user.checkAutorisation("WEB_FINMSU", true);
-var canChangeAlg = (authparams && authparams.ALGwritelevel < 9);
-var canChange = (canChangeAlg ||
-                 (S("prs_restrict_kpedit") == 1 && (prs_key == user_key))) // Alleen eigen kp/kpg wijzigen
-user.auth_required_or_abort(canChange);
-%>
-
-<html>
-  <head>
-<%  FCLTHeader.Generate(); %>
-    <script>
-      function kpn_submit()
-      {
-          document.activeElement.blur(); // trigger laatste onChanges
-          if (!validateForm("u2"))
-              return false;
-          document.forms.u2.submit(); //TODO???
-      }
-
-      function kpn_cancel()
-      {
-          FcltMgr.closeDetail(window, { cancel: true } );
-      }
-    </script>
-  </head>
-
-  <body id="editbody">
-<%
-    var buttons =  [ {title: L("lcl_submit"), action:"kpn_submit()", icon: "opslaan.png" },
-                     {title: L("lcl_cancel"), action:"kpn_cancel()", icon: "undo.png" } ];
-    IFRAMER_HEADER(L("lcl_kpn_groep_frame"), buttons);
-%>
-    <div id="edit">
-      <form name="u2"
-            action="kpn_edit_kpngroep_save.asp?kpngroep_key=<%=kpngroep_key%>"
-            method="post"
-            target="hidFrameSubmit"
-            onSubmit="kpn_submit();">
-<%      BLOCK_START("kpnMan", "");
-        RWFIELDTR("kpngrp_oms",    "fld",          L("lcl_prs_descr"),        kpngrp_oms, {maxlength: 60, readonly: !canChangeAlg});
-        RWFIELDTR("kpngrp_nr",     "fld",          L("lcl_prs_number"),       kpngrp_nr,  {maxlength: 30, readonly: !canChangeAlg});
-        FCLTpersoonselector("prs_key", // requestor
-                            "sgPerson",
-                           { perslidKey: prs_key,
-                             label: L("lcl_prs_budgethouder"),
-                             whenEmpty: L("lcl_search_generic"), // want filter
-                             readonly: !canChangeAlg });
-        RWFIELDTR("kpngrp_limiet", "fld",          L("lcl_prs_limiet"),       kpngrp_limiet,  {maxlength: 8});
-        sql = "SELECT        0, " + safe.quoted_sql(L("lcl_prs_none")) + ", 0 FROM DUAL"
-            + " UNION SELECT 1, " + safe.quoted_sql(L("lcl_prs_month")) + ", 1 FROM DUAL"
-            + " UNION SELECT 2, " + safe.quoted_sql(L("lcl_prs_year")) + ", 2 FROM DUAL"
-            + " ORDER BY 3";
-        FCLTselector("kpngrp_limperiode",
-                     sql,
-                     { initKey: kpngrp_limperiode,
-                       label: L("lcl_prs_limietperiode")
-                     });
-
-        if (S("bgt_enabled"))
-        {
-          sql = "SELECT p.bgt_project_key"
-              + "     , d.bgt_disc_params_code ||' - '|| p.bgt_project_code"
-              + "  FROM bgt_project p"
-              + "     , bgt_disc_params d"
-              + " WHERE p.ins_discipline_key = d.bgt_ins_discipline_key"
-              + "   AND p.bgt_project_verwijder IS NULL";
-          FCLTselector("bgt_key",
-                       sql,
-                       { initKey: bgt_key,
-                         label: L("bgt_project")
-                       });
-        }
-        BLOCK_END();
-        IFACE.FORM_END();
-%>
-      </form>
-      <iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>
-    </div>
-  </body>
-</html>

APPL/PRS/kpn_edit_kpngroep_save.asp

@@ -1,83 +0,0 @@
-<%@language = "javascript" %>
-<% /*
-     $Revision$
-     $Id$
-
-     File:         kpn_edit_kpngroep.asp
-     Description:  SUBMIT-form
-*/ %>
-
-<!-- #include file="../Shared/common.inc" -->
-<!-- #include file="../shared/save2db.inc" -->
-<!-- #include file="./prs.inc" -->
-<% FCLTHeader.Requires({ plugins:["jQuery"] }) %>
-<%
-var kpngroep_key = getQParamInt("kpngroep_key", -1);
-// Bepaling oude budgethouder.
-var budgethouder_old_key = -1;
-if (kpngroep_key > 0)
-{
-  var sql = "SELECT prs_perslid_key"
-          + "  FROM prs_kostenplaatsgrp"
-          + " WHERE prs_kostenplaatsgrp_key = " + kpngroep_key
-  var oRs = Oracle.Execute(sql);
-  budgethouder_old_key = oRs("prs_perslid_key").Value || -1;
-  oRs.Close();
-}
-
-// Wijzigen van de kostenplaats(groep)? Setting prs_restrict_kpedit {0=volgens autorisatie (default) | 1=alleen eigen kp/kpg wijzigen}.
-// WEB_FINMSU rechten of budgethouder.
-var authparams = user.checkAutorisation("WEB_FINMSU", true);
-var canChange = ((authparams && authparams.ALGwritelevel < 9) ||
-                 (S("prs_restrict_kpedit") == 1 && (budgethouder_old_key == user_key))) // Alleen eigen kp/kpg wijzigen
-user.auth_required_or_abort(canChange);
-
-var kpngrp_limiet = getFParamInt("kpngrp_limiet", 0);
-if (kpngroep_key > 0 && prs.exceeds_budgetkps(kpngroep_key, kpngrp_limiet))
-{ // Is de som van de kostenplaatslimieten(budgetten) lager dan de limiet(budget) van hun kostenplaatsgroep.
-  abort_with_warning(L("lcl_prs_exceed_limitkpg"));
-}
-
-var fields =  [ { dbs: "prs_kostenplaatsgrp_oms",        typ: "varchar",  frm: "kpngrp_oms" },
-                { dbs: "prs_kostenplaatsgrp_nr",         typ: "varchar",  frm: "kpngrp_nr" },
-                { dbs: "prs_kostenplaatsgrp_limiet",     typ: "float",    frm: "kpngrp_limiet" },
-                { dbs: "prs_kostenplaatsgrp_limperiode", typ: "key",      frm: "kpngrp_limperiode" },
-                { dbs: "prs_perslid_key",                typ: "key",      frm: "prs_key" },
-                { dbs: "bgt_project_key",                typ: "key",      frm: "bgt_key" }];
-
-var warning = "";
-if (kpngroep_key > 0)
-  {
-    sql = buildUpdate("prs_kostenplaatsgrp", fields)
-        + "     prs_kostenplaatsgrp_key = " + kpngroep_key;
-
-    var err = Oracle.Execute(sql, true);
-    if (err.friendlyMsg)
-        warning = err.friendlyMsg;
-  }
-else
-  {
-    fields.push({  dbs: "prs_kostenplaatsgrp_key",         typ: "key",      seq: "prs_s_prs_kostenplaatsgrp_key" });
-    var regIns = buildInsert("prs_kostenplaatsgrp", fields);
-    var kpngroep_key = regIns.sequences["prs_kostenplaatsgrp_key"];
-    sql = regIns.sql;
-    var err = Oracle.Execute(sql, true);
-    if (err.friendlyMsg)
-        warning = err.friendlyMsg;
-  }
-%>
-<html>
-  <head>
-    <%  FCLTHeader.Generate() %>
-    <script>
-        $(document).ready(function () {
-            FcltMgr.closeDetail(window, { kpngroep_key: <%=kpngroep_key%>,
-                                          warning: "<%=safe.jsstring(warning)%>",
-                                          keepForm: <%=warning?"true":"false"%>
-                                         });
-         } );
-    </script>
-  </head>
-  <body>
-  </body>
-</html>

APPL/PRS/kpn_kpngroep.asp

@@ -1,79 +0,0 @@
-<%@language = "javascript" %>
-<%
-/*  $Revision$
-    $Id$
-
-    File:         kpn_kpngroep.asp
-    Status:       95%
-    Description:  dit is de grote 'wrapper' voor de diverse andere schermen
-
-    Parameters:   kpngroep_key
-
-    Context:
-    Note:
-
-*/ %>
-
-<!--#include file="../Shared/common.inc" -->
-<!--#include file="../Shared/iface.inc" -->
-
-<%
-FCLTHeader.Requires({plugins:["suggest","jQuery"],
-                     js: ["jquery-ui.js"]})
-
-  var kpngroep_key = getQParamInt("key", -1);
-
-  var authparams = user.checkAutorisation("WEB_FINMSU", true);
-  var kpngroep_title = "";
-
-  if (kpngroep_key > -1)
-  {
-    kpngroep_title = String(kpngroep_key);
-  }
-%>
-
-<html>
-  <head>
-<%
-   FCLTHeader.Generate();
-%>
-  <script  type="text/javascript" >
-      FcltMgr.setTitle("<%=L("lcl_prs_kostenpl_group") + ' ' + safe.jsstring(kpngroep_title)%>", {hot:false});
-<%    if (kpngroep_key == -1) { %>FcltMgr.startEdit(window);<% } %>
-      function kpnClose(params)
-      {
-          <% if (kpngroep_key == -1)
-             { %>
-              if (params.cancel)
-              {
-                  FcltMgr.closeDetail(window, params );
-                  return true;
-              }
-              if (!params.keepForm)
-                  window.location.href = "kpn_kpngroep.asp?verynew=1&key=" + params.kpngroep_key;
-          <% } else { /* Bestaande groep bewerkt, switch naar show-mode */ %>
-              if (params.close)
-              {
-                FcltMgr.closeDetail(window, { close: true})
-              }
-              if (!params.keepForm && !params.deleted)
-                  $("#kpnFrame")[0].src = "kpn_show_kpngroep.asp?kpngroep_key=<%=kpngroep_key%>";
-          <% } %>
-      }
-    </script>
-  </head>
-
-<body>
-<%
-if (kpngroep_key == -1)
-    var page="kpn_edit_kpngroep.asp"; // Maak een nieuw
-else
-    var page="kpn_show_kpngroep.asp";
-page += "?kpngroep_key="+kpngroep_key;
-
-IFRAMER("kpnFrame", page, { title: L("lcl_kpn_groep_frame"),
-                            initHeight: "450px",
-                            FcltClose: "kpnClose" } );
-%>
-</body>
-</html>

APPL/PRS/kpn_show_kpngroep.asp

@@ -1,168 +0,0 @@
-<%@language = "javascript" %>
-<%
-/*  $Revision$
-    $Id$
-
-    File:         kpn_show_kpngroep.asp
-    Description:  displays the selected kostenplaatsgroep. This screen (might) allow entry to the edit screen and allows deleting
-    Parameters:   kpngroep_key
-
-    Context:
-    Note:
-
-*/ %>
-<!-- #include file="../Shared/common.inc" -->
-<!-- #include file="../Shared/iface.inc" -->
-<!-- #include file="../Shared/selector.inc" -->
-<!-- #include file="../Shared/persoonselector.inc" -->
-<!-- #include file="../Shared/audithistory.inc" -->
-
-<%
-FCLTHeader.Requires({plugins:["suggest","jQuery"]})
-
-var kpngroep_key  = getQParamInt("kpngroep_key", "-1");
-
-var sql = "SELECT prs_kostenplaatsgrp_key"
-        + "     , prs_kostenplaatsgrp_oms"
-        + "     , prs_kostenplaatsgrp_nr"
-        + "     , prs_perslid_key"
-        + "     , prs_kostenplaatsgrp_limiet"
-        + "     , prs_kostenplaatsgrp_limperiode"
-        + "     , bgt_project_key"
-        + "  FROM prs_kostenplaatsgrp"
-        + " WHERE prs_kostenplaatsgrp_key = " + kpngroep_key
-oRsMes = Oracle.Execute(sql);
-
-var kpngrp_oms        = oRsMes("prs_kostenplaatsgrp_oms").Value;
-var kpngrp_nr         = oRsMes("prs_kostenplaatsgrp_nr").Value;
-var prs_key           = oRsMes("prs_perslid_key").Value? oRsMes("prs_perslid_key").Value : -1;
-var kpngrp_limiet     = oRsMes("prs_kostenplaatsgrp_limiet").Value;
-var kpngrp_limperiode = oRsMes("prs_kostenplaatsgrp_limperiode").Value;
-var bgt_key           = oRsMes("bgt_project_key").Value;
-
-oRsMes.Close();
-
-var authparams = user.checkAutorisation("WEB_FINMSU", true);
-var canShow = ((authparams && authparams.ALGreadlevel < 9) ||
-               (S("prs_restrict_kpedit") == 1 && (prs_key == user_key))) // Alleen eigen kp/kpg wijzigen
-var canChange = ((authparams && authparams.ALGwritelevel < 9) ||
-                 (S("prs_restrict_kpedit") == 1 && (prs_key == user_key))) // Alleen eigen kp/kpg wijzigen
-user.auth_required_or_abort(canShow);
-%>
-
-<html>
-  <head>
-<%  FCLTHeader.Generate(); %>
-    <script  type="text/javascript" >
-      function kpngrp_change()
-      {
-          if (FcltMgr.startEdit(window))
-              window.location.href = "kpn_edit_kpngroep.asp?kpngroep_key=<%=kpngroep_key%>"
-      }
-      function kpngrp_delete()
-      {
-          FcltMgr.confirm(L("lcl_kpn_del_txt_kostenplaatsgrp"), function() {
-              var kpngroep_key = <%=kpngroep_key%>;
-              var data = {
-                  key: <%=kpngroep_key%>,
-                  level: "G"
-              };
-              <% protectRequest.dataToken("data"); %>
-              $.post("prs_delete.asp",
-                  data,
-                  FcltCallbackClose,
-                  "json");
-          });
-      }
-    </script>
-  </head>
-
-  <body id="showbody">
-<%
-    var buttons = [];
-    // Wijzigen van de kostenplaats(groep)? Setting prs_restrict_kpedit {0=volgens autorisatie (default) | 1=alleen eigen kp/kpg wijzigen}
-    if (canChange)
-    {
-      var buttons =  [ {title: L("lcl_change"), action:"kpngrp_change()", icon: "wijzigen.png" },
-                       {title: L("lcl_delete"), action:"kpngrp_delete()", icon: "delete.png" } ];
-    }
-    if (kpngroep_key > 0)
-    {
-      var historytitle = kpngrp_oms;
-      // Als er audit history is, dan voegt de functie een extra button aan het meegegeven object buttons toe.
-      AUDIT_HISTORY_BUTTON(buttons,
-                           { tablekeyarray: [kpngroep_key],
-                             tablename: "prs_kostenplaatsgrp",
-                             oms_veldnaam: "prs_kostenplaatsgrp_oms",
-                             oms: kpngrp_oms,
-                             historytitle: historytitle });
-    }
-
-    IFRAMER_HEADER(L("lcl_kpn_groep_frame"), buttons);
-%>
-    <div id="show">
-      <form name="u2" onSubmit="return false;">
-<%
-        BLOCK_START("kpnMan", L("lcl_prs_general_info"));
-        ROFIELDTR("fld",
-                  L("lcl_prs_descr"),
-                  kpngrp_oms,
-                  {translate: { fld: "prs_kostenplaatsgrp_oms", key : kpngroep_key }}
-                 );
-        ROFIELDTR("fld",          L("lcl_prs_number"),       kpngrp_nr, {suppressEmpty: true});
-        FCLTpersoonselector("prs_key", // requestor
-                             "prs_key",
-                           { perslidKey: prs_key,
-                             label: L("lcl_prs_budgethouder"),
-                             moreinfo: true,
-                             suppressEmpty: true,
-                             readonly: true });
-        ROFIELDTR("fld",          L("lcl_prs_budget") + "&nbsp;" + L("lcl_valutasign"), safe.curr(kpngrp_limiet), {suppressEmpty: true});
-        sql = "SELECT        0, '', 0 FROM DUAL"
-            + " UNION SELECT 1, " + safe.quoted_sql(L("lcl_prs_month")) + ", 1 FROM DUAL"
-            + " UNION SELECT 2, " + safe.quoted_sql(L("lcl_prs_year")) + ", 2 FROM DUAL"
-            + " ORDER BY 3";
-        FCLTselector("kpngrp_limperiode",
-                     sql,
-                     { initKey: kpngrp_limperiode,
-                       label: L("lcl_prs_limietperiode"),
-                       readonly: true,
-                       suppressEmpty: true
-                     });
-
-        if (S("bgt_enabled"))
-        {
-          sql = "SELECT p.bgt_project_key"
-              + "     , d.bgt_disc_params_code ||' - '|| p.bgt_project_code"
-              + "  FROM bgt_project p"
-              + "     , bgt_disc_params d"
-              + " WHERE p.ins_discipline_key = d.bgt_ins_discipline_key";
-          FCLTselector("bgt_key",
-                       sql,
-                       { initKey: bgt_key,
-                         label: L("bgt_project"),
-                         readonly: true,
-                         suppressEmpty: true
-                       });
-        }
-        BLOCK_END();
-
-        sql = "SELECT SUM(k.prs_kostenplaats_limiet) gebruikt_budget"
-            + "  FROM prs_kostenplaatsgrp kpg"
-            + "     , prs_kostenplaats k"
-            + " WHERE kpg.prs_kostenplaatsgrp_key = k.prs_kostenplaatsgrp_key"
-            + "   AND kpg.prs_kostenplaatsgrp_key = " + kpngroep_key;
-        oRs = Oracle.Execute(sql);
-        var gebruikt_budget = oRs("gebruikt_budget").Value;
-        oRs.close();
-        if (kpngrp_limiet - gebruikt_budget > 0)
-        {
-          BLOCK_START("kpnGrp", L("lcl_prs_budgettering"));
-          ROFIELDTR("fldfreebudget" + (gebruikt_budget > kpngrp_limiet? " hot" : ""), L("lcl_prs_afwijking_budget") + "&nbsp;" + L("lcl_valutasign"), safe.curr(kpngrp_limiet - gebruikt_budget), {suppressEmpty: true});
-          BLOCK_END();
-        }
-%>
-      </form>
-    </div>
-  </body>
-</html>

APPL/PRS/kpngroep_list.inc

@@ -1,155 +0,0 @@
-<% /*
-     $Revision$
-     $Id$
-
-    File:               kpngroep_list.inc
-    Description:        Show an overview of kostenplaats groepen items in list-form,
-                        which meets with the given requirements
-    Parameters:
-    Context:            Search action from kpngroep_search_list.asp form
-    Note:
-*/ %>
-
-<!-- #include file="../Shared/json2.js" -->
-<!-- #include file="../Shared/resultset_table_v2.inc" -->
-
-<%
-FCLTHeader.Requires({ plugins:["jQuery"],
-                      js: []
-                    })
-
- function fnrowData(oRs)
-        {
-          var key        = oRs("prs_kostenplaatsgrp_key").value;
-
-          var data = {key:key};
-
-          return JSON.stringify(data);
-        }
-%>
-<script type="text/javascript">
-  var autosearch = 1; // automatisch laden van resultaat op search pagina
-  function refreshall(data)
-    {
-      if (data.refresh)
-          window.location.reload();
-    }
-
-
- function kpngroepEdit(row)
-  {
-    var kpnData = eval('(' + row.getAttribute("ROWDATA") + ')');
-    var url = "appl/prs/kpn_kpngroep.asp?mode=viewUpdate&key="+kpnData.key;
-    FcltMgr.openDetail(url, "<%=L("lcl_prs_kostenpl_group")%>" + ' ' + kpnData.key, {callback: refreshall});
-  }
-
-  function doDelete(rowArray, isMulti)
-  {
-    FcltMgr.confirm(L("lcl_kpn_del_txt_kostenplaatsgrp"), {
-        autoconfirm: isMulti
-    }, function() {
-        var kpngroepKeyString = getKeyString(rowArray);
-        var data = {
-            key: kpngroepKeyString,
-            level: "G"
-        };
-        <% protectRequest.dataToken("data"); %>
-        $.post("prs_delete.asp",
-            data,
-            FcltCallbackRefresh,
-            "json");
-    });
-  }
-</script>
-<%
-
-function kpngroep_list(pautfunction, params)
-{
-  // De functie checkAutorisation(autfunction) geeft een Response.End indien er geen autorisatie voor autfunction wordt gevonden
-  var addButton = [];
-
-  var authparams = user.checkAutorisation("WEB_FINMSU", true);
-  var canAdd = (authparams && authparams.ALGwritelevel < 9);
-
-  // Voor resulttable de globalen zetten; zou ng anders moeten.
-  var outputmode = params.outputmode; // print to 0 = screen, 1 = printer, 2 = excel, etc.
-  var showall = params.showall;
-
-  var descr = params.descr;
-  var budgeth_key = params.budgeth_key;
-
-  function fnrowActionEnabler(oRs)
-    {
-      /*  var eDelete = false;
-        if (alg.canWriteRuimte(oRs("alg_ruimte_key").value, authparams.mALGwritelevel)) */ //Moet hier nog iets mee?
-        eDelete = true;
-        return ({eDelete: eDelete})
-    }
-%>
-
-  <html>
-    <head>
-      <% FCLTHeader.Generate({outputmode:outputmode}) %>
-    </head>
-    <body id="listbody">
-<%
-  var sqln = "SELECT   kpg.prs_kostenplaatsgrp_key, "
-           + "         kpg.prs_kostenplaatsgrp_oms, "
-           +           S("prs_pers_string") + " naam,"
-           + "         p.prs_perslid_verwijder "
-           + "    FROM prs_kostenplaatsgrp kpg, "
-           + "         prs_perslid p "
-           + "   WHERE p.prs_perslid_key(+) = kpg.prs_perslid_key "
-
-
-    if (!(authparams && authparams.ALGreadlevel < 9 && authparams.ALGwritelevel < 9)) // Geen WEB_FINMSU. Dan ben ik budgedhouder en mag ik alleen mijn kostenplaatsen zien.
-      sqln += "AND kpg.prs_perslid_key = " + user_key;
-
-    if (descr)
-      {
-      sqln += " AND UPPER(kpg.prs_kostenplaatsgrp_oms) LIKE " + safe.quoted_sql_wild("%" + descr + "%");
-      }
-
-    if (budgeth_key)
-      {
-      sqln += " AND p.prs_perslid_key = " + budgeth_key;
-      }
-
-      sqln += "ORDER BY naam "
-
-    var addurl = "appl/prs/kpn_kpngroep.asp";
-
-    if (canAdd)
-      {
-      addButton = [{ icon: "plus.png", title: L("lcl_add"), action: "FcltMgr.openDetail('" + addurl + "', '" + L("lcl_add") + "')" }]
-      }
-
-   function formatBudgethouder (oRs) {
-        var prefix = ''+oRs("prs_perslid_verwijder").value != 'null' ? '<span class="deleted">' : '';
-        var suffix = ''+oRs("prs_perslid_verwijder").value != 'null' ? '</span>' : '';
-        if (''+oRs("naam").value != 'null')
-            return prefix+safe.html(oRs("naam").value)+suffix;
-    }
-
-    var rst = new ResultsetTable({sql:sqln,
-                                   keyColumn: "prs_kostenplaatsgrp_key",
-                                   ID: "prstable",
-                                   showAll: showall,
-                                   rowData: fnrowData,
-                                   rowActionEnabler: fnrowActionEnabler,
-                                   outputmode: outputmode,
-                                   filterParams: params,
-                                   buttons: addButton
-                                  });
-
-    rst.addColumn(new Column({caption: L("lcl_prs_kostenpl_group"), content: "prs_kostenplaatsgrp_oms", hasActions: true}));
-    rst.addColumn(new Column({caption: L("lcl_prs_budgethouder"), content: formatBudgethouder}));
-
-    rst.addAction({ action: "kpngroepEdit", caption: L("lcl_edit"), isDefault:  true});
-    rst.addAction({ action: "doDelete", caption: L("lcl_delete"), enabler: "eDelete", single: false, multi: true, multiOnce: true});
-
-    var cnt = rst.processResultset();
-%>
-</body>
-</html>
-<%}%>

APPL/PRS/kpngroep_search.asp

@@ -1,66 +0,0 @@
-<%@ LANGUAGE = JavaScript %>
-<% /*
-     $Revision$
-     $Id$
-
-     File:        kpngroep_search.asp
-
-     Description:   Toont zoekvelden voor lijst van kostenplaats groepen
-     Parameters:
-     Context:       Vanuit menu
-     Note:
-*/ %>
-
-<!-- #include file="../Shared/common.inc" -->
-<!-- #include file="../Shared/iface.inc" -->
-<!-- #include file="../Shared/selector.inc" -->
-
-<%
-FCLTHeader.Requires({ plugins:["jQuery"] });
-
-var prs_key
-var authparams = user.checkAutorisation("WEB_FINMSU", true);%>
-<html>
-  <head>
-<%  FCLTHeader.Generate(); %>
-  </head>
-  <body id="searchbody">
-    <div id="search">
-      <form name="u2" target="workFrame" action="kpngroep_search_list.asp" method="get">
-<%      BLOCK_START("searchtable", L("lcl_filterblok"));%>
-        <tr>
-          <td class="label"><label for="descr"><%=L("lcl_prs_kostenpl_group")%>:</label></td>
-          <td><input type="text" class="fldsrch" name="descr"></td>
-        </tr>
-<%      sql = "SELECT DISTINCT p.prs_perslid_key, "
-            +                  S("prs_pers_string")
-            + "           FROM prs_kostenplaatsgrp kpg, "
-            + "                prs_perslid p "
-            + "          WHERE kpg.prs_perslid_key = p.prs_perslid_key "
-            + (!(authparams && authparams.ALGreadlevel)
-              ? "          AND kpg.prs_perslid_key = " + user_key
-              : "")
-            + "       ORDER BY " + S("prs_pers_string")
-
-        FCLTselector("budgeth", sql,
-                     { label: L("lcl_prs_budgethouder"),
-                       emptyOption: "",
-                       whenEmpty: L("lcl_search_generic"),
-                       selectjustone: !(authparams && authparams.ALGreadlevel)
-                     }); %>
-<%      BLOCK_END();
-        var buttons =  [ {title: L("lcl_search"), action: "document.forms.u2.submit();", id: "bSearch" }];
-        CreateButtons(buttons, { entersubmit: true });
-%>
-      </form>
-    </div>
-    <div id="result">
-      <iframe width="100%" height="100%"
-              src="../Shared/empty.asp"
-              name="workFrame" id="workFrame"
-              onload="FcltMgr.iframeLoaded(this)"
-              frameborder="0" scrolling="no">
-      </iframe>
-    </div>
-  </body>
-</html>

APPL/PRS/kpngroep_search_list.asp

@@ -1,36 +0,0 @@
-<%@language = "javascript" %>
-<% /*
-     $Revision$
-     $Id$
-
-    File:        kpngroep_search_list.asp
-    Description: Vangt de parameters van kpn_groep_search op en verwerkt die in een lijst
-    Parameters:  -
-   
-    Context:    
-    Note:
-*/ %>
-
-<!-- #include file="../Shared/common.inc" -->
-<!-- #include file="kpngroep_list.inc" -->
-
-<%
-// FORM parameters: de waarde indien aanwezig, anders null
-// Vaak is een lege selectie ook een -1, dus dan is-ie wel aanwezig, maar hoeft niet
-// als filter te worden toegepast. Dan is null dus gelijk aan -1, qua betekenis,
-// Vandaar dat een default van -1 ipv null ook mag
-// In eerste instantie identificeren we elk veld gewoon 1-op-1.
-var outputmode = getQParamInt("outputmode", 0) //  0 = screen, 1 = print, 2 = excel etc
-var showall = getQParamInt("showall", 0) == 1;
-
-var descr = getQParam("descr", "");
-var budgeth_key = getQParamInt("budgeth", -1);
-
-kpngroep_list ("*",
-               {outputmode: outputmode,
-                showall: showall,
-                descr: descr,
-                budgeth_key: (budgeth_key != -1? budgeth_key : null)
-               }
-              );
-%>

APPL/PRS/prs_obligations.js

@@ -18,25 +18,25 @@ function prs_edit(row)
         FcltMgr.openDetail("appl/mld/mld_opdr.asp?opdr_key=" + item_key + "&urole=bo", L("lcl_shared_order") + " " + prsData.item);
         break;
     case "deel":
-        FcltMgr.openDetail("appl/INS/ins_deel.asp?ins_key=" + item_key + "&urole=bo", L("lcl_shared_object") + " " + prsData.item);
+        FcltMgr.openDetail("appl/ins/ins_deel.asp?ins_key=" + item_key + "&urole=bo", L("lcl_shared_object") + " " + prsData.item);
         break;
     case "reservering":
-        FcltMgr.openDetail("appl/RES/res_reservering.asp?rsv_ruimte_key=" + item_key + "&urole=bo", L("lcl_shared_reservation") + " " + prsData.item);
+        FcltMgr.openDetail("appl/res/res_reservering.asp?rsv_ruimte_key=" + item_key + "&urole=bo", L("lcl_shared_reservation") + " " + prsData.item);
         break;
     case "bestelling":
         FcltMgr.openDetail("appl/bes/bes_bestelling.asp?bes_key=" + item_key + "&urole=bo", L("lcl_shared_bestelling") + " " + item_key);
         break;
     case "afspraak":
-        FcltMgr.openDetail("appl/BEZ/bez_afspraak.asp?afspr_key=" + item_key + "&urole=bo", L("lcl_shared_appointment") + " " + item_key);
+        FcltMgr.openDetail("appl/bez/bez_afspraak.asp?afspr_key=" + item_key + "&urole=bo", L("lcl_shared_appointment") + " " + item_key);
         break;
     case "contract":
-        FcltMgr.openDetail("appl/CNT/cnt_contract.asp?cnt_key=" + item_key + "&urole=bo", L("lcl_shared_contract") + " " + prsData.item);
+        FcltMgr.openDetail("appl/cnt/cnt_contract.asp?cnt_key=" + item_key + "&urole=bo", L("lcl_shared_contract") + " " + prsData.item);
         break;
     case null: // kostenplaats
         if (prsData.messagecode == "PRS_BUDGETHOUDER_VAN")
             FcltMgr.openDetail("appl/prs/kpn_kpn.asp?key=" + item_key + "&urole=bo", L("lcl_shared_account") + " " + prsData.item);
         else if (prsData.messagecode == "PRS_BUDGETHOUDER_GROEP")
-            FcltMgr.openDetail("appl/prs/kpn_kpngroep.asp?key=" + item_key + "&urole=bo", L("lcl_shared_account") + " " + prsData.item);
+            FcltMgr.openModalDetail("../mgt/prs_kostenplaatsgrp.asp?mode=edit&id=" + item_key);
         break;
   }
 }