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