quitar ajuste de valor unitario
This commit is contained in:
@@ -12703,7 +12703,7 @@ Partial Class Ventas
|
||||
'verifica suma subtotales
|
||||
If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal.RoundSQL(2) <> concepto.Importe.RoundSQL(2) AndAlso Math.Abs(totSubTotal.RoundSQL(2) - concepto.Importe.RoundSQL(2)) <= 0.01 Then 'proceso de ajusta de decimales
|
||||
concepto.Importe = totSubTotal
|
||||
concepto.ValorUnitario = totSubTotal / concepto.Cantidad
|
||||
'concepto.ValorUnitario = totSubTotal / concepto.Cantidad
|
||||
End If
|
||||
totSubTotal = totSubTotal - concepto.Importe
|
||||
|
||||
|
||||
Reference in New Issue
Block a user