diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 12d5338e8..fcf376230 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1806,7 +1806,7 @@ Partial Class Compras_Compras
 
                         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""", ""))
 
-                        If ObjeFacturas.GetFacturasComparacionXML(Version, Xml.ToString, UsuarioActual.CveEmpresa) Then
+                        If ObjeFacturas.GetFacturasComparacionXML(Version, System.Web.HttpUtility.HtmlDecode(Xml.ToString), UsuarioActual.CveEmpresa) Then
                             TmpDT = ObjeFacturas.DtResultados
                             TmpDT.Columns.Add("CveSATPSActualizado")
 
@@ -7635,6 +7635,7 @@ Partial Class Compras_Compras
                                                         Pago.CveMonedaPago = 1
                                                         Pago.CveCompraAmortizacion = CveCompraNC
                                                         Pago.CveConceptoPago = CveConceptoPago
+                                                        Pago.AplicaAcreditable = If(Ant.TipoMovto.Contiene("NC", "DEV"), False, True) 'SI ES NC, no se acredita
 
                                                         ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)