From dc668a49718ebc986861dc4d2f733fc9b0956fbf Mon Sep 17 00:00:00 2001
From: Marcel Bourseau <marcel.bourseau@aareon.nl>
Date: Tue, 9 Jan 2018 15:47:07 +0000
Subject: [PATCH] MARX#51619: Ondersteunen MessageService 3.0/3.1

svn path=/Website/branches/v2017.2/; revision=36525
---
 CUST/MARX/xsl/F_SIDB_common.xsl | 135 +++++++++++++++++++++++++++++++-
 1 file changed, 133 insertions(+), 2 deletions(-)

diff --git a/CUST/MARX/xsl/F_SIDB_common.xsl b/CUST/MARX/xsl/F_SIDB_common.xsl
index 017c120c62..4e586fd0e4 100644
--- a/CUST/MARX/xsl/F_SIDB_common.xsl
+++ b/CUST/MARX/xsl/F_SIDB_common.xsl
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxml="urn:schemas-microsoft-com:xslt" version="1.0">
 	<xsl:output method="xml" indent="yes" encoding="utf-8"/>
 
 	<xsl:decimal-format name="european" decimal-separator="," grouping-separator="."/>
@@ -90,6 +90,137 @@
         </xsl:if>
     </xsl:template>
 
-	
+    <!-- Parse XML-String to XML-object -->
+    <xsl:template name="parseXml">
+        <xsl:param name="text"/>
+        <xsl:param name="default_namespace"/>
+        <xsl:choose>
+            <xsl:when test="contains($text, '&gt;')">
+                <xsl:variable name="topLevelTag">
+                    <xsl:call-template name="getTopLevelTag">
+                        <xsl:with-param name="text" select="$text"/>
+                    </xsl:call-template>
+                </xsl:variable>
+                <xsl:variable name="openingTag">
+                    <xsl:value-of select="$topLevelTag"/>
+                </xsl:variable>
+                <xsl:variable name="tagName">
+                    <xsl:call-template name="getTopLevelTagName">
+                        <xsl:with-param name="text" select="$text"/>
+                    </xsl:call-template>
+                </xsl:variable>
+                <xsl:variable name="closingTag">
+                    <xsl:value-of select="concat('&lt;/',$tagName,'&gt;')"/>
+                </xsl:variable>
+                <xsl:variable name="firstNode">
+                    <xsl:if test="not(contains($topLevelTag,'/&gt;'))">
+                        <xsl:value-of select="substring-before(substring-after($text,$openingTag),$closingTag)"/>        
+                    </xsl:if>
+                </xsl:variable>
+                <xsl:variable name="afterFirstNode">
+                    <xsl:choose>
+                        <xsl:when test="not(contains($topLevelTag,'/&gt;'))">
+                            <xsl:value-of select="substring-after($text,concat($firstNode,$closingTag))"/>        
+                        </xsl:when>
+                        <xsl:otherwise>
+                            <xsl:value-of select="substring-after($text,$topLevelTag)"/>
+                        </xsl:otherwise>
+                    </xsl:choose>
+                </xsl:variable>
+
+                
+                
+
               <xsl:element name="{$tagName}" namespace="{$default_namespace}">
