Promocion por cantidad

2019-11-13 13:49:23 -07:00
parent c10a48ee49
commit 9a7897a99a
3 changed files with 44 additions and 13 deletions
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1981,7 +1981,7 @@ Public Class ClsVentas

        Return Retorno
    End Function
-    Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime) As Boolean
+    Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_PromocionesDetalleAdd")

@@ -2003,6 +2003,7 @@ Public Class ClsVentas
            .Add("@AplicaDomingo", SqlDbType.Bit).Value = AplicaDomingo
            .Add("@HoraInicio", SqlDbType.DateTime).Value = HoraInicio
            .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin
+            .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima
        End With

        Try
@@ -2014,7 +2015,7 @@ Public Class ClsVentas

        Return Retorno
    End Function
-    Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime) As Boolean
+    Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_PromocionesDetalleUpdate")

@@ -2037,6 +2038,7 @@ Public Class ClsVentas
            .Add("@HoraInicio", SqlDbType.DateTime).Value = HoraInicio
            .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin
            .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle
+            .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima
        End With

        Try
--- a/Ventas/Promociones.aspx
+++ b/Ventas/Promociones.aspx
@@ -81,15 +81,15 @@
                            <div class="row">
                                <label class="col-md-2 truncate">Sucursal:</label>
                                <div class="col-md-4">
-  <%--                                  <asp:DropDownList ID="DdlSucursal" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="select2me" runat="server"  Width="350px"></asp:DropDownList>
+                                    <%--                                  <asp:DropDownList ID="DdlSucursal" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="select2me" runat="server"  Width="350px"></asp:DropDownList>
                                    <asp:RequiredFieldValidator ID="RFVSucursal" runat="server" ControlToValidate="DdlSucursal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                    <ajax:ValidatorCalloutExtender ID="VCESucursal" runat="server" HighlightCssClass="vco" TargetControlID="RFVSucursal" Width="300px"></ajax:ValidatorCalloutExtender>--%>
-                                     <asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" runat="server"  Width="350px"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList>
                                    <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                    <ajax:ValidatorCalloutExtender ID="VCESubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
                                </div>
                            </div>
-                              <div class="row">
+                            <div class="row">
                                <label class="col-md-2 truncate">Vendedor:</label>
                                <div class="col-md-4">
                                    <asp:DropDownList ID="DdlVendedor" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList>
@@ -153,7 +153,7 @@
                        </div>
                        <div class="portlet-body form">

-                            <asp:GridView ID="GvDatos" DataKeyNames="CvePromocionDetalle, CveClasificacion, CvePS, CodigoPS, HoraInicio, HoraFin, CveTipoPromocion, Promocion, PUAnterior, AplicaRestriccion, AplicaLunes, AplicaMartes, AplicaMiercoles, AplicaJueves, AplicaViernes, AplicaSabado, AplicaDomingo" CssClass="table table-striped table-hover Widthall mysmallbtn" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no se registran detalles" runat="server">
+                            <asp:GridView ID="GvDatos" DataKeyNames="CvePromocionDetalle, CveClasificacion, CvePS, CodigoPS, HoraInicio, HoraFin, CveTipoPromocion, Promocion, PUAnterior, AplicaRestriccion, AplicaLunes, AplicaMartes, AplicaMiercoles, AplicaJueves, AplicaViernes, AplicaSabado, AplicaDomingo, CantidadMinima" CssClass="table table-striped table-hover Widthall mysmallbtn" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no se registran detalles" runat="server">
                                <Columns>
                                    <asp:BoundField HeaderText="Producto / Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
                                    <%--<asp:BoundField HeaderText="Producto / Servicio" DataField="PS" ItemStyle-Width="30%" />--%>
@@ -227,10 +227,11 @@
                            <div class="row">
                                <label class="col-md-3 truncate">Tipo Promoción:</label>
                                <div class="col-md-9">
-                                    <asp:DropDownList ID="DdlTipoPromocion" DataTextField="TipoPromocion" DataValueField="CveTipoPromocion" Width="100%" CssClass="select2me" runat="server">
+                                    <asp:DropDownList ID="DdlTipoPromocion" DataTextField="TipoPromocion" DataValueField="CveTipoPromocion" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPromocion_SelectedIndexChanged">
                                        <asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
                                        <asp:ListItem Text="Importe $" Value="1" />
                                        <asp:ListItem Text="Descuento %" Value="2" />
+                                        <asp:ListItem Text="Cantidad" Value="3" />
                                    </asp:DropDownList>
                                    <asp:RequiredFieldValidator ID="RFVTipoPromocion" runat="server" InitialValue="-1" ControlToValidate="DdlTipoPromocion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Promoción''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpAgregar"></asp:RequiredFieldValidator>
                                    <ajax:ValidatorCalloutExtender ID="VCETipoPromocion" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoPromocion" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -243,6 +244,19 @@
                                    <asp:Label Text="" ID="LbFormatoPromoción" runat="server" />
                                </div>
                            </div>
