From 7583974bc7f5e94f8a42db8ef6c30c71a9237f72 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 13 Apr 2022 15:46:11 -0700 Subject: [PATCH] E140. Solicitud de descuento por autorizacion --- App_Code/ClsVentas.vb | 3 +- Ventas/CatAutorizacionLimites.aspx | 54 ++- Ventas/CatAutorizacionLimites.aspx.vb | 28 +- Ventas/PV.aspx | 454 +++++++++++++++----------- Ventas/PV.aspx.vb | 90 ++++- 5 files changed, 426 insertions(+), 203 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 5ba4bc54a..309a3d465 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5336,7 +5336,7 @@ Public Class ClsVentas #End Region - Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0, Optional Motivo As String = "") As Boolean + Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0, Optional Motivo As String = "", Optional PorcentajeDescuento As Decimal = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_AutorizacionLimitesAdd") With SqlAdapter.SelectCommand.Parameters @@ -5349,6 +5349,7 @@ Public Class ClsVentas .Add("@TipoAutorizacion", SqlDbType.Int).Value = TipoAutorizacion .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento .Add("@DiasVencidos", SqlDbType.Int).Value = DiasVencidos + .Add("@PorcentajeDescuento", SqlDbType.Decimal).Value = PorcentajeDescuento .Add("@Motivo", SqlDbType.VarChar).Value = Motivo End With Try diff --git a/Ventas/CatAutorizacionLimites.aspx b/Ventas/CatAutorizacionLimites.aspx index 997f0480f..3660fee70 100644 --- a/Ventas/CatAutorizacionLimites.aspx +++ b/Ventas/CatAutorizacionLimites.aspx @@ -35,7 +35,7 @@
- +
@@ -109,15 +109,19 @@ - + + + + + + - - + @@ -172,6 +176,7 @@ +
@@ -180,6 +185,7 @@ + <%----%>
@@ -194,14 +200,37 @@
- -
- - - - - - +
+
+ +
+
+
+ + + + + + +
+
+
+
+
+
+
+ +
+
+
+ + + + + + +
+
@@ -218,6 +247,7 @@
+
diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index 0b18afbd5..71f1b0eba 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -132,7 +132,7 @@ Partial Class Ventas_CatAutorizacionLimites Dim Motivo As String = TxtMotivo.Text.Trim Dim ObjPS As New ClsVentas - If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocto, DiasVencidos, Motivo:=Motivo) Then + If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocto, DiasVencidos, Motivo:=Motivo, PorcentajeDescuento:=TxtPorcentaje.Text.ToDecimal()) Then RegistraScript("$('#DModal').modal('hide')") Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion) End If @@ -174,12 +174,21 @@ Partial Class Ventas_CatAutorizacionLimites e.Row.FCLinkButton("LnkAutorizar").Visible = False e.Row.FCLinkButton("LnkRechazar").Visible = False End If + If e.Row.DBCampo("TipoDocumento") = "Ingreso" Then e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-success" Else e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-warning" End If + If e.Row.DBCampo("TipoAutorizacion") = "1" Then + e.Row.FCLabel("LblTipoAuto").CssClass = "badge badge-success" + ElseIf e.Row.DBCampo("TipoAutorizacion") = "2" Then + e.Row.FCLabel("LblTipoAuto").CssClass = "badge badge-primary" + ElseIf e.Row.DBCampo("TipoAutorizacion") = "3" Then + e.Row.FCLabel("LblTipoAuto").CssClass = "badge badge-secondary" + End If + 'If e.Row.DBCampo("Estatus") = "True" Then ' e.Row.Cells(1).ForeColor = Drawing.Color.Green ' e.Row.Cells(1).Font.Bold = True @@ -281,6 +290,7 @@ Partial Class Ventas_CatAutorizacionLimites Protected Sub DdlTipoAutorizacion_SelectedIndexChanged(sender As Object, e As EventArgs) DivImporte.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 1 DivDiasVencidos.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 2 + DivPorcentajeDescuento.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 3 UpModal.Update() End Sub Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs) @@ -299,14 +309,30 @@ Partial Class Ventas_CatAutorizacionLimites Dim TipoDocto As String = DdlTipoDocto.SelectedValue.ToString() Select Case TipoDocto Case "Ing" + If DdlTipoAutorizacion.Items.FindByValue("1") Is Nothing Then + DdlTipoAutorizacion.Items.Insert(0, New ListItem("Importe", "1")) + End If If DdlTipoAutorizacion.Items.FindByValue("2") Is Nothing Then DdlTipoAutorizacion.Items.Insert(0, New ListItem("Vencimiento", "2")) End If + DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("3")) DivMotivo.Visible = False Case "Egs" + If DdlTipoAutorizacion.Items.FindByValue("1") Is Nothing Then + DdlTipoAutorizacion.Items.Insert(0, New ListItem("Importe", "1")) + End If 'QUITAR LA DE VENCIMIENTO DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2")) + 'QUITAR LA DE DESCUENTO + DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("3")) DivMotivo.Visible = True + Case "Rem" + If DdlTipoAutorizacion.Items.FindByValue("3") Is Nothing Then + DdlTipoAutorizacion.Items.Insert(0, New ListItem("Porcentaje Descuento", "3")) + End If + DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("1")) + DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2")) + DivMotivo.Visible = False End Select UpModal.Update() End Sub diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 61fc76d4a..996b26007 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -6,6 +6,14 @@