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:
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???
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
0