Quantcast
Channel: Escribir En WebService
Viewing all articles
Browse latest Browse all 3

Escribir En WebService

0
0

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!



Viewing all articles
Browse latest Browse all 3

Latest Images

Trending Articles





Latest Images