From 71d8953cf75d2236a898e588f274249086add6e7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 27 Jul 2021 16:28:42 -0700 Subject: [PATCH] Descuento definido por el porcentaje maximo autorizado --- Ventas/PV.aspx | 22 ++++++++++++ Ventas/PV.aspx.vb | 85 ++++++++++++++++++++++++----------------------- 2 files changed, 65 insertions(+), 42 deletions(-) diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index fc06bd5a1..a36f25ad3 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -1571,6 +1571,7 @@
+ @@ -3344,6 +3345,15 @@ } var Descuento = parseFloat($get("TxtPorDescP").value); + var PorcentajeDescuentoMaximo = parseFloat($get("HdnPorcentajeDescuentoMaximo").value); + + if (PorcentajeDescuentoMaximo > 0 && Descuento > PorcentajeDescuentoMaximo) { + $get("TxtDescP").value = "0"; + $get("TxtPorDescP").value = "0"; + Descuento = 0; + alert("No puede exceder el descuento maximo autorizado."); + } + $get("LblPrecioFinal").innerText = formato_numero(Monto - ((Monto * Descuento) / 100), 2, '.', ','); $get("LblTotalPS").innerText = formato_numero(parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")), 2, '.', ','); var Total = Monto - parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")); @@ -3354,6 +3364,7 @@ if (TipoDescuento == 2) { $get("LblDescuentos").innerText = formato_numero(Total, 2, '.', ','); } + } else { $get("LblPrecioFinal").innerText = "0.00"; @@ -3383,6 +3394,17 @@ } var Descuento = parseFloat($get("TxtDescP").value); + + var PorcentajeDescuento = (Descuento * 100 / Monto) + var PorcentajeDescuentoMaximo = parseFloat($get("HdnPorcentajeDescuentoMaximo").value); + + if (PorcentajeDescuentoMaximo > 0 && PorcentajeDescuento > PorcentajeDescuentoMaximo) { + $get("TxtDescP").value = "0"; + $get("TxtPorDescP").value = "0"; + Descuento = 0; + alert("No puede exceder el descuento maximo autorizado."); + } + $get("TxtPorDescP").value = formato_numero((Descuento * 100 / Monto), 2, '.', ','); $get("LblPrecioFinal").innerText = formato_numero(Monto - Descuento, 2, '.', ','); $get("LblTotalPS").innerText = formato_numero(parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")), 2, '.', ','); diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 2b1499a57..1c5db7aa7 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -1062,6 +1062,7 @@ Partial Class PV ViewState("ClienteRetIVA") = 0 ViewState("ClienteRetISR") = 0 ViewState("EnviarCorreoCliente") = False + HdnPorcentajeDescuentoMaximo.Value = UsuarioActual.DescuentoAutorizado.ToString() CveVentaDetalle = -1 EstablecioFolio = False EstatusCliente = False @@ -5102,52 +5103,52 @@ Partial Class PV End Sub Protected Sub BtnAplicarDescG_Click(sender As Object, e As System.EventArgs) Handles BtnAplicarDescG.Click - If HdnTipoDescuento.Value = "2" Then + 'If HdnTipoDescuento.Value = "2" Then - If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then - Dim IVAPromedio As Double = Math.Round(TmpDT.SUM("IVA") / TmpDT.COUNT("Consec"), 2) - Dim IVA As Double = TmpDT.Rows(0)("IVA").ToString.ToDouble + ' If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then + ' Dim IVAPromedio As Double = Math.Round(TmpDT.SUM("IVA") / TmpDT.COUNT("Consec"), 2) + ' Dim IVA As Double = TmpDT.Rows(0)("IVA").ToString.ToDouble - If IVAPromedio <> IVA Then - Alert("No se puede aplicar descuento general a la factura ya tiene conceptos con diferente tasa de IVA", TipoMensaje.MsgError) - Else - AplicarDescuentos() - 'Dim Descuento As Double = HdnDescuento.Value.Trim.Replace(",", "").ToDouble - CalculaTotalesVenta() - 'LblDescuentos.Text = Descuento.FormatoNumero(2) - 'TxtIVA.Text = ((TxtSubTotal.Text.Trim.Replace(",", "").ToDouble - Descuento - LblAmortizacion.Text.Trim.Replace(",", "").ToDouble) * IVAPromedio).FormatoNumero(2) - 'HdnIVAOriginal.Value = TxtIVA.Text - 'CalculaTotales(True) - HdnTipoDescuento.Value = "-1" - HdnDescuento.Value = "0" - RegistraScript("BorraDescuentos();") - End If - End If - UpPS.Update() + ' If IVAPromedio <> IVA Then + ' Alert("No se puede aplicar descuento general a la factura ya tiene conceptos con diferente tasa de IVA", TipoMensaje.MsgError) + ' Else + ' AplicarDescuentos() + ' 'Dim Descuento As Double = HdnDescuento.Value.Trim.Replace(",", "").ToDouble + ' CalculaTotalesVenta() + ' 'LblDescuentos.Text = Descuento.FormatoNumero(2) + ' 'TxtIVA.Text = ((TxtSubTotal.Text.Trim.Replace(",", "").ToDouble - Descuento - LblAmortizacion.Text.Trim.Replace(",", "").ToDouble) * IVAPromedio).FormatoNumero(2) + ' 'HdnIVAOriginal.Value = TxtIVA.Text + ' 'CalculaTotales(True) + ' HdnTipoDescuento.Value = "-1" + ' HdnDescuento.Value = "0" + ' RegistraScript("BorraDescuentos();") + ' End If + ' End If + ' UpPS.Update() - ElseIf HdnTipoDescuento.Value = "3" Then - If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then - Dim IVAPromedio As Double = Math.Round(TmpDT.SUM("IVA") / TmpDT.COUNT("Consec"), 2) - Dim IVA As Double = TmpDT.Rows(0)("IVA").ToString.ToDouble + 'ElseIf HdnTipoDescuento.Value = "3" Then + ' If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then + ' Dim IVAPromedio As Double = Math.Round(TmpDT.SUM("IVA") / TmpDT.COUNT("Consec"), 2) + ' Dim IVA As Double = TmpDT.Rows(0)("IVA").ToString.ToDouble - If IVAPromedio <> IVA Then - Alert("No se puede aplicar descuento general a la factura ya tiene conceptos con diferente tasa de IVA", TipoMensaje.MsgError) - Else - AplicarDescuentos() - 'Dim Amortizacion As Decimal = HdnDescuento.Value.Trim.Replace(",", "").ToDecimal - 'LblAmortizacion.Text = Amortizacion.FormatoNumero(2) - 'TxtIVA.Text = ((TxtSubTotal.Text.Trim.Replace(",", "").ToDouble - Amortizacion - LblDescuentos.Text.Trim.Replace(",", "").ToDouble) * IVAPromedio).FormatoNumero(2) - 'HdnIVAOriginal.Value = TxtIVA.Text - 'CalculaTotales(True) - CalculaTotalesVenta() - HdnTipoDescuento.Value = "-1" - HdnDescuento.Value = "0" - RegistraScript("BorraDescuentos();") - End If - End If - UpPS.Update() + ' If IVAPromedio <> IVA Then + ' Alert("No se puede aplicar descuento general a la factura ya tiene conceptos con diferente tasa de IVA", TipoMensaje.MsgError) + ' Else + ' AplicarDescuentos() + ' 'Dim Amortizacion As Decimal = HdnDescuento.Value.Trim.Replace(",", "").ToDecimal + ' 'LblAmortizacion.Text = Amortizacion.FormatoNumero(2) + ' 'TxtIVA.Text = ((TxtSubTotal.Text.Trim.Replace(",", "").ToDouble - Amortizacion - LblDescuentos.Text.Trim.Replace(",", "").ToDouble) * IVAPromedio).FormatoNumero(2) + ' 'HdnIVAOriginal.Value = TxtIVA.Text + ' 'CalculaTotales(True) + ' CalculaTotalesVenta() + ' HdnTipoDescuento.Value = "-1" + ' HdnDescuento.Value = "0" + ' RegistraScript("BorraDescuentos();") + ' End If + ' End If + ' UpPS.Update() - End If + 'End If RegistraScript("$('#ModalDescuento').modal('hide')", "hidemodal") End Sub @@ -6463,7 +6464,7 @@ Partial Class PV Else 'TxtPUFactura.Enabled = True 'TxtPUFactura.Text = "" - DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, AplicaParaVenta:=1) + DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) End If DdlPSAjuste.DataBind() ' DdlPSAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))