admin/Facilitor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FSN#39816 meer mogelijkheden met plattegronden (themakeuze, legenda, resolutie)

Browse Source 
svn path=/Website/trunk/; revision=33136
This commit is contained in:
Peter Feij
2017-03-14 11:41:27 +00:00
parent e1fd6755a1
commit 03cdd10181
1 changed files with 33 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
APPL/PDA/cad_thema_select.asp
View File

@@ -3,12 +3,10 @@
$Revision$
$Id$
File: cad_thema-select.asp
File: cad_thema_select.asp
Description: Kies een theme voor een plattegrond
ins_key
ruimte_key
-
rest optioneel
verdieping_key
optioneel thema_key (dan skipt deze direct door naar plattegrond)
Note: We kiezen hier puur alleen het theme. De rest
wordt gewoon via plattegrond.asp gedaan
@@ -34,8 +32,8 @@ if (thema_key > -1) // Dan hebben we al een thema en valt hier niks toe te voeg
var scenario_key=0;
var bitcode = 0x01; // binnen
%>
%>
<html>
<head>
<% FCLTMHeader.Generate({title: L("lcl_kies_thema") }); %>
@@ -48,42 +46,38 @@ var bitcode = 0x01; // binnen
HEADER({title: header_title, back:!qrc, home: !qrc });
CONTENT_START();
function fncolLink(oRs)
{
var nurl = "plattegrond.asp?thema_key=" + oRs("cad_thema_key").Value + transitParam;
return nurl;
};
function fncolLink(oRs)
{
var nurl = "plattegrond.asp?thema_key=" + oRs("cad_thema_key").Value + transitParam;
return nurl;
};
if (thema_key < 0)
{
sql = "SELECT CAD_THEMA_KEY, "
+ lcl.xsqla('cad_thema_omschrijving', 'cad_thema_key')
+ " FROM CAD_THEMA "
+ " WHERE BITAND(CAD_THEMA_TYPE, " + bitcode + ") = " + bitcode
+ " AND BITAND(CAD_THEMA_TYPE, 4) = 0" // actueel, niet project
+ " AND BITAND(CAD_THEMA_TYPE, 128) = 0" // de draggables maar niet
+ " AND (FAC_FUNCTIE_KEY IS NULL"
+ " OR FAC_FUNCTIE_KEY IN "
+ " (SELECT FAC_FUNCTIE_KEY FROM fac_v_webgebruiker"
+ " WHERE prs_perslid_key = " + user_key + "))"
+ " ORDER BY 2";
if (thema_key < 0)
{
sql = "SELECT CAD_THEMA_KEY, "
+ lcl.xsqla('cad_thema_omschrijving', 'cad_thema_key')
+ " FROM CAD_THEMA "
+ " WHERE BITAND(CAD_THEMA_TYPE, " + bitcode + ") = " + bitcode
+ " AND BITAND(CAD_THEMA_TYPE, 4) = 0" // actueel, niet project
+ " AND BITAND(CAD_THEMA_TYPE, 128) = 0" // de draggables maar niet
+ " AND (FAC_FUNCTIE_KEY IS NULL"
+ " OR FAC_FUNCTIE_KEY IN "
+ " (SELECT FAC_FUNCTIE_KEY FROM fac_v_webgebruiker"
+ " WHERE prs_perslid_key = " + user_key + "))"
+ " ORDER BY 2";
var rst = new ResultsetTable({ sql: sql
, keyColumn: "CAD_THEMA_KEY"
, linkColumn: fncolLink
, headerColumn: "cad_thema_omschrijving"
, ID: "thematable"
, showAll: true
, noSearch: true
, emptySetString: L("lcl_empty")
});
var cnt = rst.processResultset();
if (cnt == 0)
{
%><script>alert(L("lcl_mobile_no_stdmelding"));window.history.back(1)</script><%
}
}
var rst = new ResultsetTable({ sql: sql
, keyColumn: "CAD_THEMA_KEY"
, linkColumn: fncolLink
, headerColumn: "cad_thema_omschrijving"
, ID: "thematable"
, showAll: true
, noSearch: true
, emptySetString: L("lcl_empty")
});
var cnt = rst.processResultset();
}
CONTENT_END();
FOOTER();