KFNS#32266 KFNS0

svn path=/Website/branches/v2015.1/; revision=25406

CUST/KFNS/cust.css

@@ -0,0 +1,9 @@
+/*
+ *    $Revision$
+ *    $Modtime: 02-05-14 16:00 $
+ */
+/* Menukoppen */
+span.menukop {
+  background-image: none;
+  padding-left: 2px;
+}

CUST/KFNS/import/GetStruktonStatus.js

@@ -0,0 +1,131 @@
+// GetStruktonStatus.js
+// Haalt statuswijzigingen op van Strukton opdrachten binnen een opgegeven tijdsinterval.
+// Dit interval wordt opgeslagen in de database. Kan daarna via GEN_IMPORT ingelezen worden
+//
+// $Revision$
+// $Id$
+//
+// Opzet in kader van AAXX door AEG
+// Twee parameters: UDL voor database connectie en optioneel proxy-ip
+
+var str = WScript.Arguments(0); // udlpath
+var prs_bedrijf_key = WScript.Arguments(1); // prs_bedrijf_key
+
+function GetStruktonStatus()
+{
+    var XMLReq=  "<soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/soap/envelope/\">"
+                +"   <soapenv:Header/>"
+                +"   <soapenv:Body>"
+                +"      <GetServiceRequestStatus>"
+                +"         <Status>"
+                +"            <CustomerID>" + prs_leverancier_nr + "</CustomerID>"
+                +"            <ReferenceID></ReferenceID>"
+                +"            <ServiceRequestID></ServiceRequestID>"
+                +"            <BeginDateTime>"+ laatste_sync +"</BeginDateTime>"
+                +"            <EndDateTime>"+ nieuwe_sync +"</EndDateTime>"
+                +"         </Status>"
+                +"      </GetServiceRequestStatus>"
+                +"   </soapenv:Body>"
+                +"</soapenv:Envelope>";
+    WScript.Echo("Bericht = " + XMLReq);
+    var objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.6.0")
+
+    var SXH_OPTION_SELECT_CLIENT_SSL_CERT = 3;
+/*  objXMLHTTP.open("POST",
+                    "https://b2bdev.ws.strukton.com:443/XISOAPAdapter/MessageServlet?channel=Facilitor:BS_ServiceRequest:S_WS_STATUS",
+                    false,
+                    "Facilitor",
+                    "Facilit0r!"); */
+    objXMLHTTP.open("POST",
+                    mldorder_adres,
+                    false,
+                    uname,
+                    pword);
+    objXMLHTTP.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
+    objXMLHTTP.setOption(SXH_OPTION_SELECT_CLIENT_SSL_CERT) = order_certificate;
+    objXMLHTTP.send(XMLReq);
+
+    dataReceived = false;
+    if (objXMLHTTP.status==200)
+    {   // Geldigheid XML wordt gecontroleerd door GEN_IMPORT
+        WScript.Echo("Gelukt, status = " + objXMLHTTP.status);
+        responseText = "" + objXMLHTTP.responseText;
+        //WScript.Echo("resultaat = " + resultaat.indexOf("<ErrorLog><Note>Geen items gevonden</Note></ErrorLog>"));
+        //if resultaat.substr("<ErrorLog><Note>Geen items gevonden</Note></ErrorLog>")
+        if (responseText.indexOf("<ErrorLog><Note>Geen items gevonden</Note></ErrorLog>") == -1) {
+            dataReceived = true;
+            oStream = new ActiveXObject("ADODB.Stream");
+            oStream.Open();
+            oStream.Type = 1; // adTypeBinary
+            oStream.Write(objXMLHTTP.responseBody); // responseText geeft encoding problemen!
+            oStream.SaveToFile (fileName, 2); // adSaveCreateOverWrite
+            oStream.Close();
+        }
+        sql =  "UPDATE prs_kenmerklink SET prs_kenmerklink_waarde = '" + nieuwe_ts + "' WHERE prs_kenmerklink_key = " + prs_kenmerklink_key;
+        WScript.Echo (sql);
+        Oracle.Execute(sql);
+    }
+    else
+    {
+        WScript.Echo("Mislukt, status = " + objXMLHTTP.status);
+        WScript.Echo(objXMLHTTP.statusText);
+    }
+    return dataReceived;
+}
+
+var udlstr = 'File Name='+str;
+var Oracle = new ActiveXObject("ADODB.Connection");
+Oracle.Open(udlstr);
+
+var sql = "ALTER SESSION SET nls_territory='AMERICA'";
+Oracle.Execute(sql)
+
+sql =  "SELECT   b.prs_bedrijf_naam, "
+     + "         ba.prs_bedrijfadres_url, "
+     + "         ba.prs_bedrijfadres_certificate, "
+     + "         ba.prs_bedrijfadres_username, "
+     + "         ba.prs_bedrijfadres_password, "
+     + "         b.prs_leverancier_nr, " // door VENR gebruikt
+     + "         b.prs_overeenkomst_nr, " // door AAXX gebruikt
+     + "         decode ( prs_kenmerklink_waarde, null, null, to_char(to_date(prs_kenmerklink_waarde, 'yyyy-mm-dd hh24:mi:ss'), 'yyyy-mm-dd')||'T'||to_char(to_date(prs_kenmerklink_waarde, 'yyyy-mm-dd hh24:mi:ss'), 'hh24:mi:ss')) laatste_sync,"
+     + "         to_char(sysdate - (1/96), 'yyyy-mm-dd') || 'T' || to_char(sysdate - (1/96), 'hh24:mi:ss') nieuwe_sync, "
+     + "         to_char(sysdate - (1/96), 'yyyy-mm-dd hh24:mi:ss') nieuwe_ts,"
+     + "         prs_kenmerklink_key"
+     + "    FROM prs_bedrijf b, prs_kenmerklink kl, prs_bedrijfadres ba"
+     + "   WHERE b.prs_bedrijf_key = " + prs_bedrijf_key
+     + "     AND b.prs_bedrijf_key = ba.prs_bedrijf_key"
+     + "     AND b.prs_bedrijf_key = kl.prs_link_key"
+     + "     AND ba.prs_bedrijfadres_type = 'O'"
+     + "     AND ba.mld_typeopdr_key = 5"
+     + "     AND prs_kenmerk_key = 1120";  // timestamp laatste synchronisatie yyyymmdd hh24mi
+
+WScript.Echo (sql);
+
+WScript.Echo(new Date());
+try
+{
+   var oRs = Oracle.Execute(sql);
+
+   var fileName = "strukton.xml";
+   mldorder_adres = "" + oRs("prs_bedrijfadres_url").Value;
+   mldorder_adres = mldorder_adres.replace("CREATE", "STATUS");
+   order_certificate = "" + oRs("prs_bedrijfadres_certificate").Value;
+   uname = "" + oRs("prs_bedrijfadres_username").Value;
+   pword = "" + oRs("prs_bedrijfadres_password").Value;
+   laatste_sync = oRs("laatste_sync").Value;
+   nieuwe_sync = oRs("nieuwe_sync").Value;
+   nieuwe_ts = oRs("nieuwe_ts").Value;
+   prs_leverancier_nr = oRs("prs_leverancier_nr").Value;
+   prs_overeenkomst_nr = oRs("prs_overeenkomst_nr").Value;
+   prs_kenmerklink_key = oRs("prs_kenmerklink_key").Value;
+   WScript.Echo("Inlezen statusberichten van bedrijf: " + oRs("prs_bedrijf_naam").Value + " via url: " + mldorder_adres);
+   oRs.close();
+
+   if (GetStruktonStatus()) WScript.Quit(0);
+                     else   WScript.Quit(1);
+}
+catch (e)
+{
+    WScript.Echo("Serieuze fout in GetStruktonStatus.js: " + e.description);
+    WScript.Quit(1);
+}

