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

PCHD#33780 -- Inrichting het Gelders Huis

Browse Source 
svn path=/Website/branches/v2016.3/; revision=33509
This commit is contained in:
Arthur Egberink
2017-04-18 10:10:38 +00:00
parent 0ece8d51c7
commit 23e5ff0977
8 changed files with 234 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
CUST/PCHA/Oracle.udl Normal file
View File

Binary file not shown.

BIN
CUST/PCHA/banner.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 38 KiB

49
CUST/PCHA/mld_statusupdate.asp Normal file
View File

@@ -0,0 +1,49 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Modtime: 2-02-12 12:25 $
File: mld_statusupdate.asp
Description: A deeplink call from the reports section of Facilitor to finalize calls.
Parameters:
meldingnr Id of the mld_melding
mld_status Key of the requested mld_statusses
Context: Client specific file to handle a deeplink call.
Note:
*/ %>
<%
DOCTYPE_Disable = 1;
%>
<!-- #include file="../../appl/Shared/common.inc"-->
<!-- #include file="../../appl/Shared/json2.js" -->
<!-- #include file="../../appl/Shared/funcodes.inc" -->
<%
message = "Melding is niet aangepast";
var mld_melding_key = -1;
var meldingnr = getQParamInt("meldingnr", -1);
var mld_status = getQParamInt("mld_status", -1);
__Log('voor select');
sql = " SELECT mld_melding_key, mld_melding_status, mld_melding_afgerond FROM mld_melding WHERE mld_melding_key = " + meldingnr;
oRs = Oracle.Execute(sql);
if (!oRs.eof) {
// meldingnummer is gevonden
mld_melding_key = oRs('MLD_MELDING_KEY').value;
mld_melding_status = oRs('MLD_MELDING_STATUS').value;
mld_melding_afgerond = oRs('MLD_MELDING_AFGEROND').value;
__Log('Melding status: ' + mld_melding_status);
if (mld_status == 6 && mld_melding_status == 5 && mld_melding_afgerond == 1) {
// melding verwerken kan alleen voor afgeronde meldingen en ALLEEN door geautoriseerde medewerkers!
__Log('voor func_enabled');
if (func_enabled["WEB_USER06"])
{
message = 'Melding ' + mld_melding_key + ' is bevroren.';
// melding verwerken
sql = "BEGIN mld.setmeldingstatus("+ mld_melding_key +", 6, " + user_key + "); END;";
Oracle.Execute(sql);
}
}
result = { success : true, message : message };
Response.Write(JSON.stringify(result));
}
%>

4
CUST/PCHA/tasks/gen_notify.bat Normal file
View File

@@ -0,0 +1,4 @@
@echo off
REM Moet gescheduled worden (normaliter 1 keer per uur) om door de applicatiebeheerder
REM ingeregelde notificaties te genereren.
cscript ..\..\..\utils\gen_notify\gen_notify.js ../oracle.udl PCHA

4
CUST/PCHA/tasks/gen_scheduler.bat Normal file
View File

@@ -0,0 +1,4 @@
@echo off
REM Moet gescheduled worden (normaliter 1 keer per dag) om door de applicatiebeheerder
REM ingeregelde jobs (aanmaak van periodieke opdrachten) uit te voeren.
cscript ..\..\..\utils\gen_scheduler\gen_scheduler.js ../oracle.udl

1
CUST/PCHA/tasks/putOrders.bat Normal file
View File

@@ -0,0 +1 @@
call ..\..\..\utils\putOrders\putOrders.bat

BIN
CUST/PCHA/tmpl_logo.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.7 KiB

176
CUST/PCHA/xsl/cust.xsl Normal file
View File

