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

    File:               cad/loadRuimteOptions.asp
    Description:        Aanmaken van de options voor een listbox met (meerdere) ruimtes
    Context:            Vanuit CAD als een verdieping is gekozen.
    Note:               
*/ 

DOCTYPE_Disable = true;
%>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/selector.inc" -->
<%

var floor_key  = getQParamInt("floor_key");
var ruimte_key = getQParamInt("ruimte_key", -1); // optionele default

var sql = "SELECT alg_ruimte_key"
        + ",      alg_ruimte_nr || ' (' || alg_ruimte_omschrijving || ')' oms"
        + "  FROM ALG_v_aanwezigRUIMTE  R"
        + " WHERE alg_verdieping_key = " + floor_key
        + " ORDER BY 2";

FCLTselectorOptions(
             sql,
             { initKey: ruimte_key,
               emptyOption: L("lcl_fg_norooms"),
               initEmpty: true
             });

ASPPAGE_END(); 
%> 
