135 lines
5.6 KiB
Plaintext
135 lines
5.6 KiB
Plaintext
<%@language = "javascript" %>
|
|
<% /*
|
|
$Revision$
|
|
$Id$
|
|
|
|
File: objects_list_tiny.asp
|
|
Description: Inline lijstje met voorzieningen van een enkele deelreservering
|
|
Parameters: rsv_ruimte_key
|
|
urole
|
|
|
|
Note: 5.00.6: 'afmeld' functionaliteit verwijderd omdat het toch niet werkte en
|
|
er niemand heeft geklaagd.
|
|
*/ %>
|
|
|
|
<!-- #include file="../Shared/common.inc" -->
|
|
<!-- #include file="../Shared/resultset_table_v2.inc" -->
|
|
<!-- #include file="./res.inc" -->
|
|
|
|
<%
|
|
FCLTHeader.Requires();
|
|
%>
|
|
|
|
<html>
|
|
<head>
|
|
<%
|
|
// niet doen bij tiny FCLTHeader.Generate();
|
|
|
|
// Deze functie toont een simpele tabel met de gereserveerde voorzieningen bij een reservering
|
|
var rsv_ruimte_key = getQParamInt("rsv_ruimte_key");
|
|
res.res_set_dialect(rsv_ruimte_key);
|
|
var urole = getQParamSafe("urole");
|
|
%>
|
|
</head>
|
|
|
|
|
|
<body id="listbody">
|
|
<%
|
|
sql = "SELECT 'V' AS res_type"
|
|
+ ", " + lcl.xsql('rd.res_deel_omschrijving','rd.res_deel_key')
|
|
+ " || CASE"
|
|
+ " WHEN (rd.res_deel_vervaldatum IS NULL OR rd.res_deel_vervaldatum > SYSDATE) "
|
|
+ " THEN ''"
|
|
+ " ELSE " + safe.quoted_sql(L("lcl_inactive_data_suffix")) // Standaard suffix achter de omschrijving indien inactief artikel
|
|
+ " END"
|
|
+ " || CASE "
|
|
+ " WHEN "+ lcl.xsql('rd.res_deel_eenheid','rd.res_deel_key') + " IS NULL"
|
|
+ " THEN ''"
|
|
+ " ELSE ' (' || "+ lcl.xsql('rd.res_deel_eenheid','rd.res_deel_key') + " || ')'"
|
|
+ " END AS res_voorziening"
|
|
+ ", TO_NUMBER (NULL) AS aantal"
|
|
+ ", rrd.res_rsv_deel_van AS res_reservering_van"
|
|
+ ", rrd.res_rsv_deel_tot AS res_reservering_tot"
|
|
+ ", rrd.res_status_bo_key"
|
|
+ ", rrd.res_rsv_deel_key AS res_item_key"
|
|
+ ", rrd.res_rsv_deel_key keycolumn"
|
|
+ ", rrd.res_rsv_deel_dirtlevel dirtylevel"
|
|
+ " FROM res_v_aanwezigrsv_deel rrd"
|
|
+ ", res_v_aanwezigrsv_ruimte rrr"
|
|
+ ", res_deel rd"
|
|
+ ", ins_deel id"
|
|
+ " WHERE rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key"
|
|
+ " AND rrd.res_deel_key = rd.res_deel_key"
|
|
+ (S("vis_parking_key") != -1? " AND rd.res_discipline_key != " + S("vis_parking_key") : "")
|
|
+ " AND rd.res_ins_deel_key = id.ins_deel_key"
|
|
+ " AND rrd.res_rsv_ruimte_key = " + rsv_ruimte_key
|
|
+ " UNION ALL"
|
|
+ " SELECT 'C' AS res_type"
|
|
+ ", LTRIM (" + lcl.xsql('ra.res_artikel_omschrijving','ra.res_artikel_key') + ")"
|
|
+ " || CASE"
|
|
+ " WHEN " + lcl.xsql('ra.res_artikel_eenheid','ra.res_artikel_key') + " IS NULL"
|
|
+ " THEN ''"
|
|
+ " ELSE ' (' || "+ lcl.xsql('ra.res_artikel_eenheid','ra.res_artikel_key') + " || ')'"
|
|
+ " END"
|
|
+ " || CASE"
|
|
+ " WHEN (res_artikel_ingangsdatum IS NULL OR res_artikel_ingangsdatum <= SYSDATE) AND (res_artikel_vervaldatum IS NULL OR res_artikel_vervaldatum > SYSDATE) "
|
|
+ " THEN ''"
|
|
+ " ELSE " + safe.quoted_sql(L("lcl_inactive_data_suffix")) // Standaard suffix achter de omschrijving indien inactief artikel
|
|
+ " END AS res_voorziening"
|
|
+ ", rra.res_rsv_artikel_aantal AS aantal"
|
|
+ ", rra.res_rsv_artikel_levering AS res_reservering_van"
|
|
+ ", null AS res_reservering_tot"
|
|
+ ", rra.res_status_bo_key"
|
|
+ ", res_rsv_artikel_key AS res_item_key"
|
|
+ ", rra.res_rsv_artikel_key keycolumn"
|
|
+ ", rra.res_rsv_artikel_dirtlevel dirtylevel"
|
|
+ " FROM res_v_aanwezigrsv_artikel rra"
|
|
+ ", res_v_aanwezigrsv_ruimte rrr"
|
|
+ ", res_artikel ra"
|
|
+ " WHERE rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key"
|
|
+ " AND rra.res_artikel_key = ra.res_artikel_key"
|
|
+ " AND rra.res_rsv_ruimte_key = " + rsv_ruimte_key
|
|
+ " ORDER BY res_type DESC, res_voorziening";
|
|
|
|
/**********************************
|
|
* Callback functies ResultsetTable
|
|
*********************************/
|
|
|
|
function fncolCompleteRes(oRs)
|
|
{
|
|
if (oRs("res_status_bo_key").value >= 5)
|
|
return "<img src='../Pictures/res_ok.gif'>";
|
|
else
|
|
return "";
|
|
}
|
|
|
|
function fnRowClassCat(oRs)
|
|
{
|
|
if (oRs("dirtylevel").value == 1)
|
|
return "res_fatal";
|
|
else
|
|
return "xx";
|
|
}
|
|
|
|
var rst = new ResultsetTable({ keyColumn: "keycolumn",
|
|
sql: sql,
|
|
ID: "tinytable",
|
|
rowClass: fnRowClassCat,
|
|
inline: true // Zorgt ervoor dat printerfunctionalitit wordt uitgschakeld en samenvatting in de kopregel niet wordt overschreven
|
|
});
|
|
|
|
if (urole == "bo")
|
|
{
|
|
var captionDone = '<img id="check" src="../Pictures/res_ok.gif">'
|
|
rst.addColumn(new Column({caption: "", content: fncolCompleteRes}));
|
|
}
|
|
rst.addColumn(new Column({caption: L("lcl_item"), content: "res_voorziening"}));
|
|
rst.addColumn(new Column({caption: L("lcl_res_aantalvoorziening"), content: "aantal"}));
|
|
rst.addColumn(new Column({caption: L("lcl_res_starttime"), content: "res_reservering_van", datatype: "time"}));
|
|
rst.addColumn(new Column({caption: L("lcl_res_endtime"), content: "res_reservering_tot", datatype: "time"}));
|
|
|
|
var count = rst.processResultset();
|
|
%>
|
|
</body>
|
|
</html>
|