Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » C sharp » ayuda con el siguiente codigo

C sharp - ayuda con el siguiente codigo

Volver
Nuevo Tema
<<>>
 
Vista:

ayuda con el siguiente codigo

Publicado por zeroX (7 intervenciones) el 28/12/2018 22:34:45
buenas el siguiente codigo funciona pero quiero revisar lo que esta en el for each los valores, pero este no paa por los breaks ya que tengo un return donde debo colocarlo para que me respete los beaks ya intente ponerlo en varios lados y no pasa

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Try
    Dim wsConsulta As New wsAguaCdJuarez.wsTransactions
    Dim sRespCons As String
    wsConsulta.Url = "https://h2h.m3rcurio.com"
 
    Dim xmlString = "<VALIDAREFERENCIAPAGOSERVICIOS>" &
                       "  <PuntoVenta>DAT040526M</PuntoVenta>" &
                       "  <Password>5neMXN1/QG</Password>" &
                       "  <Producto>PS_JMAS</Producto>" &
                       "  <Referencia>" & Referencia & "</Referencia>" &
                       "  <FechaInicio>" & FechaInicio & "</FechaInicio>" &
                       "</VALIDAREFERENCIAPAGOSERVICIOS>"
 
    Dim xmlElem = XElement.Parse(xmlString)
    'Console.WriteLine(xmlElem)


    Dim sXml As String

    sXml = "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:tem=""http://tempuri.org/"">"

    sXml = sXml & "<soapenv:Body>"

    sXml = sXml & "<tem:wsTransaction>"

    sXml = sXml & "<tem:xmlVenta>"

    sXml = sXml & xmlElem.ToString()

    sXml = sXml & "</tem:xmlVenta>"

    sXml = sXml & "</tem:wsTransaction>"

    sXml = sXml & "</soapenv:Body>"

    sXml = sXml & "</soapenv:Envelope>"



    sRespCons = wsConsulta.wsTransaction(sXml)

    Return sRespCons



    Dim record As XmlNodeList

    Dim Respuesta As New Respuesta()

    Dim doc As XmlDocument = New XmlDocument()

    doc.LoadXml(sRespCons)



    record = doc.SelectNodes(sRespCons)



    Respuesta.ListaRecord = New List(Of Response)

    Dim clsrecord As Response



    If Respuesta.confirmacion = "<Confirmacion>00</Confirmacion> " Then

        Respuesta.descripcion = "<Descripcion>TRANSACCION EXITOSA</Descripcion>"

        For Each nd As Xml.XmlNode In record

            clsrecord = New Response()

            clsrecord.nombre = nd.Item("Nombre").InnerText

            clsrecord.direccion = nd.Item("Direccion").InnerText

            clsrecord.importe = nd.Item("Importe").InnerText

            clsrecord.mensaje = nd.Item("Mensaje").InnerText

            clsrecord.cuenta = nd.Item("Cuenta").InnerText

            clsrecord.factura = nd.Item("Factura").InnerText

            Respuesta.ListaRecord.Add(clsrecord)

        Next

    Else



        Respuesta.confirmacion = "<Confirmacion>01</Confirmacion>"

        Respuesta.descripcion = "<Descripcion>Referencia no valida</Descripcion>"

    End If



Catch ex As Exception

    MessageBox.Show(ex.ToString())

End Try
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 2
Ha aumentado su posición en 60 puestos en C sharp (en relación al último mes)
Gráfica de C sharp

ayuda con el siguiente codigo

Publicado por apis3445 (1 intervención) el 02/01/2019 07:02:05
has probado poner el breakpoint desde el inicio despues del try? talves cuando pruebas no es una transacion con una confirmacion exitosa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda con el siguiente codigo

Publicado por zeox (7 intervenciones) el 04/01/2019 22:40:32
hola ya lo resolvi

pero aun sigo atorado en otra cosa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar