<%@language = "javascript" %>
<% /*
    $Revision$
    $Id$

    File:               pda/catering.asp
    Description:        Add/wijzig catering (Mobile version)
    Parameters:

    Note:

*/ %>

<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../res/res.inc" -->
<!-- #include file="./resultset_table.inc" -->
<!-- #include file="./mobile.inc" -->
<!-- #include file="./iface.inc" -->

<%
FCLTHeader.Requires({ js: [rooturl+"/appl/res/res_plan.js"] });
var qrc = getQParamInt("qrc", 0) != 0;
var urole = getQParamSafe("urole", "fe");
var met = getQParam("met", "cat");
var isLooplijst = getQParamInt("looplijst", 0) == 1;
var rsv_ruimte_key = getQParamInt("rsv_ruimte_key", -1);
var res_artikel_key = getQParamInt("artikel_key", -1);
var res_deel_key = getQParamInt("deel_key", -1);
var tijdstip = getQParamDate("tijdstip", null);
var isnew = getQParamInt("isnew", 0);

var met_obj = (met == "obj" || met == "ops");
var met_cat = (met == "cat");
var met_ops = (met == "ops")
var isReservering = false;

if (rsv_ruimte_key != -1)
{
    // Haal de benodigde informatie uit de reservering.
    var rsv = res.res_rsv_ruimte_info(rsv_ruimte_key);
    var ruimte_van = rsv.ruimte_van;
    isReservering = true;
}
else
{
    var rsv = { rsv_ruimte_key: -1
              , act_key: -1
              };
}

// TODO: autorisatie controle
var subject = (rsv_ruimte_key > 0 ? L("lcl_res_reservation") + " " + rsv.reservering_key + "/" + rsv.ruimte_volgnr : "");
if (met_obj) { subject += " " + L("lcl_res_daglijst_voorzieningen") };
if (met_cat) { subject += " " + L("lcl_res_daglijst_catering") };
if (met_ops) { subject += " " + L("lcl_res_daglijst_opstelling") };

%>
<html>
  <head>
<%  FCLTMHeader.Generate({title:  subject }); %>

    <script type="text/javascript">
      async function cat_submit()
      {
        if (!await validateForm("catering"))
          return false;

<%      if (isLooplijst) { %>
          var submit_url = "catering_looplijst_save.asp?urole=<%=urole%>&rsv_ruimte_key=<%=rsv_ruimte_key%>";
<%      } else { %>
          var submit_url = $("form[name=catering]")[0].action
                       + (<%=rsv_ruimte_key%> != -1 ? "&rsv_ruimte_key=<%=rsv_ruimte_key%>" : "");
<%      } %>
        $.post( submit_url
              , $("form[name=catering]").serialize()
              , McltCallbackAndThen(cat_submit_callback)
              , "json");
        return true;
      }

      function cat_submit_callback(json)
      {
        if (<%=isnew%> == 0)
            window.history.back(1);
        else
            window.location.href = "<%=rooturl%>/appl/pda/reservering.asp"+ "?rsv_ruimte_key=<%=rsv_ruimte_key%>";
      }

      function cat_cancel()
      {
        window.history.back(1);
      }

      async function cat_afmeld()
      {
        if (!await validateForm("catering"))
          return false;

        FcltMgr.confirm(L("lcl_res_afmeld"), function() {
          var data = { partres_key: <%=rsv_ruimte_key%>
                     , part_type: "R"
                     , group: 1
                  }
          protectRequest.dataToken(data);
          $.post( "../res/res_close.asp"
                , data
                , McltCallbackAndThen(cat_submit_callback)
                , "json");
        });
        return true;
      }

      function calcTotal(art_key,art_id)
      {
        var id = art_key +"_"+ art_id;
        var aantal = parseInt($("#inpb_c_"+id).val());
        var prijs  = parseFloat($("#inpbp_c_"+id).val().replace(",","."));
        var totaal = aantal * prijs;
        $("#inpbtp_c_"+id).val(totaal.toFixed(2));
      }

