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

CONN#57009 -- Omzetten CONN naar SaaS

Browse Source 
svn path=/Website/branches/v2019.1/; revision=41652
This commit is contained in:
Arthur Egberink
2019-03-19 09:05:39 +00:00
parent caf109f464
commit c0a590407f
7 changed files with 0 additions and 881 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
CUST/CONN/CONN.css
View File

@@ -1,79 +0,0 @@
/*
* $Revision$
* $Id$
*/
/* Connexxion bassikleuren:
fel appelgroen: #D1EA32
donkergroen : #005956
Martin vindt dat felgroen maar niks, en opteert voor lichtblauw,
Mijn suggestie: #C7DFFA
*/
#headerblok
{
background: url(splash-body-bg.gif) no-repeat;
color: #005956;
}
#headerprefix {
padding-top: 5px;
font-size: 2.0em;
}
label, #search div.fcltblock label {
color: #005956;
}
#mainbody {
border-bottom: 20px solid #005956;
}
.fcltframeheader {
background-color: #C7DFFA;
background-image: none;
}
div.fcltframeheader {
color: #005956;
}
#iframerextratitle {
color: #000000;
}
#mywelcome , #mymessages, #myactions{
background-color: #005956;
}
.menukop {
color: #005956;
}
.rstable td {
border-bottom: #005956 1px solid;
}
#buttons ul li {
background-color: #D1EA32;
padding: 2px 12px 2px 12px;
}
#buttons ul li a {
color: #D1EA32;
}
#buttons ul li a:hover {
color: #FFFFFF;
text-decoration: underline;
}
div#buttons.dialog img {
margin-right: 120px;
}
li.mi a {
color: #101010;
font-weight: bold;
}
div#ProfFAC, div#ProfFAC ul li li {
background-color: #f4f4f4;
}
li.mk {
background-color: #C7DFFA;
border-top: 1px solid #005956;
}
div#besItemSel .fcltblockhead {
background-color: #D1EA32;
}

154
CUST/CONN/contract_info.asp
View File

