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

ATLAS 9.1 NCTS

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-23 01:18:32 +02:00
parent 205b0fa484
commit a9591ca6a7
26 changed files with 73125 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -55,9 +55,12 @@ Public Class cGetMsgType
Return False
End Function
Shared Function isNCTS_AnrechnungReferenzbetraege(doc As XmlDocument) As Boolean
Shared Function isNCTS_AnrechnungReferenzbetraege(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("AnrechnungReferenzbetraegeNCTSDE").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
version = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True
End If
End If
@@ -67,9 +70,12 @@ Public Class cGetMsgType
Shared Function isNCTS_StatusmeldungNCTSDE(doc As XmlDocument) As Boolean
Shared Function isNCTS_StatusmeldungNCTSDE(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("StatusmeldungNCTSDE").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
version = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True
End If
End If
@@ -92,9 +98,24 @@ Public Class cGetMsgType
Shared Function isNCTS_Erledigungsmeldung(doc As XmlDocument) As Boolean
Shared Function isNCTS_Erledigungsmeldung(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("ErledigungsmeldungNCTSDE").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 isNCTS_Ereignismitteilung(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("EreignismitteilungNCTSDE").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
version = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True
End If
End If
@@ -536,6 +557,15 @@ Public Class cGetMsgType
Return False
End Function
Shared Function isNCTS_VersandanmeldungXML_DETPDD(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("DETPDD").Count > 0 Then
Return True
End If
End If
Return False
End Function
Shared Function isNCTS_AnkunftsanzeigeXML(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("DETBAE").Count > 0 Then
@@ -545,9 +575,12 @@ Public Class cGetMsgType
Return False
End Function
Shared Function isNCTS_Versandbestaetigung(doc As XmlDocument) As Boolean
Shared Function isNCTS_Versandbestaetigung(doc As XmlDocument, ByRef version As String) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("VersandbestaetigungNCTSDE").Count > 0 Then
If doc.GetElementsByTagName("Version").Count > 0 Then
version = doc.GetElementsByTagName("Version")(0).InnerText
End If
Return True
End If
End If