<%  // Er is een artikel_key meegegeven die men direct in beeld wil hebben.
    // De betreffende lijst moet daarvoor worden geopend, en vervolgens scrollen
    // naar het artikel.
    var artikel_id = "";
    if (res_artikel_key > 0)
    {
        artikel_id = "inpb_c_" + res_artikel_key + "_";
        if (isnew == 0)
        {
            var sql = "SELECT res_rsv_artikel_key"
                    + "  FROM res_rsv_artikel"
                    + " WHERE res_rsv_ruimte_key = " + rsv_ruimte_key
                    + "   AND res_artikel_key = " + res_artikel_key;
            var oRs = Oracle.Execute(sql);
            if (!oRs.eof)
                artikel_id += oRs("res_rsv_artikel_key").Value;
            else
                artikel_id += "null";
            oRs.Close();
        }
        else
        {
            artikel_id += "null";
        }
%>
        $(function()
            {
                var art_id = "<%=artikel_id%>";
                var search_artikel = $("#"+art_id).closest("ul").parent();
                $(search_artikel).removeClass('ui-collapsible-content-collapsed');

                if ($("#"+art_id).closest("li").prev().length > 0)
                {
                    $('html, body, form, h3').animate({ scrollTop: $("#"+art_id).closest("li").prev().offset().top });
                }
                $("#"+art_id).focus();
            });
<%
    }
%>
    </script>
  </head>
  <body>
