44 lines
1.5 KiB
Plaintext
44 lines
1.5 KiB
Plaintext
' TestIsWebserviceResponseSuccessful(XmlString : String)
|
|
' ----------------------------------------------------------------------------
|
|
' Prüft, ob im WebService Result, ein Success enthalten ist
|
|
'
|
|
' Returns: TestIsWebserviceResponseSuccessful : Boolean
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 23.10.2020 / JJ
|
|
' Version Date / Editor: 23.10.2020 / JJ
|
|
' Version Number: 1.0.0.0
|
|
|
|
Function TestIsWebserviceResponseSuccessful(XmlString)
|
|
' Check if XmlString is actually a xml string
|
|
If InStr(XmlString, "<?xml") = 1 Then
|
|
Set Doc = CreateObject("MSXML2.DOMDocument")
|
|
Doc.loadXML(XmlString)
|
|
|
|
Set Nodes = Doc.SelectNodes("MESOWebServiceResult/ResultDetails")
|
|
Set OverallSuccess = Doc.SelectSingleNode("MESOWebServiceResult/OverallSuccess")
|
|
|
|
If OverallSuccess.Text = "true" Then
|
|
Dim IsSuccess : IsSuccess = True
|
|
|
|
For Each Node in Nodes
|
|
Set Success = Node.SelectSingleNode("Success")
|
|
|
|
If Success.Text <> "true" Then
|
|
IsSuccess = False
|
|
End If
|
|
Next
|
|
|
|
TestIsWebserviceResponseSuccessful = IsSuccess
|
|
Else
|
|
TestIsWebserviceResponseSuccessful = False
|
|
End If
|
|
Else
|
|
TestIsWebserviceResponseSuccessful = False
|
|
End If
|
|
End Function
|