RABO#37178 -- Koppeling FACILITOR met Axxerion

svn path=/Website/branches/v2016.1/; revision=31015

CUST/AAIT/export/gen_export_exact_dekking.bat

@@ -34,8 +34,10 @@ call ..\..\..\utils\gen_export\gen_export.bat AAPM_DEKKING
 call ..\..\..\utils\gen_export\gen_export.bat AARW_DEKKING
 call ..\..\..\utils\gen_export\gen_export.bat AASA_DEKKING
 call ..\..\..\utils\gen_export\gen_export.bat AASI_DEKKING
+call ..\..\..\utils\gen_export\gen_export.bat AAVG_DEKKING
 call ..\..\..\utils\gen_export\gen_export.bat AAVL_DEKKING
 call ..\..\..\utils\gen_export\gen_export.bat AAZC_DEKKING
 call ..\..\..\utils\gen_export\gen_export.bat ASMS_DEKKING
 call ..\..\..\utils\gen_export\gen_export.bat NMMS_DEKKING
+call ..\..\..\utils\gen_export\gen_export.bat RABO_DEKKING
 call ..\..\..\utils\gen_export\gen_export.bat ZKHM_DEKKING

CUST/AKZA/xsl/cust.xsl

@@ -7,7 +7,7 @@
   <xsl:value-of select="substring(translate('$Revision$', '$ ', ''), 10)"/>
 </xsl:variable>
 
-<xsl:variable name="Xsrtnotificatiecode">CUST04</xsl:variable>
+<xsl:variable name="Xsrtnotificatiecode">RESNEW</xsl:variable>
 
 <xsl:variable name="lowercase" select="'abcdefghijklmnopqrstuvwxyz'" />
 <xsl:variable name="uppercase" select="'ABCDEFGHIJKLMNOPQRSTUVWXYZ'" />