<%
  function catdisc_sql(rsv_key, act_key, res_art_key, res_van, res_tot)
  {
      var sql = "SELECT d.ins_discipline_key"
              + "     , d.ins_discipline_omschrijving ins_discipline_omschrijving"
              + "     , d.ins_discipline_kpnverplicht"
              + "     , rd.res_disc_params_min_deelnmrs"
              + "     , rd.res_disc_params_min_duur"
              + "     , 0                           inArrangement"
              + "  FROM res_v_aanwezigdiscipline d"
              + "     , res_disc_params rd"
              + " WHERE rd.res_ins_discipline_key = d.ins_discipline_key"
              + "   AND d.ins_discipline_key IN"
              + "       (SELECT g.ins_discipline_key"
              + "          FROM fac_v_webgebruiker g"
              + "             , fac_functie f"
              + "         WHERE g.fac_functie_key = f.fac_functie_key"
              + ( res_art_key > 0
                ? ""
                : "         AND f.fac_functie_code = 'WEB_RESUSE'"
                )
              + "           AND g.prs_perslid_key = " + user_key
              + "           AND fac_gebruiker_prs_level_write < 9"
              + "           AND fac_gebruiker_alg_level_write < 9"
              + "           AND g.ins_discipline_key IN"
              + "              (SELECT res_discipline_key"
              + "                 FROM res_v_srtartikel_onrgoed"
              + "                WHERE ( alg_onrgoed_ingangsdatum IS NULL OR alg_onrgoed_ingangsdatum <= {0})".format(res_van.toSQL())
              + "                  AND ( alg_onrgoed_vervaldatum  IS NULL OR alg_onrgoed_vervaldatum  > {0})".format(res_tot.toSQL())
              + "                  AND alg_ruimte_key IN"
              + "                      (SELECT alg_ruimte_key"
              + "                         FROM res_v_rsv_ruimte_2_alg_ruimte"
              + "                        WHERE res_alg_ruimte_verwijder IS NULL"
              + "                          AND res_rsv_ruimte_key = " + rsv_key
              + "                       UNION"
              + "                       SELECT alg_ruimte_key"
              + "                         FROM res_rsv_ruimte"
              + "                        WHERE res_rsv_ruimte_key = " + rsv_key
              + "                      )"
              + "              )"
              + "       )"
              + "   AND d.ins_discipline_min_level = 2"
              + "   AND EXISTS"
              + "       (SELECT res_activiteit_key"
              + "          FROM res_activiteitdiscipline rad"
              + "         WHERE rad.res_discipline_key = d.ins_discipline_key"
              + "           AND rad.res_activiteit_key = " + act_key
              + "       )"
              + ( res_art_key > 0 // Specifiek artikel: dan alleen deze discipline.
                ? " AND d.ins_discipline_key = (SELECT res_discipline_key FROM res_artikel WHERE res_artikel_key = " + res_art_key + ")"
                : ""
                )
              + " ORDER BY ins_discipline_volgnr, 2";
    return sql;
  }

  function objdisc_sql(rsv_key, act_key, res_obj_key)
  {
      var sql = "SELECT d.ins_discipline_key"
              + "     , d.ins_discipline_omschrijving ins_discipline_omschrijving"
              + "     , d.ins_discipline_kpnverplicht"
              + "     , rd.res_disc_params_min_deelnmrs"
              + "     , rd.res_disc_params_min_duur"
              + "     , 0                           inArrangement"
              + "  FROM res_v_aanwezigdiscipline d"
              + "     , res_disc_params rd"
              + " WHERE rd.res_ins_discipline_key = d.ins_discipline_key"
              + "   AND d.ins_discipline_key IN"
              + "       (SELECT g.ins_discipline_key"
              + "          FROM fac_v_webgebruiker g"
              + "             , fac_functie f"
              + "         WHERE g.fac_functie_key = f.fac_functie_key"
              + ( res_obj_key > 0
                ? ""
                : "         AND f.fac_functie_code = 'WEB_RESUSE'"
                )
              + "           AND g.prs_perslid_key = " + user_key
              + "           AND fac_gebruiker_prs_level_write < 9"
              + "           AND fac_gebruiker_alg_level_write < 9"
              + "           AND g.ins_discipline_key IN"
              + "               (SELECT rr.res_discipline_key"
              + "                  FROM res_v_rsv_ruimte_2_alg_ruimte rr"
              + "                 WHERE rr.res_rsv_ruimte_key = " + rsv_key
              + "                UNION"
              + "                SELECT rd.res_discipline_key"
              + "                  FROM ins_deel id"
              + "                     , res_deel rd"
              + "                     , res_rsv_deel rs"
              + "                 WHERE rs.res_deel_key = rd.res_deel_key"
              + "                   AND rd.res_ins_deel_key = id.ins_deel_key"
              + "                   AND rs.res_rsv_ruimte_key = " + rsv_key
              + "               )"
              + "       )"
//              + "   AND d.ins_discipline_min_level = 2"
              + "   AND EXISTS"
              + "       (SELECT res_activiteit_key"
              + "          FROM res_activiteitdiscipline rad"
              + "         WHERE rad.res_discipline_key = d.ins_discipline_key"
              + "           AND rad.res_activiteit_key = " + act_key
              + "       )"
              + ( res_obj_key > 0 // Specifiek object: dan alleen deze discipline.
                ? " AND d.ins_discipline_key = (SELECT res_discipline_key FROM res_deel WHERE res_deel_key = " + res_obj_key + ")"
                : ""
                )
              + " ORDER BY ins_discipline_volgnr, 2";
    return sql;
  }


  function cat_aa_sql(rsv_ruimte_key, disc_key, tijd)
  {
    var sql = "SELECT r_r_art.res_artikel_key            res_key"
            + "     , r_r_art.res_rsv_artikel_key        res_rsv_key"
            + "     , r_r_art.res_rsv_artikel_aantal     res_rsv_aantal"
            + "     , r_r_art.res_rsv_artikel_levering   res_rsv_levering"
            + "     , r_r_art.res_rsv_artikel_geleverd   res_rsv_geleverd"
            + "     , r_r_art.res_rsv_artikel_afhalen    res_rsv_afhalen"
            + "     , r_r_art.res_rsv_artikel_prijs      res_rsv_prijs"
            + "     , r_r_art.res_rsv_artikel_dirtlevel  res_rsv_dirtlevel"
            + "     , r_r_art.res_status_BO_key          res_status_bo_key"
            + "  FROM res_v_aanwezigartikel     r_art"
            + "     , res_v_aanwezigrsv_artikel r_r_art"
            + " WHERE r_r_art.res_artikel_key = r_art.res_artikel_key"
            + "   AND r_r_art.res_rsv_ruimte_key = " + rsv_ruimte_key
            + "   AND r_art.res_discipline_key = "   + disc_key
            + (tijd ? "   AND r_r_art.res_rsv_artikel_levering = " + tijd.toSQL(true) : "")
            + " ORDER BY r_r_art.res_artikel_key"
            + "        , r_r_art.res_rsv_artikel_levering";
    return sql;
  }

  function obj_aa_sql(rsv_ruimte_key, disc_key)
  {
    var sql = "SELECT r_r_art.res_deel_key            res_key"
            + "     , r_r_art.res_rsv_deel_key        res_rsv_key"
            + "     , r_r_art.res_rsv_deel_aantal     res_rsv_aantal"
            + "     , r_r_art.res_rsv_deel_van        res_rsv_levering"
            + "     , r_r_art.res_rsv_deel_geleverd   res_rsv_geleverd"
            + "     , NULL                            res_rsv_afhalen"
            + "     , r_r_art.res_rsv_deel_prijs      res_rsv_prijs"
            + "     , r_r_art.res_rsv_deel_dirtlevel  res_rsv_dirtlevel"
            + "     , r_r_art.res_status_BO_key       res_status_bo_key"
            + "  FROM res_v_aanwezigdeel      r_art"
            + "     , res_v_aanwezigrsv_deel  r_r_art"
            + " WHERE r_r_art.res_deel_key = r_art.res_deel_key"
            + "   AND r_r_art.res_rsv_ruimte_key = " + rsv_ruimte_key
            + "   AND r_art.res_discipline_key = "   + disc_key
            + " ORDER BY r_r_art.res_deel_key"
            + "        , r_r_art.res_rsv_deel_van";
    return sql;
  }

  function cat_ra_sql()
  {
    var sql = "SELECT d.res_artikel_key           res_key"
            + "     , d.res_artikel_ingangsdatum  res_ingangsdatum"
            + "     , d.res_artikel_vervaldatum   res_vervaldatum"
            + "     , d.res_artikel_begintijd     res_begintijd"
            + "     , d.res_artikel_eindtijd      res_eindtijd"
            + "     , d.res_artikel_volgnummer    res_volgnummer"
            + "     , d.res_artikel_omschrijving  res_omschrijving"
            + "     , d.res_artikel_opmerking     res_opmerking"
            + "     , d.res_artikel_image         res_image"
            + "     , 'artikel'                   res_imgmap"
            + "     , d.res_artikel_eenheid       res_eenheid"
            + "     , d.res_discipline_key        res_disc_key"
            + "     , d.res_artikel_flags         res_flags"
            + "     , d.res_artikel_prijs_vast    res_prijs_vast"
            + "     , d.res_artikel_prijs         res_prijs"
            + "     , d.res_artikel_default       res_default"
            + "     , d.res_artikel_minimum       res_minimum"
            + "  FROM res_v_aanwezigartikel d";
    return sql;
  }

  function obj_ra_sql()
  {
    var sql = "SELECT d.res_deel_key           res_key"
            + "     , d.res_deel_aanmaak       res_ingangsdatum"
            + "     , d.res_deel_vervaldatum   res_vervaldatum"
            + "     , NULL                     res_begintijd"
            + "     , NULL                     res_eindtijd"
            + "     , 1                        res_volgnummer"
            + "     , d.res_deel_omschrijving  res_omschrijving"
            + "     , d.res_deel_opmerking     res_opmerking"
            + "     , d.res_deel_image         res_image"
            + "     , 'deel'                   res_imgmap"
            + "     , d.res_deel_eenheid       res_eenheid"
            + "     , d.res_discipline_key     res_disc_key"
            + "     , 1                        res_flags"
            + "     , d.res_deel_prijs_vast    res_prijs_vast"
            + "     , d.res_deel_prijs         res_prijs"
            + "     , NULL                     res_default"
            + "     , NULL                     res_minimum"
            + "  FROM res_v_aanwezigdeel d";
    return sql;
  }

  function catobj_sql(disc_key, start, eind, looplijst, aa_sql, ra_sql)
  {
    var sql_c = "SELECT res_key"
              + "     , res_rsv_key"
              + "     , res_rsv_aantal"
              + "     , res_rsv_levering"
              + "     , res_rsv_geleverd"
              + "     , res_rsv_afhalen"
              + "     , res_rsv_prijs"
              + "     , res_rsv_dirtlevel"
              + "     , res_status_BO_key"
              + "     , ROW_NUMBER ()"
              + "       OVER (PARTITION BY res_key"
              + "             ORDER BY res_rsv_key"
              + "            ) volgnr"
              + "  FROM (" + aa_sql + ")";


    var sql = "SELECT ra.res_key"
            + "     , ra.res_omschrijving"
            + "       || CASE WHEN (   (ra.res_ingangsdatum IS NULL OR ra.res_ingangsdatum <= SYSDATE)"
            + "                    AND (ra.res_vervaldatum  IS NULL OR ra.res_vervaldatum  >= SYSDATE)"
            + "                    )"
            + "               THEN ''"
            + "               ELSE ' (x)'"
            + "          END res_omschrijving"
            + "     , ra.res_opmerking"
            + "     , ra.res_image"
            + "     , ra.res_imgmap"
            + "     , ra.res_eenheid"
            + "     , ra.res_flags"
            + "     , COALESCE (aa.volgnr, ra.res_flags)  volgnr"
            + "     , ra.res_prijs_vast"
            + "     , CASE WHEN (ra.res_prijs_vast = 0)"
            + "            THEN COALESCE(aa.res_rsv_prijs / aa.res_rsv_aantal, ra.res_prijs)"
            + "            ELSE ra.res_prijs"
            + "       END  res_prijs"
            + "     , aa.res_rsv_key"
            + "     , aa.res_rsv_aantal"
            + "     , aa.res_rsv_levering"
            + "     , aa.res_rsv_geleverd"
            + "     , aa.res_rsv_afhalen"
            + "     , aa.res_rsv_prijs"
            + "     , aa.res_status_BO_key"
            + "     , CASE WHEN (  ra.res_ingangsdatum IS NULL"
            + "                 OR ra.res_ingangsdatum <= " + start.beginToSQL()
            + "                 )"
            + "            THEN 1"
            + "            ELSE 0"
            + "       END  ingang"
            + "     , CASE WHEN (  ra.res_vervaldatum IS NULL"
            + "                 OR ra.res_vervaldatum >= " + start.beginToSQL()
            + "                 )"
            + "            THEN 1"
            + "            ELSE 0"
            + "       END  verval"
            + "     , COALESCE (ra.res_begintijd, 8) res_begintijd"
            + "     , COALESCE (ra.res_eindtijd, 18) res_eindtijd"
            + "     , COALESCE(ra.res_default, 0) res_default"
            + "     , aa.res_rsv_dirtlevel"
            + "     , COALESCE (ra.res_minimum, 0) res_minimum"
            + "     , COALESCE( (SELECT 1"
            + "                    FROM res_arrangement_artikel ar"
            + "                   WHERE ar.res_arrangement_key = -1"
            + "                     AND ar.res_artikel_key = ra.res_key"
            + "                  )"
            + "               ,0)  in_arrangement"
            + "  FROM (" + ra_sql + ") ra"
            + "     , (" + sql_c  + ") aa"
            + " WHERE (   ra.res_disc_key = " + disc_key
            + "       AND aa.res_key"+ (looplijst?"":"(+)") + " = ra.res_key"
            + "       AND (  ra.res_ingangsdatum IS NULL"
            + "           OR ra.res_ingangsdatum <= " + start.beginToSQL()
            + "           )"
            + "       AND (  ra.res_vervaldatum IS NULL"
            + "           OR ra.res_vervaldatum >= " + start.beginToSQL()
            + "           )"
            + "       )"
            + "   AND (   (   " + start.beginToSQL() + " + COALESCE(ra.res_begintijd, 8) / 24 <= " + eind.toSQL(true)
            + "           AND " + start.beginToSQL() + " + COALESCE(ra.res_eindtijd, 18) / 24 >= " + start.toSQL(true)
            + "           )"
            + "       OR COALESCE(ra.res_begintijd, -1) > 18"
            + "       OR COALESCE(ra.res_eindtijd,  24) < 8"
            + "       )"
            + " ORDER BY ra.res_volgnummer"
            + "        , ra.res_omschrijving"
            + "        , aa.volgnr";
    return sql;
  }

  function ops_sql(rsv_ruimte_key, disc_key)
  {
    var sql = "SELECT rv.res_rsv_ruimte_key"
            + "     , rv.res_reservering_key    res_key"
            + "     , rv.res_rsv_ruimte_volgnr  res_volgnr"
            + "     , rv.res_rsv_ruimte_van"
            + "     , rv.res_rsv_ruimte_tot"
            + "     , rv.res_rsv_ruimte_bezoekers  res_rsv_aantal"
            + "     , rr.res_discipline_key"
            + "     , op.res_opstelling_omschrijving  res_omschrijving"
            + "     , rr.res_ruimte_nr"
            + "     , ro.res_ruimte_opstel_tijd  res_opstel"
            + "     , ro.res_ruimte_opstel_image  res_image"
            + "     , '' res_imgmap"
            + "     , ro.res_ruimte_opstel_bezoekers"
            + "     , la.opmerkingen  res_opmerking"
            + "  FROM res_rsv_ruimte rv"
            + "     , res_ruimte_opstelling ro"
            + "     , res_ruimte rr"
            + "     , res_opstelling op"
            + "     , (SELECT res_rsv_ruimte_key"
            + "             , LISTAGG (omschr||': '||waarde, CHR(13)||CHR(10))"
            + "                WITHIN GROUP (ORDER BY volgnr)"
            + "                    AS opmerkingen"
            + "          FROM (SELECT rw.res_rsv_ruimte_key"
            + "                     , rs.res_srtkenmerk_omschrijving    omschr"
            + "                     , rw.res_kenmerkreservering_waarde  waarde"
            + "                     , rk.res_kenmerk_volgnummer         volgnr"
            + "                  FROM res_kenmerkwaarde rw"
            + "                     , res_kenmerk rk"
            + "                     , res_srtkenmerk rs"
            + "                 WHERE rk.res_kenmerk_key = rw.res_kenmerk_key"
            + "                   AND rk.res_srtkenmerk_key = rs.res_srtkenmerk_key"
            + "               )"
            + "         GROUP BY res_rsv_ruimte_key"
            + "       ) la"
            + " WHERE rv.res_ruimte_opstel_key = ro.res_ruimte_opstel_key"
            + "   AND rr.res_ruimte_key = ro.res_ruimte_key"
            + "   AND ro.res_opstelling_key = op.res_opstelling_key"
            + "   AND la.res_rsv_ruimte_key = rv.res_rsv_ruimte_key"
            + "   AND rv.res_rsv_ruimte_key = " + rsv_ruimte_key;

    return sql;
  }


    PAGE_START({id: "page-1-"+rsv_ruimte_key});
        HEADER({title: subject, back:!qrc, home: !qrc });
        CONTENT_START();

        function fncolIcon(oRs) {
          var img = oRs("res_image").Value;
          if (img) {
            return S("res_image_path") + oRs("res_imgmap").Value + "/" + img;
          } else {
            return "fa-utensils-alt";
          }
        }

        function fncolHeader(oRs) {
          var result = oRs("res_omschrijving").Value;
          if (met_cat || met_obj) {
            var eenheid = oRs("res_eenheid").Value;
            if (eenheid) {
              result += " (" + safe.html(eenheid) + ")";
            }
          }
          return result;
        }

        function fncolSubHeader(oRs) {
          var result = "";
          if (met_cat || met_obj) {
            var id_postfix = oRs("res_key").Value + "_" + oRs("res_rsv_key").Value;
            if (looplijst) {
              result += L("lcl_count") + ": " + (oRs("res_rsv_aantal").Value || 0)
                      + CHB_FIELD_HTML(
                            "inpb_g_" + id_postfix,
                            L("lcl_res_daglijst_geleverd"),
                            oRs("res_rsv_geleverd").Value == null ? 0 : 1,
                            {
                                "big": true,
                                "disabled": looplijst && oRs("res_rsv_geleverd").Value != null
                            }
                        );
            } else /* if (!looplijst) */ {
              var prijs = oRs("res_prijs").Value || 0;
              var aantal = oRs("res_rsv_aantal").Value || 0;

              var uren    = rsv.ruimte_van.getHours();
              var minuten = rsv.ruimte_van.getMinutes();
              var afhalen = (oRs("res_rsv_afhalen").Value != null ? new Date(oRs("res_rsv_afhalen").Value) : null);
              var afhalenuren    = (afhalen ? afhalen.getHours() : null);
              var afhalenminuten = (afhalen ? afhalen.getMinutes() : null);

              result += RWFIELD_HTML("inpb_c_" + id_postfix, L("lcl_count"), aantal, { "datatype": "number" })
                      + HIFIELD_HTML("inpbp_c_" + id_postfix, prijs)
                      + HIFIELD_HTML("inpbtp_c_" + id_postfix, prijs * aantal)
                      + HIFIELD_HTML("inpbh1_c_" + id_postfix, uren)
                      + HIFIELD_HTML("inpbm1_c_" + id_postfix, minuten)
                      + HIFIELD_HTML("inpeh1_c_" + id_postfix, afhalenuren)
                      + HIFIELD_HTML("inpem1_c_" + id_postfix, afhalenminuten);
              if (prijs & !isNaN(prijs)) {
                L("res_artikel_prijs") + ": " + safe.html(prijs);
              }
            }
          } else /* if (met_ops) */ {
            result += "<div>" + L("lcl_visitors") + ": " + (oRs("res_rsv_aantal").Value || 0) + "</div>"
                    + "<div>" + L("res_ruimte_opstel_tijd") + ": " + oRs("res_opstel").Value + "</div>";
          }
          result += (oRs("res_opmerking").Value || "");
          return result;
        }

        function fnDivider(oRs) {
          return safe.html(oRs_dis("ins_discipline_omschrijving").Value); /* Ja, andere oRs */
        }