@@ -1,154 +0,0 @@
<%@ language="javascript"%>
<% /*
$Revision$
$Id$
*/ %>
<%
function cent(amount) {
// returns the amount in the .99 format
amount -= 0;
amount = (Math.round(amount*100))/100;
return (amount == Math.floor(amount)) ? amount + '.00' : ( (amount*10 == Math.floor(amount*10)) ? amount + '0' : amount);
}
%>
<!--#include file="../../appl/Shared/common.inc"-->
<% FCLTHeader.Set({root: "../../appl/"}); %>
<!--#include file="../../appl/Shared/iface.inc"-->
<!-- #include file="../../appl/Shared/funcodes.inc" -->
<%
if( func_enabled[ "WEB_RELMAN"] ) {
var cid_sel = getQParamInt('cid');
var sql,oRs;
var obj_name;
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
</head>
<%
var names = new Array();
max_i=6;
i=0;
names[0] = "Tarieftype";
names[1] = L("lcl_obj_inf_room");
names[2] = L("lcl_descr");
names[3] = L("lcl_opp");
names[4] = "Tarief";
names[5] = "*Kosten";
sql = " SELECT R.Tarieftype, R.Ruimtenr, R.omschrijving, R.gehuurdeoppervlakte Opp, R.alg_srtruimte_prijs, "
sql += " R.gehuurdeoppervlakte * R.alg_srtruimte_prijs Kosten, R.huurder Huurder,"
sql += " R.huurderNr HuurderNr, R.budgetcode, R.businessunit, R.cnt_contract_nummer Contractnr ";
sql += " FROM (SELECT rg.alg_ruimte_omschrijving omschrijving,";
sql += " rg.alg_srtruimte_code Tarieftype,";
sql += " rg.alg_srtruimte_prijs,";
sql += " rg.alg_gebouw_upper||'-'|| TO_CHAR(rg.alg_verdieping_code)||'-'||rg.alg_ruimte_nr Ruimtenr,";
sql += " rg.ruimteoppervlakte,";
sql += " rg.gehuurdeoppervlakte,";
sql += " rg.Huurder,";
sql += " rg.HuurderNr,";
sql += " rg.Budgetcode Budgetcode,";
sql += " rg.BusinessUnit BusinessUnit,";
sql += " rg.cnt_contract_nummer ";
sql += " FROM CONN_V_RUIMTEGEG rg ";
sql += " UNION ALL ";
sql += " SELECT rt.alg_ruimte_omschrijving omschrijving,";
sql += " rt.alg_srtruimte_code Tarieftype,";
sql += " rt.alg_srtruimte_prijs,";
sql += " rt.alg_gebouw_upper||'-'|| TO_CHAR(rt.alg_verdieping_code)||'-'||rt.alg_ruimte_nr Ruimtenr,";
sql += " rt.ruimteoppervlakte,";
sql += " rt.gehuurdeoppervlakte,";
sql += " rt.Huurder,";
sql += " rt.HuurderNr,";
sql += " rt.Budgetcode Budgetcode,";
sql += " rt.BusinessUnit BusinessUnit,";
sql += " rt.cnt_contract_nummer ";
sql += " FROM CONN_V_TERREINGEG rt ) R ";
sql += " WHERE R.cnt_contract_nummer = '" + cid_sel + "'";
sql += " ORDER BY R.Tarieftype "
%>
<body class="modal">
<%
oRs=Oracle.Execute(sql);
if (oRs.eof)
{
Response.Write(L("lcl_object_not_found"));
Response.End();
}
%>
<table id='head_table' width='100%'>
<tr><td class="label"><label>Contract:</label></td><td><%=oRs("Contractnr")%></td></tr>
<tr><td class="label"><label>Huurder:</label></td><td><%=oRs("Huurder")%></td></tr>
<tr><td class="label"><label>Debiteur:</label></td><td><%=oRs("HuurderNr")%></td></tr>
<tr><td class="label"><label>Budgetcode:</label></td><td><%=oRs("Budgetcode")%></td></tr>
<tr><td class="label"><label>Businessunit:</label></td><td><%=oRs("Businessunit")%></td></tr>
</table>
<%oRs.close();%>
<p>
<table class='rstable' width='100%' >
<tr><thead>
<%
for( i=0 ; i < max_i ; i++ ){
%>
<th><%=names[i]%></th>
<%
}
%>
</thead>
</tr>
<%
if( sql != "" ){
oRs = Oracle.Execute(sql);
var count = 0;
var prevTar = '';
var sumTar = 0;
var sumTot = 0;
while( !oRs.eof ){
%>
<tr>
<%
for( i=0 ; i < max_i ; i++ ){
if (i==4||i==5)
txt=cent(oRs(i).value);
else
txt=oRs(i).value;
%><td class="nowrap" <% if (i>=3) {%>align=right<%}%>><%=txt%></td><%
}
prevTar = oRs("Tarieftype").value;
sumTar += 0+(oRs("Kosten").value);
sumTot += 0+(oRs("Kosten").value);
oRs.MoveNext();
%>
</tr>
<%
if (oRs.eof || prevTar != oRs("Tarieftype").value)
{
%>
<tr height=30 valign=top><td colspan=<%=max_i-1%> class="label"><label>Subtotaal <%=prevTar%></label>:</td><td align=right>&euro;&nbsp;<%=cent(sumTar)%></td></tr>
<%
sumTar = 0
}
}
oRs.Close();
}
%>
<tr><td colspan=<%=max_i-1%>><label>Totaal contract:</label></td><td align=right>&euro;&nbsp;<%=cent(sumTot)%></td></tr>
</table>
</body>
</html>
<% } else { %>
<html>
<% FCLTHeader.Generate(); %>
<body>
<p><%=L("lcl_no_auth")%></p>
<% } %>
</body>
</html>

131
CUST/CONN/rap_cnt.asp
View File

