From d2881e4f496e7025abf6d47c34e239c0802cc8d6 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 8 Jan 2020 08:39:20 -0700 Subject: [PATCH] aplicando descuentos --- Inventarios/RecepcionUsados.aspx.vb | 25 +++++++++++++++++-------- 1 file changed, 17 insertions(+), 8 deletions(-) diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 113da0acf..e85f433a3 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -2561,16 +2561,25 @@ Partial Class Inventarios_RecepcionUsados Dim MarcaPorcentaje As DataRow = DtPorcentajeMarcas.FiltroPrimero(String.Format("CveMarca = {0}", drPS("CveMarca").ToString)) If MarcaPorcentaje IsNot Nothing Then Dim PorcentajeProducto As Decimal = MarcaPorcentaje("PorcentajeProducto").ToString.ToDecimal / 100 - Dim MontoDescuento As Decimal = PrecioSugerido * PorcentajeProducto - PrecioSugerido -= MontoDescuento - Dim PorcentajeProducto2 As Decimal = MarcaPorcentaje("PorcentajeProducto2").ToString.ToDecimal / 100 - MontoDescuento = PrecioSugerido * PorcentajeProducto2 - PrecioSugerido -= MontoDescuento - Dim PorcentajeProducto3 As Decimal = MarcaPorcentaje("PorcentajeProducto3").ToString.ToDecimal / 100 - MontoDescuento = PrecioSugerido * PorcentajeProducto3 - PrecioSugerido -= MontoDescuento + + If PorcentajeProducto > 0 Then + + Dim MontoDescuento As Decimal = PrecioSugerido * PorcentajeProducto + PrecioSugerido -= MontoDescuento + + If PorcentajeProducto2 > 0 Then + + MontoDescuento = PrecioSugerido * PorcentajeProducto2 + PrecioSugerido -= MontoDescuento + + If PorcentajeProducto3 > 0 Then + MontoDescuento = PrecioSugerido * PorcentajeProducto3 + PrecioSugerido -= MontoDescuento + End If + End If + End If End If