VB.NET - 第三部分Web服务方法返回Nothing

时间:2016-01-29 16:29:40

标签: xml vb.net web-services wsdl

我正在使用Visual Studio 2010开发VB.NET应用程序。

我添加了对此WS的引用:http://cofam.org.ar:81/webService/Validador/ValidadorCofam.asmx?WSDL

并制作了这段代码:

Try
    Dim doc As New XmlDocument
    doc.Load("pathtoxmlfile")
    Dim vr2 As New WSCofamTesting.ValidadorCofamSoapClient
    Dim result As XmlNode
    result = vr2.Valida("asd", "asd", doc.DocumentElement)

Catch ex As Exception
    mvarMsgError = ex.ToString
    Add2Log(MyName & "-GestionarWSCOFAM.Error:" & mvarMsgError)
End Try

由于用户和密码(asd)不存在,至少我应该得到一个"错误的用户/密码",但方法​​" Valida"什么也没有。我发送的xml文件写得很好,WS的开发人员发给我了。这是一份副本:

<Validador xmlns="http://www.cofam.org.ar/WebService/Validador">
  <Transaccion>
    <Operacion>AutorizarReceta</Operacion>
    <Version>01.00</Version>
    <Fecha>13/01/2016</Fecha>
    <Hora>13:01:00</Hora>
  </Transaccion>
  <Sistema>
    <SistemaID>BT</SistemaID>
    <SistemaHK />
    <SistemaVER>3.0.0.7</SistemaVER>
    <SistemaMsgID>000005</SistemaMsgID>
    <Puesto>PC00</Puesto>
  </Sistema>
  <Comercio>
    <CodCOFAM>9999</CodCOFAM>
    <ComercioID>990</ComercioID>
  </Comercio>
  <Mensaje>
    <AutorizarReceta>
      <ObraSocial>239</ObraSocial>
      <Plan>2</Plan>
      <Afiliado>1027224300</Afiliado>
      <Convenio />
      <Receta>0</Receta>
      <FechaMedico>10/01/2016</FechaMedico>
      <FechaDispensa>13/01/2016</FechaDispensa>
      <Medico>MP00000321</Medico>
      <Diagnostico />
      <TipoTratamiento>NO</TipoTratamiento>
      <Items>
        <Item>     
          <Registro>34959</Registro>
          <Descripcion />
          <Cantidad>1</Cantidad>
          <Importe>64,05</Importe>
          <PorcentajeOS>50,00</PorcentajeOS>
          <ImportOS>0</ImportOS>
        </Item>
      </Items>
    </AutorizarReceta>
  </Mensaje>
</Validador>

我尝试使用Web引用,服务引用,结果变量,类型为XmlNode,XmlDocument,XmlElement;也从&#34;即时窗口调用方法&#34;与?vs2.valida(&#34; asd&#34;,&#34; asd&#34;,doc.Element)。 WS的开发人员也无法在我的代码中找到任何错误,并且在C ++中使用他的应用程序,该方法也很完美。他还向我发送了该应用程序的代码,它与我的相同。

如果任何人知道可能是什么原因或需要有关代码的更多信息以清楚地了解问题,请随时回复。

非常感谢。

0 个答案:

没有答案