neu

initATLASAufschubkonten/cGetMsgType.vb

@@ -356,6 +356,21 @@ Public Class cGetMsgType
         End If
         Return False
     End Function
+    Shared Function isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDD(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("<FCFCDD>") Then
+
+                Return True
+            End If
+            'End If
+        End If
+        Return False
+    End Function