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

    File:               ins_my_objects.asp (formerly PersObjects\PersSearch.asp;6)
    Description:        Toont de geregistreerde persoonelijke bezittingen
                        van een user, en biedt de mogelijkheid om de gegevens daarvan aan
                        te passen indien het van een persoonlijk ("3") discipline is.
                        Het gaat dan bv over kentekenregistratie.
    Parameters:
    Context:            Vanuit Portal of beter nog een frame van het persoonscherm
    Note:               Maakte gebruik van officieuze WEB_PRSOBJ-autorisatie (ja/nee)

                        TODO: bedenken wat te doen. Als we deze in een persoonframe stoppen
                              dan is er verder geen extra autorisatie meer nodig

*/ %>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/iface.inc" -->
<!-- #include file="../Shared/resultset_table_v2.inc" -->
<html>
<head>
  <% FCLTHeader.Generate(); %>
      <script type="text/javascript">
        function insEdit (row)
        {
            $(row).addClass('dirty');
            var ins_key = row.getAttribute("ROWKEY");
            var url = "appl/ins/ins_deel.asp?urole=fe&ins_key="+ ins_key;
            FcltMgr.openDetail(url, L("lcl_spo_title"));
        }
    </script>
</head>

<body id="listbody">
<div id="list">
<%
    var sql,val;
    var oRs;

 // Het tweede deel van de query zijn de objecten die jij in je bezit hebt.
 // het eerste deel zijn objectsoorten(!) met ins_discipline_min_level=3 die je nog *niet* hebt
 // Dat wordt door de Akzo gebruikt om voor iedereen een dummy 'Auto' te hebben tbf kentekenrgistratie.
 sql=" SELECT '-' ins_deel_omschrijving"
    + ", "+lcl.xsqla('sd.ins_srtdeel_omschrijving', 'sd.ins_srtdeel_key')
    + ", to_number(NULL) ins_deel_key,"
    + "       D.ins_discipline_min_level auth, SD.ins_srtdeel_key"
    + "  FROM ins_v_aanwezigsrtdeel SD, ins_srtgroep G, ins_discipline D"
    + " WHERE D.ins_discipline_min_level=3"
    + "   AND D.ins_discipline_key=G.ins_discipline_key"
    + "   AND SD.ins_srtgroep_key=G.ins_srtgroep_key"
    + "   AND NOT EXISTS (SELECT DD.ins_srtdeel_key "
    + "                         FROM ins_v_aanwezigdeel DD"
    + "                         WHERE DD.ins_alg_ruimte_key="+user_key
    + "                           AND DD.ins_alg_ruimte_type='P'"
    + "                           AND DD.ins_srtdeel_key=SD.ins_srtdeel_key"
    + "                           AND (ins_deel_vervaldatum IS NULL OR ins_deel_vervaldatum > TRUNC(SYSDATE)) ) "
    + " UNION ALL "
    + "SELECT D.ins_deel_omschrijving"
    + ", "+lcl.xsqla('sd.ins_srtdeel_omschrijving', 'sd.ins_srtdeel_key')
    + ", D.ins_deel_key,"
    + "       di.ins_discipline_min_level auth, sd.ins_srtdeel_key"
    + "  FROM ins_v_aanwezigdeel D,ins_v_aanwezigsrtdeel SD, ins_discipline DI"
    + " WHERE D.ins_srtdeel_key=SD.ins_srtdeel_key"
    + "   AND D.ins_discipline_key = DI.ins_discipline_key"
    + "   AND ins_alg_ruimte_type='P'"
    + "   AND (d.ins_deel_vervaldatum IS NULL OR ins_deel_vervaldatum > TRUNC (SYSDATE))"
    + "   AND ins_alg_ruimte_key="+user_key;

      var rst = new ResultsetTable({ keyColumn: "ins_deel_key",
                                     sql: sql,
                                     ID: "instable",
                                     title: L("lcl_spo_header")
                                    });

      rst.addColumn(new Column({caption: L("lcl_objn2"), content: "ins_deel_omschrijving"}));
      rst.addColumn(new Column({caption: L("lcl_objn1"), content: "ins_srtdeel_omschrijving"}));

      rst.addAction({ action: "insEdit", caption: L("lcl_edit"), isDefault: true } );

      var cnt = rst.processResultset();
%>
</div>
</body>
</html>
<% ASPPAGE_END(); %>