@@ -1,131 +0,0 @@
<%@ language="javascript"%>
<% /*
$Revision$
$Id$
*/%>
<!--#include file="../../appl/Shared/common.inc"-->
<% FCLTHeader.Set({root: "../../appl/"}); %>
<!--#include file="../../appl/Shared/resultset_table_v2.inc" -->
<!--#include file="../../appl/CAD/FGII.inc" -->
<%
var sql="";
var highlight_arr = getQParamIntArray("highlight", []); // Comma-separated room_key_list (terrains). Optional
var floorKey = getQParamInt("vKey", -1);
var gebouwKey = getQParamInt("gKey", -1);
var outputmode = getQParamInt("outputmode", 0);
var showall = getQParamInt("showall", 0) == 1;
var autfunction = "WEB_FGCNT";
var authparams = user.checkAutorisation(autfunction);
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<script>
function onClickContract(cid)
{
FcltMgr.openModalDetail('../../../' + '<%=custpath%>' + '/contract_info.asp?cid=' + cid, 'ContractInfo');
}
</script>
</head>
<body class="tabpage">
<form name='u2'>
<%
if (gebouwKey != -1)
{
sql = "SELECT r.ruimtenr"
+ " , r.omschrijving"
+ " , r.ruimteoppervlakte"
+ " , r.gehuurdeoppervlakte"
+ " , r.ruimtesoort"
+ " , r.tarieftype"
+ " , r.huurder"
+ " , r.huurdernr"
+ " , r.budgetcode"
+ " , r.businessunit"
+ " , r.cnt_contract_nummer"
+ " , r.rechten"
+ " , r.alg_ruimte_key x1"
+ " FROM (SELECT rg.alg_ruimte_key alg_ruimte_key"
+ " , rg.alg_ruimte_omschrijving omschrijving"
+ " , rg.ruimteoppervlakte"
+ " , rg.ruimtesoort ruimtesoort"
+ " , rg.alg_srtruimte_code tarieftype"
+ " , rg.alg_gebouw_upper || '-' || TO_CHAR(rg.alg_verdieping_code) || '-' || rg.alg_ruimte_nr ruimtenr"
+ " , rg.gehuurdeoppervlakte"
+ " , rg.huurder"
+ " , rg.huurdernr"
+ " , rg.budgetcode budgetcode"
+ " , rg.businessunit businessunit"
+ " , rg.cnt_contract_nummer"
+ " , NVL((SELECT '1'"
+ " FROM prs_v_afdeling_boom prs_ab, prs_afdeling prs_a"
+ " WHERE"
+ " prs_a.prs_afdeling_key = prs_ab.prs_afdeling_key1"
+ " AND prs_ab.prs_afdeling_key = '" + user.prs_afdeling_key() + "'"
+ ((authparams.ALGreadlevel > -1)
? " AND rg.alg_locatie_key IN (SELECT alg_locatie_key FROM fac_v_my_locations"
+ " WHERE prs_perslid_key = " + user_key + " AND niveau = " + authparams.ALGreadlevel + ")"
: " AND 1 = 1")
+ ((authparams.PRSreadlevel > -1)
? " AND rg.businessunit = prs_a.prs_afdeling_omschrijving"
: " AND 1 = 1")
+ " ), '0') AS rechten"
+ " FROM conn_v_ruimtegeg rg"
+ " , alg_ruimte ar"
+ " WHERE ar.alg_verdieping_key = " + floorKey
+ " AND rg.alg_ruimte_key = ar.alg_ruimte_key"
+ " ) R"
+ (highlight_arr.length > 0 && highlight_arr.join(",").indexOf("-1") == -1
? " WHERE r.alg_ruimte_key IN (" + highlight_arr.join(",") + ")"
+ " ORDER BY 1"
: "");
}
else
{
sql = "SELECT * FROM DUAL WHERE 1 = 0";
}
function refCnt(oRs)
{
var txt = (oRs("cnt_contract_nummer").value != null)? oRs("cnt_contract_nummer").value : "";
if (oRs("rechten").value != '1')
return txt; // Alleen tonen, niet klikbaar
else
return "<a title='Klik voor volledig contract' " +
" href='javascript:onClickContract(\"" + txt + "\")'>" + txt + "</a>";
}
var rst = new ResultsetTable({ sql: sql,
ID: "cadcnttable",
keyColumn: "cnt_contract_nummer",
title: L("lcl_cnt_contracts"),
outputmode: outputmode,
showAll: showall
});
rst.addColumn(new Column({caption: L("lcl_obj_inf_room"), content: "ruimtenr"}));
rst.addColumn(new Column({caption: L("lcl_descr"), content: "omschrijving"}));
rst.addColumn(new Column({caption: L("lcl_opp"), content: "ruimteoppervlakte"}));
rst.addColumn(new Column({caption: "CAD opp", content: "gehuurdeoppervlakte"}));
rst.addColumn(new Column({caption: "Ruimtesoort", content: "ruimtesoort"}));
rst.addColumn(new Column({caption: "Tarieftype", content: "tarieftype"}));
rst.addColumn(new Column({caption: "Huurder", content: "huurder"}));
rst.addColumn(new Column({caption: "Debiteurnr", content: "huurdernr"}));
rst.addColumn(new Column({caption: "Budgetcode", content: "budgetcode"}));
rst.addColumn(new Column({caption: "Businessunit", content: "businessunit"}));
rst.addColumn(new Column({caption: "Contractnr", content: refCnt}));
var cnt = rst.processResultset();
%>
</form>
</body>
</html>

