diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1e86749e0..fe6678a34 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -37777,7 +37777,7 @@ Partial Class Ventas
     End Sub
 
     Private Sub RecalculaPrecios()
-        If TmpDT IsNot Nothing Then
+        If TmpDT IsNot Nothing AndAlso (CveVenta <= 0 OrElse EsCreaApartirDe OrElse ModalidadEdicion) Then
             For Each Row As DataRow In TmpDT.Rows
                 Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
                 Dim CveClasificacion As Integer = Row("CveClasificacion").ToString().ToEntero