Como enviar Addenda a WebService Soriana.

[NetFcruz]

Hola amigos estuve batallando y ahora les pongo un pequeno code que les servira a muchos, lo hice en Vb.Net, me ayudo un amigo asi que la informacion es libre espero les sirva como ami. Esto es para llamar al WsSoriana y obtener respuesta. Como lo implementen les servira esta info no esta mas ke en dos foros, que postee, talvez lo haya en otros mas. Si obtienen un mejor resultado me notifican.

'Instancias el WS de Soriana, referencia web WSoriana
Dim ServicioSoriana As New WSoriana.wseDocReciboSoapClient()
'Haces la peticion y cachas la respuesta.
Dim Respuesta As [String] = ServicioSoriana.RecibeCFD(StrMsg2)

'Trato de obtener respuesta Visible
Dim XMLAceptado As String = Respuesta

If XMLAceptado = Respuesta Then
CFDI.frmRespuestaWS.rtbEditor.Text = ServicioSoriana.RecibeCFD(StrMsg2)
CFDI.frmRespuestaWS.rtbEditor.Show()
Else
MsgBox("Hubo Error, reportarlo a Depto. Sistemas", MsgBoxStyle.OkOnly)

End If ' FIn de XML If-Aceptado

Saludos...