@@ -2178,7 +2178,7 @@ p.MsoNormal {
           <p>You are invited by <xsl:value-of select="$gastheer"/> to visit
             <xsl:choose>
                <xsl:when test="plaats/regio/district/locatie/code='AMB'">the AkzoNobel Meeting Center, Amsterdam</xsl:when>
-               <xsl:when test="plaats/regio/district/locatie/code='SSCA'">the AkzoNobel Shared Services Center, Arnhem</xsl:when>
+               <xsl:when test="plaats/regio/district/locatie/code='SSCA'">the AkzoNobel Shared Services Center and Business Support Center, Arnhem</xsl:when>
             </xsl:choose>. We are pleased to confirm the details of your visit.
           </p>
 
@@ -2239,7 +2239,7 @@ p.MsoNormal {
               <xsl:attribute name="title">AkzoNobel website - safety rules</xsl:attribute>
               our website</xsl:element>.</p>
 
-          <p>Have pleasant visit and, if you have any questions, please ask one of our hosts to assist you.</p>
+          <p>Have a pleasant visit and, if you have any questions, please ask one of our hosts to assist you.</p>
 
           <xsl:choose>
             <xsl:when test="plaats/regio/district/locatie/code='AMB'">
@@ -2266,7 +2266,7 @@ p.MsoNormal {
               
               <p>Kind regards,</p>
               
-              <p>AkzoNobel Shared Services Center, Arnhem</p>
+              <p>AkzoNobel Shared Services Center and Business Support Center, Arnhem</p>
               
               <p>
                 <table border="0" cellpadding="1" cellspacing="0" width="100%">
@@ -2371,12 +2371,18 @@ p.MsoNormal {
 						</tr>
 					</table>
 				</xsl:when>
-        <xsl:when test="$srtnotificatiecode='RESNEW' and rsv_ruimte[volgnr=$min_volgnr]/res_ruimte/plaats/regio/district/locatie/key=201">
+        <xsl:when test="$srtnotificatiecode='RESNEW' and (rsv_ruimte[volgnr=$min_volgnr]/res_ruimte/plaats/regio/district/locatie/key=201 or rsv_ruimte[volgnr=$min_volgnr]/res_ruimte/plaats/regio/district/locatie/key=2)">
+          <xsl:variable name="locatiecode" select="rsv_ruimte[volgnr=$min_volgnr]/res_ruimte/plaats/regio/district/locatie/code"/>
           <p><em>Please do not reply to this e-mail as we are not able to respond to messages sent to this mailbox.</em></p>
 
           <p>Dear colleague,</p>
 
-          <p>Thank you for choosing the AkzoNobel Meeting Center for your meeting. We are pleased to confirm your reservation. Please follow the instructions below if you wish to register your guests or require any additional services.</p>
+          <p>Thank you for choosing 
+            <xsl:choose>
+               <xsl:when test="$locatiecode='AMB'">the AkzoNobel Meeting Center</xsl:when>
+               <xsl:when test="$locatiecode='SSCA'">the AkzoNobel Shared Services Center and Business Support Center</xsl:when>
+            </xsl:choose> for your meeting.
+            We are pleased to confirm your reservation. Please follow the instructions below if you wish to register your guests or require any additional services.</p>
 
           <p>BOOKING DETAILS</p>
 
@@ -2410,16 +2416,30 @@ p.MsoNormal {
             to indicate which of your guests will need to be registered and/or require a parking space, or whether any additional services (coffee, lunch, etc.) are required.
           </p>
 
-          <p>If you have any questions regarding this reservation, or if we can be of further service, please contact the Service Center by e-mail or by telephone.</p>
+          <p>If you have any questions regarding this reservation, or if we can be of further service, please contact 
+            <xsl:choose>
+               <xsl:when test="$locatiecode='AMB'">the Service Center</xsl:when>
+               <xsl:when test="$locatiecode='SSCA'">Reception</xsl:when>
+            </xsl:choose> by e-mail or by telephone.</p>
 
           <p>We look forward to welcoming you.</p>
 
           <p>Regards,</p>
 
-          <p>Service Center Amsterdam</p>
+          <xsl:choose>
+            <xsl:when test="$locatiecode='AMB'">
+              <p>Service Center Amsterdam</p>
 
-          <p>E-mail: NL_AMB_Service_Center@akzonobel.com<br/>
+              <p>E-mail: NL_AMB_Service_Center@akzonobel.com<br/>
-          Telephone: +31 88 969 7974</p>
+              Telephone: +31 88 969 7974</p>
+            </xsl:when>
+            <xsl:when test="$locatiecode='SSCA'">
+              <p>Reception Arnhem</p>
+
+              <p>E-mail: Receptie@akzonobel.com<br/>
+              Telephone: +31 26 366 5400</p>
+            </xsl:when>
+          </xsl:choose>
 
         </xsl:when>
         <xsl:otherwise>

CUST/RABO/export/gen_export_status_axxerion.bat

@@ -0,0 +1,27 @@
+REM GEN_EXPORT_STATUS_AXXERION.BAT
+REM
+REM Maakt bestand met statuswijzigingen aan. Indien het bestand gevuld 
+REM is wordt het bestand op de FTP server geplaatst.
+REM
+REM Context : roep deze file aan indien nodig, of schedule deze
+REM Verseist: de randvoorwaarde voor het gebruik van gen_export
+REM
+REM $Revision$
+REM $Id$
+REM
+REM (c) 2009, SG facilitor, +31 (53) 4800710, helpdesk@sgfacilitor.nl
+REM
+
+
+CALL ..\..\..\utils\gen_export\gen_export.bat STATUS_AXXERION
+
+REM ================================================== delete empty file(s)
+cd axxerion
+for %%A in (*.xml) do if %%~zA==0 del %%A
+cd ..
+
+
+move .\AXXERION\status*.xml d:\Apps\Facilitor\ftp_sites\RABO\status\
+
+
+

CUST/RABO/import/RaboAxxerion.xsl

@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
+  <xsl:output method="xml" indent="yes" encoding="utf-8" />
+  <xsl:decimal-format name="european" decimal-separator="," grouping-separator="." />
+  <xsl:param name="mode" />
+  <xsl:variable name="Rev">
+    <xsl:value-of select="substring(translate('$Revision$', '$ ', ''), 10)" />
+  </xsl:variable>
+  <xsl:template match="facilitor">
+  <facilitor>
+  <xsl:for-each select="meldingen">
+  <xsl:for-each select="melding">
+	  <xsl:choose>
+	  <xsl:when test="@type='response'">
+	    <xsl:copy-of select="."/>
+	  </xsl:when>
+	  <xsl:otherwise>
+      <xsl:element name="melding">
+        <xsl:attribute name="key">
+          <xsl:value-of select="@key"/></xsl:attribute>
+        <xsl:attribute name="type">insert</xsl:attribute>
+		<datum><xsl:value-of select="concat(substring(datum,7,4), '-', substring(datum,4,2), '-', substring(datum,1,2), 'T', substring(datum,12,5))"/></datum>
+        <melder>
+          <xsl:value-of select="melder"/>
+        </melder>
+		<locatiecode>
+	   	  <xsl:value-of select="substring-after(substring-before(locatie, ' '), 'PR')"/>
+		</locatiecode>
+        <stdmelding>501</stdmelding>
+        <omschrijving>
+Melder:	<xsl:value-of select="melder"/>
+Telefoonnummer:	<xsl:value-of select="telefoonnummer"/>
+Emailadres:	<xsl:value-of select="emaildadres"/>
+Kwis: <xsl:value-of select="kwis"/>
+Vakgroep: <xsl:value-of select="vakgroep"/>
+Melding: <xsl:value-of select="stdmelding1"/>
+Melding2: <xsl:value-of select="stdmelding2"/>
+Onderwerp: <xsl:value-of select="onderwerp"/>
+Omschrijving: <xsl:value-of select="omschrijving"/>
+Locatie: <xsl:value-of select="locatie"/>
+Ruimte: <xsl:value-of select="ruimte"/>
+Prioriteit:	<xsl:value-of select="prioriteit"/>
+SLA datum: <xsl:value-of select="sla_datum"/>
+Inventaris:	<xsl:value-of select="inventaris"/>
+		</omschrijving>
+      </xsl:element>
+	  </xsl:otherwise>
+	  </xsl:choose>
+	  </xsl:for-each>
+	</xsl:for-each>
+    </facilitor>
+  </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. --><!-- Stylesheet edited using Stylus Studio - (c) 2004-2007. Progress Software Corporation. All rights reserved. -->

CUST/RABO/import/api_mldsoap_axxerion.js

@@ -0,0 +1,115 @@
+// GetStatus.js
+// Haalt statuswijzigingen op van de FTP server.
+//
+// $Revision$
+// $Id$
+//
+// Opzet in kader van PNBR#
+
+function padout(number) { return (number < 10) ? "0" + number : number; }
+
+function date2string(mydate) {
+  return padout(mydate.getFullYear())  + "-" + padout(mydate.getMonth() + 1) + "-" + padout(mydate.getDate())
+      + " " +  padout(mydate.getHours())  + "-" + padout(mydate.getMinutes() + 1) + "-" + padout(mydate.getSeconds());
+  }
+
+var api = WScript.Arguments(0); // api
+var folder = WScript.Arguments(1); // folder
+var url = WScript.Arguments(2); // url
+
+try {
+  var fh, lenght;
+
+  fso = new ActiveXObject("Scripting.FileSystemObject");
+  objRS = new ActiveXObject("ADODB.Recordset");
+  objRS.CursorLocation = 3 // useClient
+  objRS.Fields.Append ("Name", 200, 100) // adVarChar
+  objRS.Fields.Append ("created", 7 ) // adDate
+  objRS.Open();
+
+  try
+  {
+     var backdir_api = ".\\BACKUP"+(new Date).getFullYear()+"\\";
+     if (!fso.FolderExists(backdir_api))
+       fso.CreateFolder(backdir_api);
+     backdir_api += api + "\\";
+     if (!fso.FolderExists(backdir_api))
+       fso.CreateFolder(backdir_api);
+  }
+  catch (e)
+  {
+     WScript.Echo("Cannot create backup folder " + backDir + "\n" + e.description);
+     WScript.Quit();
+  }
+
+  // plaats de bestandsnamen en creatiedata in een resultset om deze vervolgens te kunnen filteren.
+  folder = folder.replace(/\//g,"\\");
+  //WScript.Echo("Folder: " + folder);
+  var f = fso.GetFolder(folder);
+  var fc = new Enumerator(f.files);
+  var filecount = 0;
+  for   (;   !fc.atEnd();   fc.moveNext())
+  {
+    filename = fc.item().name;
+    //WScript.Echo("File: " + filename);
+    var file = fso.GetFile(folder + filename);
+    var dt = new Date(file.DateCreated);
+    
+    //WScript.Echo("File: " + filename  + " timestamp:" + date2string(dt));
+    if (fc.item().name.toUpperCase().indexOf(".XML") != -1 && fc.item().name.toUpperCase().indexOf("MELDING") != -1) {
+      filecount++;
+      objRS.AddNew();
+      objRS("Name") = filename;
+      objRS("created") = file.DateCreated;
+    }
+  }
+  if (filecount > 0) {
+    objRS.Sort = "created ASC";
+    objRS.MoveFirst();
+    while (!objRS.EOF)
+    {
+      filename = objRS("Name").Value;
+      WScript.Echo("File (sorted): " + filename);
+      objRS.MoveNext();
+      var fileStream = new ActiveXObject("ADODB.Stream");
+      fileStream.open();
+      fileStream.CharSet = "Windows-1252"; // het doel
+      fileStream.LoadFromFile(folder + filename);
+      //WScript.Echo("Filesize " + fileStream.Size);
+      fileStream.Position = 0;
+      //WScript.Echo("Request1: " + fileStream.ReadText);
+      XMLReq = fileStream.ReadText;
+      WScript.Echo("Request: " + XMLReq);
+      var objXMLHTTP = new ActiveXObject("MSXML2.ServerXMLHTTP.6.0");
+
+      objXMLHTTP.open("POST",
+                      url
+                      );
+
+      objXMLHTTP.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
+      objXMLHTTP.send(XMLReq);
+
+      //WScript.Echo("Status: " + objXMLHTTP.status);
+      //WScript.Echo("StatusText: " + objXMLHTTP.statusText);
+      WScript.Echo("Result: " + objXMLHTTP.responseText);
+
+      if (objXMLHTTP.status == 200) {
+        jsDate = new Date;
+        dateString = padout(jsDate.getFullYear())  + "-" + padout(jsDate.getMonth() + 1) + "-" + padout(jsDate.getDate());
+        timeString = padout(jsDate.getHours())  + "-" + padout(jsDate.getMinutes() + 1) + "-" + padout(jsDate.getSeconds());
+        backDir = backdir_api + dateString + "_" + api + "\\";
+        if (!fso.FolderExists(backDir))
+          fso.CreateFolder(backDir)
+        // deze file backuppen
+        //WScript.Echo("from:" + filename);
+        //WScript.Echo("to:" + backDir + timeString + "_" + filename);
+        fso.MoveFile(folder + filename, backDir + timeString + "_" + filename);
+      }
+    }
+  }
+}
+catch (e)
+{
+    WScript.Echo("Serieuze fout in api_opdrsoap_com4.js: " + e.description)
+    WScript.Quit(1);
+}

CUST/RABO/import/gen_import_mld_axxerion.bat

@@ -0,0 +1,23 @@
+REM GEN_IMPORT_MLD_AXXERION.BAT
+REM
+REM AAIT
+REM
+REM Importeert statusberichten vanuit een extern systeem
+REM
+REM Context : roep deze file aan indien nodig, of schedule deze
+REM Verseist: de randvoorwaarde voor het gebruik van gen_import
+REM
+REM $Revision$
+REM $Id$
+REM
+REM (c) 2010, SG|facilitor bv, +31 (53) 4800700, support@sgfacilitor.nl
+REM
+
+
+
+cscript .\api_mldsoap_axxerion.js MLD_AXXERION d:\Apps\Facilitor\ftp_sites\RABO\meldingen\ "https://rabo.facilitor.nl/default.asp?fac_id=RABO&API=MLD_AXXERION&APIKEY=EH-XITJvuCMmmQ6O9EqOr8Ed1mXHYooo" >>genimport.log 2>>&1
+
+REM @Work
+REM cscript .\api_mldsoap_axxerion.js MLD_AXXERION w:\Branch20161\CUST\RABO\import\ "http://facws001/branch20161/default.asp?fac_id=RABO&API=MLD_AXXERION&APIKEY=EH-XITJvuCMmmQ6O9EqOr8Ed1mXHYooo" >>genimport.log 2>>&1
+
+:einde