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

    File:               SuggestArtikelgroep.asp
    Description:        Suggereer artikelgroepen
    Parameters:         k         De eerste paar letters
                        bAll      Haal alle records op (met nog steeds een maximum van 500)
                        filtcode  Beperk de lijst met getoonde artikelgroepen
                                  '?': Filter op artikelgroepen van ???
    Globals:
    Context:
    Note:
*/ %>

<%
JSON_Result = true;
%>

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

<%
var chars = getQParam("k", "");
var bAll = getQParamInt("SuggestAll", 0) == 1;
var checkExist = getQParamInt("checkExist", 0) == 1;
var disc_key = getQParamInt("disc_key", -1);
var extracode = getQParam("extraCode", "");
var filtcode = getQParam("filtcode", "");

var chars = chars.replace(/\*/g,"%");

var params = { disc_key: disc_key };

var filtClause = getFiltClauseArtikelgroep(filtcode, params);
var extraInf = getExtraInfArtikelgroep(extracode);

sql = "SELECT bsg.bes_srtgroep_key"
    + ", " + lcl.xsqla('bsg.bes_srtgroep_omschrijving', 'bsg.bes_srtgroep_key')
    + ", " + lcl.xsqla('bd.ins_discipline_omschrijving', 'bd.ins_discipline_key')
    + extraInf
    + " FROM bes_srtgroep bsg"
    + ", bes_discipline bd"
    + " WHERE bsg.ins_discipline_key = bd.ins_discipline_key"
    + " AND bsg.bes_srtgroep_verwijder IS NULL"
    + " AND (UPPER(" + lcl.xsql('bsg.bes_srtgroep_omschrijving', 'bsg.bes_srtgroep_key') + ") LIKE " + safe.quoted_sql_wild2(chars)
      + " OR UPPER(" + lcl.xsql('bd.ins_discipline_omschrijving', 'bd.ins_discipline_key') + ") LIKE " + safe.quoted_sql_wild2(chars) +")"
    + filtClause
    + " ORDER BY bsg.bes_srtgroep_volgnr, " + lcl.xsql('bsg.bes_srtgroep_omschrijving', 'bsg.bes_srtgroep_key');

WriteResult(sql, bAll, "bes_srtgroep_omschrijving", "bes_srtgroep_key", "ins_discipline_omschrijving", "extra");
%>
<% ASPPAGE_END(); %> 
