FCLT#56028 Oude kostenplaats aspbestanden worden nog aangroepen

svn path=/Website/trunk/; revision=40478
This commit is contained in:
Erik Groener
2019-01-10 09:39:25 +00:00
parent 044d6a7847
commit 712525b599
15 changed files with 18 additions and 1393 deletions

View File

@@ -110,6 +110,21 @@ if (0) {
}
}
function exceeds_budgetkps(kpg_key, bedrag)
{
sql = "SELECT SUM(k.prs_kostenplaats_limiet) totaal_kp_budget"
+ " FROM prs_kostenplaatsgrp kpg"
+ " , prs_kostenplaats k"
+ " WHERE kpg.prs_kostenplaatsgrp_key = k.prs_kostenplaatsgrp_key"
+ " AND kpg.prs_kostenplaatsgrp_key = " + kpg_key;
oRs = Oracle.Execute(sql);
var totaal_kp_budget = oRs("totaal_kp_budget").Value || 0;
oRs.Close();
return bedrag < totaal_kp_budget;
}
var gparams = {};
if (S("bgt_enabled"))
{
@@ -137,7 +152,7 @@ if (0) {
this.REST_POST = generic_REST_POST(this);
this.REST_PUT = function (params, jsondata, the_key)
{
if (prs.exceeds_budgetkps(the_key, jsondata.grouplimit))
if (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"));
}

View File

@@ -1,219 +0,0 @@
<%@language = "javascript" %>
<%
/* $Revision$
$Id$
File: kpn_edit_kpn.asp
Description: file to edit or add kostenplaatsen
Parameters: kpn_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/kostenplaatsselector.inc" -->
<!-- #include file="../Shared/calendar.inc" -->
<%
FCLTHeader.Requires({plugins:["suggest", "jQuery"]})
var kpn_key = getQParamInt("kpn_key", -1);
if (kpn_key > 0)
{
sql = "SELECT kp.prs_kostenplaats_key"
+ " , kp.prs_kostenplaats_nr"
+ " , kp.prs_kostenplaats_omschrijving"
+ " , kp.prs_perslid_key kpn_prs_key"
+ " , kp.prs_kostenplaats_module"
+ " , kp.prs_kostenplaatsgrp_key"
+ " , kp.prs_kostenplaats_eind"
+ " , kp.prs_kostenplaats_limiet"
+ " , kp.prs_kostenplaats_limietperiode"
+ " , kp.prs_kostenplaats_extern"
+ " , kp.prs_kostenplaats_fiat"
+ " , kpg.prs_kostenplaatsgrp_limperiode"
+ " , kpg.prs_perslid_key kpngrp_prs_key"
+ " FROM prs_kostenplaats kp"
+ " , prs_kostenplaatsgrp kpg"
+ " WHERE kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)"
+ " AND kp.prs_kostenplaats_key = " + kpn_key
oRsMes = Oracle.Execute(sql);
var kpn_nr = oRsMes("prs_kostenplaats_nr").Value;
var kpn_oms = oRsMes("prs_kostenplaats_omschrijving").Value;
var kpn_prs_key = oRsMes("kpn_prs_key").Value? oRsMes("kpn_prs_key").Value : -1;
var kpn_module = oRsMes("prs_kostenplaats_module").Value;
var kpn_grpkey = oRsMes("prs_kostenplaatsgrp_key").Value;
var kpn_eind = oRsMes("prs_kostenplaats_eind").Value != null? new Date(oRsMes("prs_kostenplaats_eind").Value) : null;
var kpn_limiet = oRsMes("prs_kostenplaats_limiet").Value;
var kpn_extern = oRsMes("prs_kostenplaats_extern").Value? oRsMes("prs_kostenplaats_extern").Value : 0;
var kpn_fiat = oRsMes("prs_kostenplaats_fiat").Value == 1;
var kpg_limperiode = oRsMes("prs_kostenplaatsgrp_limperiode").Value? oRsMes("prs_kostenplaatsgrp_limperiode").Value : 0;
var kpn_limietperiode = kpg_limperiode? kpg_limperiode : (oRsMes("prs_kostenplaats_limietperiode").Value? oRsMes("prs_kostenplaats_limietperiode").Value : 0);
var kpngrp_prs_key = oRsMes("kpngrp_prs_key").Value? oRsMes("kpngrp_prs_key").Value : -1;
oRsMes.Close();
}
else
{
var kpn_eind = null;
var kpn_limietperiode = 0;
var kpn_prs_key = -1;
var kpn_fiat = true;
var kpngrp_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 && (kpn_prs_key == user_key || kpngrp_prs_key == user_key))) // Alleen eigen kp/kpg wijzigen
user.auth_required_or_abort(canChange);
%>
<html>
<head>
<% FCLTHeader.Generate();
%>
<script>
function checkLimit(evt)
{
evt = evt || window.event;
var obj = evt.srcElement || evt.target;
var limit = obj.value;
var valid = limit == "" || (isGoodNumber(limit,true,false,8,-1)
&& parseInt(limit, 10) >= 0
&& parseInt(limit, 10) <= 99999999)
validateField(obj, valid, L("lcl_prs_bad_budget"));
return valid;
}
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 } );
}
function onChangeKpngrp()
{
if ($("#kpn_grpkey :selected").val() > -1)
{
var kpngrp_limperiode = $("#kpn_grpkey :selected")[0].getAttribute("prs_kostenplaatsgrp_limperiode");
$("#kpn_limietperiode, #kpn_limietperiode_ro").closest("td").load("loadLimietPeriode.asp",
{ kpn_limietperiode: (kpngrp_limperiode > 0? kpngrp_limperiode : <%=kpn_limietperiode%>),
readonly: (kpngrp_limperiode > 0? 1 : 0)
});
}
}
</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_kpn_frame"), buttons);
%>
<div id="edit">
<form name="u2"
action="kpn_edit_kpn_save.asp?kpn_key=<%=kpn_key%>"
method="post"
target="hidFrameSubmit"
onSubmit="kpn_submit();">
<input type="hidden" name="kpg_limperiode" value="<%=kpg_limperiode%>">
<% BLOCK_START("kpnMan", "");
RWFIELDTR("kpn_nr", "fld", L("lcl_prs_dept_name"), kpn_nr, {required: true, maxlength: 30, readonly: !canChangeAlg});
sql = "SELECT 'ALG' modulekey, "
+ " LCL.L('lcl_prs_kosttype_alg') omschrijving "
+ " FROM DUAL "
+ "UNION ALL "
+ "SELECT 'PRJ' modulekey, "
+ " LCL.L('lcl_prs_kosttype_prj') omschrijving "
+ " FROM DUAL "
+ "UNION ALL "
+ "SELECT 'PRS' modulekey, "
+ " LCL.L('lcl_prs_kosttype_prs') omschrijving "
+ " FROM DUAL "
+ "ORDER BY 1 "
FCLTselector("kpn_module", sql,
{ label: L("lcl_prs_type"),
initKey: kpn_module,
emptyOption: "",
readonly: !canChangeAlg,
required: true });
RWFIELDTR("kpn_oms", "fld", L("lcl_prs_descr"), kpn_oms, {maxlength: 60, readonly: !canChangeAlg});
FCLTpersoonselector("prs_key", // requestor
"sgPerson",
{ perslidKey: kpn_prs_key,
label: L("lcl_prs_budgethouder"),
whenEmpty: L("lcl_search_generic"), // want filter
readonly: !canChangeAlg });
sql = "SELECT prs_kostenplaatsgrp_key"
+ " , prs_kostenplaatsgrp_oms"
+ " , COALESCE(prs_kostenplaatsgrp_limperiode, 0) prs_kostenplaatsgrp_limperiode"
+ " FROM prs_kostenplaatsgrp kpg"
+ " ORDER BY UPPER (prs_kostenplaatsgrp_oms)"
FCLTselector("kpn_grpkey", sql,
{ label: L("lcl_prs_kostenpl_group"),
initKey: kpn_grpkey,
emptyOption: "",
readonly: !canChangeAlg,
onChange: "onChangeKpngrp()",
extraParamValue: "prs_kostenplaatsgrp_limperiode" });
if (!canChangeAlg)
{ %>
<input type="hidden" name="kpn_grpkey" value="<%=kpn_grpkey%>">
<% }
RWCHECKBOXTR("kpn_extern", "fldcheck", L("lcl_prs_kpnextern"), kpn_extern, {readonly: !canChangeAlg});
RWCHECKBOXTR("kpn_fiat", "fldcheck", L("lcl_prs_kpnfiat"), kpn_fiat, {readonly: !canChangeAlg});
// <!-- Datum -->
FCLTcalendar("enddate",
{ label: L("lcl_end_date"),
datum: kpn_eind,
readonly: !canChangeAlg,
initEmpty: !kpn_eind || kpn_key <= 0
});
RWFIELDTR("kpn_limiet", "fldkpnlimiet", L("lcl_prs_budget") + "&nbsp;(" + L("lcl_valutasign")+")", kpn_limiet, {datatype: "number", maxlength: 8, html: "onChange='checkLimit(event)'"});
sql = "SELECT 0, " + safe.quoted_sql(L("lcl_prs_none")) + " FROM DUAL"
+ " UNION SELECT 1, " + safe.quoted_sql(L("lcl_prs_per_month")) + " FROM DUAL"
+ " UNION SELECT 2, " + safe.quoted_sql(L("lcl_prs_annual")) + " FROM DUAL";
FCLTselector("kpn_limietperiode",
sql,
{ label: L("lcl_prs_budgetperiode"),
initKey: kpn_limietperiode,
readonly: kpg_limperiode });
// Extra ruimte cre<72>ren voor de datumveld popup
%>
<tr>
<td>
<div style="height: 50px">
<br>
</div>
</td>
</tr>
<% BLOCK_END();
IFACE.FORM_END();
%>
</form>
<iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>
</div>
</body>
</html>

View File

@@ -1,115 +0,0 @@
<%@language = "javascript" %>
<% /*
$Revision$
$Id$
File: kpn_edit_kpn.asp
Description: SUBMIT-form
*/ %>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../shared/save2db.inc" -->
<!-- #include file="./prs.inc" -->
<% FCLTHeader.Requires({ plugins:["jQuery"] }) %>
<%
var kpn_key = getQParamInt("kpn_key", -1);
var kpn_grpkey = getFParamInt("kpn_grpkey", -1);
if (kpn_key > 0)
{
var sql = "SELECT k.prs_perslid_key kpn_prs_key"
+ " , kpg.prs_perslid_key kpngrp_prs_key"
+ " FROM prs_kostenplaats k"
+ " , prs_kostenplaatsgrp kpg"
+ " WHERE kpg.prs_kostenplaatsgrp_key(+) = k.prs_kostenplaatsgrp_key"
+ " AND k.prs_kostenplaats_key = " + kpn_key;
oRs = Oracle.Execute(sql);
var kpn_prs_key = oRs("kpn_prs_key").Value? oRs("kpn_prs_key").Value : -1;
var kpngrp_prs_key = oRs("kpngrp_prs_key").Value? oRs("kpngrp_prs_key").Value : -1;
oRs.Close();
}
else
{
var kpn_prs_key = -1;
var kpngrp_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 canChange = ((authparams && authparams.ALGwritelevel < 9) ||
(S("prs_restrict_kpedit") == 1 && (kpn_prs_key == user_key || kpngrp_prs_key == user_key))) // Alleen eigen kp/kpg wijzigen
user.auth_required_or_abort(canChange);
// Indien kostenplaatsgroep limiet ingesteld is dan is die leidend. Kostenplaats wordt dan niet doorgegeven. In dat geval kostenplaats limiet leeg maken.
var kpn_limietperiode = getFParamInt("kpn_limietperiode", 0);
var kpn_limiet = getFParamInt("kpn_limiet", 0);
if (kpn_grpkey > 0 && prs.exceeds_budgetkpg(kpn_grpkey, kpn_key, kpn_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_kostenplaats_nr", typ: "varchar", frm: "kpn_nr", track: L("lcl_prs_dept_name") },
{ dbs: "prs_kostenplaats_omschrijving", typ: "varchar", frm: "kpn_oms", track: L("lcl_prs_descr") },
{ dbs: "prs_perslid_key", typ: "key", frm: "prs_key", track: L("lcl_prs_budgethouder"), foreign: "prs_perslid" },
{ dbs: "prs_kostenplaats_module", typ: "varchar", frm: "kpn_module", track: L("lcl_prs_type") },
{ dbs: "prs_kostenplaatsgrp_key", typ: "key", frm: "kpn_grpkey", track: L("lcl_prs_kostenpl_group"), foreign: "prs_kostenplaatsgrp" },
{ dbs: "prs_kostenplaats_eind", typ: "date", frm: "enddate", track: L("lcl_end_date") },
{ dbs: "prs_kostenplaats_limiet", typ: "float", frm: "kpn_limiet", track: L("lcl_prs_budget") },
{ dbs: "prs_kostenplaats_limietperiode", typ: "number", val: kpn_limietperiode, track: true /* afzonderlijke tracking, wel oldjsval */ },
{ dbs: "prs_kostenplaats_extern", typ: "check0", frm: "kpn_extern", track: L("lcl_prs_kpnextern") },
{ dbs: "prs_kostenplaats_fiat", typ: "check0", frm: "kpn_fiat", track: L("lcl_prs_kpnfiat") }
];
var warning = "";
if (kpn_key > 0)
{
var kpnUpd = buildTrackingUpdate("prs_kostenplaats", " prs_kostenplaats_key = " + kpn_key, fields);
sql = buildUpdate("prs_kostenplaats", fields)
+ " prs_kostenplaats_key = " + kpn_key;
/* SUBMIT THE CHANGED DATA */
var err = Oracle.Execute(kpnUpd.sql, true);
if (err.friendlyMsg)
abort_with_warning(err.friendlyMsg);
var newtxt = kpn_limietperiode == 0? L("lcl_tracktoempty") : (kpn_limietperiode == 1? L("lcl_prs_per_month") : L("lcl_prs_annual"));
var oldval = kpnUpd.oldjsvals["prs_kostenplaats_limietperiode"];
var kpngrp_limietperiode = (oldval === null || oldval === "" || oldval <= 0? 0 : oldval);
if (kpn_limietperiode != kpngrp_limietperiode)
{
var oldtxt = (oldval === null || oldval === "" || oldval <= 0? L("lcl_trackfromempty") : (oldval == 1 ? L("lcl_prs_per_month") : L("lcl_prs_annual")))
kpnUpd.trackarray.push(L("lcl_prs_budgetperiode") + ": " + buildTrackText("varchar", oldtxt, newtxt, { nodiff: true }));
}
if (kpnUpd.trackarray.length)
shared.trackaction("PRSKPU", kpn_key, kpnUpd.trackarray.join("\n"));
}
else
{
fields.push({ dbs: "prs_kostenplaats_key", typ: "key", seq: "prs_s_prs_kostenplaats_key" });
var regIns = buildInsert("prs_kostenplaats", fields);
var kpn_key = regIns.sequences["prs_kostenplaats_key"];
sql = regIns.sql;
var err = Oracle.Execute(sql, true);
if (err.friendlyMsg)
warning = err.friendlyMsg;
}
%>
<html>
<head>
<% FCLTHeader.Generate() %>
<script>
$(function ()
{
FcltMgr.closeDetail(window, { kpn_key: <%=kpn_key%>,
warning: "<%=safe.jsstring(warning)%>",
keepForm: <%=warning?"true":"false"%>
});
});
</script>
</head>
<body>
</body>
</html>

View File

@@ -1,156 +0,0 @@
<%@language = "javascript" %>
<%
/* $Revision$Id: $
File: kpn_edit_kpncat.asp
Status: 90%
Description: edit or add kostenplaats catalogus
Parameters: kpndisc_key (required)
Context:
Note:
*/ %>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/iface.inc" -->
<!-- #include file="../Shared/disciplineselector.inc" -->
<!-- #include file="../Shared/audithistory.inc" -->
<%
FCLTHeader.Requires({plugins:["suggest", "jQuery"] })
var kpn_key = getQParamInt("kpn_key");
var kpndisc_key = getQParamInt("kpndisc_key");
var autfunction = 'WEB_FINMSU';
var authparams = user.checkAutorisation(autfunction)
sql = "SELECT K.prs_kostenplaats_nr"
+ " , K.prs_kostenplaats_omschrijving"
+ " FROM prs_kostenplaats K"
+ " WHERE prs_kostenplaats_key = " + kpn_key;
oRs = Oracle.Execute(sql);
var kpn_nr = oRs("prs_kostenplaats_nr").Value;
var kpn_oms = oRs("prs_kostenplaats_omschrijving").Value;
var kpn_disc;
var kpn_limiet;
oRs.Close();
if (kpndisc_key > -1)
{
sql = "SELECT D.prs_kostenplaatsdisc_key"
+ " , D.prs_kostenplaats_key"
+ " , D.ins_discipline_key"
+ " , D.prs_kostenplaatsdisc_limiet"
+ ", CASE "
+ " WHEN sd.ins_srtdiscipline_prefix IS NULL"
+ " THEN ''"
+ " ELSE sd.ins_srtdiscipline_prefix || '-'"
+ " END || " + lcl.xsql('td.ins_discipline_omschrijving', 'td.ins_discipline_key') + " discipline"
+ " FROM prs_kostenplaatsdisc D"
+ " , ins_tab_discipline td"
+ " , ins_srtdiscipline sd"
+ " WHERE d.ins_discipline_key = td.ins_discipline_key"
+ " AND td.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)"
+ " AND D.prs_kostenplaatsdisc_key = " + kpndisc_key;
oRs = Oracle.Execute(sql);
kpn_disc = oRs("ins_discipline_key").Value;
kpn_limiet = oRs("prs_kostenplaatsdisc_limiet").Value;
kpn_discoms = oRs("discipline").Value;
oRs.Close();
}
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<script type="text/javascript" >
function checkLimit(evt)
{
evt = evt || window.event;
var obj = evt.srcElement || evt.target;
var limit = obj.value;
var valid = limit == "" || (isGoodNumber(limit,true,false,8,-1)
&& parseInt(limit, 10) >= 0
&& parseInt(limit, 10) <= 99999999)
validateField(obj, valid, L("lcl_prs_bad_budget"));
return valid;
}
function kpncat_submit()
{
document.activeElement.blur(); // trigger laatste onChanges
if (!validateForm("u2"))
return false;
document.forms.u2.submit();
}
function kpncat_cancel()
{
FcltMgr.closeDetail(window, { cancel: true } );
}
</script>
</head>
<body id="editbody">
<% var buttons = [ {title: L("lcl_submit"), action:"kpncat_submit()", icon: "opslaan.png" },
{title: L("lcl_cancel"), action:"kpncat_cancel()", icon: "undo.png" }];
if (kpndisc_key > 0)
{
var historytitle = kpn_discoms;
// Als er audit history is, dan voegt de functie een extra button aan het meegegeven object buttons toe.
AUDIT_HISTORY_BUTTON(buttons,
{ tablekeyarray: [kpndisc_key],
tablename: "prs_kostenplaatsdisc",
oms_veldnaam: "ins_discipline_key",
oms: "" + kpn_disc,
historytitle: historytitle });
}
IFRAMER_HEADER(L("lcl_kpn_kpncat_frame"), buttons);
%>
<div id="edit">
<form name="u2"
action="kpn_edit_kpncat_save.asp?kpndisc_key=<%=kpndisc_key%>&"
method="post"
target="hidFrameSubmit"
onSubmit="kpncat_submit();">
<%
BLOCK_START("prsPerslid");
%>
<input type="hidden" name="kpn_key" value="<%=kpn_key%>">
<input type="hidden" name="kpndisc_key" value="<%=kpndisc_key%>">
<%
ROFIELDTR( "fld"
, L("lcl_prs_dept_name")
, kpn_nr
);
ROFIELDTR( "fld"
, L("lcl_prs_descr")
, kpn_oms
);
FCLTdisciplineselector( "kpn_disc"
, "sgDisc"
, { label: L("lcl_bes_discipline")
, disc_key: kpn_disc
, module: "BES" // Alleen de disciplines van BES en MLD tonen
, perslidKey: user_key
, autfunctionKey: -1 // alles is toegestaan! authparams.autfunctionkey,
, srtdisc_key: null // alles mag
, required: true
});
RWFIELDTR( "kpn_limiet"
, "fldkpnlimiet"
, L("lcl_prs_budget") + "&nbsp;" + S("currency_pref")
, kpn_limiet
, {datatype: "number", maxlength: 8, html: "onChange='checkLimit(event)'", required: true}
);
BLOCK_END();
IFACE.FORM_END();
%>
</form>
<iframe src="../Shared/empty.html" name="hidFrameSubmit" style="display:none"></iframe>
</div>
</body>
</html>

View File

@@ -1,64 +0,0 @@
<%@language = "javascript" %>
<% /*
$Revision$
$Id$
File: kpn_edit_kpncat_save.asp
Status:
Description: SUBMIT-form
*/ %>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../shared/save2db.inc" -->
<% FCLTHeader.Requires({ plugins:["jQuery"] }) %>
<%
var autfunction = 'WEB_FINMSU';
var authparams = user.checkAutorisation(autfunction)
user.auth_required_or_abort(authparams.ALGwritelevel < 9);
var kpn_key = getFParamInt( "kpn_key");
var kpndisc_key = getFParamInt("kpndisc_key");
var fields = [ { dbs: "prs_kostenplaats_key", typ: "key", frm: "kpn_key" }
, { dbs: "ins_discipline_key", typ: "key", frm: "kpn_disc" }
, { dbs: "prs_kostenplaatsdisc_limiet", typ: "float", frm: "kpn_limiet" }
];
var warning = "";
if (kpndisc_key > 0)
{
sql = buildUpdate("prs_kostenplaatsdisc", fields)
+ " prs_kostenplaatsdisc_key = " + kpndisc_key;
var err = Oracle.Execute(sql, true);
if (err.friendlyMsg)
warning = err.friendlyMsg;
}
else
{
fields.push({ dbs: "prs_kostenplaatsdisc_key", typ: "key", seq: "prs_s_prs_kostenplaatsdisc_key" });
var regIns = buildInsert("prs_kostenplaatsdisc", fields);
kpndisc_key = regIns.sequences["prs_kostenplaatsdisc_key"];
sql = regIns.sql;
var err = Oracle.Execute(sql, true);
if (err.friendlyMsg)
warning = err.friendlyMsg;
}
%>
<html>
<head>
<% FCLTHeader.Generate() %>
<script>
$(function ()
{
FcltMgr.closeDetail(window, { kpndisc_key: <%=kpndisc_key%>,
warning: "<%=safe.jsstring(warning)%>",
keepForm: <%=warning?"true":"false"%>
});
});
</script>
</head>
<body>
</body>
</html>

View File

@@ -1,75 +0,0 @@
<%@language = "javascript" %>
<%
/* $Revision$
$Id$
File: kpn_kpn.asp
Description: dit is de grote 'wrapper' voor de diverse andere schermen
Parameters: kpn_key
Context:
Note:
*/ %>
<!--#include file="../Shared/common.inc" -->
<!--#include file="../Shared/iface.inc" -->
<%
FCLTHeader.Requires({plugins:["suggest","jQuery"],
js: ["jquery-ui.js"]})
var kpn_key = getQParamInt("key", -1);
%>
<html>
<head>
<%
FCLTHeader.Generate();
%>
<script type="text/javascript" >
<% if (kpn_key == -1) { %>FcltMgr.startEdit(window);<% } %>
function kpnClose(params)
{
<% if (kpn_key == -1)
{ %>
if (params.cancel)
{
FcltMgr.closeDetail(window, params );
return true;
}
if (!params.keepForm)
window.location.href = "kpn_kpn.asp?verynew=1&key=" + params.kpn_key;
<% } else { /* Bestaande kpn bewerkt, switch naar show-mode */ %>
if (params.close)
{
FcltMgr.closeDetail(window, { close: true})
}
if (!params.keepForm && !params.deleted)
$("#kpnFrame")[0].src = "kpn_show_kpn.asp?kpn_key=<%=kpn_key%>";
<% } %>
}
</script>
</head>
<body>
<%
if (kpn_key == -1)
var page="kpn_edit_kpn.asp"; // Maak een nieuw
else
var page="kpn_show_kpn.asp";
page += "?kpn_key="+kpn_key;
IFRAMER("kpnFrame", page, { initHeight: "200px", FcltClose: "kpnClose" } );
var authparams = user.checkAutorisation("WEB_FINMSU", true);
if (authparams && authparams.ALGwritelevel < 9 && kpn_key > -1)
{
page = "kpn_kpncat_list.asp?kpn_key=" + kpn_key;
IFRAMER("kpncatlist", page, { refreshOnClose: true} );
}
%>
</body>
</html>

View File

@@ -1,34 +0,0 @@
<%@ LANGUAGE = JavaScript %>
<% /*
$Revision$
$Id$
File: prs_inzetbaar_delete.asp
*/ %>
<%
var JSON_Result = true;
%>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/json2.js" -->
<%
protectRequest.validateToken();
/***** Get webform parameters *****/
var kpndisc_key = getFParamInt("kpndisc_key");
var message = "";
/***** End get webform parameters *****/
var autfunction = "WEB_FINMSU";
var authparams = user.checkAutorisation(autfunction);
user.auth_required_or_abort(authparams.PRSwritelevel < 9 && authparams.ALGwritelevel < 9);
// Verwijderdatum van de factuur zetten en niet fysiek verwijderen
var sql = "DELETE prs_kostenplaatsdisc"
+ " WHERE prs_kostenplaatsdisc_key = " + kpndisc_key;
oRs = Oracle.Execute(sql);
result = {success: true};
Response.Write(JSON.stringify(result));
%>

View File

@@ -1,118 +0,0 @@
<%@language="javascript"%>
<% /*
$Revision$
$Id$
File: kpn_kpncat_list.asp
Description:
Parameters: -
Context:
Note:
*/
%>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/iface.inc" -->
<!-- #include file="../Shared/resultset_table_v2.inc" -->
<!-- #include file="../Shared/json2.js" -->
<%
FCLTHeader.Requires({ plugins:["jQuery"],
js: []
})
var kpn_key = getQParamInt("kpn_key");
var addurl = "appl/prs/kpn_edit_kpncat.asp?kpn_key=" + kpn_key;
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<script type="text/javascript">
function refreshall(data)
{
if (data.refresh)
window.location.reload();
}
function kpncatAdd()
{
var toUrl = "<%=addurl%>&kpndisc_key=-1";
FcltMgr.openDetail(toUrl, "<%=L("lcl_add")%>");
}
function kpncatEdit(row)
{
var kpndisc_key = row.getAttribute("ROWKEY");
var toUrl = "<%=addurl%>&kpndisc_key="+kpndisc_key+"&mode=viewUpdate";
FcltMgr.openDetail(toUrl, "<%=L("lcl_prs_budget")%>");
}
function kpncatDelete(row)
{
FcltMgr.confirm(L("lcl_kpn_del_txt_kpncat"), function() {
var kpndisc_key = row.getAttribute("ROWKEY");
var data = {
kpndisc_key: kpndisc_key
};
<% protectRequest.dataToken("data"); %>
$.post("kpn_kpncat_delete.asp",
data,
FcltCallbackRefresh,
"json");
});
}
</script>
</head>
<body id="listbody">
<%
var autfunction = 'WEB_FINMSU';
var authparams = user.checkAutorisation(autfunction);
var canAdd = (authparams.ALGwritelevel < 9);
var buttons = [];
if (canAdd)
{
buttons = [{ icon: "page_refresh.png", title: L("lcl_refresh"), action: "FcltMgr.reload()" },
{ icon: "plus.png", title: L("lcl_add"), action: "kpncatAdd()" }];
}
var sql = "SELECT p.prs_kostenplaatsdisc_key"
+ " , p.ins_discipline_key"
+ " , (SELECT CASE"
+ " WHEN sd.ins_srtdiscipline_prefix IS NULL"
+ " THEN ''"
+ " ELSE sd.ins_srtdiscipline_prefix || '-'"
+ " END || "
+ lcl.xsqla('md.ins_discipline_omschrijving', 'md.ins_discipline_key')
+ " FROM ins_tab_discipline md"
+ " , ins_srtdiscipline sd"
+ " WHERE md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)"
+ " AND md.ins_discipline_key = p.ins_discipline_key) categorie"
+ " , p.prs_kostenplaatsdisc_limiet"
+ " FROM prs_kostenplaatsdisc p"
+ " WHERE p.prs_kostenplaats_key = " + kpn_key
+ " ORDER BY categorie";
var rst = new ResultsetTable({ sql: sql,
keyColumn: "prs_kostenplaatsdisc_key",
noPrint:true,
ID: "kpncattable",
buttons: buttons,
title: L("lcl_kpn_kpncat_frame")
});
rst.addColumn(new Column({caption: L("lcl_bes_discipline"), content: "categorie"}));
rst.addColumn(new Column({caption: L("lcl_prs_budget"), content: "prs_kostenplaatsdisc_limiet", datatype: "currency"}));
rst.addAction({ action: "kpncatEdit", caption: L("lcl_edit"), isDefault: true});
if (canAdd)
rst.addAction({ action: "kpncatDelete", caption: L("lcl_delete")});
rst.processResultset();
%>
</body>
</html>

View File

@@ -1,203 +0,0 @@
<% /*
$Revision$
$Id$
File: kpn_list.inc
Description: Show an overview of kostenplaats items in list-form,
which meets with the given requirements
Parameters:
Context: Search action from kpn_kpn_search_list.asp form
Note:
*/ %>
<!-- #include file="../Shared/json2.js" -->
<!-- #include file="../Shared/resultset_table_v2.inc" -->
<!-- #include file="../Shared/getkenmerksql.inc" -->
<%
FCLTHeader.Requires({ plugins:["jQuery"],
js: []
})
function fnrowData(oRs)
{
var key = oRs("prs_kostenplaats_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 kpnEdit(row)
{
var kpnData = eval('(' + row.getAttribute("ROWDATA") + ')');
var url = "appl/prs/kpn_kpn.asp?mode=viewUpdate&key="+kpnData.key;
FcltMgr.openDetail(url, "<%=L("lcl_prs_dept_kosten")%>" + ' ' + kpnData.key, {callback: refreshall});
}
function doDelete(rowArray, isMulti)
{
FcltMgr.confirm(L("lcl_kpn_del_txt_kostenplaats"), { autoconfirm: isMulti }, function() {
var kpnKeyString = getKeyString(rowArray);
var data = {
key: kpnKeyString,
level: "KPN"
};
<% protectRequest.dataToken("data"); %>
$.post("prs_delete.asp",
data,
FcltCallbackRefresh,
"json");
});
}
</script>
<%
function kpn_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 name = params.name;
var budgeth_key = params.budgeth_key;
var kstplgr_key = params.kstplgr_key;
%>
<html>
<head>
<% FCLTHeader.Generate({outputmode:outputmode}) %>
</head>
<body id="listbody">
<%
var sqln = "SELECT k.prs_kostenplaats_key, "
+ " k.prs_kostenplaats_nr, "
+ " k.prs_kostenplaats_omschrijving, "
+ S("prs_pers_string") + " naam,"
+ " k.prs_kostenplaats_module, "
+ " kpg.prs_kostenplaatsgrp_oms, "
+ " p.prs_perslid_verwijder,"
+ " k.prs_kostenplaats_eind"
+ " FROM prs_kostenplaats k, "
+ " prs_perslid p, "
+ " prs_kostenplaatsgrp kpg "
+ " WHERE p.prs_perslid_key(+) = k.prs_perslid_key "
+ " AND k.prs_kostenplaats_verwijder IS NULL "
if (authparams && authparams.PRSwritelevel == 0)
{
sqln += " AND p.prs_afdeling_key IN"
+ " (SELECT a.prs_afdeling_key FROM prs_v_afdeling a "
+ " WHERE a.prs_bedrijf_key = " + user.afdeling().prs_bedrijf_key() + ")"
}
if (descr)
{
sqln += " AND UPPER(k.prs_kostenplaats_omschrijving) LIKE " + safe.quoted_sql_wild("%" + descr + "%");
}
if (name)
{
sqln += " AND UPPER(k.prs_kostenplaats_nr) LIKE " + safe.quoted_sql_wild("%" + name + "%");
}
if (budgeth_key)
{
sqln += " AND k.prs_perslid_key = " + budgeth_key;
}
if (kstplgr_key)
{
sqln += " AND k.prs_kostenplaatsgrp_key = " + kstplgr_key;
}
if (!(authparams && authparams.ALGreadlevel < 9 && authparams.ALGwritelevel < 9)) // Geen WEB_FINMSU. Dan ben ik budgedhouder en mag ik alleen mijn kostenplaatsen zien.
// Budgethouder van kostenplaats UNION Budgethouder van kostenplaatsgroep.
sqln = sqln
+ " AND kpg.prs_kostenplaatsgrp_key(+) = k.prs_kostenplaatsgrp_key"
+ " AND k.prs_perslid_key = " + user_key
+ " UNION "
+ sqln
+ " AND kpg.prs_kostenplaatsgrp_key = k.prs_kostenplaatsgrp_key"
+ " AND kpg.prs_perslid_key = " + user_key;
else
sqln += " AND kpg.prs_kostenplaatsgrp_key(+) = k.prs_kostenplaatsgrp_key"
sqln += " ORDER BY 2"
+ " , 3"
+ " , 4"
+ " , 5"
var addurl = "appl/prs/kpn_kpn.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;
}
function formatType (oRs)
{
switch(oRs("prs_kostenplaats_module").Value)
{
case 'PRS':
return L("lcl_prs_kosttype_prs");
break;
case 'PRJ':
return L("lcl_prs_kosttype_prj");
break;
case 'ALG':
return L("lcl_prs_kosttype_alg");
break;
otherwise
return '??'
}
}
var rst = new ResultsetTable({ sql: sqln,
keyColumn: "prs_kostenplaats_key",
ID: "prstable",
showAll: showall,
rowData: fnrowData,
outputmode: outputmode,
filterParams: params,
buttons: addButton
});
rst.addColumn(new Column({caption: L("lcl_prs_kostcode"), content: "prs_kostenplaats_nr"}));
rst.addColumn(new Column({caption: L("lcl_prs_descr"), content: "prs_kostenplaats_omschrijving", hasActions: true}));
rst.addColumn(new Column({caption: L("lcl_prs_budgethouder"), content: formatBudgethouder}));
rst.addColumn(new Column({caption: L("lcl_prs_kostenpl_group"), content: "prs_kostenplaatsgrp_oms"}));
rst.addColumn(new Column({caption: L("lcl_prs_kosttype"), content: formatType}));
rst.addColumn(new Column({caption: L("lcl_end_date"), content: "prs_kostenplaats_eind"}));
rst.addAction({ action: "kpnEdit", caption: L("lcl_edit"), isDefault: true});
if (canAdd) // Als ik mag toevoegen mag ik ook verwijderen
rst.addAction({ action: "doDelete", caption: L("lcl_delete"), multi: true, multiOnce: true});
var cnt = rst.processResultset();
%>
</body>
</html>
<%}%>

View File

@@ -1,98 +0,0 @@
<%@ LANGUAGE = JavaScript %>
<% /*
$Revision$
$Id$
File: kpn_search.asp
Status: 95%
Description: Toont zoekvelden voor lijst van kostenplaatsen
Parameters:
Context: Vanuit menu
Note:
*/ %>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/iface.inc" -->
<!-- #include file="../Shared/selector.inc" -->
<%
FCLTHeader.Requires({ plugins:["jQuery"],
js: []
});
var prs_key = getQParamInt("prs_key", -1);
var authparams = user.checkAutorisation("WEB_FINMSU", true);
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
</head>
<body id="searchbody">
<div id="search">
<form name="u2" target="workFrame" action="kpn_search_list.asp" method="get">
<% BLOCK_START("searchtable", L("lcl_filterblok"));%>
<tr>
<td class="label"><label for="descr"><%=L("lcl_prs_descr")%>:</label></td>
<td><input type="text" class="fldsrch" name="descr"></td>
</tr>
<tr>
<td class="label"><label for="descr"><%=L("lcl_prs_dept_name")%>:</label></td>
<td><input type="text" class="fldsrch" name="name"></td>
</tr>
<% sql = "SELECT DISTINCT p.prs_perslid_key"
+ " , " + S("prs_pers_string")
+ " FROM prs_kostenplaats pk"
+ " , prs_perslid p"
+ " WHERE pk.prs_perslid_key = p.prs_perslid_key"
+ " AND prs_kostenplaats_verwijder IS NULL"
+ (!(authparams && authparams.ALGreadlevel)
? " AND pk.prs_perslid_key = " + user_key
: "")
+ " UNION "
+ "SELECT DISTINCT p.prs_perslid_key"
+ " , " + S("prs_pers_string")
+ " FROM prs_kostenplaats pk"
+ " , prs_kostenplaatsgrp pkg"
+ " , prs_perslid p"
+ " WHERE pk.prs_perslid_key = p.prs_perslid_key"
+ " AND prs_kostenplaats_verwijder IS NULL"
+ " AND pk.prs_kostenplaatsgrp_key = pkg.prs_kostenplaatsgrp_key"
+ (!(authparams && authparams.ALGreadlevel)
? " AND pkg.prs_perslid_key = " + user_key
: "")
+ " ORDER BY 2"
FCLTselector("budgeth", sql,
{ label: L("lcl_prs_budgethouder"),
emptyOption: "",
whenEmpty: L("lcl_search_generic"),
selectjustone: !(authparams && authparams.ALGreadlevel)
});
sql = "SELECT prs_kostenplaatsgrp_key"
+ " , prs_kostenplaatsgrp_oms"
+ " FROM prs_kostenplaatsgrp"
+ " ORDER BY 2 ";
FCLTselector("kstplgr", sql,
{ label: L("lcl_prs_kostenpl_group"),
emptyOption: "",
whenEmpty: L("lcl_search_generic")
});
%>
<% 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>

View File

@@ -1,40 +0,0 @@
<%@language = "javascript" %>
<% /*
$Revision$
$Id$
File: kpn_search_list.asp
Description: Vangt de parameters van kpn_search op en verwerkt die in een lijst
Parameters:
Context:
Note:
*/ %>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="kpn_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 = getQParam("showall", 0) == 1;
var descr = getQParam("descr", "");
var name = getQParam("name", "");
var budgeth_key = getQParamInt("budgeth", -1);
var kstplgr_key = getQParamInt("kstplgr", -1);
kpn_list ( "*",
{ outputmode: outputmode,
showall: showall,
descr: descr,
name: name,
budgeth_key: (budgeth_key != -1? budgeth_key : null),
kstplgr_key: (kstplgr_key != -1? kstplgr_key : null)
}
);
%>

View File

@@ -1,226 +0,0 @@
<%@language = "javascript" %>
<%
/* $Revision$
$Id$
File: kpn_show_kpn.asp
Description: displays the selected kostenplaats. This screen (might) allow entry to the edit screen and allows deleting
Parameters: kpn_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/kostenplaatsselector.inc" -->
<!-- #include file="../Shared/audithistory.inc" -->
<%
FCLTHeader.Requires({plugins:["suggest", "jQuery"]})
var kpn_key = getQParamInt("kpn_key", "-1");
var sql = "SELECT k.prs_kostenplaats_key"
+ " , k.prs_kostenplaats_nr"
+ " , k.prs_kostenplaats_omschrijving"
+ " , k.prs_perslid_key kpn_prs_key"
+ " , k.prs_kostenplaats_module"
+ " , k.prs_kostenplaatsgrp_key"
+ " , k.prs_kostenplaats_eind"
+ " , k.prs_kostenplaats_limiet"
+ " , COALESCE(kpg.prs_kostenplaatsgrp_limperiode, k.prs_kostenplaats_limietperiode) limietperiode"
+ " , k.prs_kostenplaats_extern"
+ " , k.prs_kostenplaats_fiat"
+ " , k.prs_kostenplaats_verwijder"
+ " , kpg.prs_kostenplaatsgrp_limiet"
+ " , kpg.prs_perslid_key kpngrp_prs_key"
+ " FROM prs_kostenplaats k"
+ " , prs_kostenplaatsgrp kpg"
+ " WHERE kpg.prs_kostenplaatsgrp_key(+) = k.prs_kostenplaatsgrp_key"
+ " AND k.prs_kostenplaats_key = " + kpn_key
oRsMes = Oracle.Execute(sql);
if (!oRsMes.eof)
{
var kpn_nr = oRsMes("prs_kostenplaats_nr").Value;
var kpn_oms = oRsMes("prs_kostenplaats_omschrijving").Value;
var kpn_prs_key = oRsMes("kpn_prs_key").Value? oRsMes("kpn_prs_key").Value : -1;
var kpn_module = oRsMes("prs_kostenplaats_module").Value;
var kpn_grpkey = oRsMes("prs_kostenplaatsgrp_key").Value;
var kpn_eind = oRsMes("prs_kostenplaats_eind").Value!=null? new Date(oRsMes("prs_kostenplaats_eind").Value) : null;
var kpn_limiet = oRsMes("prs_kostenplaats_limiet").Value;
var kpn_limietperiode = oRsMes("limietperiode").Value? oRsMes("limietperiode").Value : 0;
var kpn_extern = oRsMes("prs_kostenplaats_extern").Value? oRsMes("prs_kostenplaats_extern").Value : 0;
var kpn_fiat = oRsMes("prs_kostenplaats_fiat").Value == 1;
var kpn_verwijder = oRsMes("prs_kostenplaats_verwijder").Value;
var kpngrp_limiet = oRsMes("prs_kostenplaatsgrp_limiet").Value;
var kpngrp_prs_key = oRsMes("kpngrp_prs_key").Value? oRsMes("kpngrp_prs_key").Value : -1;
oRsMes.Close();
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 = " + kpn_grpkey;
oRs = Oracle.Execute(sql);
var gebruikt_budget = oRs("gebruikt_budget").Value;
}
else
{
Response.write("internal error or message deleted");
Response.End;
}
var authparams = user.checkAutorisation("WEB_FINMSU", true);
var canShow = ((authparams && authparams.ALGreadlevel < 9) ||
(S("prs_restrict_kpedit") == 1 && (kpn_prs_key == user_key || kpngrp_prs_key == user_key))) // Alleen eigen kp/kpg wijzigen
var canChange = ((authparams && authparams.ALGwritelevel < 9) ||
(S("prs_restrict_kpedit") == 1 && (kpn_prs_key == user_key || kpngrp_prs_key == user_key))) // Alleen eigen kp/kpg wijzigen
var canDelete = (authparams && authparams.ALGwritelevel < 9)
user.auth_required_or_abort(canShow);
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<script type="text/javascript" >
FcltMgr.setTitle("<%=L("lcl_prs_kosten") + ' ' + safe.jsstring(kpn_nr)%>", {hot:false});
function kpn_change()
{
if (FcltMgr.startEdit(window))
window.location.href = "kpn_edit_kpn.asp?kpn_key=<%=kpn_key%>"
}
function kpn_delete()
{
FcltMgr.confirm(L("lcl_kpn_del_txt_kostenplaats"), function() {
var kpn_key = <%=kpn_key%>;
var data = {
key: <%=kpn_key%>,
level: "KPN"
};
<% protectRequest.dataToken("data"); %>
$.post("prs_delete.asp",
data,
FcltCallbackClose,
"json");
});
}
</script>
</head>
<body id="showbody">
<%
var buttons = [];
if (kpn_verwijder == null)
{
// Wijzigen van de kostenplaats(groep)? Setting prs_restrict_kpedit {0=volgens autorisatie (default) | 1=alleen eigen kp/kpg wijzigen}
if (canChange)
buttons.push({title: L("lcl_change"), action:"kpn_change()", icon: "wijzigen.png" });
if (canDelete)
buttons.push({title: L("lcl_delete"), action:"kpn_delete()", icon: "delete.png" });
}
if (kpn_key > 0)
{
var historytitle = kpn_nr;
// Als er audit history is, dan voegt de functie een extra button aan het meegegeven object buttons toe.
AUDIT_HISTORY_BUTTON(buttons,
{ tablekeyarray: [kpn_key],
tablename: "prs_kostenplaats",
id_veld: "prs_kostenplaats_nr",
id_oms: kpn_nr,
historytitle: historytitle });
}
IFRAMER_HEADER(L("lcl_kpn_kpn_frame"), buttons);
if (kpn_verwijder != null)
{
%> <div class="prs_deleted"><%=L("lcl_record_is_deleted")%></div><%
}
%>
<div id="show">
<form name=u2 onSubmit="return false;">
<% // if (alg.canWriteRuimte(room_key, authparams.mALGwritelevel)) TODO
BLOCK_START("kpnMan", L("lcl_prs_general_info"));
ROFIELDTR("fld", L("lcl_prs_dept_name"), kpn_nr, params);
sql = "SELECT 'ALG' modulekey, "
+ " LCL.L('lcl_prs_kosttype_alg') omschrijving "
+ " FROM DUAL "
+ "UNION ALL "
+ "SELECT 'PRJ' modulekey, "
+ " LCL.L('lcl_prs_kosttype_prj') omschrijving "
+ " FROM DUAL "
+ "UNION ALL "
+ "SELECT 'PRS' modulekey, "
+ " LCL.L('lcl_prs_kosttype_prs') omschrijving "
+ " FROM DUAL "
+ "ORDER BY 1 "
FCLTselector("kpn_module", sql,
{ label: L("lcl_prs_type"),
initKey: kpn_module,
emptyOption: "",
readonly: true });
ROFIELDTR("fld",
L("lcl_prs_descr"),
kpn_oms,
{translate: { fld: "prs_kostenplaats_omschrijving", key : kpn_key}, suppressEmpty: true}
);
FCLTpersoonselector("prs_key", // requestor
"prs_key",
{ perslidKey: kpn_prs_key,
label: L("lcl_prs_budgethouder"),
moreinfo: true,
readonly: true,
suppressEmpty: true });
var params = { infoPointer: { Url: "appl/shared/status_info.asp?kpn_key=" + kpn_key,
Title: L("lcl_status_details") + " " + kpn_key
}
}
sql = "SELECT prs_kostenplaatsgrp_key, "
+ " prs_kostenplaatsgrp_oms "
+ " FROM prs_kostenplaatsgrp kpg "
+ "ORDER BY UPPER (prs_kostenplaatsgrp_oms) "
FCLTselector("kpn_grpkey",
sql,
{ label: L("lcl_prs_kostenpl_group"),
initKey: kpn_grpkey,
emptyOption: "",
suppressEmpty: true,
readonly: true });
ROCHECKBOXTR("fldcheck", L("lcl_prs_kpnextern"), kpn_extern);
ROCHECKBOXTR("fldcheck", L("lcl_prs_kpnfiat"), kpn_fiat);
ROFIELDTR("flddate", L("lcl_end_date"), toDateString(kpn_eind), {suppressEmpty: true});
ROFIELDTR("fldkpnlimiet", L("lcl_prs_budget") + "&nbsp;" + L("lcl_valutasign"), kpn_limiet, {suppressEmpty: true, datatype: "currency"});
sql = "SELECT 0, '' FROM DUAL"
+ " UNION SELECT 1, " + safe.quoted_sql(L("lcl_prs_per_month")) + " FROM DUAL"
+ " UNION SELECT 2, " + safe.quoted_sql(L("lcl_prs_annual")) + " FROM DUAL";
FCLTselector("kpn_limietperiode", sql,
{ label: L("lcl_prs_budgetperiode"),
initKey: kpn_limietperiode,
readonly: true,
suppressEmpty: true });
BLOCK_END();
if ( kpngrp_limiet || kpngrp_limiet || gebruikt_budget) {
BLOCK_START("kpnGrp", L("lcl_prs_budgettering"));
ROFIELDTR("fld", L("lcl_prs_budget") + "&nbsp;" + L("lcl_prs_kostenpl_group") + "&nbsp;" + L("lcl_valutasign"), kpngrp_limiet, {suppressEmpty: true, datatype: "currency"});
ROFIELDTR("fldfreebudget" + (gebruikt_budget > kpngrp_limiet? " hot" : ""), L("lcl_prs_afwijking_budget") + "&nbsp;" + L("lcl_valutasign"), (kpngrp_limiet - gebruikt_budget), {suppressEmpty: true, datatype: "currency"});
BLOCK_END();
}
IFACE.FORM_END();
%>
</form>
</div>
</body>
</html>

View File

@@ -285,48 +285,6 @@ prs =
return sql;
},
exceeds_budgetkps: function(kpg_key, bedrag)
{
sql = "SELECT SUM(k.prs_kostenplaats_limiet) totaal_kp_budget"
+ " FROM prs_kostenplaatsgrp kpg"
+ " , prs_kostenplaats k"
+ " WHERE kpg.prs_kostenplaatsgrp_key = k.prs_kostenplaatsgrp_key"
+ " AND kpg.prs_kostenplaatsgrp_key = " + kpg_key;
oRs = Oracle.Execute(sql);
var totaal_kp_budget = oRs("totaal_kp_budget").Value || 0;
oRs.Close();
return bedrag < totaal_kp_budget;
},
exceeds_budgetkpg: function(kpg_key, kp_key, bedrag)
{
var sql = "SELECT kpg.prs_kostenplaatsgrp_limiet kpg_limiet"
+ " FROM prs_kostenplaats k"
+ " , prs_kostenplaatsgrp kpg"
+ " WHERE kpg.prs_kostenplaatsgrp_key(+) = k.prs_kostenplaatsgrp_key"
+ " AND k.prs_kostenplaatsgrp_key = " + kpg_key;
oRs = Oracle.Execute(sql);
var kpg_limiet;
if (!oRs.eof)
kpg_limiet = oRs("kpg_limiet").Value;
if (kpg_limiet == null) return false; // Geen kostenplaatsgroep limiet. Dus altijd goed.
sql = "SELECT SUM(k.prs_kostenplaats_limiet) totaal_kp_budget"
+ " FROM prs_kostenplaatsgrp kpg"
+ " , prs_kostenplaats k"
+ " WHERE kpg.prs_kostenplaatsgrp_key(+) = k.prs_kostenplaatsgrp_key"
+ (kp_key > 0
? " AND k.prs_kostenplaats_key <> " + kp_key
: "")
+ " AND kpg.prs_kostenplaatsgrp_key = " + kpg_key;
oRs = Oracle.Execute(sql);
var totaal_kp_budget = oRs("totaal_kp_budget").Value || 0;
oRs.Close();
return kpg_limiet < (totaal_kp_budget + bedrag);
},
prs_bedrijfinfo: function _prs_bedrijfinfo(prs_bedrijf_key)
{
var sql = "SELECT b.prs_bedrijf_key"

View File

@@ -34,7 +34,7 @@ function prs_edit(row)
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);
FcltMgr.openDetail("appl/mgt/prs_kostenplaats.asp?mode=show&id=" + item_key, L("lcl_shared_account") + " " + prsData.item);
else if (prsData.messagecode == "PRS_BUDGETHOUDER_GROEP")
FcltMgr.openModalDetail("../mgt/prs_kostenplaatsgrp.asp?mode=edit&id=" + item_key);
break;

View File

@@ -328,7 +328,7 @@ var prs_user = new Perslid(prs_key);
if (kpl_key > 0)
{
var params_kpl = { suppressEmpty: true
, infoPointer: { Url: "appl/prs/kpn_kpn.asp?key=" + kpl_key
, infoPointer: { Url: "appl/mgt/prs_kostenplaats.asp?mode=show&id=" + kpl_key
}
};
ROFIELDTR("fld", L("lcl_account"), kpl, params_kpl);