none
Escribir En WebService RRS feed

  • Pregunta

  • 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!


    • Editado Sobras martes, 7 de mayo de 2019 12:18
    martes, 7 de mayo de 2019 12:15

Respuestas

Todas las respuestas

  • Hola  

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te hago la recomendación de ingresar al siguiente enlace en donde puedes encontrar una posible solución para tu problema.

    https://mteheran.wordpress.com/2011/01/02/guardar-o-extraer-archivos-desde-un-web-service/

    http://www.maestrosdelweb.com/tutorial-asp-net-acceso-a-datos-consultar-y-guardar-informacion-desde-webforms/

    Gracias por usar los foros de MSDN.

    Carlos Ruiz
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    martes, 7 de mayo de 2019 15:39
  • Hola Carlos.

    Gracias por la respuesta pero ninguno de los dos enlaces tiene que ver con lo que estaba buscando.

    El primer es como leer, grabar archivos a un webservice y el segundo como usar una hoja de excel como base de datos y recuperar los datos desde un form en ASP.NET

    Lo que yo busco es como guardar los datos de unas variables desde VB. NET a un Webservice para luego leer la respuesta de dicho WebService

    Un Saludo!

    miércoles, 8 de mayo de 2019 9:12