From 5da0c83784a9486078a80992ca741e0fc18060be Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 7 Jan 2020 18:25:26 -0700 Subject: [PATCH] Utilizando los tres Descuentos --- Inventarios/RecepcionUsados.aspx.vb | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index b8cd2b673..113da0acf 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -2560,9 +2560,18 @@ Partial Class Inventarios_RecepcionUsados End If Dim MarcaPorcentaje As DataRow = DtPorcentajeMarcas.FiltroPrimero(String.Format("CveMarca = {0}", drPS("CveMarca").ToString)) If MarcaPorcentaje IsNot Nothing Then - Dim Descuento As Decimal = MarcaPorcentaje("PorcentajeProducto").ToString.ToDecimal / 100 - Dim MontoDescuento As Decimal = PrecioSugerido * Descuento + 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 + End If txtPrecio.Text = PrecioSugerido.FormatoNumero(2)