Value of type '1-dimensional array of Service' cannot be converted to '1-dimensional array of RogersWebService.Service'

using System;
using System.Web;
using System.Collections;
using System.Web.Services;
using System.Web.Services.Protocols;
using System.Xml.Serialization;
 
namespace com.shoprogers.www
{
    /// <summary>
    /// Summary description for Wam
    /// </summary>
    [WebService(Namespace = "http://microsoft.com/webservices/")]
    [WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
    public class Wam : System.Web.Services.WebService
    {
 
        public Wam()
        {
 
            //Uncomment the following line if using designed components 
           // InitializeComponent(); 
        }
        // You will not be able to see it using webservices, this is not what webservices do.
        // Keep in mind that webservices are a decoupling point, your objects that get sent over are "thin" objects i.e. 
        // they are data holders, they are not to contain 
        // functionality. What is actually happenning here is your object is being used to create the WSDL, 
        // the remote client is reading the WSDL and generating proxy objects for you based upon the WSDL you created, 
        // it is not using the same objects thast you created. This behavior is a trade off, since you have decoupled 
        // java clients etc can call your service through their own generated proxies but you have a level complexity 
        // when dealing with your own code.
        // If you need it to use the same objects that you created you would have to use remoting but at that point you 
        // have lost the point of decoupling for other environments.
               
        /// <summary>
        ///
        /// </summary>
        /// <param name="transactionId"></param>
        /// <param name="ctn"></param>
        /// <param name="equipmentType"></param>
        /// <param name="language"></param>
        /// <param name="sim"></param>
        /// <param name="imei"></param>
        /// <param name="subscriberName"></param>
        /// <param name="pricePlanCode"></param>
        /// <returns></returns>
        [WebMethod (Description="Perform an activateSubscriber for Rogers")]
        public TransactionStatus activateSubscriber(
         string transactionId,
         string ctn,
         SubscriberProfile.EquipmentType equipmentType,
         SubscriberProfile.Language language,
         string sim,
         string imei,
         string subscriberName,
         string pricePlanCode)
        // Service[] service
        {
             TransactionStatus TS = new TransactionStatus();
             TS.transactionId = "01234567890123456789";
             TS.englishMessage = "Activate Subscriber";
             TS.frenchMessage = "Bonjour Rogers";
             TS.errorDescription = "Error on Rogers";
             TS.status = TransactionStatus.TransactionStatusStatus.completed;
 
             return TS;
           
        }
 
 
 
        [WebMethod (Description="Perform a deactivateSubscriber for Rogers")]
        public TransactionStatus deactivateSubscriber(string transactionId, string ctn)
        {
            TransactionStatus TS = new TransactionStatus();
            TS.transactionId = "01234567890123456789";
            TS.englishMessage = "Deactivate Subscriber";
            TS.frenchMessage = "Francais";
            TS.errorDescription = "Error on Rogers";
            TS.status = TransactionStatus.TransactionStatusStatus.pending;
 
            return TS;
        }
 
        [WebMethod(Description = "Perform a modify Subscriber Services for Rogers")]
        [XmlInclude(typeof(Service))]
        public TransactionStatus modifySubscriberServices(
            string transactionId, 
            string ctn, 
            string pricePlanCode
          //  Service[] service
            ) 
        {
           
            TransactionStatus TS = new TransactionStatus();
            TS.transactionId = "01234567890123456789";
            TS.englishMessage = "Modify Subscriber";
            TS.frenchMessage = "Francais";
            TS.errorDescription = "Error on Rogers";
            TS.status = TransactionStatus.TransactionStatusStatus.apperror;
 
            return TS;
        }
 
 
    }
}

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Xml.Serialization
 
Namespace com.shoprogers.www
    ''' <summary>
    ''' Summary description for Service
    ''' </summary>
    <Serializable()> _
    Public Class Service
        Private codeField As String = String.Empty
        Private parameterField As ServiceParameter() = Nothing
 
        Public Sub New()
            '
            ' TODO: Add constructor logic here
            '
        End Sub
        Public Sub New(ByVal code As String, ByVal parameter As ServiceParameter)
            Me.codeField = code
            Me.parameter(0).name = "name1"
 
            Me.parameter(0).value = "value1"
        End Sub
 
        '''<remarks/> 
        Public Property code() As String
            Get
                Return Me.codeField
            End Get
            Set(ByVal value As String)
                Me.codeField = value
            End Set
        End Property
 
