parametros en WebMethods

[Nihilistik]

Saludos! Y gracias por contestar.

Esta es la función del WebService que no llega al servidor.

Código:

 
Public Function RequestGs(ByVal cnx() As String, _
   ByVal login() As String, ByVal request() As String) As String
        If gs.Connect(cnx(0), cnx(1)) = 0 Then
            If gs.Logon(login(0), login(1), login(2), login(3), login(4), login(5), login(6)) = 0 Then
                Return gs.rgsb(request(0), request(1), request(2))
            Else
                Return gs.GetLastErrorStr
            End If
        Else
            Return gs.GetLastErrorStr
        End If
End Function

Y esta es la que si llega al servidor:

Código:

 Public Function RequestGs2(ByVal ip As String, ByVal port As String, _
                            ByVal EmpresaGestora As String, ByVal User As String, _
                            ByVal PAss As String, ByVal Aplicacion As String, _
                            ByVal Ejercicio As String, ByVal login5 As String, _
                            ByVal login6 As String, ByVal accion As String, _
                            ByVal ventana As String, ByVal argum As String) As String
        If gs.Connect(ip, port) = 0 Then
            If gs.Logon(EmpresaGestora, User, PAss, Aplicacion, Ejercicio, login5, login6) = 0 Then
                Dim str As String = gs.rgsb(accion, ventana, argum)
                If str = "" Then
                    Dim errore As String = gs.GetLastErrorStr
                    If errore = "" Then
                        Return "No padre ni con errores"
                    Else
                        Return errore
                    End If
                Else
                    Return str
                End If
            Else
                Return "No padre Lgn"
            End If
        Else
            Return "No padre Cnx"
        End If
    End Function

Y aqui consumo el web service:

Código:

Dim arrayCnx() As String = {"Datos de conexión en 2 posiciones, 0 y 1"}
Dim arrayLgn() As String = {"Datos de Login en un array de 7 posiciones, de 0 a 6"}
Dim Request() As String = {"Datos de de intercambio de Info con el Servidor en 3 posiciones"}

        Dim resultados As String
        Dim resultados2 As String

resultados = gs.RequestGs(arrayCnx, arrayLgn, Request)
resultados2 = gs.RequestGs2(arrayCnx(0), arrayCnx(1), arrayLgn(0), _
        arrayLgn(1), arrayLgn(2), arrayLgn(3), arrayLgn(4), _
        arrayLgn(5), arrayLgn(6), Request(0), Request(1), Request(2))

If resultados = "" Then MsgBox(gs.ErrorBack) Else MsgBox(resultados)
If resultados2 = "" Then MsgBox(gs.ErrorBack) Else MsgBox(resultados2)

Resultados no devuelve nada de nada, ni sikiera gs.Error, por lo que entiendo que no llega al servidor, resultando en un webservice mal diseñado.
REsultados2 si que llega al servidor y aunque luego alli el programa con el que conecto me devuelve un error, si que llega tanto gs.REquestgs como gsErrorBack.

¿Alguna idea de porque?

Muchas gracias.

P.D.: Leyendome el link, gracias PeterPay. ^_^