%>
      <form name="catering"
            id="catering"
            action="../res/res_edit_objcat_save.asp?urole=fe&verynew=0&rsv_ruimte_key=<%=rsv_ruimte_key%>"
            method="post">
            <input type="hidden" id="met" name="met" value="<%=met%>">
<%
            var looplijst = urole == "bo";
            var oRs_dis = (met_cat ? Oracle.Execute(catdisc_sql(rsv.rsv_ruimte_key, rsv.act_key, res_artikel_key, rsv.ruimte_van, rsv.ruimte_tot))
                                   : Oracle.Execute(objdisc_sql(rsv.rsv_ruimte_key, rsv.act_key, res_deel_key))
                          );
            while (!oRs_dis.eof)
            {
                var disc_key = oRs_dis("ins_discipline_key").Value;
                var van = rsv.ruimte_van;
                var tot = rsv.ruimte_tot;
                if (met_ops)
                {
                    var art_sql = ops_sql(rsv.rsv_ruimte_key, disc_key);
                }
                else if (met_cat)
                {
                    var aa_sql = cat_aa_sql(rsv.rsv_ruimte_key, disc_key, tijdstip);
                    var ra_sql = cat_ra_sql();
                    var art_sql = catobj_sql(disc_key, van, tot, looplijst, aa_sql, ra_sql);
                }
                else if (met_obj)
                {
                    var aa_sql = obj_aa_sql(rsv.rsv_ruimte_key, disc_key);
                    var ra_sql = obj_ra_sql();
                    var art_sql = catobj_sql(disc_key, van, tot, looplijst, aa_sql, ra_sql);
                }

                var rst = new ResultsetTable({
                    sql: art_sql,
                    ID: "catering_lijst",
                    headerColumn: fncolHeader,
                    iconColumn: fncolIcon,
                    subheaderColumn: fncolSubHeader,
                    dividerColumn: fnDivider,
                    emptyWhenNoResult: true,
                    showAll: true

                });
                var cnt = rst.processResultset();

                oRs_dis.MoveNext();
            }
            oRs_dis.Close();

            CONTROLGROUP_START();
                if (isReservering)
                    BUTTON((looplijst ? L("lcl_res_daglijst_geleverd") : L("lcl_submit")), {click: "cat_submit()", icon: "fa-fclt-save", singlepress: true});
                if (looplijst)
                    BUTTON(L("lcl_res_daglijst_afgehandeld"), {click: "cat_afmeld()", icon: "fa-lock", singlepress: true});
                BUTTON(L("lcl_cancel"), {click: "cat_cancel()", icon: "fa-fclt-cancel"});
            CONTROLGROUP_END();
            IFACE.FORM_END();
%>
      </form>
<%
        CONTENT_END();
        FOOTER();
    PAGE_END();
PDA_PAGE_END(); %>
	</body>
</html>
<% ASPPAGE_END(); %>