125
CUST/CONN/rap_cnt2.asp
View File

@@ -1,125 +0,0 @@
<%@ language="javascript"%>
<% /*
$Revision$
$Id$
*/%>
<!--#include file="../../appl/Shared/common.inc"-->
<% FCLTHeader.Set({root: "../../appl/"}); %>
<!--#include file="../../appl/Shared/resultset_table_v2.inc" -->
<%
var autfunction="WEB_FGCNT";
var authparams = user.checkAutorisation(autfunction);
%>
<%
var sql = "";
var highlight_arr = getQParamIntArray("highlight", []); // Comma-separated room_key_list (terrains). Optional
var locKey = getQParamInt("vKey", -1);
var outputmode = getQParamInt("outputmode", 0);
var showall = getQParamInt("showall", 0) == 1;
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<script>
function conn_DoContract(cid)
{
FcltMgr.openModalDetail('../../../' + '<%=custpath%>' + '/contract_info.asp?cid='+cid, 'ContractInfo');
}
</script>
</head>
<body class="tabpage">
<form name='u2'>
<%
if (locKey != -1)
{
sql = " SELECT r.ruimtenr"
+ " , r.omschrijving"
+ " , r.ruimteoppervlakte opp"
+ " , r.gehuurdeoppervlakte opp2"
+ " , r.ruimtesoort"
+ " , r.tarieftype"
+ " , r.huurder huurder"
+ " , r.huurdernr huurdernr"
+ " , r.budgetcode"
+ " , r.businessunit"
+ " , r.cnt_contract_nummer contractnr"
+ " , r.rechten rechten"
+ " , r.alg_ruimte_key x1"
+ " FROM (SELECT rg.alg_ruimte_key alg_ruimte_key"
+ " , rg.alg_ruimte_omschrijving omschrijving"
+ " , rg.ruimteoppervlakte"
+ " , 'T' ruimtesoort"
+ " , rg.alg_srtruimte_code tarieftype"
+ " , rg.alg_gebouw_upper||'-'|| TO_CHAR(rg.alg_verdieping_code)||'-'||rg.alg_ruimte_nr ruimtenr"
+ " , rg.gehuurdeoppervlakte"
+ " , rg.huurder"
+ " , rg.huurdernr"
+ " , rg.budgetcode budgetcode"
+ " , rg.businessunit businessunit"
+ " , rg.cnt_contract_nummer"
+ " , NVL((SELECT '1'"
+ " FROM prs_v_afdeling_boom prs_ab, prs_afdeling prs_a"
+ " WHERE prs_a.prs_afdeling_key = prs_ab.prs_afdeling_key1 "
+ " AND prs_ab.prs_afdeling_key = '" + user.prs_afdeling_key() + "'"
+ " AND " + ((ALGreadlevel > -1)? " rg.alg_locatie_key IN (SELECT alg_locatie_key FROM fac_v_my_locations "
+ " WHERE prs_perslid_key = " + user_key + " AND niveau = " + ALGreadlevel + " )"
: "1 = 1")
+ " AND " + ((PRSreadlevel > -1)? " rg.BusinessUnit = prs_a.prs_afdeling_omschrijving "
: "1 = 1")
+ " ),'0') AS rechten"
+ " FROM conn_v_terreingeg rg"
+ " WHERE alg_locatie_key = " + locKey
+ " ) R"
+ (highlight_arr.length > 0 && highlight_arr.join(",").indexOf("-1") == -1
? " WHERE r.alg_ruimte_key IN (" + highlight_arr.join(",") + ")"
: "")
+ " ORDER BY 1";
}
else
{
sql = "SELECT * FROM DUAL WHERE 1 = 0";
}
function refCnt(oRs)
{
var txt = (oRs("contractnr").value != null)? safe.htmlattr(oRs("contractnr").value) : "";
if (oRs("rechten").value != '1')
return txt; // Alleen tonen, niet klikbaar
else
return "<a title='Klik voor volledig contract' " +
" href='javascript:conn_DoContract(\"" + txt + "\")'>" + txt + "</a>";
}
var rst = new ResultsetTable({ sql: sql,
ID : "cadcnttable",
keyColumn: "Ruimtenr",
title: L("lcl_cnt_contracts"),
outputmode: outputmode,
showAll: showall
});
rst.addColumn(new Column({caption: L("lcl_terra"), content: "ruimtenr"}));
rst.addColumn(new Column({caption: L("lcl_descr"), content: "omschrijving"}));
rst.addColumn(new Column({caption: L("lcl_opp"), content: "opp"}));
rst.addColumn(new Column({caption: "opp", content: "opp2"}));
rst.addColumn(new Column({caption: "Ruimtesoort", content: "ruimtesoort"}));
rst.addColumn(new Column({caption: "Tarieftype", content: "tarieftype"}));
rst.addColumn(new Column({caption: "Huurder", content: "huurder"}));
rst.addColumn(new Column({caption: "Debiteurnr", content: "huurdernr"}));
rst.addColumn(new Column({caption: "Budgetcode", content: "budgetcode"}));
rst.addColumn(new Column({caption: "Businessunit", content: "businessunit"}));
rst.addColumn(new Column({caption: "ContractNr", content: refCnt}));
var cnt = rst.processResultset();
%>
</form>
</body>
</html>

