Dakosy BOX 9.2

initATLASAufschubkonten/cGetMsgType.vb

@@ -255,6 +255,33 @@ Public Class cGetMsgType
         Return False
     End Function
 
+
+
+    Shared Function isEZA_EntscheidungAnmeldung(doc As XmlDocument, ByRef VERSION As String) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("EntscheidungAnmeldung").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, ByRef VERSION As String) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("SumAErledigungsinformationVorpapier").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
             If doc.GetElementsByTagName("SumAErledigungsinformationVorpapier").Count > 0 Then
@@ -302,6 +329,17 @@ Public Class cGetMsgType
         Return False
     End Function
 
+    Shared Function isEZA_StornierungBescheid(doc As XmlDocument, ByRef VERSION As String) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("StornierungBescheid").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_StornierungBescheid(doc As XmlDocument) As Boolean
         If doc.HasChildNodes Then
             If doc.GetElementsByTagName("StornierungBescheid").Count > 0 Then
@@ -372,6 +410,22 @@ Public Class cGetMsgType
         Return False
     End Function
 
+    Shared Function isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDF(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("<FCFCDF>") Then
+
+                Return True
+            End If
+            'End If
+        End If
+        Return False
+    End Function
+
 
 
     Shared Function isAES_DEXPDE(doc As XmlDocument) As Boolean