36 lines
998 B
Plaintext
36 lines
998 B
Plaintext
<%@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();
|
|
%>
|