Я работаю в проекте с одним веб-сервером. Я добавил ссылку на веб-сервис в Visual Studio и связь с ним работает отлично. Я должен вставить данные (8 переменных), а затем прочитать 3 переменные с веб-сервера.
Данные для ввода:

Здесь я должен ввести из предыдущих данных

Мой код:
'Inicializo el WebService , initialize the webservice
Dim svc_ZWS_BAS_02_COMP As New ServiceReference1.ZWS_BAS_02_COMPONENT
Dim svc_ZWS_BAS_02 As New ServiceReference1.ZWS_BAS_02
Dim svc_ZWS_BAS_02_ERR As New ServiceReference1.ZWS_BAS_02_ERROR
'ASIGNO VALORES A LAS VARIABLES DE ZWS_BAS_02_COMPONENT , store data on variables
svc_ZWS_BAS_02_COMP.AUFNR = TexNOrden.Text
svc_ZWS_BAS_02_COMP.WERKS = TexNCentro.Text
svc_ZWS_BAS_02_COMP.COMP = TexComponente.Text
svc_ZWS_BAS_02_COMP.CHARG = TexLote.Text
'svc_ZWS_BAS_02_COMP.CHARG2 = TexLoteReal.Text
Dim Peso As Double = 0
If TexPeso1.Text = "" Then
TexPeso1.Text = 0
End If
If TexPeso2.Text = "" Then
TexPeso2.Text = 0
End If
If CDbl(TexPeso1.Text) > CDbl(TexPeso2.Text) Then
Peso = CDbl(TexPeso1.Text)
Else
Peso = CDbl(TexPeso2.Text)
End If
svc_ZWS_BAS_02_COMP.BDMNG = Peso
svc_ZWS_BAS_02_COMP.MEINS = TexUnMedidaCantNotificada.Text
'end of store data to variables
'llamo al metodo , call method
Dim proxy As New ServiceReference1.ZWS_BASClient
''le paso el usuario y el password , ueser and pssword
proxy.ClientCredentials.UserName.UserName = "BASCULA"
proxy.ClientCredentials.UserName.Password = "friasBascula"
Dim resultado = proxy.ZWS_BAS_02(svc_ZWS_BAS_02) 'doesn't work
Я думаю, что мне нужно вставить данные (vc_ZWS_BAS_02_COMP.AUFNR
, svc_ZWS_BAS_02_COMP.WERKS
, svc_ZWS_BAS_02_COMP.COMP
и остальные) в I_T_BAS_COMPONENT
, но я не знаю, как.
Позже я должен прочитать эти данные из веб-службы:
