LOCAL loXml
LOCAL lcSoapRequestBody
LOCAL lcEndpoint
LOCAL lcSoapAction
LOCAL lcContentType
LOCAL loHttp
LOCAL loResp
LOCAL loResponseXml
LOCAL lnStatusCode
LOCAL lcCt_text
LOCAL lcDescription
LOCAL lcId
LOCAL lcMandatory
LOCAL lcLoDirection
LOCAL lcLoX
LOCAL lcLoY
LOCAL lcName
LOCAL lcV_number
LOCAL lcShieldPinId
LOCAL lcSlImagesId
LOCAL lcSymbolInstanceId
LOCAL lcSystemTypeId
LOCAL lcCouplingType
LOCAL lcSystem_group_id
LOCAL lcSystem_type_id
LOCAL lcFc_code
LOCAL lcFc_code2
LOCAL lcFd_component_name_id
LOCAL lcFd_id
LOCAL lcFd_plausible
LOCAL lcFd_si_number
LOCAL lcFt_text
LOCAL lcConfirmationLink
LOCAL lcStatusCode
LOCAL lcCategoryDescription
LOCAL lcCategoryTypeConstant
LOCAL lcKey
LOCAL lcValue
LOCAL lcIssueDate
LOCAL lcOeCode
LOCAL lcSystemDescription
LOCAL lcSystemId
LOCAL lcFaultCode
loXml = CreateObject('Chilkat_9_5_0.Xml')
loXml.Tag = "soapenv:Envelope"
loXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loXml.AddAttribute("xmlns:tns1","http://datamodel.webservice.elecdata.vivid.nl")
loXml.AddAttribute("xmlns:intf","http://data.webservice.workshop.vivid.nl")
loXml.UpdateChildContent("soapenv:Header","")
loXml.UpdateChildContent("soapenv:Body|intf:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3|intf:vrid","xml")
loXml.UpdateChildContent("soapenv:Body|intf:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3|intf:typeId","xml")
loXml.UpdateChildContent("soapenv:Body|intf:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3|intf:systemTypeIds|tns1:array|intf:item","xml")
loXml.UpdateChildContent("soapenv:Body|intf:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3|intf:codesin","xml")
loXml.UpdateChildContent("soapenv:Body|intf:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3|intf:language","xml")
* In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required.
loXml.EmitXmlDecl = 0
lcSoapRequestBody = loXml.GetXml()
lcEndpoint = "http://www.haynespro-services.com/workshopServices3/services/DataServiceEndpoint"
lcSoapAction = ""* For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
lcContentType = "text/xml"
loHttp = CreateObject('Chilkat_9_5_0.Http')
loHttp.ClearHeaders()
loHttp.SetRequestHeader("Content-Type",lcContentType)
loHttp.SetRequestHeader("SOAPAction",lcSoapAction)
loResp = loHttp.PostXml(lcEndpoint,lcSoapRequestBody,"utf-8")
IF (loHttp.LastMethodSuccess = 0) THEN
? loHttp.LastErrorText
? "Failed to send SOAP request."RELEASE loXml
RELEASE loHttp
CANCELENDIF* Get the XML response body.
loResponseXml = CreateObject('Chilkat_9_5_0.Xml')
loResp.GetBodyXml(loResponseXml)
lnStatusCode = loResp.StatusCode
? "response status code: " + STR(lnStatusCode)
RELEASE loResp
* If the status code does not indicate succcess, then show the response XML,
* which probably contains error information.IF (lnStatusCode <> 200) THEN
? loResponseXml.GetXml()
RELEASE loXml
RELEASE loHttp
RELEASE loResponseXml
CANCELENDIF
? loResponseXml.GetXml()
* Parse the successful SOAP response XML.* This is a sample of the response XML, but the namespace prefixes will be different.
* We can parse the result using "*" for the namespace prefixes (see below).
lcCt_text = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:ct_text")
lcDescription = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:generalArticles|*:item|*:description")
lcId = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:generalArticles|*:item|*:id")
lcMandatory = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:generalArticles|*:item|*:mandatory")
lcLoDirection = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:loDirection")
lcLoX = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:loX")
lcLoY = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:loY")
lcName = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:name")
lcV_number = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:number")
lcShieldPinId = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:shieldPinId")
lcSlImagesId = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:slImagesId")
lcSymbolInstanceId = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:symbolInstanceId")
lcSystemTypeId = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:component|*:systemTypeId")
lcCouplingType = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:couplingType")
lcSystem_group_id = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:system_group_id")
lcSystem_type_id = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:diagnosticComponents|*:item|*:system_type_id")
lcFc_code = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:fc_code")
lcFc_code2 = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:fc_code2")
lcFd_component_name_id = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:fd_component_name_id")
lcFd_id = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:fd_id")
lcFd_plausible = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:fd_plausible")
lcFd_si_number = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:fd_si_number")
lcFt_text = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:ft_text")
lcId = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:faultCode3Array|*:item|*:id")
lcConfirmationLink = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:status|*:confirmationLink")
lcStatusCode = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:status|*:statusCode")
lcCategoryDescription = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:tsbArrayContainer|*:item|*:extTsbCategoryArray|*:item|*:categoryDescription")
lcCategoryTypeConstant = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:tsbArrayContainer|*:item|*:extTsbCategoryArray|*:item|*:categoryTypeConstant")
lcConfirmationLink = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:tsbArrayContainer|*:item|*:extTsbCategoryArray|*:item|*:status|*:confirmationLink")
lcStatusCode = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:tsbArrayContainer|*:item|*:extTsbCategoryArray|*:item|*:status|*:statusCode")
lcKey = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:tsbArrayContainer|*:item|*:extTsbCategoryArray|*:item|*:systems|*:item|*:criteria|*:item|*:values|*:item|*:key")
lcValue = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:tsbArrayContainer|*:item|*:extTsbCategoryArray|*:item|*:systems|*:item|*:criteria|*:item|*:values|*:item|*:value")
lcIssueDate = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:tsbArrayContainer|*:item|*:extTsbCategoryArray|*:item|*:systems|*:item|*:issueDate")
lcOeCode = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:tsbArrayContainer|*:item|*:extTsbCategoryArray|*:item|*:systems|*:item|*:oeCode")
lcSystemDescription = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:tsbArrayContainer|*:item|*:extTsbCategoryArray|*:item|*:systems|*:item|*:systemDescription")
lcSystemId = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:tsbArrayContainer|*:item|*:extTsbCategoryArray|*:item|*:systems|*:item|*:systemId")
lcFaultCode = loResponseXml.GetChildContent("*:Body|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Response|*:filterFaultCodesWithDiagnosticStepsForTypeLogActiveV3Return|*:tsbArrayContainer|*:item|*:faultCode")
RELEASE loXml
RELEASE loHttp
RELEASE loResponseXml