DY_GenerellesErgebnis-> NCTS

2023-12-18 15:29:25 +01:00
parent 4b4a4a3286
commit 17d24140cb
13 changed files with 1911 additions and 168 deletions
--- a/initATLASAufschubkonten/cGetMsgType.vb
+++ b/initATLASAufschubkonten/cGetMsgType.vb
@@ -537,9 +537,12 @@ Public Class cGetMsgType
        Return False
    End Function

-    Shared Function isNCTS_GenerellesEreignis(doc As XmlDocument) As Boolean
+    Shared Function isNCTS_GenerellesEreignis(doc As XmlDocument, ByRef version As String) As Boolean
        If doc.HasChildNodes Then
            If doc.GetElementsByTagName("GenerellesEreignis").Count > 0 Then
+                If doc.GetElementsByTagName("Version").Count > 0 Then
+                    version = doc.GetElementsByTagName("Version")(0).InnerText
+                End If
                Return True
            End If
        End If