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

    File:               SuggestAdres.asp
    Description:        Suggereer adressen
    Parameters:         k         De eerste paar letters
                        bAll      Haal alle records op (met nog steeds een maximum van 500)
                        filtcode  Beperkt de lijst met getoonde bedrijven
                                  'L': Filter op adressen van bestaande contracten
                                  'F': Filter op factuuradressen
                                  'O': Filter op opdrachtadressen
                                  'A': Filter op afleveradressen
    Globals:
    Context:
    Note:
*/ %>

<%
JSON_Result = true;
%>

<!-- #include file="../../Shared/common.inc" -->
<!-- #include file="./suggest.inc" -->
<!-- #include file="./plaatsFilter.inc" -->
<!-- #include file="./adresFilter.inc" -->
<%
var chars = getQParam("k", "");
var autlevel = getQParamInt("autlevel", -1);
var bAll = getQParamInt("SuggestAll", 0) == 1;
var filtcode = getQParam("filtcode", "");
var extracode = getQParam("extraCode", "");
var locatie = getQParamInt("locatie", -1);

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

var params = {
			  autlevel: autlevel,
              locatie: locatie
             };
var filtClause = getFiltClauseAdres(filtcode, params);

var extraInf = getExtraInfadres(extracode);

  sql = "SELECT m.mld_adres_key"
      + ",      mld_adres_naam naam"
      + ",      COALESCE(mld_adres_bezoek_plaats, ' ') plts"
      + ",      COALESCE(mld_adres_bezoek_adres, ' ') straat"
      + extraInf
      + ",      m.mld_adres_upper"
      + "  FROM mld_adres m"
      + "     , alg_locatie l"
      + " WHERE m.alg_locatie_key = l.alg_locatie_key(+)"
      + "   AND (mld_adres_upper LIKE " + safe.quoted_sql_wild2(chars)
      + "    OR mld_adres_bezoek_postcode LIKE " + safe.quoted_sql_wild2(chars)
      + "    OR UPPER(mld_adres_bezoek_adres) LIKE " + safe.quoted_sql_wild2(chars) +") "
      + getFiltClauseLocatie("FAC", {outerjoinlocatie: true}).where
      + filtClause
      + " ORDER BY m.mld_adres_upper ";

WriteResult(sql, bAll, "naam", "mld_adres_key", "straat", "extra");
%>
<% ASPPAGE_END(); %>
