From ba03b6b7ff5d1280735ff62aad4167015ad5167b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 19 Sep 2022 12:18:03 -0700
Subject: [PATCH] mejora en decode. comillas

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

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index fcf376230..a08e800de 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1804,32 +1804,24 @@ Partial Class Compras_Compras
 
                         Dim nodeconceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces)
 
-                        Xml.Append(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""", ""))
+                        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), UsuarioActual.CveEmpresa) Then
+                        If ObjeFacturas.GetFacturasComparacionXML(Version, System.Web.HttpUtility.HtmlDecode(Xml.ToString).Replace(Chr(13), "").Replace(Chr(10), ""), UsuarioActual.CveEmpresa) Then
                             TmpDT = ObjeFacturas.DtResultados
                             TmpDT.Columns.Add("CveSATPSActualizado")
+                            SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL
 
-                            'TmpDT.Columns.Add("RetIVAPorcentaje")
-                            'TmpDT.Columns.Add("RetISRPorcentaje")
-                            'TmpDT.Columns.Add("IEPSPSPorcentaje")
-                            'TmpDT.Columns.Add("IEPSPSIVAPorcentaje")
-                            SubTotalConceptos = Math.Round(TmpDT.SUM("Total"), 2).ToDecimal
                             AddPS2(False)
 
-
                             'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101
                             Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
                             For Each drr As DataRow In TmpDT.FiltraParametros("ClaveProdServ = '01010101'").Rows
-
                                 ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", drr("PS"))
-
                             Next
 
                             If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
                                 Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
                                 Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
-
                             End If
 
                         End If