diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index eb51750c3..0bbd993fd 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4845,7 +4845,7 @@
                                     <div class="row">
                                         <div class="col-md-12">
                                             <asp:GridView ID="GvFacturaNC" OnRowDataBound="GvFacturaNC_RowDataBound" 
-                                                DataKeyNames="CveCompra,TipoCambio,CveTipoConcepto,UUID,Saldo,SerieFolio" runat="server" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD">
+                                                DataKeyNames="CveCompra,TipoCambio,CveTipoConcepto,UUID,Saldo,SerieFolio,Fecha,CveMoneda" runat="server" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD">
                                                 <Columns>
                                                     <asp:TemplateField>
                                                         <ItemTemplate>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 30294692a..a77b0224f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3587,7 +3587,7 @@ Partial Class Compras_Compras
                         Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
 
                         If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then
-                            DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profecionales
+                            DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales
                         End If
 
                         If (CalRetIVAPor).RoundSQL(2) = 0.04 Then '4 Fletes
@@ -3608,8 +3608,8 @@ Partial Class Compras_Compras
                         If (CalRetISRPor).RoundSQL(1) = 0.1 Then '10 Servicios profesionales
                             DdlRetISRConcepto.SelectedValueExist("1")
                         End If
-
-                        If (CalRetISRPor).RoundSQL(4) = 0.0125 Then '1.25 Recico regimen simplificado confianza
+                        'permitido en un margen de 1% a 2%
+                        If (CalRetISRPor).RoundSQL(4) = 0.0125 OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza
                             DdlRetISRConcepto.SelectedValueExist("3")
                         End If
 
@@ -3962,12 +3962,6 @@ Partial Class Compras_Compras
                     End If
                 End If
 
-
-                'PARA GLUYAS
-                If UsuarioActual.CveEmpresa = 66 Then
-                    tPSCodigo = String.Format("{1} - {0}", ValorXML(node, "descripcion").ToUpper.Trim.Replace(vbCrLf, " ").Replace(vbLf, " ").Replace("'", "''"), ValorXML(node, "noIdentificacion").Trim)
-                End If
-
                 'Alert(ValorXML(node, "ClaveProdServ").Trim)
 
                 If Version = "3.3" Or Version = "4.0" Then
@@ -4992,7 +4986,7 @@ Partial Class Compras_Compras
                                 CompraActual.PorcentajeIVA = PorcentajeIVA
                                 CompraActual.UsuarioActual = UsuarioActual
                                 CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
-                                CompraActual.IdCtaContableProv = CtaProveedor
+                                CompraActual.IdCtaContableProv = If(CompraActual.CveMoneda = 1, CtaProveedor, CtaProveedorExtranjera)
                                 CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
                                 CompraActual.EsImportacion = chkImportacion.Checked
 
@@ -7205,29 +7199,26 @@ Partial Class Compras_Compras
                                                                     'AMORTIZACIÓN EN EL REGISTRO
                                                                     For Each Gvr As GridViewRow In GvFacturaNC.Rows
                                                                         If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
-                                                                            'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
                                                                             Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
-                                                                            Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal  ' RMF. falta aplicar si está generada su TC de la última fluctuación
-                                                                            Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
-                                                                            Dim CveMonedaNC As Integer = If(TipoCambioFactura = 1, 1, 2)
-
-                                                                            IdCtaContable = CtaProveedorExtranjera
-                                                                            'CveCon = ObtConceptoContableProvisionCompra(Gvr.DataKey("CveTipoConcepto").ToEntero, "NC", CveMonedaNC, False)
-
-                                                                            CompraActual.CveCompra = Gvr.DataKey("CveCompra").ToEntero
-                                                                            CompraActual.SerieFolio = Gvr.DataKey("SerieFolio")
 
                                                                             Dim Pago As New CompraPago
                                                                             Pago.ImportePago = importeMovimientoNC
-                                                                            Pago.CveMonedaPago = CveMonedaNC
-                                                                            Pago.CveCompraAmortizacion = CveCompra
-                                                                            Pago.CveConceptoPago = 272
+                                                                            Pago.CveMonedaPago = CompraActual.CveMoneda
+                                                                            Pago.CveCompraAmortizacion = CompraActual.CveCompra
                                                                             Pago.Referencia = CompraActual.SerieFolio
-                                                                            Pago.TCPago = TipoCambioFactura
+                                                                            Pago.TCPago = CompraActual.TC
                                                                             Pago.AplicaAcreditable = False
                                                                             Pago.TipoPago = "NC"
+                                                                            Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC
 
-                                                                            ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+                                                                            'datos de la compra tipodocto:Fac, para sobreescribirlos
+                                                                            CompraActual.CveCompra = Gvr.DataKey("CveCompra").ToEntero
+                                                                            CompraActual.SerieFolio = Gvr.DataKey("SerieFolio")
+                                                                            CompraActual.TC = Gvr.DataKey("TipoCambio").ToDecimal
+                                                                            CompraActual.Fecha = Gvr.DataKey("Fecha").ToDate
+                                                                            CompraActual.CveMoneda = Gvr.DataKey("CveMoneda").ToEntero
+
+                                                                            ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
 
                                                                         End If
                                                                     Next