dakosy-sumA, etc.

initATLASAufschubkonten/cGetMsgType.vb

@@ -14,6 +14,7 @@ Public Class cGetMsgType
         End If
 
         Return False
+
     End Function
 
     Shared Function isEZA_FreierVerkehrAktVeredelUmwandlung(lines() As String) As Boolean
@@ -41,6 +42,21 @@ Public Class cGetMsgType
     End Function
 
 
+    Shared Function isSumAErledigungsinformation(doc As XmlDocument, ByRef version As String) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("SumAErledigungsinformation").Count > 0 Then
+                '<Version>005</Version>
+                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 isNCTS_Ueberlassungsmeldung(doc As XmlDocument, ByRef version As String) As Boolean
         If doc.HasChildNodes Then
             If doc.GetElementsByTagName("UeberlassungsmeldungNCTSDE").Count > 0 Then