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

<%
DOCTYPE_Disable = true;
%>

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

<%
// Build an article list
var autfunction = getQParam("autfunction", ""); // Check of user rechten heeft op meegegeven artikelen
var artcat_key_arr = getQParamIntArray("artcat_key_str", []); // Artikel catalogus string: -2 als lege waarde meegegeven omdat -1 een geldige waarde is
var article_arr = getQParamIntArray("article_str", []); // Artikel string

var sql_aut = " SELECT rd.ins_discipline_key ins_discipline_key"
            + " FROM res_v_aanwezigdiscipline rd"
            + ", fac_v_webgebruiker fw"
            + ", fac_v_webfunctie fwf"
            + " WHERE rd.ins_discipline_min_level = 2"
            + " AND fw.ins_discipline_key = rd.ins_discipline_key"
            + " AND fw.fac_functie_key = fwf.fac_functie_key"
            + " AND fwf.fac_functie_code = " + safe.quoted_sql(autfunction)
            + " AND fw.prs_perslid_key = " + user_key;

var sql = "SELECT DISTINCT a.res_artikel_key"
        + ", "+ lcl.xsql('a.res_artikel_omschrijving', 'a.res_artikel_key')
          + " || CASE"
            + " WHEN (a.res_artikel_ingangsdatum IS NULL OR a.res_artikel_ingangsdatum <= SYSDATE) AND (a.res_artikel_vervaldatum IS NULL OR a.res_artikel_vervaldatum > SYSDATE) "
            + " THEN ''"
            + " ELSE " + safe.quoted_sql(L("lcl_inactive_data_suffix"))
            + " END res_artikel_omschrijving"
        + ", "+ lcl.xsqla('a.res_artikel_eenheid','a.res_artikel_key')
        + " FROM res_v_aanwezigartikel a"
        + " WHERE a.res_discipline_key IN (" + sql_aut + ")"
        + (artcat_key_arr.length
          ? " AND a.res_discipline_key IN (" + artcat_key_arr.join(",") + ")"
          : "")
        + " ORDER BY "+ lcl.xsql('res_artikel_omschrijving','a.res_artikel_key');

FCLTselector("artmulti",
             sql,
             { initKey: article_arr.length? article_arr.join(",") : "-1", // Indien geen waarde meegegeven dan "Alles" selecteren (key = -1).
               multi: true,
               emptyOption: L("lcl_all")
             });
%>

