admin/Facilitor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FSN#41733 Kostenplaatsgroepen ook via scaffolding

Browse Source 
svn path=/Website/trunk/; revision=35034
This commit is contained in:
Jos Groot Lipman
2017-08-22 11:20:56 +00:00
parent de2387cd3b
commit 7f1d4dae0c
10 changed files with 48 additions and 729 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
APPL/API2/model_prs_kostenplaatsgrp.inc
View File

@@ -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_PUT = generic_REST_PUT(this);
//this.REST_DELETE = generic_REST_DELETE(this);
this.REST_POST = generic_REST_POST(this);
this.REST_PUT = function (params, jsondata, the_key)
{
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);
}
%>

8
APPL/MGT/prs_kostenplaatsgrp.asp
View File

@@ -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
}
});
%>

131
APPL/PRS/kpn_edit_kpngroep.asp
View File

@@ -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>

83
APPL/PRS/kpn_edit_kpngroep_save.asp
View File

@@ -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>

79
APPL/PRS/kpn_kpngroep.asp
View File

@@ -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>

168
APPL/PRS/kpn_show_kpngroep.asp
View File

@@ -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>

155
APPL/PRS/kpngroep_list.inc
View File

@@ -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>
<%}%>

66
APPL/PRS/kpngroep_search.asp
View File

@@ -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>

36
APPL/PRS/kpngroep_search_list.asp
View File

@@ -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)
}
);
%>

10
APPL/PRS/prs_obligations.js
View File

@@ -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;
}
}