Tengo que consumir un WS con Visual Basic .Net
Luego de agregar las referencias de servicios, escribí este código:
Código:
El problema que tengo es que no me acepta ws.procesarAlta(Campos), sino que la sintaxis debe ser ws.procesarAlta(Campos()). O sea, debo colocar una función como parámetro y me termina dando error. Dim ws As New nodum.FormsClient, Campos As New nodum.entradaTadmBitCosecha Campos.General.G1.NroBitacora = 366532 Campos.General.G1.Fecha = #8/26/2015# Campos.General.G1.MesAnio = #9/1/2015# Campos.General.G1.Semana = 35 Campos.General.G1.Quincena = 1 Campos.General.G1.Turno = "D" Campos.General.G1.LugardeTrabajo = "FR15024" Campos.General.G1.Empresa = "'02" Campos.General.G1.NroCuadro = "7F162" Campos.General.G1.Operario = "TL000220" Campos.General.G1.Maquina = "FW12013" ws.procesarAlta(Campos)
El error que me muestra es: "Error 1 Un valor de tipo 'WindowsApplication1.nodum.entradaTadmBitCosecha' no se puede convertir en '1-matriz dimensional de WindowsApplication1.nodum.entradaTadmBitCosecha'."
Investigando, encontré que al agregar las referencias de servicio en Reference.vb aparece:
Código:
Probé consumir el WS con la aplicación SoapUI y funciona bien.Public Function procesarAlta(ByVal procesarAlta1() As entradaTadmBitCosecha) As salidaResultado() Dim inValue As nodum.procesarAltaRequest = New nodum.procesarAltaRequest() inValue.procesarAlta = procesarAlta1 Dim retVal As nodum.procesarAltaResponse = CType(Me, nodum.Forms).procesarAlta(inValue) Return retVal.procesarAltaReturn End Function
¿Está mal creado el WS o soy yo que estoy consumiendo mal?. Tal vez hay algo que configurar en Visual Basic .Net que yo no sé.
Desde ya, muchas gracias por las respuestas.
Saludos