diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 7d49af125..4931f8297 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9227,12 +9227,17 @@ Partial Class Ventas
             End If
         End If
 
+
         If RecalcularPromociones Then
             ObjDescuento = CalcularDescuentos(CvePSNuevo, Cantidad, PU)
-            Dim RegenerarPU As Boolean = False
 
             If ObjDescuento.EsPUModificado Then
-                PU = ObjDescuento.PU
+                'SI ES IMPORTE ASIGNADO ES MAYOR, RESPETAR EL ORIGINAL
+                If GvPS.Rows(e.RowIndex).FCTextBox("TxtPrecio").Enabled AndAlso (GvPS.Rows(e.RowIndex).FCTextBox("TxtPrecio").Text.ToDecimal() > ObjDescuento.PU) Then
+                    PU = GvPS.Rows(e.RowIndex).FCTextBox("TxtPrecio").Text.ToDecimal()
+                Else
+                    PU = ObjDescuento.PU
+                End If
             End If
         End If