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

<%
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"
        + "  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;

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()
      {
         var kpngroep_key = <%=kpngroep_key%>;
         if (confirm(L("lcl_kpn_del_txt_kostenplaatsgrp")))
         {
            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" } ];
    }

    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
                     });
        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"), true);
          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>