        Public Property parameter() As ServiceParameter()
            Get
                Return Me.parameterField
            End Get
            Set(ByVal value As ServiceParameter())
                Me.parameterField = value
            End Set
        End Property
 
    End Class
End Namespace
 
--------------------------------------------------------------------
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
 
Namespace com.shoprogers.www
 
    <Serializable()> Public Class ServiceParameter
 
        Private nameField As String = String.Empty
        Private valueField As String = String.Empty
 
        Public Sub ServiceParameter()
            '
            ' TODO: Add constructor logic here
            '
        End Sub
 
        Public Sub ServiceParameter(ByVal nameField As String, ByVal valueField As String)
            Me.nameField = nameField
            Me.valueField = valueField
        End Sub
 
        ''' <remarks/>
        Public Property Name()
            Get
                Return Me.nameField
            End Get
 
            Set(ByVal value)
                Me.nameField = value
            End Set
        End Property
 
        ''' <remarks/>
        Public Property Value()
            Get
                Return Me.valueField
            End Get
            Set(ByVal value)
                Me.valueField = value
            End Set
        End Property
    End Class
 
End Namespace
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
 
 
''' <summary>
''' Summary description for Wam
''' </summary>
<WebService([Namespace]:="http://microsoft.com/webservices/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.None)> _
Public Class WAM
    Inherits System.Web.Services.WebService
 
    Public Sub New()
 
        'Uncomment the following line if using designed components 
        ' InitializeComponent(); 
    End Sub
    ''' <summary>
    '''
    ''' </summary>
    ''' <param name="transactionId"></param>
    ''' <param name="ctn"></param>
    ''' <param name="equipmentType"></param>
    ''' <param name="language"></param>
    ''' <param name="sim"></param>
    ''' <param name="imei"></param>
    ''' <param name="subscriberName"></param>
    ''' <param name="pricePlanCode"></param>
    ''' <returns></returns>
    <WebMethod(Description:="Perform an activateSubscriber for Rogers")> _
    Public Function activateSubscriber( _
        ByVal transactionId As String, _
        ByVal ctn As String, _
        ByVal equipmentType As SubscriberProfile.EquipmentType, _
        ByVal language As SubscriberProfile.Language, _
        ByVal sim As String, _
        ByVal imei As String, _
        ByVal subscriberName As String, _
        ByVal pricePlanCode As String, _
        ByVal Service() As Service) As TransactionStatus
 
        Dim TS As New TransactionStatus()
        Dim SP As New SubscriberProfile()
        Dim serviceParmameter As New ServiceParameter()
 
 
        TS.transactionId = transactionId
        TS.englishMessage = "English"
        TS.frenchMessage = "Francais"
        TS.errorDescription = "Error on Rogers"
        TS.status = TransactionStatus.TransactionStatusStatus.completed
 
        SP.ctn = ctn
        ' SP.equipmentType = equipmentType
        SP.pricePlan = pricePlanCode
        ' SP.language = language
        SP.sim = sim
        SP.imei = imei
        SP.service = Service
 
 
        Return TS
    End Function
 
 
 
    '<WebMethod(Description:="Perform a deactivateSubscriber for Rogers")> _
    'Public Function deactivateSubscriber(ByVal transactionId As String, ByVal ctn As String) As TransactionStatus
    '    Dim TS As New TransactionStatus()
    '    TS.transactionId = "01234567890123456789"
    '    TS.englishMessage = "Deactivate Subscriber"
    '    TS.frenchMessage = "Francais"
    '    TS.errorDescription = "Error on Rogers"
    '    TS.status = TransactionStatus.TransactionStatusStatus.pending
 
    '    Return TS
    'End Function
 
    '<WebMethod(Description:="Perform a modify Subscriber Services for Rogers")> _
    'Public Function modifySubscriberServices(ByVal transactionId As String, ByVal ctn As String, ByVal pricePlanCode As String) As TransactionStatus
    '    '  Service[] service
 
    '    Dim TS As New TransactionStatus()
    '    TS.transactionId = "01234567890123456789"
    '    TS.englishMessage = "Modify Subscriber"
    '    TS.frenchMessage = "Francais"
    '    TS.errorDescription = "Error on Rogers"
    '    TS.status = TransactionStatus.TransactionStatusStatus.apperror
 
    '    Return TS
    'End Function
 
 
End Class
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95: