Hola.
Estoy trabajando con un webservice en el qua hay dos estructuras, en la primera envio un par de datos y leo el resultado correctamente, el problema lo tengo en la segunda (ZWS_BAS_02) donde debo grabar 8 variables y leer 3 en las cuales veo si la grabacion de ha realizado correctamente.
Webservice:
Estos son los datos que tengo que grabar
Esta la funcion que los graba
Y estos los datos que tengo que leer para ver si la grabacion se ha realizado correctamente
Este es mi codigo:
Sub EnvioAWebService() 'Try Dim svc_ZWS_BAS_02_COMP As New ServiceReference1.ZWS_BAS_02_COMPONENT Dim svc_ZWS_BAS_02_OKK As New ServiceReference1.ZWS_BAS_02 Dim svc_ZWS_BAS_02_ERR As New ServiceReference1.ZWS_BAS_02_ERROR 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 'MsgBox(svc_ZWS_BAS_02_COMP.AUFNR & "*" & svc_ZWS_BAS_02_COMP.WERKS & "*" & svc_ZWS_BAS_02_COMP.COMP & "*" & svc_ZWS_BAS_02_COMP.CHARG & "*" & svc_ZWS_BAS_02_COMP.BDMNG & "*" & svc_ZWS_BAS_02_COMP.MEINS) 'llamo al metodo Dim proxy As New ServiceReference1.ZWS_BASClient ''le paso el usuario y el password proxy.ClientCredentials.UserName.UserName = "BASCULA" proxy.ClientCredentials.UserName.Password = "friasBascula" 'ENTIENDO QUE LE TENGO QUE PASAR EL OBJETO CON LAS VARIABLES CARGADAS PERO ME DA ERROR DE LAS DOS MANERAS!!!! svc_ZWS_BAS_02_OKK.I_T_BAS_COMPONENT = svc_ZWS_BAS_02_COMP Dim res = proxy.ZWS_BAS_02(svc_ZWS_BAS_02_COMP) MsgBox("ERROR:" & svc_ZWS_BAS_02_ERR.ERROR & " ** CONT:" & svc_ZWS_BAS_02_ERR.CONT & " ** MESSAGE:" & svc_ZWS_BAS_02_ERR.MESSAGE) 'TAPIZ.TexMSG.Text = "SE HAN ENVIADO LOS DATOS AL WEB SERVICE" 'Catch ex As Exception ' Comunes.log("ERROR EN LA FUNCION ButGRABAR:" & ex.Message) ' TAPIZ.TexMSG.Text = "ButGRABAR:" & ex.Message ' TAPIZ.TexMSG.BackColor = Color.Yellow ' TAPIZ.BorroMSG.Start() 'End Try End Sub
Como le podria pasar las variables a la funcion para que realize la grabacion?
Saludos y gracias de antemano!