XML Soap Issue

[[email protected]]

I’m creating an asp.net/vb.net front end to a web service provided by a company.

They use SOAP to send and receive requests.

The issue I am having is retrieving some of the returned data from the XML/Class returned to me

The top level class is very accessible but an internal class cannot be accessed:

Here is the structure:

The object reference in the project is named: WebReference
Under WebReference we have two classes: MSOOffersResponseType and DataOfferType

There is also a function called: QueryOffersService which is used to send the SOAP message and returns the response in a class named msoffers

they are Dim'ed in the code as:
Dim refWeb As New WebReference.QueryOffersService
Dim msoffers() As WebReference.MSOOffersResponseType
Dim offer() As WebReference.DataOfferType

If I break the code during runtime and mouse over the msoffers object i can see the DataOfferType structure and data. The tree looks like this to me as I navagate the mouse over treee view of the msoffers object:

msoffers().items().WebReference.DataOfferType().WebReference.DataOfferType.DownloadSpeed.Value

When I copy the expression I get this:
msoffers(0).ItemsitemsField(0).DownloadSpeed.downloadSpeedField.Value()

This was the Copied Structure from the runtime environment

Note : ItemsitemsField(0) is displayed to me as Items(0), and when I try to reference it by ItemsitemsField I get this:

'ItemsitemsField' is not a member of 'WebReference.MSOOffersResponseType'


Can anyone help me navigate this mess and shed some light on how I can get to the data in WebReference.DataOfferType to display?

I was told I need to "Cast" to get to it, but being very new to .Net casting is confusing to me.

Thanks in advance!

Below see the full code listing for this subroutine:

Partial Class _Default
    Inherits System.Web.UI.Page
 
    Sub sendQueryOffers()
        Dim strAddr As New WebReference.UnparsedUSAddressType
        Dim CableServiceEnum As New WebReference.CableServiceEnum
        Dim AllServiceEnum As New WebReference.AllServiceEnum
        Dim strAffType As New WebReference.AffiliateType
        Dim origAffType As New WebReference.AffiliateType
        Dim Privacy As New WebReference.PrivacyNoticeEnum
        Dim retAddr As WebReference.ParsedUSAddressType = Nothing
        Dim intTrackingID As Integer
        Dim strCableServiceReq() As WebReference.CableServiceEnum = New WebReference.CableServiceEnum(4) {}
        Dim strAllService() As WebReference.AllServiceEnum = New WebReference.AllServiceEnum(4) {}
        Dim strPhone As String = "0000000000"
        Dim strLanguage As String = "en-us"
        Dim refWeb As New WebReference.QueryOffersService
        Dim msoffers() As WebReference.MSOOffersResponseType
        Dim offer() As WebReference.DataOfferType
 
        'Define Passed Variables
        strCableServiceReq(0) = CableServiceEnum.CableHighSpeedData
 
        'Subscriber service
        strAllService(0) = AllServiceEnum.CableHighSpeedData
 
        'Originating Affiliate
        origAffType.AffiliateID = Nothing
        origAffType.SalesPersonID = Nothing
 
        'Affiliate details
        strAffType.AffiliateID = Convert.ToInt32("122100")
        strAffType.SalesPersonID = "0"
        strAffType.StoreID = "0"
        strAffType.G2BVersion = Convert.ToDecimal(4.0)
 
        'Address details
        strAddr.AddressLine = address.Text
        strAddr.City = ""
        strAddr.State = ""
        strAddr.Zip = zip.Text
 
        'Load query and send
        refWeb.Url = "https://www.xxxxxxxx.com/QueryOffers/QueryOffers.asmx"
        Dim Resp
 
        Resp = refWeb.QueryOffers(strAffType, Nothing, strAddr, WebReference.PrivacyNoticeEnum.OptIn, strCableServiceReq, strAllService, strPhone, strLanguage, retAddr, msoffers, intTrackingID)
 
        Dim msot, msoi, msoa, saddress, msoItems, msoAddressSuggest, msooffers
 
        Try
            msooffers = -1
            msoItems = -1
            msooffers = msoffers(0).Items.Length - 1
            msoItems = msoffers(0).Items.Length - 1
            Exit Try
        Catch
        End Try
 
        Try
            msoAddressSuggest = -1
            msoAddressSuggest = msoffers(0).AddressSuggestion.Length - 1
            Exit Try
        Catch
        End Try
 
        If msoAddressSuggest = -1 And msoItems = -1 Then
            Response.Write("Nothing to do.")
        End If
 
        If msoAddressSuggest <> -1 Then
            ReDim saddress(msoffers(msot).AddressSuggestion.Length)
            For msoa = 0 To msoffers(msot).AddressSuggestion.Length
                saddress(msoa) = msoffers(msot).AddressSuggestion(msoa).AddressLine & " " & msoffers(msot).AddressSuggestion(msoa).Suite & " " & msoffers(msot).AddressSuggestion(msoa).City & ", " & msoffers(msot).AddressSuggestion(msoa).State & " " & msoffers(msot).AddressSuggestion(msoa).Zip & "-" & msoffers(msot).AddressSuggestion(msoa).Zip4
                Response.Write(saddress(msoa))
            Next
            Exit Sub
        Else
 
        End If
 
        Dim DataIndex As String
        For msoi = 0 To msoffers(0).Items().Length - 1
 
            Dim dataOffer As WebReference.DataOfferType() = CType(offer, WebReference.DataOfferType())
            Response.Write(dataOffer(msoi).DownloadSpeed)   '<-- ERROR ****
 
            Try
                Response.Write(msoffers(0).Items(msoi).MarketingInfo.Main & "<br>")
            Catch
            End Try
            Response.Write(FormatCurrency(msoffers(0).Items(msoi).Price.Value, 2) & "<BR>")
            Response.Write("<-----------------------------------------------><BR><BR>")
        Next msoi
 
 
    End Sub
 
    Protected Sub Button1_Click1(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Button1.Click
        Call sendQueryOffers()
    End Sub
End Class