ATLAS 9.1 AES 3.0; NCTS div.

initATLASAufschubkonten/cGetMsgType.vb

@@ -504,6 +504,23 @@ Public Class cGetMsgType
         End If
         Return False
     End Function
+
+
+    Shared Function isAES_DEXPDF(doc As XmlDocument) As Boolean
+        If doc.HasChildNodes Then
+            '  If doc.GetElementsByTagName("DakosyMessageInternal").Count > 0 Then
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<DEXPDF>") Then
+
+                Return True
+            End If
+            'End If
+        End If
+        Return False
+    End Function
     Shared Function isAES_DEXPDD(doc As XmlDocument) As Boolean
         If doc.HasChildNodes Then
             '  If doc.GetElementsByTagName("DakosyMessageInternal").Count > 0 Then