148
CUST/CONN/rap_sch.asp
View File

@@ -1,148 +0,0 @@
<%@ language="javascript"%>
<% /*
$Revision$
$Id$
*/%>
<!--#include file="../../appl/Shared/common.inc"-->
<% FCLTHeader.Set({root: "../../appl/"}); %>
<!--#include file="../../appl/Shared/resultset_table_v2.inc" -->
<%
var sql="";
var highlight_arr = getQParamIntArray("highlight", []); // Comma-separated room_key_list (terrains). Optional
var floorKey = getQParamInt("vKey", -1);
var outputmode = getQParamInt("outputmode", 0);
var showall = getQParamInt("showall", 0) == 1;
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
<script>
function conn_DoSchContract(alg_locatie_key)
{
FcltMgr.openModalDetail('../../../' + '<%=custpath%>' + '/schoonmaak_info.asp?lkey='+alg_locatie_key, 'Schoonmaakcontract Info');
}
function conn_DoSchOpm(alg_ruimte_key)
{
FcltMgr.openModalDetail('../../../' + '<%=custpath%>' + '/schoonmaak_opm.asp?rkey='+alg_ruimte_key, 'Opmerking bij schoonmaakcontract');
}
</script>
</head>
<body class="tabpage">
<form name='u2'>
<%
// connspecifiek
// in _conn.inc: factor_key=80; // alg_kenmerk_key van schoonmaakfactor van een gebouw
// in _conn.inc: schtarief=" DECODE(R.SCHOON,'ISS',18.66,'Berkel',19.30,'VLS',18.75,'NOVON',19.06,0) ";
if (floorKey != -1)
{
sql = " SELECT r.ruimtenr"
+ " , r.oppervlakte"
+ " , r.vloersoort"
+ " , r.omschrijving"
+ " , r.ruimtesoort"
+ " , r.schoon"
+ " , r.ruimte_dicht_datum"
+ " , r.ruimte_open_datum"
+ " , TO_CHAR(R.kengetal, '90D9999') kengetal"
+ " , TO_CHAR(R.Totaal,'99999D99') totaal"
+ " , r.programma"
+ " , r.hasopm"
+ " , r.inhuur"
+ " , r.uitbeheer"
+ " , r.alg_ruimte_key"
+ " , r.alg_locatie_key"
+ " , r.sch_document"
+ " FROM (SELECT sch.bestek"
+ " , alg_r.alg_ruimte_key alg_ruimte_key"
+ " , alg_g.alg_locatie_key alg_locatie_key"
+ " , alg_r.alg_ruimte_omschrijving omschrijving"
+ " , (SELECT alg_srtruimte_code FROM alg_srtruimte sr WHERE sr.alg_srtruimte_key = alg_r.alg_srtruimte_key) AS ruimtesoort"
+ " , alg_g.alg_gebouw_code || '-' || TO_CHAR(alg_v.alg_verdieping_volgnr) || '-' || alg_r.alg_ruimte_nr ruimtenr"
+ " , sch.oppervlakte"
+ " , sch.vloersoort"
+ " , sch.tot_ruimte_bedrag as totaal"
+ " , sch.schoon"
+ " , sch.programma"
+ " , sch.frequentie"
+ " , sch.rs"
+ " , sch.vs"
+ " , sch.kengetal"
+ " , sch.ruimte_dicht_datum"
+ " , sch.ruimte_open_datum"
+ " , sch.inhuur"
+ " , sch.uitbeheer"
+ " , sch.sch_document"
+ " , sch.opm as hasopm"
+ " FROM alg_gebouw alg_g"
+ " , alg_verdieping alg_v"
+ " , alg_v_aanwezigruimte alg_r"
+ " , conn_v_schoongeg2 sch"
+ " WHERE alg_v.alg_verdieping_key = " + floorKey
+ " AND alg_v.alg_verdieping_key = alg_r.alg_verdieping_key"
+ " AND alg_g.alg_gebouw_key = alg_v.alg_gebouw_key"
+ " AND alg_r.alg_ruimte_key = sch.alg_ruimte_key"
+ " ) R "
+ (highlight_arr.length > 0 && highlight_arr.join(",").indexOf("-1") == -1
? " WHERE r.alg_ruimte_key IN (" + highlight_arr.join(",") + ")"
: "")
+ " ORDER BY 1";
}
function refCnt(oRs)
{
var txt = (oRs("totaal").value);
if (!txt) return "";
return "<a title='Klik voor overzicht hele complex' " +
" href='javascript:conn_DoSchContract(" + oRs("alg_locatie_key").value + ")'>" + txt + "</a>";
}
function refSchOpm(oRs)
{
var txt = (oRs("HasopM").value);
if (txt!='1') return "";
return "<a title='Klik voor opmerkingen' " +
" href='javascript:conn_DoSchOpm(" + oRs("alg_ruimte_key").value + ")'>Opm</a>";
}
function refDoc(oRs)
{
if (!oRs("Programma").value) return "";
return "<a href='" + safe.htmlattr(oRs("sch_document").value) + "' target=_new>"
+ safe.htmlattr(oRs("Programma").value) + "</a>"
}
var rst = new ResultsetTable({ sql: sql,
ID : "cadschtable",
keyColumn: "Ruimtenr",
title: L("lcl_cleaning_h"),
outputmode: outputmode,
showAll: showall
});
rst.addColumn(new Column({caption: L("lcl_obj_inf_room"), content: "ruimtenr"}));
rst.addColumn(new Column({caption: L("lcl_opp"), content: "oppervlakte"}));
rst.addColumn(new Column({caption: "Vloersoort", content: "vloersoort"}));
rst.addColumn(new Column({caption: L("lcl_descr"), content: "omschrijving"}));
rst.addColumn(new Column({caption: "Ruimtesoort", content: "ruimtesoort"}));
rst.addColumn(new Column({caption: "Schoonmaakbedrijf", content: "schoon"}));
rst.addColumn(new Column({caption: "Dicht per", content: "ruimte_dicht_datum"}));
rst.addColumn(new Column({caption: "Open per", content: "ruimte_open_datum"}));
rst.addColumn(new Column({caption: "Kengetal", content: "kengetal"}));
rst.addColumn(new Column({caption: "Kosten/m", content: refCnt}));
rst.addColumn(new Column({caption: "Programma", content: refDoc}));
rst.addColumn(new Column({caption: "Opm", content: refSchOpm}));
rst.addColumn(new Column({caption: "Inhuur", content: "inhuur"}));
rst.addColumn(new Column({caption: "Uitbeheer", content: "uitbeheer"}));
var cnt = rst.processResultset();
%>
</form>
</body>
</html>

