<%@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. */ %> <% FCLTHeader.Requires(); %>
<% // 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"); %>
<% // Als res_rsv_ruimte_cat_appr 0 is hoeft er niet gefiatteerd te worden. var fsql = "SELECT res_rsv_ruimte_cat_appr" + " FROM res_rsv_ruimte rrr" + " WHERE res_rsv_ruimte_key = " + rsv_ruimte_key; var oRs = Oracle.Execute(fsql); var hasFiat = oRs("res_rsv_ruimte_cat_appr").Value == 1; oRs.Close(); 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" + " , NULL res_rsv_artikel_approved" + " FROM res_v_aanwezigrsv_deel rrd" + " , res_v_aanwezigrsv_ruimte rrr" + " , res_deel rd" + " 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 rrd.res_rsv_ruimte_key = " + rsv_ruimte_key + " UNION ALL " + "SELECT 'C' AS res_type" + " , LTRIM ( CASE WHEN ra.res_artikel_vrije_omschrijving = 1" + " THEN rra.res_rsv_artikel_omschrijving" + " ELSE " + lcl.xsql("ra.res_artikel_omschrijving", "ra.res_artikel_key") + " END)" + " || 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" + " , rra.res_rsv_artikel_afhalen 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" + " , rra.res_rsv_artikel_approved" + " FROM res_v_aanwezigrsv_artikel rra" + " , res_v_aanwezigrsv_ruimte rrr" + " , res_artikel ra" + " , res_discipline d" + " , res_disc_params dp" + " 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 + " AND ra.res_discipline_key = d.ins_discipline_key" + " AND d.ins_discipline_key = dp.res_ins_discipline_key" + " ORDER BY res_type DESC" + " , res_voorziening"; /********************************** * Callback functies ResultsetTable *********************************/ function fncolCompleteRes(oRs) { if (oRs("res_status_bo_key").Value >= 5) return ""; else return ""; } function fnRowClassCat(oRs) { if (oRs("dirtylevel").Value > 0) return "res_fatal"; else return "xx"; } function fncolFiat(oRs) { // Als res_rsv_ruimte_cat_appr 0 is, dan wordt deze functie niet aangeroepen. Dus de controle "res_rsv_ruimte_cat_appr == 0" hoeft hier niet uitgevoerd te worden. // Als er voor een catalogus niet met een drempelwaarde wordt gewerkt, dan wordt er vooralsnog een blokje getoond met dezelfde kleur als de andere cateringregels van die reservering. var res_type = oRs("res_type").Value; if (res_type != "C") return ""; var ttl; var icon; var displ = ""; var rsv_art_key = oRs("keycolumn").Value; // rsv_ruimte_key var rsv_art_appr = oRs("res_rsv_artikel_approved").Value; switch (rsv_art_appr) { case 0: ttl = L("lcl_res_ter_fiat"); icon = "fa-exclamation-circle"; break; case 1: ttl = L("lcl_res_goedgekeurd"); icon = "fa-check-circle"; break; case 2: ttl = L("lcl_res_afgewezen"); icon = "fa-times-circle"; break; } var fiatimg = "" + I(icon+" fa-lg", {"fastyle":"fas"}) + ""; displ = "
" + fiatimg + "
"; return displ; } 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 (hasFiat) rst.addColumn(new Column({caption: I("fa-circle"), content: fncolFiat, colName: "fncolFlags", colText: L("lcl_res_fiatstatus"), align: "center"})); if (urole == "bo") { var captionDone = '' 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", datatype: "number"})); 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(); %>
<% ASPPAGE_END(); %>