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

FERRETERA. --fix de porcentaje de utilidad

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-02-26 11:29:41 -07:00
parent 2b77ab846c
commit d27e2ee520
2 changed files with 32 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/Ventas.aspx.vb
View File

@@ -24047,13 +24047,13 @@ Partial Class Ventas
Using ObjPS As New ClsProductosServicios
Dim PrecioCompra = ObjPS.GetUltimoPrecioCompra(UsuarioActual.CveEmpresa, GvRow.DataKey("CvePS").ToEntero())
If PrecioCompra > 0 Then
Dim TotalCompra = (PrecioCompra * GvRow.DataKey("Cantidad").ToDouble() * (1 + GvRow.DataKey("IVA").ToDecimal()))
HdnTotalCompra.Value = TotalCompra.ToString()
Dim SubTotalCompra = (PrecioCompra * GvRow.DataKey("Cantidad").ToDouble())
HdnTotalCompra.Value = SubTotalCompra.ToString()
LblPrecioCompra.Text = $"PU Compra: {(PrecioCompra).FormatoNumero(2)}"
Dim TotalRedondeado = GvRow.DataKey("Total").ToDecimal() + GvRow.DataKey("ImporteIVA").ToDecimal()
Dim SubTotal = GvRow.DataKey("Total").ToDecimal()
Dim PorUtilidad = ((TotalRedondeado - TotalCompra) / TotalRedondeado) * 100D
Dim PorUtilidad = ((SubTotal - SubTotalCompra) / SubTotal) * 100D
LblUtilidadPorcentaje.Text = PorUtilidad.FormatoNumero(2)
End If
End Using