EXG

initATLASAufschubkonten/cGetMsgType.vb

@@ -316,7 +316,7 @@ Public Class cGetMsgType
         Return False
     End Function
 
-    Shared Function isEZA_DatenZumAusgang(doc As XmlDocument, ByRef VERSION As String) As Boolean
+    Shared Function isAES_DatenZumAusgang(doc As XmlDocument, ByRef VERSION As String) As Boolean
         If doc.HasChildNodes Then
             If doc.GetElementsByTagName("DataEXITDE").Count > 0 Then
                 If doc.GetElementsByTagName("Version").Count > 0 Then
@@ -327,6 +327,17 @@ Public Class cGetMsgType
         End If
         Return False
     End Function
+    Shared Function isAES_E_EXT_DAT(doc As XmlDocument) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("E_EXT_DAT").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_SumAErledigungsinformationCDXWare(doc As XmlDocument, ByRef VERSION As String) As Boolean
         If doc.HasChildNodes Then