edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-06-04 22:20:10 +02:00
parent 6e3e35ac70
commit 3d67139c09
23 changed files with 26785 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -278,18 +278,24 @@ Public Class cGetMsgType
End Function
Shared Function isEZA_NichtAbschliessendeFestsetzung(doc As XmlDocument) As Boolean
Shared Function isEZA_NichtAbschliessendeFestsetzung(doc As XmlDocument, ByRef VERSION As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("NichtAbschliessendeFestsetzung").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_AbschliessendeFestsetzung(doc As XmlDocument) As Boolean
Shared Function isEZA_AbschliessendeFestsetzung(doc As XmlDocument, ByRef VERSION As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("AbschliessendeFestsetzung").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
VERSION = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True
End If
End If