Visual Basic - ayuda con el siguiente codigo

Life is soft - evento anual de software empresarial
 
Vista:

ayuda con el siguiente codigo

Publicado por zeroX (11 intervenciones) el 04/01/2019 15:56:56
buenas tengo una duda con el siguiente codigo

estoy guardando en variables la respuesta que traigo en el xl ya lo tengo peo al parecer me comentan que no tengo nada en memoria lo de la lista y algo asi que tengo que gualar lo que trigo en lita para que no se valla por el else este es el codigo

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
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("RESPUESTA/Adicionales")
 
    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.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

pero se me va por el else

espero me puedan ayudar
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