' 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