diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 3b1012251..fc2984faf 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -35431,6 +35431,8 @@ Partial Class Ventas
                 dRowEliminar.Delete()
             Next
 
+            TmpDT.AcceptChanges()
+
             'SI ES VENTA NUEVA O SI VA SER DEVOLUCION CONSIDERAR TODOS
             If Me.CveVenta <= 0 OrElse DtUsadosDevolucion IsNot Nothing Then
                 TmpDTCalculo = TmpDT.Rows.Cast(Of DataRow).ToArray()
@@ -35440,10 +35442,6 @@ Partial Class Ventas
             End If
 
 
-
-            TmpDT.AcceptChanges()
-
-
             Dim CveUnidadMedidaPSA As Integer = -1
             Dim UnidadMedidaPSA As String = "Unidad"
             Dim CveClasificacionPSA As Integer = -1