Verwahrung

initATLASAufschubkonten/cGetMsgType.vb

@@ -136,6 +136,20 @@ Public Class cGetMsgType
         Return False
     End Function
 
+    Shared Function isNCTS_SumAVerwahrungsinfo(doc As XmlDocument, ByRef version As String) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("SumAVerwahrungsinfo").Count > 0 Then
+
+                If doc.GetElementsByTagName("Version").Count > 0 Then
+                    version = doc.GetElementsByTagName("Version")(0).InnerText
+                End If
+
+                Return True
+            End If
+        End If
+        Return False
+    End Function
+
 
     Shared Function isAES_DEXPSD(doc As XmlDocument) As Boolean
         If doc.HasChildNodes Then
@@ -302,6 +316,18 @@ Public Class cGetMsgType
         Return False
     End Function
 
+    Shared Function isEZA_SumAErledigungsinformationCDXWare(doc As XmlDocument, ByRef VERSION As String) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("SumAErledigungsinformationCDXWare").Count > 0 Then
+                If doc.GetElementsByTagName("Version").Count > 0 Then
+                    VERSION = doc.GetElementsByTagName("Version")(0).InnerText
+                End If
+                Return True
+            End If
+        End If
+        Return False
+    End Function
+
 
     Shared Function isEZA_SumAErledigungsinformationVorpapier(doc As XmlDocument) As Boolean
         If doc.HasChildNodes Then