none
Obtener XML de request de contrato de WebService RRS feed

  • Pregunta

  • Que tal, buen día

    Actualmente estoy consumiendo un WS de unos de mis proveedores, todo funciona perfecto, pero
    quiero ver como puedo obtener el XML del request, como lo puedo hacer? me podrían ayudar por favor.
    De antemano agradezco la ayuda que me puedan brindar.

            Dim NetworkCredential As New System.Net.NetworkCredential
            Dim objSN As New WsCT.sn
            Dim credential As CredentialCache = New CredentialCache()
            Dim salida As New DatosSalida
            Dim ctd As New WsCT.cerTD
            Dim dc As New WsCT.datosControl
            Dim dt As New WsCT.datosTrabajador
            Dim rt As New WsCT.respuestaTransaccion
            ref1.curp = dentrada.Referencia_Curp1
            referencias(0) = ref1
            ref2.curp = dentrada.Referencia_Curp2
            referencias(1) = ref2
            cuerpo.apellidoMaterno = dentrada.apellidoMaterno
            cuerpo.apellidoPaterno = dentrada.apellidoPaterno
            cuerpo.curpFuncionario = dentrada.curpFuncionario
            cuerpo.curpTrabajador = dentrada.curpTrabajador
            cuerpo.nombre = dentrada.nombre
            If dentrada.numeroTrabajador.Trim <> "" Then
                cuerpo.numeroTrabajador = dentrada.numeroTrabajador
            End If
            cuerpo.referencias = referencias
    
            wsContrato.cuerpo = cuerpo
            WsCliente.PreAuthenticate = True
            NetworkCredential.UserName = usuario
            NetworkCredential.Password = pass
            WsCliente.Credentials = NetworkCredential
            WsCliente.Proxy = proxyObject
    
            With objSN
                .codoperCliente = dentrada.objSN_codoperCliente
                .fecha = dentrada.objSN_fecha
                .idCanal = dentrada.objSN_idCanal
                .idCliente = dentrada.objSN_idCliente
                .idEbusiness = dentrada.objSN_idEbusiness
                .idPortafolio = dentrada.objSN_idPortafolio
                .idServicio = dentrada.objSN_idServicio
                .idSistema = dentrada.objSN_idSistema
            End With
            wsContrato.sn = objSN
            Dim instance As ServicePointManager
            instance.ServerCVC = New RemoteCVC(AddressOf ValServCe)
            respuesta = WsCliente.generarCertificadoTraspasos(wsContrato)
    

    jueves, 27 de noviembre de 2014 16:34

Todas las respuestas