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

Savepoint

Browse Source 
svn path=/Website/trunk/; revision=28
This commit is contained in:
Peter Feij
2009-10-23 17:56:32 +00:00
parent 8570896f52
commit d9c1baee5b
8 changed files with 406 additions and 305 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
APPL/CAD/default.asp
View File

@@ -1,9 +1,9 @@
<%@language = "javascript" %>
<% /*
$Revision: 1 $
$Modtime: 16-09-09 20:55 $
$Revision: 2 $
$Modtime: 15-10-09 18:58 $
File: FGII/default.asp
File: CAD/default.asp
Description: Hoofdscherm voor Facilitor Graphics II
Parameters:
mode optional: [MODE_IN] or [MODE_OUT]. Default via fg_startBuiten
@@ -584,13 +584,13 @@ function MMap_onPrint(SlnkEvent)
return true; // Altijd alleen de default 'Flexibel' optie
<% } else { %>
var sFeatures="dialogHeight:400px;dialogWidth:600px;status=no";
var url="../FGII/printWhat.asp?x=x"+getCustomParameters();
var url="../CAD/printWhat.asp?x=x"+getCustomParameters();
var res = window.showModalDialog("ModalForm.asp", url, sFeatures);
if (!res) return false; // cancel
if (res.style=="SLNKDWF") return true; // Default print
// Dan maar advanced
var url = "../FGII/PrintFG.asp";
var url = "../CAD/PrintFG.asp";
url += "?XSLmode=" + res.style;
url += getCustomParameters();
pngURL = MMap.GetPrintURL(true); // true for current zoom
@@ -719,7 +719,7 @@ function openLocGMaps()
if (locSelect.selectedIndex>=0)
{
loc_key = locSelect[locSelect.selectedIndex].value;
fwnd = window.open('../FGII/ShowGoogleMap.asp?loc_key='+loc_key, 'FGShow',
fwnd = window.open('../CAD/ShowGoogleMap.asp?loc_key='+loc_key, 'FGShow',
"width=640,height=480,directories=no,location=no,menubar=no,"
+ "resizable=yes,status=no,titlebar=yes,toolbar=no");
fwnd.focus()
@@ -734,7 +734,7 @@ function openBldGMaps()
if (bldSelect.selectedIndex>=0)
{
bld_key = bldSelect[bldSelect.selectedIndex].value;
fwnd = window.open('../FGII/ShowGoogleMap.asp?bld_key='+bld_key, 'FGShow',
fwnd = window.open('../CAD/ShowGoogleMap.asp?bld_key='+bld_key, 'FGShow',
"width=640,height=480,directories=no,location=no,menubar=no,"
+ "resizable=yes,status=no,titlebar=yes,toolbar=no");
fwnd.focus()
@@ -826,7 +826,7 @@ function onFullScreen()
{
stateFullScreen = !stateFullScreen;
var ob = document.getElementById('MinMaxBtn');
ob.src=stateFullScreen? '../Pictures/mg_normalscreen.gif':'../Pictures/mg_fullscreen.gif';
ob.src=stateFullScreen? '../Pictures/normalscreen.gif':'../Pictures/fullscreen.gif';
_OnFullScreen(stateFullScreen);
}
@@ -856,9 +856,9 @@ function toggleFG(elm, idList)
function resetMap()
{
MMap.Reset();
MMap.SetIMGGenerator("../FGII/mySlnk2IMG.asp");
MMap.SetIMGGenerator("../CAD/mySlnk2IMG.asp");
// Door de volgende regel kunnen symbolen versleept worden
MMap.SetKeyToSymbol("../FGII/mykeyToSymbol.asp");
MMap.SetKeyToSymbol("../CAD/mykeyToSymbol.asp");
MMap.SetPaperColor(<%=fg_paperColor%>);
MMap.SetStyleSheet("<%=custpath%>/cust.css");
@@ -938,7 +938,7 @@ function mydragstartINS(evt, srtdeel_key)
// Door de Reposition truc centreert het symbool rond de cursor.
// Dat is niet 100% correct want eigenlijk zouden we rond het zwaartepunt van de symboolcontour moeten centreren
var imgHTML = "<img style='position:absolute;top:-10;left:-10' onload='parent.Reposition(this)'";
imgHTML+= " src =\"../fgii/mysymbol.asp?paperColor="+MMap.gSLNKEvent.paperColor+"&srtdeel="+srtdeel_key+"&sdwgScale=" + MMap.gSLNKEvent.scaleY + "\"></img>";
imgHTML+= " src =\"../CAD/mysymbol.asp?paperColor="+MMap.gSLNKEvent.paperColor+"&srtdeel="+srtdeel_key+"&sdwgScale=" + MMap.gSLNKEvent.scaleY + "\"></img>";
mydragstart(evt, imgHTML, { type:"I", key:srtdeel_key });
}
@@ -946,7 +946,7 @@ function mydragstartINS(evt, srtdeel_key)
function mydragstartWP(evt)
{
var imgHTML = "<img style='position:absolute;top:-10;left:-10' onload='parent.Reposition(this)'";
imgHTML+= " src =\"../fgii/myWerkplek.asp?paperColor="+MMap.gSLNKEvent.paperColor+"&sdwgScale=" + MMap.gSLNKEvent.scaleY + "\"></img>";
imgHTML+= " src =\"../CAD/myWerkplek.asp?paperColor="+MMap.gSLNKEvent.paperColor+"&sdwgScale=" + MMap.gSLNKEvent.scaleY + "\"></img>";
mydragstart(evt, imgHTML, { type:"W" });
}
@@ -1525,7 +1525,7 @@ if (0) FCLTplaatsselector(ALGreadlevel, {no_table: true,
============================ -->
<div style="height:100%">
<img style="cursor:hand" onclick='javascript:onFullScreen()'
src="../Pictures/mg_fullscreen.gif"
src="../Pictures/fullscreen.gif"
width='21' height='20' id='MinMaxBtn'
style="position:absolute;height:20px;width:20px;z-index:2;
left:expression(mapCell.offsetLeft+mapCell.offsetWidth-20);
@@ -1547,8 +1547,7 @@ if (0) FCLTplaatsselector(ALGreadlevel, {no_table: true,
<br><br><br><br><br><br><br><br><br>&gt;<br>&gt;<br>&gt;
</div>
<div style="float:right">
<iframe style="height:100%;padding-top:5px"
id='theTabs' name='theTabs'
<iframe id='theTabs' name='theTabs'
src="<%=scenario_key>0?"../prj/tabs_in.asp":inoutMode==MODE_IN?"tabs_in.asp":"tabs_out.asp"%>"
scrolling=no width="100%" height="100%" frameborder='0' framespacing='0'>
</iframe>

118
APPL/CAD/rap_alg.asp
View File

@@ -1,30 +1,38 @@
<%@ language="javascript"%>
<% /*
$Revision: 1 $
$Modtime: 20-07-09 21:53 $
$Revision: 2 $
$Modtime: 15-10-09 19:13 $
File: CAD/rap_alg.asp
Status: 99%
Description: Inhoud van het ALG-tabblad van FG
Parameters: floorKey (required)
highlight (optional list of room-keys to filter)
Context: -
*/%>
<!--#include file="../../cust/install.inc"-->
<!--#include file="../Shared/datetime.inc" -->
<%
FACPageTitle = lcl_space_manage_h;
%>
<!--#include file="../Shared/resultset_table_v2.inc" -->
<!--#include file="FGII.inc" -->
<!--#Xinclude file="FGII.inc" -->
<%
var sql="";
highlight = _getParam("highlight", ""); // Comma-separated room_key_list (terrains). Optional
floorKey = _getParam("vKey", "");
var floorKey = getQParam("vKey", -1);
var highlight = getQParam("highlight", "-1"); // Comma-separated room_key_list (terrains). Optional
if (floorKey !=""){
var outputmode = getQParam("outputmode" ,0);
var showall = getQParam("showall" ,0);
var sql = "";
if (floorKey != -1) {
sql = " SELECT r.alg_ruimte_key, r.alg_ruimte_aanduiding, r.alg_srtruimte_omschrijving,"
+ " r.alg_ruimte_bruto_vloeropp, r.alg_ruimte_omschrijving"
+ ", (SELECT " + prs_dep_string
+ " r.alg_ruimte_bruto_vloeropp, r.alg_ruimte_omschrijving,"
+ " r.alg_ruimte_opp_alt1, r.alg_ruimte_opp_alt2,"
+ " (SELECT " + prs_dep_string
+ " FROM prs_v_afdeling d"
+ " WHERE d.prs_afdeling_key = ra.prs_afdeling_key) afdeling"
+ " FROM (SELECT alg_r.alg_ruimte_key alg_ruimte_key,"
+ " alg_r.alg_ruimte_omschrijving alg_ruimte_omschrijving,"
+ " alg_s.alg_srtruimte_omschrijving alg_srtruimte_omschrijving,"
+ " alg_r.alg_ruimte_bruto_vloeropp,"
+ " alg_r.alg_ruimte_bruto_vloeropp, alg_r.alg_ruimte_opp_alt1, alg_r.alg_ruimte_opp_alt2,"
+ " alg_g.alg_gebouw_code"
+ " || '-'"
+ " || TO_CHAR (alg_v.alg_verdieping_code)"
@@ -41,7 +49,8 @@
+ " prs_ruimteafdeling ra"
+ " WHERE ra.alg_ruimte_key(+) = r.alg_ruimte_key"
+ " AND ra.prs_ruimteafdeling_verwijder IS NULL";
if (highlight != "" && highlight != "-1") sql += " AND r.alg_ruimte_key IN (" + highlight + ")"
if (highlight != "-1")
sql += " AND r.alg_ruimte_key IN (" + highlight + ")";
sql += " ORDER BY r.alg_ruimte_aanduiding, afdeling";
} else { // Er is (nog) geen verdieping bekend
sql = "SELECT * FROM DUAL WHERE 1=0";
@@ -49,8 +58,8 @@
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<script>
<% FCLTHeader.Generate({ outputmode: outputmode }); %>
<script type="text/javascript">
function onClickRuimteAlternatief(room_key)
{
sl = parent.parent.document.getElementById("rooms");
@@ -64,26 +73,43 @@
}
}
}
function onClickRuimte(room_key)
function onClickRuimte(row)
{
return; // Toch maar niet, ruimte.asp werkt niet helemaal goed buiten zijn context
fwnd = window.open('../alg/ruimte.asp?mode=ReadOnly&Key='+room_key, 'FGShowRoom',
"width=960,height=640,directories=no,location=no,menubar=no,"
+ "resizable=yes,status=no,titlebar=yes,toolbar=no");
fwnd.focus();
FcltMgr.openDetail("appl/ALG/alg_ruimte.asp?key=" + row.ROWKEY, "<%=lcl_estate_ruimte_title%>");
}
</script>
</head>
<body class="tabpage">
<form name='u2' target='print_preview_composer' method=post
action='<%=Request.ServerVariables("SCRIPT_NAME")%>?<%=Request.ServerVariables("QUERY_STRING")%>&print'>
<%
var summaryParams = { selectedopp: 0, selectedoppAlt1: 0, selectedoppAlt2: 0 }
function fnsummaryCalc(oRs)
{
with (summaryParams)
{
selectedopp = selectedopp + (oRs("alg_ruimte_bruto_vloeropp").value != null ? oRs("alg_ruimte_bruto_vloeropp").value : 0);
selectedoppAlt1 = selectedoppAlt1 + (oRs("alg_ruimte_opp_alt1").value != null ? oRs("alg_ruimte_opp_alt1").value : 0);
selectedoppAlt2 = selectedoppAlt2 + (oRs("alg_ruimte_opp_alt2").value != null ? oRs("alg_ruimte_opp_alt2").value : 0);
}
return;
}
function fnsummaryShow()
{
var status_row = "<label>" + lcl_estate_totaal_opp + "</label> "
+ "<label>" + lcl_estate_ruimte_bruto_vloeropp+"</label>: "+summaryParams.selectedopp.toFixed(2) + " " +lcl_estate_ruimte_opp_m2;
if (fg_contourlayers_alt1!=""&&fg_labellayers_alt1!="")
status_row += ", <label>" + lcl_estate_ruimte_opp_alt1+"</label>: "+summaryParams.selectedoppAlt1.toFixed(2) + " " +lcl_estate_ruimte_opp_m2;
if (fg_contourlayers_alt2!=""&&fg_labellayers_alt2!="")
status_row += ", <label>" + lcl_estate_ruimte_opp_alt2+"</label>: "+summaryParams.selectedoppAlt2.toFixed(2) + " " +lcl_estate_ruimte_opp_m2;
return status_row;
}
var lastValue = null;
function showRoomDesc(oRs)
{
if (oRs("alg_ruimte_aanduiding").Value == lastValue)
{ // leek leuk om herhalingen te onderdrukken, maar sorteren maakt het waardeloos
if (false && outputmode == 0 && oRs("alg_ruimte_aanduiding").Value == lastValue)
var result = null;
else
var result = oRs("alg_ruimte_aanduiding").value;
@@ -91,18 +117,46 @@
return result;
}
var rst = new ResultsetTable().withKeyColumn(0).withSQL(sql).withPrintPreview(true).
withDefaultAction('onClickRuimte(row.ROWKEY)');
function fnOpp(oRs)
{
return (oRs("alg_ruimte_bruto_vloeropp").value != null ? ""+oRs("alg_ruimte_bruto_vloeropp").value.toFixed(2) : "-");
}
function fnOppAlt1(oRs)
{
return (oRs("alg_ruimte_opp_alt1").value != null ? ""+oRs("alg_ruimte_opp_alt1").value.toFixed(2) : "-");
}
function fnOppAlt2(oRs)
{
return (oRs("alg_ruimte_opp_alt2").value != null ? ""+oRs("alg_ruimte_opp_alt2").value.toFixed(2) : "-");
}
var rst = new ResultsetTable( {ID : "cadalgtable",
keyColumn: "alg_ruimte_key",
title: lcl_space_manage_h,
sql: sql,
outputmode: outputmode,
showAll: showall,
summaryCalc: fnsummaryCalc,
summaryShow: fnsummaryShow
}
);
rst.addColumn(new Column().withCaption(lcl_obj_inf_room).withContent(showRoomDesc));
rst.addColumn(new Column().withCaption(lcl_fg_func_names).withContent("alg_srtruimte_omschrijving"));
rst.addColumn(new Column().withCaption(lcl_opp).withContent("alg_ruimte_bruto_vloeropp"));
rst.addColumn(new Column().withCaption(lcl_descr).withContent("alg_ruimte_omschrijving"));
rst.addColumn(new Column().withCaption(lcl_department).withContent("afdeling"));
rst.addColumn(new Column({datatype: "currency"}).withCaption(lcl_estate_ruimte_bruto_vloeropp).withContent(fnOpp));
if (fg_contourlayers_alt1!=""&&fg_labellayers_alt1!="")
rst.addColumn(new Column({datatype: "currency"}).withCaption(lcl_estate_ruimte_opp_alt1).withContent(fnOppAlt1));
if (fg_contourlayers_alt2!=""&&fg_labellayers_alt2!="")
rst.addColumn(new Column({datatype: "currency"}).withCaption(lcl_estate_ruimte_opp_alt2).withContent(fnOppAlt2));
rst.addAction({ action: "onClickRuimte", caption: lcl_edit, isDefault: true } );
var cnt = rst.processResultset();
%>
</form>
</body>
</html>

130
APPL/CAD/rap_ins.asp
View File

@@ -1,115 +1,39 @@
<%@ language="javascript"%>
<% /*
$Revision: 1 $
$Modtime: 20-07-09 21:54 $
$Revision: 2 $
$Modtime: 15-10-09 17:02 $
File: cad/rap_ins.asp
Status: 80%
Description: Inhoud van het INS-tabblad van FG
Parameters: floorKey (required)
highlight (optional list of room-keys to filter)
Context: -
Note: TODO: voeg de defaultactie toe (moet ins_list doen. Bepalen wat die in embedded mode moet doen)
*/%>
<% InstGraph = true; %>
<% Response.Expires = 0;
noCharSet = true; %>
<!--#include file="../../cust/install.inc"-->
<!--#include file="../Shared/datetime.inc" -->
<!--#include file="../Shared/resultset_table_v2.inc" -->
<!--#include file="../ins/ins_list.inc" -->
<!--#include file="FGII.inc" -->
<%
FACPageTitle = lcl_objtmanagment_h;
%>
<!--#include file="rap_container.inc" -->
<%
discs = _getParam("discs", "-1");
var highlight = _getParam("highlight", ""); // Comma-separated room_key_list (terrains). Optional
var floorKey = _getParam("vKey", "");
var oRs,i;
var sql="";
var names = new Array();
i=0;
obj_key=getParam("obj");
var floorKey = getQParam("vKey", -1);
var highlight = getQParam("highlight", "-1"); // Comma-separated room_key_list (terrains). Optional
var discs = getQParam("discs", "-1");
act_obj_search = "../objects/search.asp?floor="+floorKey
+ "&rooms=" + highlight + '&obj_key=' + obj_key
+ (discs==null?'':('&disc='+discs)) + "&fgraph=1";
var outputmode = getQParam("outputmode" ,0);
var showall = getQParam("showall" ,0);
Response.Redirect (act_obj_search);
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<script type="text/javascript" src="../LocalScripts/sel_tables.js">
</script>
<script type="text/javascript">
function print_test(){
var w,h;
w = window.top.width;
h = window.top.height;
window.open("../templates/tmpl_fg_report.asp","_blank","resizable=1,menubar=1,scrollbars=1" + ",width=" + w + ",height=" + h);
}
function setImage(id, src)
{
document.all.item(id).src = "../Pictures/" + src;
}
</script>
</head>
<body class="tabpage">
<table id='report_table' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td valign=top>
<table cellpadding="0" width='100%' cellspacing="1" bgcolor="white">
<tr>
<%
for( i=0 ; i < names.length ; i++ ){
%>
<th><%=names[i]%>
<%
if (i == names.length-1) { // in de laatste head moffelen we het printicon
%>
<img alt="<%=lcl_print_report%>" src="../Pictures/mg_print.gif" border='0' onClick="javascript:window.print()" class='ref'
id="ImgPrint" onMouseOver="javascript:setImage('ImgPrint', 'mg_print_o.gif')"
onMouseOut="javascript:setImage('ImgPrint', 'mg_print.gif')"
onMouseDown="javascript:setImage('ImgPrint', 'mg_print_d.gif')"
onMouseUp="javascript:setImage('ImgPrint', 'mg_print_o.gif')">
<%
}
%>
</th>
<%
}
%>
</tr>
<%
if( sql != "" ){
oRs = Oracle.Execute(sql);
var count = 0;
while( !oRs.eof ){
%>
<tr>
<%
for( i=0 ; i < names.length ; i++ ){
%>
<td class="selectable"><%= oRs(i)%> </td>
<%
}
oRs.MoveNext();
%>
</tr>
<%
}
oRs.Close();
if (floorKey != -1) {
ins_list("WEB_INSUSE",
{ urole: "bo",
embedded: true, fgraph: true,
flr_key: floorKey,
// TODO nagaan of we dit nu wel of niet wensen: disc_key: discs,
outputmode: outputmode,
showAll: showall
});
}
%>
</table>
</td>
</tr>
</table>
</body>
</html>

89
APPL/CAD/rap_mld.asp
View File

@@ -1,41 +1,48 @@
<%@ language="javascript"%>
<% /*
$Revision: 1 $
$Modtime: 20-07-09 21:52 $
$Revision: 2 $
$Modtime: 15-10-09 17:34 $
File: CAD/rap_mld.asp
Status: 90%
Description: Inhoud van het MLD-tabblad van FG
Parameters: floorKey (required)
highlight (optional list of room-keys to filter)
Context: -
Note: we hadden ook kunnen kiezen om mld_list aan te roepen. TODO Dat kan nog!
*/%>
<!--#include file="../../cust/install.inc"-->
<!--#include file="../Shared/datetime.inc" -->
<%
FACPageTitle = lcl_complains;
%>
<!--#include file="../Shared/resultset_table_v2.inc" -->
<!--#include file="FGII.inc" -->
<%
// discs zijn INS-disciplines, weinig relatie met MLD-disciplines
// discs = _getParam("discs", null);
highlight = _getParam("highlight", ""); // Comma-separated room_key_list (terrains). Optional
floorKey = _getParam("vKey", "");
var floorKey = getQParam("vKey", -1);
var highlight = getQParam("highlight", "-1"); // Comma-separated room_key_list (terrains). Optional
var sql="";
var outputmode = getQParam("outputmode" ,0);
var showall = getQParam("showall" ,0);
if (floorKey !=""){
var sql = "";
if (floorKey != -1) {
sql = " SELECT R.alg_ruimte_nr Ruimtenr"
+ ", "+ GetDateTime("M.mld_melding_datum", true)+" Datum"
+ ", SD.ins_srtdiscipline_prefix||M.mld_melding_key Nr"
+ ", MD.ins_discipline_omschrijving||'/'||STDM.mld_stdmelding_omschrijving Melding"
+ ", ST.mld_statuses_omschrijving Status"
+ ", M.mld_melding_omschrijving omschrijving"
+ ", M.mld_melding_datum Datum"
+ ", SD.ins_srtdiscipline_prefix||M.mld_melding_key Nr"
+ ", M.mld_melding_key"
+ ", MD.ins_discipline_omschrijving||'/'||STDM.mld_stdmelding_omschrijving Melding"
+ ", ST.mld_statuses_omschrijving Status"
+ ", M.mld_melding_omschrijving omschrijving"
+ " FROM alg_ruimte R, mld_melding M, mld_stdmelding STDM"
+ ", mld_statuses ST, mld_discipline MD, ins_srtdiscipline SD "
+ " WHERE m.MLD_ALG_ONROERENDGOED_KEYS= r.alg_ruimte_key "
+ " AND m.mld_stdmelding_key=STDM.mld_stdmelding_key"
+ " AND m.MLD_MELDING_STATUS=ST.mld_statuses_key"
+ " AND m.mld_ins_discipline_key= MD.ins_discipline_key"
+ " AND md.ins_srtdiscipline_key=sd.ins_srtdiscipline_key"
+ " AND R.alg_verdieping_key = " + floorKey
if (highlight != "" && highlight != "-1") sql += " AND r.alg_ruimte_key IN (" + highlight + ")"
sql += " AND M.mld_melding_status IN (2,3,4,7)"
+ " ORDER BY 1,3 DESC";
+ ", mld_statuses ST, mld_discipline MD, ins_srtdiscipline SD "
+ " WHERE m.mld_alg_onroerendgoed_keys= r.alg_ruimte_key "
+ " AND m.mld_stdmelding_key=STDM.mld_stdmelding_key"
+ " AND m.mld_melding_status=ST.mld_statuses_key"
+ " AND m.mld_ins_discipline_key= MD.ins_discipline_key"
+ " AND md.ins_srtdiscipline_key=sd.ins_srtdiscipline_key"
+ " AND R.alg_verdieping_key = " + floorKey;
if (highlight != "-1")
sql += " AND r.alg_ruimte_key IN (" + highlight + ")";
sql += " AND M.mld_melding_status IN (2,3,4,7)"
+ " ORDER BY 1,3 DESC";
} else {
sql = "SELECT * FROM DUAL WHERE 1=0";
}
@@ -43,35 +50,35 @@
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<script>
function onClickMelding(mld_key)
<% FCLTHeader.Generate({ outputmode: outputmode }); %>
<script type="text/javascript">
function onClickMelding(row)
{
// er is nog geen werkende View-mode voor meldingen
fwnd = window.open('../Complains/complains.asp?reado=&backo=&mld_key='+room_key, 'FGShowMld',
"width=640,height=480,directories=no,location=no,menubar=no,"
+ "resizable=yes,status=no,titlebar=yes,toolbar=no");
fwnd.focus();
FcltMgr.openDetail("appl/mld/mld_melding.asp?urole=bo&mld_key=" + row.ROWKEY, "");
}
</script>
</head>
<body class="tabpage">
<form name='u2' target='print_preview_composer' method=post
action='<%=Request.ServerVariables("SCRIPT_NAME")%>?<%=Request.ServerVariables("QUERY_STRING")%>&print'>
<%
var rst = new ResultsetTable().withKeyColumn(0).withSQL(sql).withDefaultAction('void(0);');
//withDefaultAction('onClickMelding(row.ROWKEY)');
var rst = new ResultsetTable({ID : "cadmldtable",
keyColumn: "mld_melding_key",
title: lcl_complains,
sql: sql,
outputmode: outputmode,
showAll: showall
});
rst.addColumn(new Column().withCaption(lcl_obj_inf_room).withContent("Ruimtenr"));
rst.addColumn(new Column().withCaption(lcl_date_time).withContent("Datum"));
rst.addColumn(new Column({caption: lcl_date_time, content: "Datum", datatype: "datetime"}));
rst.addColumn(new Column().withCaption(lcl_call_number).withContent("Nr"));
rst.addColumn(new Column().withCaption(lcl_complain).withContent("Melding"));
rst.addColumn(new Column().withCaption(lcl_status).withContent("Status"));
rst.addColumn(new Column().withCaption(lcl_descr).withContent("omschrijving"));
rst.addAction({ action: "onClickMelding", caption: lcl_edit, isDefault: true } );
var cnt = rst.processResultset();
%>
</form>
</body>
</html>

74
APPL/CAD/rap_move.asp
View File

@@ -1,39 +1,49 @@
<%@ language="javascript"%>
<% /*
$Revision: 1 $
$Modtime: 20-07-09 21:57 $
Personen/werkplek buffer ACTUELE module
Vanuit het tabblad kunnen namen (eventueel op een andere verdieping) gedropt worden.
Let op: dit tabblad kan gelocked zijn: dan blijft hij op de 'huidige' verdieping
staan ook al wissel je van tekening.
$Revision: 2 $
$Modtime: 15-10-09 18:30 $
File: CAD/rap_move.asp
Status: 80%
Description: Inhoud van het ALG-tabblad van FG
Parameters: floorKey (required)
highlight (optional list of room-keys to filter)
Context: -
Personen/werkplek buffer ACTUELE module
Vanuit het tabblad kunnen namen (eventueel op een andere verdieping) gedropt worden.
Let op: dit tabblad kan gelocked zijn: dan blijft hij op de 'huidige' verdieping
staan ook al wissel je van tekening.
Autorisatie: - Je ziet altijd alle personen op deze verdieping (conform rap_prs tabje)
- Een persoon is sleepbaar (rood) als je PRSBOF schrijfrechten op deze
verdieping hebt en PRSBOF schrijfrechten op deze persoon
TODO: persoonselector ipv suggest
*/%>
<!--#include file="../../cust/install.inc"-->
<%
FACPageTitle = lcl_fg_verhuizing;
%>
<!--#include file="../Shared/resultset_table_v2.inc" -->
<!--#include file="FGII.inc" -->
<!--#Xinclude file="FGII.inc" -->
<%
autfunction = "WEB_PRSBOF";
%>
<!-- #include file="../Shared/autlevel.inc" -->
<%
// Globaal voor deze file
var floorKey = _getParam("vKey");
var floorKey = getQParam("vKey", -1);
var highlight = getQParam("highlight", "-1"); // Comma-separated room_key_list (terrains). Optional
var outputmode = getQParam("outputmode" ,0);
var showall = getQParam("showall" ,0);
var sql = "";
var autfunction = "WEB_PRSBOF";
var authparams = user.checkAutorisation(autfunction);
var AlgAuthOk = true; // Mag ik mensen weghalen van deze verdieping
if (ALGwritelevel>0)
if (authparams.ALGwritelevel>0)
{
var sql = "SELECT alg_verdieping_key FROM fac_v_my_floors"
+ " WHERE prs_perslid_key="+user_key
+ " AND alg_verdieping_key = " + floorKey
+ " AND niveau="+ALGwritelevel;
+ " AND niveau="+authparams.ALGwritelevel;
oRs = Oracle.Execute(sql);
AlgAuthOk = (!oRs.Eof);
}
@@ -44,18 +54,15 @@
+ " WHERE alg_v.alg_verdieping_key = " + floorKey
+ " AND alg_g.alg_gebouw_key = alg_v.alg_gebouw_key"
oRs = Oracle.Execute(sql);
var verdTxt = oRs(0);
var verdTxt = oRs(0).value;
highlight = _getParam("highlight", ""); // Comma-separated room_key_list (terrains). Optional
rooms = _getParam("rooms", ""); // Comma-separated room_key_list (terrains). Optional
if (floorKey !=""){
if (floorKey != -1) {
// Alleen personen waar je schrijfrechten op hebt zijn straks draggable
if (!AlgAuthOk)
autsql = "NULL";
else
{
if (!thisfunc_enabled||PRSwritelevel>-1)
if (authparams.PRSwritelevel>-1)
autsql = "(SELECT fpw.prs_afdeling_key FROM fac_v_my_prs_afdelingen_write fpw"
+ " WHERE d.prs_afdeling_key = fpw.prs_afdeling_key "
+ " AND prs_perslid_key="+user_key
@@ -81,8 +88,8 @@
+ " AND p.prs_perslid_key = pwp.prs_perslid_key"
+ " AND pwp.prs_werkplek_key = w.prs_werkplek_key"
+ " AND w.prs_alg_ruimte_key = alg_r.alg_ruimte_key"
+ " AND pwp.prs_perslid_key IS NOT NULL"
if (highlight != "" && highlight != "-1") sql += " AND alg_r.alg_ruimte_key IN (" + highlight + ")"
+ " AND pwp.prs_perslid_key IS NOT NULL";
if (highlight != "-1") sql += " AND alg_r.alg_ruimte_key IN (" + highlight + ")";
sql+= " ORDER BY naam, 1"
} else {
sql = "SELECT * FROM DUAL WHERE 1=0";
@@ -91,7 +98,7 @@
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<% FCLTHeader.Generate({ outputmode: outputmode }); %>
<script type="text/javascript" src="../suggest/suggest.js"></script>
<script language="JavaScript1.2" src=draganddrop.js></script>
<script language="JavaScript1.2">
@@ -157,8 +164,6 @@
</head>
<body class="tabpage" onLoad="onLoad();">
<form name='u2' target='print_preview_composer' method=post
action='<%=Request.ServerVariables("SCRIPT_NAME")%>?<%=Request.ServerVariables("QUERY_STRING")%>&print'>
<% if (prs_werkplek_implicit==1) { %>
<table><tr><td valign="top"><%=lcl_name%>:
<input align=left name="sgPerson" class=suggest value=""
@@ -187,19 +192,16 @@
+ " tblName='PRS_PERSLIDWERKPLEK'>"+oRs("naam")+"</div>"
}
var rst = new ResultsetTable().withKeyColumn(0).withSQL(sql).withDefaultAction('clearSelection();');
var rst = new ResultsetTable({ID: "cadmovetable", title: lcl_fg_verhuizing}).withKeyColumn(0).withSQL(sql).withDefaultAction('clearSelection();');
rst.addColumn(new Column().withCaption(lcl_workplace).withContent(ShowWP));
if (prs_werkplek_implicit==0)
rst.addColumn(new Column().withCaption(lcl_occupation_perc).withContent("prs_perslidwerkplek_bezetting"));
rst.addColumn(new Column().withCaption(lcl_prj_draggable_name).withContent(DraggableName).withTitle(lcl_draggable));
//rst.addColumn(new Column().withCaption(lcl_phone).withContent("prs_perslid_telefoonnr"));
//rst.addColumn(new Column().withCaption(lcl_prs_email).withContent("email"));
rst.addColumn(new Column().withCaption(lcl_prs_organisatie).withContent("afd"));
rst.addColumn(new Column().withCaption(lcl_fg_func_names).withContent("prs_srtperslid_omschrijving"));
var cnt = rst.processResultset();
%>
</form>
</body>
</html>

74
APPL/CAD/rap_prs.asp
View File

@@ -1,26 +1,36 @@
<%@ language="javascript"%>
<% /*
$Revision: 1 $
$Modtime: 20-07-09 21:52 $
$Revision: 2 $
$Modtime: 15-10-09 19:13 $
File: cad/rap_prs.asp
Status: 90%
Description: Inhoud van het PRS-tabblad van FG
Parameters: floorKey (required)
highlight (optional list of room-keys to filter)
Context: -
Note: TODO: voeg de beste defaultactie toe (werkplek of persoon?)
*/%>
<!--#include file="../../cust/install.inc"-->
<!--#include file="../Shared/datetime.inc" -->
<%
FACPageTitle = lcl_search_pers;
%>
<!--#include file="../Shared/resultset_table_v2.inc" -->
<!--#include file="FGII.inc" -->
<%
var highlight = _getParam("highlight", ""); // Comma-separated room_key_list (terrains). Optional
var floorKey = _getParam("vKey", "");
if (floorKey !=""){
// werkplekken: Personen en afdeling binnen de geselecteerde ruimtes, of de werkplekken van gezochte personen
sql = " SELECT l.alg_ruimte_aanduiding, "+prs_pers_string+" naam, p.prs_perslid_telefoonnr,"
var floorKey = getQParam("vKey", -1);
var highlight = getQParam("highlight", "-1"); // Comma-separated room_key_list (terrains). Optional
var outputmode = getQParam("outputmode" ,0);
var showall = getQParam("showall" ,0);
if (floorKey != -1) {
// werkplekken: Personen binnen de geselecteerde ruimtes, of de werkplekken van gezochte personen
sql = " SELECT l.alg_ruimte_aanduiding, pf.prs_perslid_naam_full naam, p.prs_perslid_telefoonnr,p.prs_perslid_mobiel,"
+ " p.prs_perslid_email email, "+prs_dep_string+" afd, p.prs_srtperslid_omschrijving,"
+ " p.prs_perslid_upper"
+ " p.prs_perslid_upper, pwp.prs_perslidwerkplek_key"
+ " FROM prs_v_perslid_gegevens p,"
+ " prs_v_aanwezigafdeling d,"
+ " prs_v_perslid_fullnames pf,"
+ " (select * from prs_v_aanwezigwerkplek where prs_werkplek_virtueel = 0) w,"
+ " prs_v_aanwezigperslidwerkplek pwp,"
+ " (SELECT alg_r.alg_ruimte_key alg_ruimte_key,"
@@ -35,37 +45,61 @@
+ " AND alg_g.alg_gebouw_key = alg_v.alg_gebouw_key) l"
+ " WHERE p.prs_afdeling_key = d.prs_afdeling_key"
+ " AND p.prs_perslid_key = pwp.prs_perslid_key"
+ " AND p.prs_perslid_key = pf.prs_perslid_key"
+ " AND pwp.prs_werkplek_key = w.prs_werkplek_key"
+ " AND w.prs_alg_ruimte_key = l.alg_ruimte_key"
+ " AND pwp.prs_perslid_key IS NOT NULL"
if (highlight != "" && highlight != "-1") sql += " AND l.alg_ruimte_key IN (" + highlight + ")"
+ " AND pwp.prs_perslid_key IS NOT NULL";
if (highlight != "-1")
sql += " AND l.alg_ruimte_key IN (" + highlight + ")"
sql += " ORDER BY 1, 7";
} else {
sql = "SELECT * FROM DUAL WHERE 1=0";
}
var lastValue = null;
function showRoomDesc(oRs)
{ // leek leuk om herhalingen te onderdrukken, maar sorteren maakt het waardeloos
if (false && outputmode == 0 && oRs("alg_ruimte_aanduiding").Value == lastValue)
var result = null;
else
var result = oRs("alg_ruimte_aanduiding").value;
lastValue = oRs("alg_ruimte_aanduiding").value;
return result;
}
function fnEmail (oRs) {
if ( oRs("email").Value != null )
return"<a href='mailto:"+oRs("email")+"'>"+oRs("email")+"</a>";
else
return "";
}
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<% FCLTHeader.Generate({ outputmode: outputmode }); %>
</head>
<body class="tabpage">
<form name='u2' target='print_preview_composer' method=post
action='<%=Request.ServerVariables("SCRIPT_NAME")%>?<%=Request.ServerVariables("QUERY_STRING")%>&print'>
<%
var rst = new ResultsetTable().withKeyColumn(0).withSQL(sql).withDefaultAction('void(0);');
var rst = new ResultsetTable( {ID : "cadprstable",
keyColumn: "prs_perslidwerkplek_key",
title: lcl_search_pers,
sql: sql,
outputmode: outputmode,
showAll: showall
}
);
rst.addColumn(new Column().withCaption(lcl_obj_inf_room).withContent("alg_ruimte_aanduiding"));
rst.addColumn(new Column().withCaption(lcl_obj_inf_room).withContent(showRoomDesc));
rst.addColumn(new Column().withCaption(lcl_name).withContent("naam"));
rst.addColumn(new Column().withCaption(lcl_phone).withContent("prs_perslid_telefoonnr"));
rst.addColumn(new Column().withCaption(lcl_prs_email).withContent("email"));
rst.addColumn(new Column().withCaption(lcl_prs_email).withContent(fnEmail));
rst.addColumn(new Column().withCaption(lcl_prs_mobile).withContent("prs_perslid_mobiel"));
rst.addColumn(new Column().withCaption(lcl_prs_organisatie).withContent("afd"));
rst.addColumn(new Column().withCaption(lcl_fg_func_names).withContent("prs_srtperslid_omschrijving"));
var cnt = rst.processResultset();
%>
</form>
</body>
</html>

62
APPL/CAD/rap_sch.asp
View File

@@ -1,39 +1,43 @@
<%@ language="javascript"%>
<% /*
$Revision: 1 $
$Modtime: 20-07-09 21:58 $
$Revision: 2 $
$Modtime: 15-10-09 17:31 $
File: CAD/rap_sch.asp
Status: 90%
Description: Inhoud van het SCH-tabblad van FG
Parameters: floorKey (required)
highlight (optional list of room-keys to filter)
Context: -
Note: TODO: lcl-s toepassen. Hoe algemeen is deze eigenlijk?
en default action verzinnen
*/%>
<!--#include file="../../cust/install.inc"-->
<!--#include file="../Shared/datetime.inc" -->
<!--#include file="../Shared/resultset_table_v2.inc" -->
<!--#xinclude file="FGII.inc" -->
<%
FACPageTitle = lcl_cleaning_h;
%>
<!--#include file="FGII.inc" -->
<%
var floorKey = getQParam("vKey", -1);
var highlight = getQParam("highlight", "-1"); // Comma-separated room_key_list (terrains). Optional
var outputmode = getQParam("outputmode" ,0);
var showall = getQParam("showall" ,0);
var sql = "";
// Select the column defined as cleaning surface!
var sch_opp = '';
if (sch_alg_ruimte_opp_column==1) {
sch_opp+="opp_alt1";
}
else if (sch_alg_ruimte_opp_column==2) {
sch_opp+="opp_alt2";
}
else { // (sch_alg_ruimte_opp_column==0)
sch_opp+="opp_bvo";
}
if (sch_alg_ruimte_opp_column==1) { sch_opp+="opp_alt1"; }
else if (sch_alg_ruimte_opp_column==2) { sch_opp+="opp_alt2"; }
else { sch_opp+="opp_bvo"; }// sch_alg_ruimte_opp_column==0
var sql="";
highlight = _getParam("highlight", ""); // Comma-separated room_key_list (terrains). Optional
floorKey = _getParam("vKey", "");
if (floorKey !=""){
if (floorKey != -1) {
sql = sql + " SELECT R.alg_ruimte_key";
sql = sql + " , R.gebouw_code||'-'||R.verdieping_code||'-'||R.ruimte_nr ruimte_nr";
sql = sql + " , R.ruimte_srt, R."+sch_opp;
sql = sql + " , R.ruimtesoort, R.vloersoort, R.frequentie";
sql = sql + " , R.prog_code, R.prog_doc, R.sch_bedrijf, R.sch_opm_link, R.sch_opm";
sql = sql + " FROM SCH_V_RUIMTEGEGEVENS R";
sql = sql + " FROM sch_v_ruimtegegevens R";
sql = sql + " WHERE R.alg_verdieping_key = " + floorKey;
if (highlight != "" && highlight != "-1") sql += " AND R.alg_ruimte_key IN (" + highlight + ")";
sql += " ORDER BY 2";
@@ -41,7 +45,7 @@
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<% FCLTHeader.Generate({ outputmode: outputmode }); %>
<script>
function uwva_DoSchOpm(alg_ruimte_key)
{
@@ -54,8 +58,6 @@
</head>
<body class="tabpage">
<form name='u2' target='print_preview_composer' method=post
action='<%=Request.ServerVariables("SCRIPT_NAME")%>?<%=Request.ServerVariables("QUERY_STRING")%>&print'>
<%
function refDoc(oRs)
{
@@ -75,7 +77,14 @@
" href='javascript:uwva_DoSchOpm(" + oRs("alg_ruimte_key") + ")'>Opm</a>";
}
var rst = new ResultsetTable().withKeyColumn(0).withSQL(sql).withDefaultAction('void(0);');
var rst = new ResultsetTable({ID : "cadschtable",
keyColumn: "alg_ruimte_key",
title: lcl_cleaning_h,
sql: sql,
outputmode: outputmode,
showAll: showall
});
rst.addColumn(new Column().withCaption(lcl_obj_inf_room).withContent("ruimte_nr"));
rst.addColumn(new Column().withCaption("Ruimtesoort").withContent("ruimte_srt"));
@@ -89,6 +98,5 @@
var cnt = rst.processResultset();
%>
</form>
</body>
</html>

135
APPL/CAD/rap_sle.asp
View File

@@ -1,48 +1,121 @@
<%@ language="javascript"%>
<% /*
$Revision: 1 $
$Modtime: 20-07-09 21:55 $
$Revision: 2 $
$Modtime: 15-10-09 18:19 $
File: CAD/rap_sle.asp
Status: 80% (niet getest bij gebrek aan content, query gejat uit SLE module)
Description: Inhoud van het SLE-tabblad van FG
Parameters: floorKey (required)
highlight (optional list of room-keys to filter)
Context: -
Note: we hadden ook kunnen kiezen om mld_list aan te roepen. TODO Dat kan nog!
*/%>
<!--#include file="../../cust/install.inc"-->
<!--#include file="../Shared/datetime.inc" -->
<!--#include file="../Shared/resultset_table_v2.inc" -->
<!--#include file="FGII.inc" -->
<%
FACPageTitle = lcl_sle_toegang;
%>
<!--#include file="rap_container.inc" -->
<%
var sql="";
var names = new Array();
rooms = getParam("rooms"); // Comma-separated room_key_list (terrains). Optional
var floorKey = getQParam("vKey", -1);
var highlight = getQParam("highlight", "-1"); // Comma-separated room_key_list (terrains). Optional
names[0] = lcl_obj_inf_room;
names[1] = "sleutel";
names[2] = "lcl_persoon";
var outputmode = getQParam("outputmode" ,0);
var showall = getQParam("showall" ,0);
if (rooms !=""){
// SAMPLE: oude stijl tabellen!!!
sql = " SELECT r.alg_ruimte_nr ruimtenr, sl.sle_sleutel_omschrijving, pf.prs_perslid_naam_full"
+ " FROM alg_ruimte r,"
+ " prs_v_perslid_fullnames_all pf,"
+ " sle_slot slot,"
+ " sle_sleutel_slot ss,"
+ " sle_sleutel_perslid sp,"
+ " sle_sleutel sl"
+ " WHERE slot.sle_alg_onroerendgoed_keys = r.alg_ruimte_key"
+ " AND ss.sle_slot_key = slot.sle_slot_key"
+ " AND sp.sle_sleutel_key = ss.sle_sleutel_key"
+ " AND sp.sle_prs_perslid_key = pf.prs_perslid_key"
+ " AND ss.sle_sleutel_key = sl.sle_sleutel_key"
+ " AND r.alg_ruimte_key IN (" + rooms + ")"
+ " ORDER BY 1, 3";
var sql = "";
if (floorKey != -1) {
sql = "SELECT r.alg_ruimte_nr, sle.ins_deel_key, ssle.ins_srtdeel_key, ssle.ins_srtdeel_omschrijving|| '/'|| sle.ins_deel_omschrijving sleutel, "
+ " p.prs_perslid_naam ||CASE COALESCE(p.prs_perslid_voorletters, '') WHEN '' "
+ " THEN '' "
+ " ELSE ', ' || p.prs_perslid_voorletters "
+ " END || "
+ " CASE COALESCE(p.prs_perslid_tussenvoegsel, '') WHEN '' "
+ " THEN '' "
+ " ELSE ' ' || p.prs_perslid_tussenvoegsel "
+ " END || "
+ " CASE COALESCE(p.prs_perslid_voornaam, '') WHEN '' "
+ " THEN '' "
+ " ELSE ' (' || p.prs_perslid_voornaam || ')' "
+ " END bezitter "
+ " FROM prs_v_aanwezigperslid p, ins_deel sle, ins_srtdeel ssle, ins_deel cil, ins_srtdeel scil, ins_srtdeel_srtdeel "
+ " ss, alg_ruimte r "
+ " WHERE ssle.ins_srtdeel_key = ss.ins_srtdeel_key_2 "
+ " AND scil.ins_srtdeel_key = ss.ins_srtdeel_key_1 "
+ " AND ssle.ins_srtdeel_key = sle.ins_srtdeel_key "
+ " AND ssle.ins_srtgroep_key = -1 "
+ " AND scil.ins_srtdeel_key = cil.ins_srtdeel_key "
+ " AND scil.ins_srtgroep_key = -1 "
+ " AND sle.ins_alg_ruimte_type = 'P' "
+ " AND sle.ins_alg_ruimte_key = p.prs_perslid_key "
+ " AND cil.ins_alg_ruimte_type = 'R' "
+ " AND cil.ins_alg_ruimte_key = r.alg_ruimte_key "
+ " AND cil.ins_alg_ruimte_key IN ( "
+ " SELECT room.alg_ruimte_key "
+ " FROM alg_v_aanweziggebouw bld, alg_v_aanwezigverdieping floor, alg_v_aanwezigruimte room "
+ " WHERE floor.alg_gebouw_key = bld.alg_gebouw_key "
+ " AND room.alg_verdieping_key = floor.alg_verdieping_key "
+ " AND room.alg_verdieping_key ="+floorKey+") UNION /* RUIMTE CYLINDERS, AFDELING SLEUTELS */ "
+ " SELECT r.alg_ruimte_nr, sle.ins_deel_key, ssle.ins_srtdeel_key, ssle.ins_srtdeel_omschrijving || '/' || sle.ins_deel_omschrijving "
+ " sleutel, "
+ " case sle.ins_deel_aantal when 2 "
+ " then '[beschikbaar]' "
+ " else '['||d.prs_afdeling_naam6||']' "
+ " end bezitter "
+ " FROM prs_v_aanwezigafdeling d, ins_deel sle, ins_srtdeel ssle, ins_deel cil, ins_srtdeel scil, ins_srtdeel_srtdeel "
+ " ss, alg_ruimte r "
+ " WHERE ssle.ins_srtdeel_key = ss.ins_srtdeel_key_2 "
+ " AND scil.ins_srtdeel_key = ss.ins_srtdeel_key_1 "
+ " AND ssle.ins_srtdeel_key = sle.ins_srtdeel_key "
+ " AND ssle.ins_srtgroep_key =-1 "
+ " AND scil.ins_srtdeel_key = cil.ins_srtdeel_key "
+ " AND scil.ins_srtgroep_key = -1 "
+ " AND sle.ins_alg_ruimte_type = 'A' "
+ " AND sle.ins_alg_ruimte_key = d.prs_afdeling_key "
+ " AND cil.ins_alg_ruimte_type = 'R' "
+ " AND cil.ins_alg_ruimte_key = r.alg_ruimte_key "
+ " AND cil.ins_alg_ruimte_key IN ( "
+ " SELECT room.alg_ruimte_key "
+ " FROM alg_v_aanweziggebouw bld, alg_v_aanwezigverdieping floor, alg_v_aanwezigruimte room "
+ " WHERE floor.alg_gebouw_key = bld.alg_gebouw_key "
+ " AND room.alg_verdieping_key = floor.alg_verdieping_key "
+ " AND room.alg_verdieping_key = "+floorKey+") ";
if (highlight != "-1")
sql += " AND r.alg_ruimte_key IN (" + highlight + ")";
+ " ORDER BY 4,3 ";
sql += " ORDER BY 1,3 DESC";
} else {
sql = "SELECT * FROM DUAL WHERE 1=0";
}
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<% FCLTHeader.Generate({ outputmode: outputmode }); %>
<script type="text/javascript">
function onClickToegang(row)
{
FcltMgr.openDetail("appl/sle/xxx.asp?urole=bo&key=" + row.ROWKEY, "");
}
</script>
</head>
<body class="tabpage">
<% ShowDefaultGrid (names, sql); %>
<%
var rst = new ResultsetTable({ID : "cadsletable",
keyColumn: "ins_deel_key", // mwoah
title: lcl_sle_toegang,
sql: sql,
outputmode: outputmode,
showAll: showall
});
rst.addColumn(new Column().withCaption(lcl_obj_inf_room).withContent("ruimtenr"));
rst.addColumn(new Column().withCaption("TODOsleutel").withContent("sleutel"));
rst.addColumn(new Column().withCaption("TODOpersoon").withContent("bezitter"));
rst.addAction({ action: "onClickToegang", caption: lcl_edit, isDefault: true } );
var cnt = rst.processResultset();
%>
</body>
</html>