--FIX modificacion de precios

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