AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Utilizando los tres Descuentos

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-01-07 18:25:26 -07:00
parent cc707621b0
commit 5da0c83784
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -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)