I don't know. It looks like your still using the original models or classes to me and not the modified ones. I wrote mine like this, but used serialized classes and not actual XML Then tested it calling the API in the browser, and getting that white and blue page that shows the all the WSDL services. I remember seeing my class outputted on the screen, but can't remember if it was XML. But I wrote a Win App to call this web service and it worked really well.
Public Function customers\_load(
ByVal CustomerRequest As ws_customers_Request) As ws_customers_Response
Dim customer As New ws\_customers\_Response
Dim customerList As List(Of ws\_customers\_list) = Nothing
Dim dwXCode As Integer = crm\_ef\_login.administrator\_Login(
CustomerRequest.Credentials\_Key,
CustomerRequest.Credentials\_Password
)
If (0 = dwXCode) Then
If CustomerRequest.PageIndex = 0 Then CustomerRequest.PageIndex = 1
If CustomerRequest.PageSize = 0 Then CustomerRequest.PageSize = 25
Dim m\_count As Integer = crm\_ws\_ef\_customers.customers\_Load(
CustomerRequest.PageIndex,
CustomerRequest.PageSize,
customerList
)
If (m\_count > 0) Then
customer.response\_Code = "OK"
customer.response\_Text = m\_count & " subscribers have loaded successfully"
customer.customerList = customerList
Else
customer.response\_Code = "E001"
customer.response\_Text = "No subscribers exist in the database"
customer.customerList = customerList
End If
Else
customer.response\_Code = "E000"
customer.response\_Text = "Failed Authentication"
customer.customerList = Nothing
End If
Return customer
End Function
Public Class ws_customers_Response
Private m\_response\_Code As String
Private m\_response\_Text As String
Private m\_customerList As List(Of ws\_customers\_list)
Public Property response\_Code As String
Get
Return m\_response\_Code
End Get
Set(value As String)
m\_response\_Code = value
End Set
End Property
Public Property response\_Text As String
Get
Return m\_response\_Text
End Get
Set(value As String)
m\_response\_Text = val