183
CUST/CONN/schoonmaak_info.asp
View File

@@ -1,183 +0,0 @@
<%@ language="javascript"%>
<% /*
$Revision$
$Id$
*/ %>
<%
function cent(amount) {
// returns the amount in the .99 format
amount -= 0;
amount = (Math.round(amount*100))/100;
return (amount == Math.floor(amount)) ? amount + '.00' : ( (amount*10 == Math.floor(amount*10)) ? amount + '0' : amount);
}
%>
<!--#include file="../../appl/Shared/common.inc"-->
<% FCLTHeader.Set({root: "../../appl/"}); %>
<!--#include file="../../appl/Shared/iface.inc"-->
<!-- #include file="../../appl/Shared/funcodes.inc" -->
<%
if( func_enabled[ "WEB_RELMAN"] ) {
%>
<script type="text/javascript">
function conn_DoContract(cid)
{
cwnd = window.open('../../cust/conn/contract_info.asp?cid='+cid, 'ContractInfo',
"width=768, height=500, directories=no,location=no,menubar=no,"
+ "resizable=yes,status=no,titlebar=yes,toolbar=no,scrollbars=yes");
cwnd.focus();
}
</script>
<%
var alg_locatie_key = getQParamInt('lkey');
var sql,oRs;
var obj_name;
FACPageTitle = L("lcl_obj_info_title");
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
</head>
<%
var names = new Array();
max_i=0;
names[max_i++] = "Complex";
names[max_i++] = L("lcl_obj_inf_room");
names[max_i++] = L("lcl_opp");
names[max_i++] = L("lcl_covering");
names[max_i++] = L("lcl_descr");
names[max_i++] = "Bedrijf";
names[max_i++] = "Dicht per";
names[max_i++] = "Open per";
names[max_i++] = "Kengetal";
names[max_i++] = "Totaal";
names[max_i++] = "(Toeslag)";
names[max_i++] = "Programma";
names[max_i++] = "Freq.";
names[max_i++] = "Dicht";
sql = " SELECT COMPLEX, ";
sql += " GEBOUW||'-'|| TO_CHAR(verdieping)||'-'||ruimte Ruimtenr,";
sql += " OPPERVLAKTE, VLOERSOORT, OMSCHRIJVING, ";
sql += " SCHOON, RUIMTE_DICHT_DATUM, RUIMTE_OPEN_DATUM, ";
sql += " KENGETAL, TOT_RUIMTE_BEDRAG, TOESLAG_BEDRAG, PROGRAMMA, FREQUENTIE, ";
sql += " SCH_DICHT";
sql += " FROM CONN_V_SCHOONGEG2 ";
sql += " WHERE alg_locatie_key = " + alg_locatie_key;
sql += " AND OPPERVLAKTE IS NOT NULL";
sql += " ORDER BY Ruimtenr "
%>
<body class="modal">
<%
oRs=Oracle.Execute(sql);
if (oRs.eof)
{
Response.Write(L("lcl_object_not_found"));
Response.End();
}
oRsL=Oracle.Execute("SELECT * FROM CONN_V_SCHOON_LOC_GEG WHERE alg_locatie_key = " + alg_locatie_key);
%>
<table id='conntable' width='100%'>
<TR><TD width="50%"><TABLE>
<tr><td class="label"><label>Complexcode:</label></td><td><%=oRsL("Complex")%></td></tr>
<tr><td class="label"><label>Complexnaam:</label></td><td><%=oRsL("Complexnaam")%></td></tr>
<tr><td class="label"><label>Toeslag (%):</label></td><td><%=oRsL("TOESLAG")%></td></tr>
<tr><td class="label"><label>Datum afsluiten locatie:</label></td><td><%=oRsL("LOC_DICHT_DATUM")%></td></tr>
<tr><td class="label"><label>Fin. datum afsluiten:</label></td><td><%=oRsL("LOC_FIN_DICHT_DATUM")%></td></tr>
<tr><td class="label"><label>Bedrag:</label></td><td><%=cent(oRsL("TOT_RUIMTE_BEDRAG"))%></td></tr>
<tr><td class="label"><label>(Toeslag:)</label></td><td><%=cent(oRsL("TOESLAG_BEDRAG"))%></td></tr>
<tr><td class="label"><label>Opmerking:</label></td><td><pre style="font-family: Verdana"><%=oRsL("OPMERKING")%></pre></td></tr>
</TABLE></TD>
<TD valign="top"><TABLE>
<tr><td class="label"><label>Opp. glas kantoor:</label></td><td><%=oRsL("GLAS_KANTOOR")%></td></tr>
<tr><td class="label"><label>Opp. glas stalling:</label></td><td><%=oRsL("GLAS_STALLING")%></td></tr>
<tr><td class="label"><label>Opp. tegelwerk:</label></td><td><%=oRsL("TEGELWERK")%></td></tr>
<tr><td class="label"><label>Aantal overheaddeuren:</label></td><td><%=oRsL("OVERHEADDEUREN")%></td></tr>
<tr><td class="label"><label>Mantelobject:</label></td><td><%=oRsL("MANTELOBJECT")%></td></tr>
</TABLE></TD></TR>
<tr><td colspan="2" align="center"><h3>Info indien schoonmaak op locatieniveau</h3></td></tr>
<tr><td class="label"><label>Bestek:</label></td><td><%=oRsL("BESTEK")%></td></tr>
<tr><td class="label"><label>Schoonmaakbedrijf:</label></td><td><%=oRsL("SCHOON")%></td></tr>
<tr><td class="label"><label>Schoonmaakprogramma:</label></td><td><a title="Klik voor schoonmaakprogramma" href="../../cust/conn/Schoonmaak/Schoon - <%= oRsL("PROGRAMMA")%>.htm" target=_new><%=oRsL("PROGRAMMA")%></a></td></tr>
<tr><td class="label"><label>Frequentie:</label></td><td><%=oRsL("FREQUENTIE")%></td></tr>
<tr><td class="label"><label>Kengetal:</label></td><td><%=oRsL("KENGETAL")%></td></tr>
<tr><td class="label"><label>Oppervlakte:</label></td><td><%=oRsL("OPPERVLAKTE")%></td></tr>
</table>
<%oRsL.close();%>
<p>
<table class="rstable" id='conntable' width='100%'>
<tr>
<td valign=top>
<table cellpadding="0" cellspacing="0" width='100%' >
<tr><thead>
<%
for( i=1 ; i < max_i ; i++ ){
%>
<th><%=names[i]%></th>
<%
}
%></thead>
</tr>
<%
if( sql != "" ){
oRs = Oracle.Execute(sql);
var count = 0;
var sumTot = 0;
while( !oRs.eof ){
%>
<tr>
<%
for( i=1 ; i < max_i ; i++ ){
if (i==9||i==10)
txt=cent(oRs(i));
else
if (i==max_i-1)
txt=oRs(i)=="1"?"Dicht":"";
else
txt=oRs(i);
%>
<td <% if (i>=8||i==2) {%> align=right <%}%>
<% if (oRs("SCH_DICHT")=="1") {%> style="color:#FF6060" <%}%> class="nowrap">
<%=txt%>
</td>
<% }
sumTot += 0+(oRs("TOT_RUIMTE_BEDRAG"));
oRs.MoveNext();
%>
</tr>
<%
}
oRs.Close();
}
%>
<tr><td colspan="12" class="label"><label>Totaal contract:</label></td><td align=right>&euro;&nbsp;<%=cent(sumTot)%></td></tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<% } else { %>
<html>
<% FCLTHeader.Generate(); %>
<body>
<p><%=L("lcl_no_auth")%></p>
<% } %>
</body>
</html>

