Hola a todos
Acabo de migrar de Axis1 a Axis2 los servicios que tenia creados para acceso a diferentes partes del erp de mi empresa. Accedia desde VB6 con el Soap Toolkit 3.0 y no tenia problemas para acceder a ninguno de los servicios que tenia creados pero cuando he migrado a Axis2 no puedo acceder a alguno de ellos y no se cual es la causa.
Os envio el wsdl que me genera para que lo tengais:
El codigo que utilizo es :
<pre>
Dim clnt
Dim oxml
Dim objResultNodes
Dim listaCapabilities
'On Error Resume Next
Set clnt = CreateObject("MSSOAP.SoapClient30")
Screen.MousePointer = vbHourglass
DoEvents
'Inciar Servicio Web
clnt.ClientProperty("ServerHTTPRequest") = True
clnt.MSSoapInit "****/GetDataFromERPService?wsdl"
If Err <> 0 Then
MsgBox ("Respuesta erronea del Servicio Web. Verificar el Servicio URL" & vbLf & vbLf & "URGENTE !!! LLAMAR AL TEAM MANAGER: Pope-Iban-Ibai" & vbLf & vbLf & Error)
Screen.MousePointer = vbDefault
Exit Sub
End If
Lista.Clear
'Invoke the Web service method
'It returns a DataSet (two nodes list; one containing schema
' and other containing actual results)
'Set objResultNodes = clnt.leerOfak(auxOF)
listaCapabilities = clnt.getOperations(InputBox("Introduzca la OF", "Nombre"))
For i = 0 To UBound(listaCapabilities)
Lista.AddItem (listaCapabilities(i))
Next
'
''Respuesta LeerOfak
'auxCLIENTE = clnt.leerOfak(auxOF).Item(5).Text
Screen.MousePointer = vbDefault
Set clnt = Nothing
</pre>
El error que me devuelve es
Unexpected Subelement
¿Alguna Idea?
Gracias por vuestra ayuda
