--Fix visualizacion de descuentos en ventas guardadas

2024-03-22 15:52:57 -07:00
parent caaba87c35
commit b1f6159acc
1 changed files with 1 additions and 1 deletions
--- 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