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
pero se me va por el else
espero me puedan ayudar
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.wsTransactionsDim 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 recordclsrecord = 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
0