AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--Fix visualizacion de descuentos en ventas guardadas

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-03-22 15:52:57 -07:00
parent caaba87c35
commit b1f6159acc
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/Ventas.aspx.vb
View File

@@ -37777,7 +37777,7 @@ Partial Class Ventas
End Sub End Sub
Private Sub RecalculaPrecios() 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 For Each Row As DataRow In TmpDT.Rows
Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal() Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
Dim CveClasificacion As Integer = Row("CveClasificacion").ToString().ToEntero Dim CveClasificacion As Integer = Row("CveClasificacion").ToString().ToEntero