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

    File:               SuggestMldTag.asp
    Description:        Suggereer mijlpaal
                        Dat zijn de niet verwijderde melding_tags van de vakgroepypes waarvoor je een MLD-autorisatie bezit
                        Typisch is dat voor de FOBOMI

    Parameters:         k               De eerste paar letters
                        srtdisc_key     Optioneel een (1) vakgroeptype, om de lijst te beperken.

*/ %>

<%
JSON_Result = true;
%>

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

<%
var chars = getQParam("k", "");
var bAll = getQParamInt("SuggestAll", 0) == 1;
var srtdisc_key = getQParamInt("srtdisc_key", -1);
var filtcode = getQParam("filtcode", "A"); // default de actieve


chars = chars.replace(/\*/g,"%");
var sql = "SELECT mld_melding_tag_key"
        + "     , mld_melding_tag_naam"
        + "     , TO_CHAR(mld_melding_tag_datum_tot, 'DD-MM-YYYY') mld_melding_tag_datum"
        + "  FROM mld_melding_tag"
        + " WHERE mld_melding_tag_verwijder IS NULL"
        + "   AND (UPPER(mld_melding_tag_naam) LIKE " + safe.quoted_sql_wild2(chars)
        + "    OR TO_CHAR(mld_melding_tag_datum_tot, 'DD-MM-YYYY') LIKE " + safe.quoted_sql_wild2(chars) + ")"
        + (srtdisc_key > -1 ? " AND ins_srtdiscipline_key = " + srtdisc_key : "")
        + (filtcode == "A" ? " AND mld_melding_tag_actief = 1" : "")
        + " AND ins_srtdiscipline_key IN"
        + " (SELECT di.ins_srtdiscipline_key FROM fac_v_webgebruiker fw, mld_discipline di"
        + "   WHERE fac_gebruiker_alg_level_read < 9"
        + "     AND fac_gebruiker_prs_level_read < 9"
        + "     AND fac_functie_key IN (SELECT fac_functie_key FROM fac_functie WHERE fac_functie_code IN ('WEB_MLDFOF', 'WEB_MLDBOF', 'WEB_MLDBAC'))"
        + "     AND di.ins_discipline_module = 'MLD'"
        + "     AND prs_perslid_key = " + user_key
        + "     AND di.ins_discipline_key = fw.ins_discipline_key)"
        + "ORDER BY mld_melding_tag_datum_tot DESC,  mld_melding_tag_naam";

WriteResult2(sql, { bAll: bAll,
                    fldName: "mld_melding_tag_naam",
                    fldKey : "mld_melding_tag_key",
                    fldDesc: "mld_melding_tag_datum"} );
%>
<% ASPPAGE_END(); %>
