aplicando descuentos

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