CUST/KFNS/import/gen_import_strukton.bat

@@ -0,0 +1,12 @@
+Echo Starten GetStruktonStatus.js
+
+cscript GetStruktonStatus.js ../oracle.udl 56 >>gen_import.log
+
+if errorlevel 1 goto fout
+
+cscript ..\..\..\utils\gen_import\gen_import.wsf KFNS OPDRSTAT_STRUKTON >>gen_import.log 2>>&1
+
+goto einde
+:fout
+Echo gen_import.exe niet meer uitgevoerd>>gen_import.log
+:einde

CUST/KFNS/import/strukton.xsl

@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="Windows-1252"?>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+<xsl:output method="text"/>
+
+<xsl:decimal-format name="european" decimal-separator="," grouping-separator="."/>
+
+	<xsl:template name="escape_quote">
+		<xsl:param name="string"/>
+		<xsl:choose>
+			<xsl:when test="contains($string, '&quot;')">
+				<xsl:value-of select="substring-before($string, '&quot;')"/>&quot;&quot;<xsl:call-template name="escape_quote">
+					<xsl:with-param name="string" select="substring-after($string, '&quot;')"/></xsl:call-template></xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="$string"/>
+			</xsl:otherwise>
+		</xsl:choose>
+	</xsl:template>
+
+
+	<xsl:template name="linebreaks">
+		<xsl:param name="string"/>
+		<xsl:choose>
+			<xsl:when test="contains($string, '&#xA;')">
+				<xsl:value-of select="substring-before($string, '&#xA;')"/>@@<xsl:call-template name="linebreaks">
+					<xsl:with-param name="string" select="substring-after($string, '&#xA;')"/>
+				</xsl:call-template>
+			</xsl:when>
+			<xsl:otherwise>
+				<xsl:value-of select="$string"/>
+			</xsl:otherwise>
+		</xsl:choose>
+	</xsl:template>
+
+<xsl:template match="/">referenceID;ServiceRequestID;TypeID;DateTime;Description;Remarks;Total
+<xsl:for-each select="//Status">
+<xsl:variable name="costinfo"><xsl:if test="TypeID='40'">@@Bruto: <20> <xsl:value-of select="format-number(CostCalculation/Total - CostCalculation/MaintenanceClause, '0,00', 'european')"/>@@Clausule: <20> <xsl:value-of select="format-number(CostCalculation/MaintenanceClause, '0,00', 'european')"/>@@Totaal: <20> <xsl:value-of select="format-number(CostCalculation/Total, '0,00', 'european')"/></xsl:if></xsl:variable>
+<xsl:variable name="costs"><xsl:if test="TypeID='40'"><xsl:value-of select="CostCalculation/Total"/></xsl:if></xsl:variable>
+<xsl:variable name="remarks_unquote"><xsl:call-template name="escape_quote"><xsl:with-param name="string" select="substring(Remarks,1,800)"/></xsl:call-template></xsl:variable>
+<xsl:variable name="remarks_uncr">&quot;<xsl:call-template name="linebreaks"><xsl:with-param name="string" select="$remarks_unquote"/></xsl:call-template><xsl:value-of select="$costinfo"/>&quot;</xsl:variable>
+<xsl:variable name="new_line" select="'&#xA;'"/>
+<xsl:variable name="referenceID"><xsl:value-of select="ReferenceID"/></xsl:variable>
+<xsl:variable name="serviceRequestID"><xsl:value-of select="ServiceRequestID"/></xsl:variable>
+<xsl:variable name="typeID"><xsl:value-of select="TypeID"/></xsl:variable>
+<xsl:variable name="dateTime"><xsl:value-of select="DateTime"/></xsl:variable>
+<xsl:variable name="description"><xsl:value-of select="Description"/></xsl:variable>
+<xsl:value-of select="$referenceID"/>;<xsl:value-of select="$serviceRequestID"/>;<xsl:value-of select="$typeID"/>;<xsl:value-of select="$dateTime"/>;<xsl:value-of select="$description"/>;<xsl:value-of select="$remarks_uncr"/>;<xsl:value-of select="$costs"/><xsl:value-of select="$new_line"/>
+</xsl:for-each>
+</xsl:template>
+
+</xsl:stylesheet>

CUST/KFNS/tasks/gen_notify.bat

@@ -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 KFNS

CUST/KFNS/tasks/gen_scheduler.bat

@@ -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

CUST/KFNS/tasks/putOrders.bat

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

CUST/KFNS/xsl/cust.xsl

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxml="urn:schemas-microsoft-com:xslt">
+  <xsl:import href="../../../appl/shared/default.xsl"/>
+  <xsl:variable name="Rev">
+    <!-- Revision van deze cust.xsl -->
+    <xsl:value-of select="substring(translate('$Revision$', '$ ', ''), 10)"/>
+  </xsl:variable>
+</xsl:stylesheet>