From 272882dfdef7b710887f5a3346ce4f1826efb702 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 22 Feb 2024 17:37:18 -0700 Subject: [PATCH] =?UTF-8?q?FERRETERA.=20Descuentos,=20al=20especificarlos,?= =?UTF-8?q?=20el=20c=C3=A1lculo=20corregirlo,=20el=20IVA=20no=20mostrarlo.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 35 ++++++++++++++++++++--------------- Ventas/Ventas.aspx.vb | 33 ++++++++++++++++++++++++++++----- 2 files changed, 48 insertions(+), 20 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index fc15c914b..738a1010c 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4336,6 +4336,7 @@
+ @@ -4350,16 +4351,16 @@ - + - + @@ -9752,28 +9753,32 @@ var PorcentajeDescuento = parseFloat($get("TxtPorPS").value); if (PorcentajeDescuento < 0 || PorcentajeDescuento > 99) { alert("No se puede aplicar ese porcentaje de descuento"); + $get("TxtPorPS").value = "0"; return; } + var ivaPor = parseFloat($get("HdnIVADescPS").value) ; var subTotal = parseFloat($get("LblSubtotalDescPS").innerText.replace(",", "").replace(",", "")); - var Monto = parseFloat($get("LblTotalDescPS").innerText.replace(",", "").replace(",", "")); - - var Total = Monto - ((Monto * PorcentajeDescuento) / 100); + + $get("LblDescPS").innerText = formato_numero(((subTotal * PorcentajeDescuento) / 100), 2, '.', ','); + + var descuento = parseFloat($get("LblDescPS").innerText.replace(",", "").replace(",", "")); + + $get("LblIVADescPS").innerText = formato_numero(((subTotal - descuento) * ivaPor), 2, '.', ','); + + var importeIVA =parseFloat($get("LblIVADescPS").innerText.replace(",", "").replace(",", "")); + + var Total = (subTotal - descuento) + importeIVA; $get("LblTotalFinalDescPS").innerText = formato_numero(Total, 2, '.', ','); - - var TotalRedondeado = parseFloat($get("LblTotalFinalDescPS").innerText.replace(",", "").replace(",", "")); - - var descuento = - ((TotalRedondeado - (subTotal * 1.16)) / 1.16); - - $get("LblIVADescPS").innerText = formato_numero(((subTotal - descuento) * 0.16), 2, '.', ','); - - $get("LblDescPS").innerText = formato_numero(descuento, 2, '.', ','); + $get("HdnDescPS").value = descuento; var totalCompra = parseFloat($get("HdnTotalCompra").value); if (totalCompra > 0) { - var utilidad = ((TotalRedondeado - totalCompra) / TotalRedondeado) * 100; + var totalRedondeado = parseFloat($get("LblTotalFinalDescPS").innerText.replace(",", "").replace(",", "")); + var utilidad = ((totalRedondeado - totalCompra) / totalRedondeado) * 100; + $get("LblUtilidadPorcentaje").innerText = formato_numero(utilidad, 2, '.', ','); } } diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f216d9802..c78f926f4 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -24025,24 +24025,36 @@ Partial Class Ventas ElseIf e.CommandName = "Descuento" Then LblSubtotalDescPS.Text = "" LblTotalDescPS.Text = "" + LblTotalFinalDescPS.Text = "" + LblTituloDesc.Text = "Descuento" HdnConsecPS.Value = "-1" HdnTotalCompra.Value = "" TxtPorPS.Text = "" LblIVADescPS.Text = "" + LblUtilidadPorcentaje.Text = "" + HdnIVADescPS.Value = "0" Dim GvRow As GridViewRow = GvPS.Rows(e.CommandArgument.ToString().ToEntero()) LblTituloDesc.Text = $"Descuento: {GvRow.DataKey("PS")}" HdnConsecPS.Value = GvRow.DataKey("Consec") LblSubtotalDescPS.Text = (GvRow.DataKey("Total").ToDecimal()).FormatoNumero() LblTotalDescPS.Text = (GvRow.DataKey("Total").ToDecimal() + GvRow.DataKey("ImporteIVA").ToDecimal()).FormatoNumero() + LblTotalFinalDescPS.Text = (GvRow.DataKey("Total").ToDecimal() + GvRow.DataKey("ImporteIVA").ToDecimal()).FormatoNumero() LblIVADescPS.Text = GvRow.DataKey("ImporteIVA").FormatoNumero() + HdnIVADescPS.Value = GvRow.DataKey("IVA").FormatoNumero() Using ObjPS As New ClsProductosServicios Dim PrecioCompra = ObjPS.GetUltimoPrecioCompra(UsuarioActual.CveEmpresa, GvRow.DataKey("CvePS").ToEntero()) If PrecioCompra > 0 Then - HdnTotalCompra.Value = (PrecioCompra * GvRow.DataKey("Cantidad").ToDouble() * 1.16).ToString() + Dim TotalCompra = (PrecioCompra * GvRow.DataKey("Cantidad").ToDouble() * (1 + GvRow.DataKey("IVA").ToDecimal())) + HdnTotalCompra.Value = TotalCompra.ToString() LblPrecioCompra.Text = $"PU Compra: {(PrecioCompra).FormatoNumero(2)}" + + Dim TotalRedondeado = GvRow.DataKey("Total").ToDecimal() + GvRow.DataKey("ImporteIVA").ToDecimal() + + Dim PorUtilidad = ((TotalRedondeado - TotalCompra) / TotalRedondeado) * 100D + LblUtilidadPorcentaje.Text = PorUtilidad.FormatoNumero(2) End If End Using @@ -37003,11 +37015,22 @@ Partial Class Ventas If HdnDescPS.Value.ToEntero() > 0 Then Dim RowUpdate As DataRow = TmpDT.Select($"Consec = {HdnConsecPS.Value}").FirstOrDefault() If RowUpdate IsNot Nothing Then - RowUpdate("Descuento") = HdnDescPS.Value.ToDecimal() - RowUpdate("ImporteIVA") = LblIVADescPS.Text.ToDecimal() + If HdnDescPS.Value.ToDecimal().RoundSQL(2) < RowUpdate("Total").ToString().ToDecimal() Then + RowUpdate("Descuento") = HdnDescPS.Value.ToDecimal().RoundSQL(2) + + Dim TotalCalculableImpuestos = (RowUpdate("Cantidad").ToString().ToDecimal * RowUpdate("PU").ToString().ToDecimal) - RowUpdate("Descuento").ToString().ToDecimal() + Dim TotalCalculableImpuestosIVA As Decimal = (TotalCalculableImpuestos * (1 + RowUpdate("PorcentajeIEPS").ToString().ToDecimal)) + + Dim ImporteIVA = (RowUpdate("PorcentajeIVA").ToString().ToDouble * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) + + RowUpdate("ImporteIVA") = ImporteIVA + + CalculaTotalesVenta() + RegistraScript("$('#ModalDescPS').modal('hide');") + Else + Alert("El descuento no puede ser mayor o igual al total.", TipoMensaje.MsgAdvertencia) + End If - CalculaTotalesVenta() - RegistraScript("$('#ModalDescPS').modal('hide');") End If Else Alert("No se pudo aplicar el descuento", TipoMensaje.MsgAdvertencia)
% DescuentoDescuento  (%) IVA - +