+                    <xsl:call-template name="createAttributes">
+                        <xsl:with-param name="text" select="$topLevelTag"/>                        
+                    </xsl:call-template>
+                    <xsl:call-template name="parseXml">
+                        <xsl:with-param name="text" select="$firstNode"/>
+                        <xsl:with-param name="default_namespace" select="$default_namespace"/>
+                    </xsl:call-template>
+                </xsl:element> 
+                <xsl:call-template name="parseXml">
+                    <xsl:with-param name="text" select="$afterFirstNode"/>
+                    <xsl:with-param name="default_namespace" select="$default_namespace"/>
+                </xsl:call-template>
+            </xsl:when>
+            <xsl:otherwise>
+                <xsl:value-of select="$text"/>
+            </xsl:otherwise>
+        </xsl:choose>
+    </xsl:template>
+    <xsl:template name="getTopLevelTagName">
+        <xsl:param name="text"/>
+        <xsl:choose>
+            <xsl:when test="contains($text, '&gt;')">
+                <xsl:variable name="tagWithAttributesWithoutEnd">
+                    <xsl:value-of select="substring-before($text, '&gt;')"/>
+                </xsl:variable>
+                <xsl:variable name="tagWithAttributesWithoutBegining">
+                    <xsl:value-of select="substring-after($tagWithAttributesWithoutEnd, '&lt;')"/>
+                </xsl:variable>
+                <xsl:variable name="tagName">
+                    <xsl:choose>
+                        <xsl:when test="contains($tagWithAttributesWithoutBegining,' ')">
+                            <xsl:value-of
+                                select="substring-before($tagWithAttributesWithoutBegining, ' ')"/>
+                        </xsl:when>
+                        <xsl:otherwise>
+                            <xsl:value-of select="$tagWithAttributesWithoutBegining"/>
+                        </xsl:otherwise>
+                    </xsl:choose>
+                </xsl:variable>
+                <xsl:value-of select="$tagName"/>
+            </xsl:when>
+        </xsl:choose>
+    </xsl:template>
+    <xsl:template name="getTopLevelTag">
+        <xsl:param name="text"/>
+        <xsl:choose>
+            <xsl:when test="contains($text, '&gt;')">
+                <xsl:variable name="tagWithAttributesWithoutEnd">
+                    <xsl:value-of select="substring-before($text, '&gt;')"/>
+                </xsl:variable>
+                <xsl:value-of select="concat($tagWithAttributesWithoutEnd,'&gt;')"/>
+            </xsl:when>
+        </xsl:choose>
+    </xsl:template>
+    <xsl:template name="createAttributes">
+        <xsl:param name="text"/>
+        <xsl:choose>
+            <xsl:when test="contains($text, '=&quot;')">
+                <xsl:variable name="attributeName">
+                    <xsl:value-of select="substring-before(substring-after($text,' '),'=&quot;')"/>
+                </xsl:variable>
+                <xsl:message>
+                    <xsl:value-of select="$text"/>
+                </xsl:message>
+                <xsl:variable name="attributeValue">
+                    <xsl:value-of select="substring-before(substring-after($text,concat($attributeName,'=&quot;')),'&quot;')"/>
+                </xsl:variable>
+                <xsl:choose>
+                    <xsl:when test="contains($attributeName, 'xmlns')">
+                        <xsl:variable name="ns_prefix"><xsl:value-of select="substring-after($attributeName,'xmlns:')"/></xsl:variable>
+                        <xsl:choose>
+                            <xsl:when test="$ns_prefix != ''">
+                                <xsl:variable name="dummy"><xsl:element name="{$ns_prefix}:dummy" namespace="{$attributeValue}"/></xsl:variable>
+                                <xsl:copy-of select="msxml:node-set($dummy)//namespace::*"/>
+                            </xsl:when>
+                        </xsl:choose>
+                    </xsl:when>
+                    <xsl:when test="contains($attributeName, 'noNamespaceSchemaLocation')">
+                        <xsl:variable name="ns_prefix"><xsl:value-of select="substring-before($attributeName,':noNamespaceSchemaLocation')"/></xsl:variable>                        
+                    </xsl:when>
+                    <xsl:otherwise>
+                        <xsl:attribute name="{$attributeName}"><xsl:value-of select="$attributeValue"/></xsl:attribute>
+                    </xsl:otherwise>
+                </xsl:choose>
+                <xsl:call-template name="createAttributes">
+                    <xsl:with-param name="text" select="substring-after($text,concat($attributeName,'=&quot;',$attributeValue,'&quot;'))"/>
+                </xsl:call-template>
+            </xsl:when>
+        </xsl:choose>        
+    </xsl:template>
+
 
 </xsl:stylesheet>