diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 347c97878..c3cf8e2f1 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -1783,7 +1783,7 @@
                                                                                     <asp:TextBox ID="TxtPU" Text='<%# Eval("Importe", "{0:#,##0.00####}")%>' runat="server" Width="60px" CssClass="TextBoxAsLabel" />
                                                                                     <ajax:FilteredTextBoxExtender ID="FTETxtPU" runat="server" TargetControlID="TxtPU" FilterType="Custom, Numbers" ValidChars="." />
                                                                                     <%--<asp:Label Text='<%# Eval("Importe", "{0:N2}")%>' runat="server" ID="LbPU" />--%>
-                                                                                    <asp:RangeValidator ID="RValPU" runat="server" ErrorMessage="Rango no permitido" ForeColor="Red" ControlToValidate="TxtPU" ValidationGroup="GrpVincularOC" Type="Double"></asp:RangeValidator>
+                                                                                    <asp:RangeValidator ID="RValPU" runat="server" ErrorMessage="Rango no permitido" ForeColor="Red" ControlToValidate="TxtPU" ValidationGroup="GrpVincularOC" Type="Double" Display="Dynamic"></asp:RangeValidator>
                                                                                 </ItemTemplate>
                                                                             </asp:TemplateField>
                                                                             <asp:TemplateField HeaderText="Total" ItemStyle-Width="10%">
@@ -5943,7 +5943,7 @@
         }
 
         function ClickDeudorChk(Chk, Obj, total, saldo,txtOtrIngEgs) {
-            debugger;
+             
             total = parseFloat(parseFloat(total).toFixed(2));
             saldo = parseFloat(parseFloat(saldo).toFixed(2));
 
@@ -6228,7 +6228,7 @@
 
         function chkAnt(t, txt, importe, TotalSaldoCompra, CveMonedaAnticipo, TCAnticipo, CveMonedaOriginal, TCCompra, txtComision) {
             var Total = ToDouble($get('TxtTotal').value);
-            debugger;
+             
             var txtvalue = ToDouble(txt.value);
             var ImportePago, ImporteCompra;
 
@@ -6337,7 +6337,7 @@
                 }
             }
 
-            debugger;
+             
             let saldoVal = saldo;
             if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) {
                 saldoVal = ToDouble(saldo / TCAnticipo)
@@ -6749,7 +6749,7 @@
             });
 
             //Amortizacion = ToDouble($get('C_Tab_TabGenerales_LblAmortizacion').innerText);
-            debugger;
+             
             SumaTotal = SumaSubTotal + SumaIVA + SumaIEPS - SumaRetIVA - SumaRetISR;
 
             if ($get("C_Tab_TabOC_LbSubTotalOC1")) {
@@ -6976,7 +6976,7 @@
                 return;//Evita que se ejecute la rutina cuando se presiona  Tap (cuando se salta de interes a ambas  si se ejecuta se limpian los valores de capital e interes)
             } 
             
-            debugger;
+             
 
             let TotalCompra = 0;
             let ImporteAmortizado = 0;
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index bee5af74b..6b0e594dc 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -15257,8 +15257,12 @@ Partial Class Compras_Compras
             'activo el rangevalidator para cambios Proc.242
             If Not PermisoVinculacionImporteDiferente Then
                 Dim tdif As Decimal = 10D ' solo 10 permitido a nivel total
-                e.Row.FCRangeValidator("RValPU").MinimumValue = ((e.Row.DBCampo("Total").ToDecimal - tdif) / e.Row.DBCampo("Cantidad").ToDecimal).ToString("N6")
-                e.Row.FCRangeValidator("RValPU").MaximumValue = ((e.Row.DBCampo("Total").ToDecimal + tdif) / e.Row.DBCampo("Cantidad").ToDecimal).ToString("N6")
+                'If e.Row.DBCampo("Total").ToDecimal > tdif Then
+                '    e.Row.FCRangeValidator("RValPU").MinimumValue = ((e.Row.DBCampo("Total").ToDecimal - tdif) / e.Row.DBCampo("Cantidad").ToDecimal).ToString("F6")
+                'Else
+                '    e.Row.FCRangeValidator("RValPU").MinimumValue = "0.00"
+                'End If
+                e.Row.FCRangeValidator("RValPU").MaximumValue = ((e.Row.DBCampo("Total").ToDecimal + tdif) / e.Row.DBCampo("Cantidad").ToDecimal).ToString("F6")
             End If
 
             If e.Row.DataKey("FolioREQ").ToString.Trim.Length > 0 Then
@@ -19162,7 +19166,7 @@ Partial Class Compras_Compras
                     CompraActual.Fecha = TxtFecha.Text.ToDate
                     CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim
                     CompraActual.ProveedorNombre = HplProveedor.Text
-                    CompraActual.TC = TipoCambio
+                    CompraActual.TC = TipoCambioOriginal
                     CompraActual.Total = TxtTotal.Text.ToDecimal
                     CompraActual.IVA = TxtIVA.Text.ToDecimal
                     CompraActual.IVADeducible = TxtIVA.Text.ToDecimal
@@ -19176,7 +19180,8 @@ Partial Class Compras_Compras
                     CompraActual.CveSubProyecto = tCveSubProyeto
                     CompraActual.EsImportacion = chkImportacion.Checked
 
-                    If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, objConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero, TxtTC.Text.ToDecimal,
+                    If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraActual, objConta, CvePrePoliza, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate,
+                                                            $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero, TipoCambioOriginal,
                                                             TxtSerie.Text, TxtFolio.Text, EsDRMN:=True) Then
                         TieneError = True
                     End If