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 09/01/2019 16:28:56
tengo un poblema con mi codigo ocupo que dentro del if tome valor de confirmacion
sin embargo el valo de confirmacion me trae un System.xml.xmlelement asi sin vlaor

el codigo que funciona corectamente sin el if es el siguiente:


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
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)
'Respuesta.confirmacion = doc.SelectSingleNode("RESPUESTA/Confirmacion").ToString()
'Respuesta.descripcion = doc.SelectSingleNode("Descripcion").ToString()
Dim clsrecord As Response
 
'If Respuesta.confirmacion = "00" 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
'End If

pero yo lo ocupo de la siguiente manera con el if habilitado ya que una vez el if habilitado ahoa si me va a tomar los valores de otra forma se salta y no me devuelve los valores esperados que tendria que hacer???

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
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)
Respuesta.confirmacion = doc.SelectSingleNode("RESPUESTA/Confirmacion").ToString()
'Respuesta.descripcion = doc.SelectSingleNode("Descripcion").ToString()
Dim clsrecord As Response
 
If Respuesta.confirmacion = "00" Then
    'Rpuesta.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
End If
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