+
+                            <div class="row" id="DivCantMinima" visible="false" runat="server">
+                                <label class="col-md-3 truncate">Cantidad Mínima:</label>
+                                <div class="col-md-9">
+                                    <asp:TextBox ID="TxtCantMinima" Text="" runat="server" />
+                                    <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="TxtCantMinima" FilterType="Custom, Numbers" />
+                                    <asp:RequiredFieldValidator ID="RFVCantiMinima" runat="server" ControlToValidate="TxtCantMinima" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad Mínima''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCECantMinima" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantiMinima" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtCantMinima" Display="None" InitialValue="0" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El valor del campo <b>''Cantidad Mínima''</b> debe ser mayor a 0." ValidationGroup="GrpAgregar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
+                                </div>
+                            </div>
+
                            <div class="row">
                                <label class="col-md-3 truncate">Condiciones:</label>
                                <div class="col-md-9">
@@ -310,8 +324,8 @@
                                        </div>
                                    </div>
                                </div>
-
                            </div>
+
                        </div>
                        <div class="modal-footer">
                            <button type="button" data-dismiss="modal" class="btn btn-">Cerrar</button>
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -109,6 +109,7 @@ Partial Class Ventas_Promociones
        TempDT.Columns.Add("CveTipoPromocion", GetType(Integer))
        TempDT.Columns.Add("TipoPromocion", GetType(String))
        TempDT.Columns.Add("Promocion", GetType(String))
+        TempDT.Columns.Add("CantidadMinima", GetType(Integer))

        TempDT.Columns.Add("AplicaRestriccionTexto", GetType(String))
        TempDT.Columns.Add("AplicaRestriccion", GetType(Boolean))
@@ -199,6 +200,7 @@ Partial Class Ventas_Promociones
        LbPUActual.Text = ""
        DdlTipoPromocion.SelectedValue = "-1"
        TxtPromocionConcepto.Text = ""
+        TxtCantMinima.Text = ""

        ChkRestricciones.Checked = False
        'DivRestricciones.Visible = False
@@ -254,6 +256,12 @@ Partial Class Ventas_Promociones
            Dr("PUPromocion") = LbPUActual.Text.ToDecimal - (LbPUActual.Text.ToDecimal * TxtPromocionConcepto.Text.ToDecimal / 100)
        End If

+        If DdlTipoPromocion.SelectedValue.ToEntero = 3 Then
+            Dr("CantidadMinima") = TxtCantMinima.Text.ToEntero
+        Else
+            Dr("CantidadMinima") = 1
+        End If
+
        If ChkRestricciones.Checked Then
            Dr("AplicaRestriccionTexto") = "Si"
            Dr("AplicaRestriccion") = True
@@ -315,7 +323,9 @@ Partial Class Ventas_Promociones

            LbPUActual.Text = Gvr.DataKey("PUAnterior").FormatoNumero
            DdlTipoPromocion.SelectedValue = Gvr.DataKey("CveTipoPromocion")
+            DdlTipoPromocion_SelectedIndexChanged(sender, Nothing)
            TxtPromocionConcepto.Text = Gvr.DataKey("Promocion").FormatoNumero(4)
+            TxtCantMinima.Text = Gvr.DataKey("CantidadMinima")

            TxtHoraInicio.Text = $"{Gvr.DataKey("HoraInicio").ToDate.Hour}:{Gvr.DataKey("HoraInicio").ToDate.Minute}"
            TxtHoraFin.Text = $"{Gvr.DataKey("HoraFin").ToDate.Hour}:{Gvr.DataKey("HoraFin").ToDate.Minute}"
@@ -371,7 +381,7 @@ Partial Class Ventas_Promociones
            For Each Dr As DataRow In TempDT.Rows
                If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                       CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
-                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime) Then
+                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then
                    TieneError = True
                    Exit For
                End If
@@ -400,7 +410,7 @@ Partial Class Ventas_Promociones
            For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows
                If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                       CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
-                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime) Then
+                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then
                    TieneError = True
                    Exit For
                End If
@@ -410,7 +420,7 @@ Partial Class Ventas_Promociones
                For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 1").Rows
                    If Not ObjVentas.UpdatePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero, CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                           CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
-                                                           Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime) Then
+                                                           Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then
                        TieneError = True
                        Exit For
                    End If
@@ -468,6 +478,11 @@ Partial Class Ventas_Promociones
    End Sub
 #End Region

-
-
+    Protected Sub DdlTipoPromocion_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If DdlTipoPromocion.SelectedValue = "3" Then
+            DivCantMinima.Visible = True
+        Else
+            DivCantMinima.Visible = False
+        End If
+    End Sub
 End Class