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

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

<%
JSON_Result = true;
%>

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

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

chars = chars.replace(/\*/g,"%");
var filtClause = getFiltClauseKostensoort(filtcode, { ref_key: ref_key });
var extraInf = getExtraInfKostensoort(extracode);

// Geen autorisatie bij kostensoorten (prs_kostensoort)
// Niet persoon of plaats afhankelijk
var sql = "SELECT ks.prs_kostensoort_key"
        + ", ks.prs_kostensoort_oms || '-' || " + lcl.xsql("ks.prs_kostensoort_opmerking", "ks.prs_kostensoort_key") + " kostensoort"
        + ", ksg.prs_kostensoortgrp_oms"
        + extraInf
        + ", ks.prs_kostensoort_upper"
        + " FROM prs_kostensoort ks"
        + "    , prs_kostensoortgrp ksg"
        + " WHERE ks.prs_kostensoortgrp_key = ksg.prs_kostensoortgrp_key(+)"
        + " AND (UPPER(ks.prs_kostensoort_oms || '-' || " + lcl.xsql("ks.prs_kostensoort_opmerking", "ks.prs_kostensoort_key") + ") LIKE " + safe.quoted_sql_wild2(chars)
        + "        OR UPPER(ksg.prs_kostensoortgrp_oms) LIKE " + safe.quoted_sql_wild2(chars) +")"
        + filtClause
        + (ksgrp_key > 0
          ? " AND ks.prs_kostensoortgrp_key = " + ksgrp_key
          : "")
        + " ORDER BY ks.prs_kostensoort_upper";

WriteResult(sql, bAll, "kostensoort", "prs_kostensoort_key", "prs_kostensoortgrp_oms", "extra", false, false, checkExist);
%>
<% ASPPAGE_END(); %>
