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

    File:           prs_show_dienst.asp
    Description:    edit or add dienst
    Parameters:     dloc_key (required)

    Context:
    Note:

*/ %>

<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/iface.inc" -->
<!-- #include file="../Shared/selector.inc" -->

<%
FCLTHeader.Requires({plugins:["jQuery"], js: []})

var bedrijf_key = getQParamInt("bedrijf_key", -1);
var dienst_key = getQParamInt("dienst_key", -1);
var dloc_key = getQParamInt("dloc_key", -1);

var intern = getQParamInt("intern", 0) == 1;
if (intern)
  var autfunction = 'WEB_PRSMAN';
else
  var autfunction = 'WEB_PRSMSU';

var authparams = user.checkAutorisation(autfunction)

if (dloc_key > -1)
{
  sql = "SELECT b.prs_bedrijf_key"
      + "     , b.prs_bedrijf_naam"
      + "     , d.prs_dienst_key"
      + "     , " + lcl.xsqla('d.prs_dienst_omschrijving', 'd.prs_dienst_key')
      + "     , dl.prs_bedrijfdienstlocatie_key"
      + "  FROM prs_bedrijf b"
      + "     , prs_bedrijfdienstlocatie dl"
      + "     , prs_dienst d"
      + " WHERE b.prs_bedrijf_verwijder IS NULL"
      + "   AND b.prs_bedrijf_key = dl.prs_bedrijf_key"
      + "   AND dl.prs_dienst_key = d.prs_dienst_key"
      + "   AND prs_bedrijfdienstlocatie_key = " + dloc_key
      + " ORDER BY UPPER (" + lcl.xsql("d.prs_dienst_omschrijving", "d.prs_dienst_key") + ") ASC"
}
else
{
  sql = "SELECT b.prs_bedrijf_key"
      + "     , b.prs_bedrijf_naam"
      + "     , d.prs_dienst_key"
      + "     , " + lcl.xsqla('d.prs_dienst_omschrijving', 'd.prs_dienst_key')
      + "     , dl.prs_bedrijfdienstlocatie_key"
      + "  FROM prs_bedrijf b"
      + "     , prs_bedrijfdienstlocatie dl"
      + "     , prs_dienst d"
      + " WHERE b.prs_bedrijf_verwijder IS NULL"
      + "   AND b.prs_bedrijf_key = dl.prs_bedrijf_key"
      + "   AND dl.prs_dienst_key = d.prs_dienst_key"
      + "   AND dl.prs_bedrijf_key = " + bedrijf_key
      + "   AND dl.prs_dienst_key = " + dienst_key
      + " ORDER BY UPPER (" + lcl.xsql("d.prs_dienst_omschrijving", "d.prs_dienst_key") + ") ASC"
}
oRs = Oracle.Execute(sql);
if (oRs.Eof)
    shared.record_not_found();

var prs_bdrkey  = oRs("prs_bedrijf_key").value;
var prs_dnstkey = oRs("prs_dienst_key").value;
dloc_key = oRs("prs_bedrijfdienstlocatie_key").value; // dloc_key heeft nu altijd een geldige waarde.
oRs.Close();
%>

<html>
  <head>
<%  FCLTHeader.Generate(); %>
    <script  type="text/javascript" >
      function dloc_delete()
      {
        FcltMgr.confirm(L("lcl_prs_del_txt_dienst"), function() {
            var data = {
                key: <%=dloc_key%>,
                dienst_key: <%=dienst_key%>,
                bedrijf_key: <%=bedrijf_key%>,
                level: "D"
            };
            <% protectRequest.dataToken("data"); %>
            $.post("prs_delete.asp",
                data,
                FcltCallbackClose,
                "json");
        });
      }
      function dloc_locations()
      {
        var url = "../prs/prsdienstlocs.asp?bdkey=<%=dloc_key%>&dkey=<%=prs_dnstkey%>&bkey=<%=prs_bdrkey%>";
        FcltMgr.openModalDetail(url, "<%=L("lcl_prs_companies_dienst_locs")%>");
      }
    </script>
  </head>

  <body class="showmode">
<%  SUBFRAME_START();
var buttons = [];

    if (authparams && (authparams.ALGwritelevel < 9 || authparams.PRSwritelevel < 9)) {
        buttons =  [ {title: L("lcl_delete"), action:"dloc_delete()", icon: "fa-trash-alt" }];
    }
    IFRAMER_HEADER(L("lcl_prs_dienst_frame"), buttons);
%>
      <form name=u2>
<%      BLOCK_START("prsPerslid", L("lcl_prs_basisblok"), {icon: "fa-user"});

        sql = "SELECT   prs_bedrijf_key, "
            + "         prs_bedrijf_naam "
            + "    FROM prs_v_aanwezigbedrijf "
            + "ORDER BY prs_bedrijf_naam_upper "
        FCLTselector("prs_bdrkey", sql,
                    { label: L("lcl_prs_dept_company"),
                      initKey: prs_bdrkey,
                      emptyOption: "",
                      readonly: true
                   });


        sql = "SELECT d.prs_dienst_key, "
            + lcl.xsqla('prs_dienst_omschrijving', 'prs_dienst_key')
            + " FROM  prs_dienst d"
            + " ORDER BY UPPER(" + lcl.xsql('prs_dienst_omschrijving', 'prs_dienst_key') + ")";
        FCLTselector("prs_dnstkey", sql,
                    { label: L("lcl_prs_companies_dienst"),
                      initKey: prs_dnstkey,
                      emptyOption: "",
                      readonly: true
                   });
        BLOCK_END();
%>
      </form>
<% SUBFRAME_END(); %>
  </body>
</html>
<% ASPPAGE_END(); %>
