From 8a601da15042252a083d04eb77d54688bf0e7348 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 20 Sep 2022 16:58:32 -0700
Subject: [PATCH] -- htmldoce en xml. y caracteres especiales

---
 Compras/Compras.aspx.vb | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5b1539e65..95498367e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1782,7 +1782,7 @@ Partial Class Compras_Compras
                     CargaComprobanteXML(XMLDoc)
 
                     If NuevaValidacionXML = 1 Or (Version = "3.3" Or Version = "4.0") Then
-                        Dim Xml As New StringBuilder
+                        Dim Xml As String
                         Dim nodo As XmlNode = XMLDoc.DocumentElement
                         Dim Version = ValorXML(nodo, "version")
 
@@ -1810,10 +1810,17 @@ Partial Class Compras_Compras
                         namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
 
                         Dim nodeconceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces)
+                        Xml = Replace(nodeconceptos.OuterXml, "<cfdi:", "<")
+                        Xml = Xml.Replace("</cfdi:", "</")
+                        Xml = Xml.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/3""", "")
+                        Xml = Xml.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/4""", "")
+                        Xml = Xml.Replace("&quot;", "") 'comillas
+                        Xml = System.Web.HttpUtility.HtmlDecode(Xml.ToString)
+                        Xml = Xml.Replace(Chr(13), "") 'salto de linea
+                        Xml = Xml.Replace(Chr(10), "")
+                        Xml = Xml.Replace("&", "") 'adicional, si hay otros
 
-                        Xml.Append(Replace(Replace(Replace(Replace(Replace(nodeconceptos.OuterXml, "<cfdi:", "<"), "</cfdi:", "</"), "xmlns:cfdi=""http://www.sat.gob.mx/cfd/3""", ""), "xmlns:cfdi=""http://www.sat.gob.mx/cfd/4""", ""), "&quot;", ""))
-
-                        If ObjeFacturas.GetFacturasComparacionXML(Version, System.Web.HttpUtility.HtmlDecode(Xml.ToString).Replace(Chr(13), "").Replace(Chr(10), ""), UsuarioActual.CveEmpresa) Then
+                        If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then
                             TmpDT = ObjeFacturas.DtResultados
                             TmpDT.Columns.Add("CveSATPSActualizado")
                             SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL