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

ATLAS 10.1 DAKOSY 10

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-10-13 00:43:45 +02:00
parent cc67e23bb4
commit bfbfe598ff
35 changed files with 59830 additions and 565 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -407,18 +407,24 @@ Public Class cGetMsgType
Return False
End Function
Shared Function isEZA_MitteilungAbschreibung(doc As XmlDocument) As Boolean
Shared Function isEZA_MitteilungAbschreibung(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("MitteilungAbschreibung").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_WeitergabeHauptzollamt(doc As XmlDocument) As Boolean
Shared Function isEZA_WeitergabeHauptzollamt(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("WeitergabeHauptzollamt").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
version = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True
End If
End If