61
CUST/CONN/schoonmaak_opm.asp
View File

@@ -1,61 +0,0 @@
<%@ language="javascript"%>
<% /*
$Revision$
$Id$
*/ %>
<!--#include file="../../appl/Shared/common.inc"-->
<% FCLTHeader.Set({root: "../../appl/"}); %>
<!--#include file='../../appl/Shared/funcodes.inc'-->
<!--#include file="../../appl/Shared/resultset_table_v2.inc" -->
<!--#include file="../../appl/CAD/FGII.inc" -->
<%
if( func_enabled[ "WEB_RELMAN"] ) {
var alg_ruimte_key = getQParamInt('rkey');
var sql,oRs;
var obj_name;
%>
<html>
<head>
<% FCLTHeader.Generate(); %>
</head>
<%
if( alg_ruimte_key == -1 )
{
Response.Write("Illegal call: " + Request.ServerVariables("URL"));
Response.End();
}
sql = " SELECT OPM_LOC, OPM_RUIMTE ";
sql += " FROM CONN_V_SCHOONGEG2 ";
sql += " WHERE alg_ruimte_key = " + alg_ruimte_key;
%>
<body class="modal">
<%
oRs=Oracle.Execute(sql);
if (oRs.eof)
{
Response.Write(L("lcl_object_not_found"));
Response.End();
}
oRsL=Oracle.Execute(sql);
%>
<table id="connOpm" width='100%'>
<tr><td class="label"><label>Locatie-opmerking:</label></td><td><%=oRsL(0)%></td></tr>
<tr><td class="label"><label>Ruimte-opmerking:</label></td><td><%=oRsL(1)%></td></tr>
</table>
<%oRsL.close();%>
</body>
</html>
<% } else { %>
<html><head>
<% FCLTHeader.Generate(); %>
</head><body>
<p><%=L("lcl_no_auth")%></p>
<% } %>
</body>
</html>