@@ -0,0 +1,176 @@
<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxml="urn:schemas-microsoft-com:xslt" version="1.0">
<xsl:import href="../../../appl/shared/default.xsl"/>
<xsl:import href="../../pchx/xsl/default.xsl"/>
<xsl:template match="rapport">
<style>
td { border-bottom: 1px solid #ccc; padding: 4px 3px 8px 3px;}
</style>
<xsl:if test="@view='pcha_v_rap_gbs_status_info'">
<table width="100%">
<xsl:for-each select="rapport_data/data_row">
<xsl:sort select="ITEM_KEY" order="ascending"/>
<tr>
<td align="center"><xsl:value-of select="ITEM"/><br/>
<b><xsl:value-of select="substring-before(DATUM,'T')"/><br/>
<xsl:value-of select="substring-after(DATUM,'T')"/></b></td>
</tr>
</xsl:for-each>
</table>
</xsl:if>
<xsl:if test="@view='pcha_v_monitoring'">
<table width="100%" class="RStable" border="1" cellpadding="2" cellspacing="2">
<xsl:if test="count(rapport_data/data_row)=0">
<tr>
<td>
<center>
<b>Geen gegevens gevonden</b>
</center>
</td>
</tr>
</xsl:if>
<xsl:variable name="sorted">
<xsl:for-each select="rapport_data/data_row">
<xsl:sort select="MELDING_KEY" order="ascending"/>
<xsl:copy-of select="."/>
</xsl:for-each>
</xsl:variable>
<xsl:for-each select="msxml:node-set($sorted)/data_row">
<xsl:if test="position() = 1">
<tr>
<th style="text-align:left">Nummer</th>
<th style="text-align:left">Afwijking</th>
<th style="text-align:left">Ruimte</th>
<th style="text-align:left">Omschrijving</th>
<th style="text-align:left">Status</th>
<th style="text-align:left">Goedkeuring verzocht</th>
<th style="text-align:left">Actie</th>
</tr>
</xsl:if>
<tr>
<xsl:element name="td">
<xsl:attribute name="onclick">FcltMgr.openDetail('appl/mld/mld_melding.asp?urole=mi&amp;mld_key=<xsl:value-of select="MELDING_KEY"/>', '');</xsl:attribute>
<span style="cursor:pointer; text-decoration: underline;"><xsl:value-of select="MELDING_KEY"/></span>
</xsl:element>
<td style="text-align:left">
<xsl:value-of select="AFW"/>
</td>
<td style="text-align:left">
<xsl:value-of select="RUIMTE"/>
</td>
<td style="text-align:left">
<xsl:value-of select="OMSCHRIJVING"/>
</td>
<td style="text-align:left">
<xsl:value-of select="STATUS"/>
</td>
<td style="text-align:center">
<xsl:value-of select="AFGEROND"/>
</td>
<xsl:choose>
<xsl:when test="AFGEROND = 'x' and STATUS = 'Afgemeld'">
<xsl:element name="td">
<xsl:attribute name="title">Goedkeuren van de melding</xsl:attribute>
<xsl:attribute name="style">{border:none; text-align:right; }</xsl:attribute>
<xsl:attribute name="onclick">$.post('../../cust/pcha/mld_statusupdate.asp?meldingnr=<xsl:value-of select="MELDING_KEY"/>&amp;mld_status=6', {}, FcltCallbackRefresh, "json");</xsl:attribute>
<span style="cursor:pointer; text-decoration: underline;">Goedkeuren</span>
</xsl:element>
</xsl:when>
<xsl:otherwise>
<td class="DRR"></td>
</xsl:otherwise>
</xsl:choose>
</tr>
</xsl:for-each>
</table>
</xsl:if>
<xsl:if test="@view='pcha_v_dashboard_korting'">
<table width="100%" class="RStable" border="1" cellpadding="2" cellspacing="2" style="border:1; border-color: #ccc">
<xsl:if test="count(rapport_data/data_row)=0">
<tr>
<td>
<center>
<b>Geen gegevens gevonden</b>
</center>
</td>
</tr>
</xsl:if>
<xsl:variable name="sorted">
<xsl:for-each select="rapport_data/data_row">
<xsl:sort select="HIDE_F_MARGE" order="ascending"/>
<xsl:if test="HIDE_F_MARGE &lt; 5">
<xsl:copy-of select="."/>
</xsl:if>
</xsl:for-each>
</xsl:variable>
<xsl:for-each select="msxml:node-set($sorted)/data_row">
<xsl:if test="position() = 1">
<tr>
<th style="text-align:left">Melding</th>
<th style="text-align:left">Omschrijving</th>
<th style="text-align:center">Marge</th>
<th style="text-align:right">Korting/THT</th>
<th style="text-align:right">THT tijdstip</th>
<th style="text-align:right">THT</th>
</tr>
</xsl:if>
<tr>
<xsl:element name="td">
<xsl:value-of select="MELDING"/>
</xsl:element>
<td style="text-align:left">
<xsl:value-of select="OMSCHRIJVING"/>
</td>
<xsl:element name="td">
<xsl:choose>
<xsl:when test="HIDE_F_MARGE &lt; 0">
<xsl:attribute name="style">text-align:center; background-color: red; color: white; font-weight: bold</xsl:attribute>
</xsl:when>
<xsl:when test="HIDE_F_MARGE &lt; 0.25">
<xsl:comment>Kwartier</xsl:comment>
<xsl:attribute name="style">text-align:center; background-color: orange; font-weight: bold</xsl:attribute>
</xsl:when>
<xsl:when test="HIDE_F_MARGE &lt; 0.5">
<xsl:comment>Half uur</xsl:comment>
<xsl:attribute name="style">text-align:center; background-color: yellow; font-weight: bold</xsl:attribute>
</xsl:when>
<xsl:otherwise>
<xsl:attribute name="style">text-align:center;</xsl:attribute>
</xsl:otherwise>
</xsl:choose>
<xsl:value-of select="MARGE"/>
</xsl:element>
<xsl:element name="td">
<xsl:choose>
<xsl:when test="HIDE_F_MARGE &lt; 0">
<xsl:attribute name="style">text-align:center; background-color: red; color: white; font-weight: bold</xsl:attribute>
</xsl:when>
<xsl:otherwise>
<xsl:attribute name="style">text-align:center;</xsl:attribute>
</xsl:otherwise>
</xsl:choose>&#x20AC;
<xsl:value-of select="format-number(KORTING, '0,00', 'european')"/>
</xsl:element>
<td style="text-align:right">
<xsl:value-of select="THT_TIJDSTIP"/>
</td>
<td style="text-align:right">
<xsl:value-of select="THT"/>
</td>
</tr>
</xsl:for-each>
</table>
</xsl:if>
</xsl:template>
</xsl:stylesheet><!-- Stylesheet edited using Stylus Studio - (c) 2004-2007. Progress Software Corporation. All rights reserved. --><!-- Stylesheet edited using Stylus Studio - (c) 2004-2007. Progress Software Corporation. All rights reserved. --><!-- Stylesheet edited using Stylus Studio - (c) 2004-2007. Progress Software Corporation. All rights reserved. -->