Hi,
I am working with Manage Account i.e. ManageCustomerIn web service using VB.NET to create a private customer account. The response log displays a severity code of 3 and the note: "Only value true is permitted as telephoneListCompleteTransmissionIndicator". On WSDL telephoneListCompleteTransmissionIndicator is of type boolean, I have tried passing in 1 and even a string value of "true" but I just get the same response.
'Create a customer Dim oQCust As New ManageAccounts.ManageCustomerInClient oQCust.ClientCredentials.UserName.UserName = "xxxxx" oQCust.ClientCredentials.UserName.Password = "xxxx" oQCust.Open() Dim oreadsync As New ManageAccounts.CustomerBundleMaintainRequestMessage_sync_V1 Dim customer As New ManageAccounts.CustomerMaintainRequestBundleCustomer_V1 customer.actionCode = ManageAccounts.ActionCode.Item01 customer.addressInformationListCompleteTransmissionIndicator = True customer.bankDetailsListCompleteTransmissionIndicator = False customer.communicationArrangementListCompleteTransmissionIndicator = True customer.operatingHoursInformationListCompleteTransmissionIndicator = True customer.paymentCardDetailsListCompleteTransmissionIndicator = True customer.relationshipListCompleteTransmissionIndicator = True customer.salesArrangementListCompleteTransmissionIndicator = True customer.taxNumberListCompleteTransmissionIndicator = True customer.generalProductTaxExemptionListCompleteTransmissionIndicator = True customer.contactPersonListCompleteTransmissionIndicator = False customer.paymentDataListCompleteTransmissionIndicator = True customer.textListCompleteTransmissionIndicator = True customer.CategoryCode = "1" customer.ProspectIndicator = False customer.CustomerIndicator = True customer.LifeCycleStatusCode = ManageAccounts.PartyLifeCycleStatusCode.Item3 Dim person As New ManageAccounts.CustomerMaintainRequestBundlePerson person.GivenName = "FirstName" person.FamilyName = "LastName" customer.Person = person customer.LegalCompetenceIndicator = True 'Main Address Dim address1 As New ManageAccounts.CustomerMaintainRequestBundleAddressInformation address1.actionCode = ManageAccounts.ActionCode.Item01 address1.addressUsageListCompleteTransmissionIndicator = True Dim address1usage As New ManageAccounts.CustomerMaintainRequestBundleAddressUsage address1usage.actionCode = ManageAccounts.ActionCode.Item01 Dim usagecode1 As New ManageAccounts.AddressUsageCode usagecode1.Value = "XXDEFAULT" address1usage.AddressUsageCode = usagecode1 address1usage.DefaultIndicator = False address1.AddressUsage = {address1usage} Dim address1address As New ManageAccounts.CustomerMaintainRequestBundleAddress address1address.actionCode = ManageAccounts.ActionCode.Item01 address1address.telephoneListCompleteTransmissionIndicator = True Dim emailuri As New ManageAccounts.EmailURI emailuri.Value = "xxxxxx@xxxxx.co.uk" address1address.EmailURI = emailuri Dim postaladdress1 As New ManageAccounts.CustomerMaintainRequestBundleAddressPostalAddress postaladdress1.CountryCode = "GB" postaladdress1.CityName = "Surrey" postaladdress1.StreetPostalCode = "xxxxxxxx" postaladdress1.StreetPrefixName = "xxxxxxx" postaladdress1.StreetName = "xxxxxxx" postaladdress1.StreetSuffixName = "xxxxxx" postaladdress1.HouseID = "1" address1address.PostalAddress = postaladdress1 Dim telephone As New ManageAccounts.CustomerMaintainRequestBundleAddressTelephone telephone.FormattedNumberDescription = "+44 2222222222" address1address.Telephone = {telephone} address1.Address = address1address 'Shipping Address Dim address2 As New ManageAccounts.CustomerMaintainRequestBundleAddressInformation address2.actionCode = ManageAccounts.ActionCode.Item01 address2.addressUsageListCompleteTransmissionIndicator = True Dim address2usage As New ManageAccounts.CustomerMaintainRequestBundleAddressUsage address2usage.actionCode = ManageAccounts.ActionCode.Item01 Dim usagecode2 As New ManageAccounts.AddressUsageCode usagecode2.Value = "SHIP_TO" address2usage.AddressUsageCode = usagecode2 address2usage.DefaultIndicator = False address2.AddressUsage = {address2usage} Dim address2address As New ManageAccounts.CustomerMaintainRequestBundleAddress address2address.actionCode = ManageAccounts.ActionCode.Item01 address2address.telephoneListCompleteTransmissionIndicator = True Dim postaladdress2 As New ManageAccounts.CustomerMaintainRequestBundleAddressPostalAddress postaladdress2.CountryCode = "GB" postaladdress2.CityName = "Surrey" postaladdress2.StreetPostalCode = "T35T" postaladdress2.StreetPrefixName = "Delivery Address" postaladdress2.StreetName = "xxxxxxxxx" postaladdress2.StreetSuffixName = "xxxxxxxx" postaladdress2.HouseID = "1" address2address.PostalAddress = postaladdress2 address2.Address = address2address customer.AddressInformation = {address1, address2} Dim salesagg As New ManageAccounts.CustomerMaintainRequestBundleSalesArrangement salesagg.SalesOrganisationID = "102" Dim distcode As New ManageAccounts.DistributionChannelCode distcode.Value = "Z1" salesagg.DistributionChannelCode = distcode salesagg.CompleteDeliveryRequestedIndicator = True salesagg.CurrencyCode = "GBP" customer.SalesArrangement = {salesagg} oreadsync.Customer = {customer} Dim resp = oQCust.MaintainBundle_V1(oreadsync) If Not IsNothing(resp) Then If Not IsNothing(resp.Customer) Then For Each c In resp.Customer Trace.Write("Internal Id", c.InternalID) Trace.Write("UUID", c.UUID.Value) Next End If If Not IsNothing(resp.Log) Then Trace.Write("severity code", resp.Log.Item.First.SeverityCode) Trace.Write("type id", resp.Log.Item.First.TypeID) Trace.Write("note", resp.Log.Item.First.Note) End If End If oQCust.Close()I also tried SOAP UI to create the customer account and it worked fine but not through .NET
Any help is appriciated!