Promociones aplicadas para grupos de productos

en Clasificaciones

App_Code/ClsVentas.vb

@@ -1991,7 +1991,10 @@ 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, Optional CantidadMinima As Integer = 1) 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,
+                                          Optional CveClasificacion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleAdd")
 
@@ -2014,6 +2017,7 @@ Public Class ClsVentas
             .Add("@HoraInicio", SqlDbType.DateTime).Value = HoraInicio
             .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin
             .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
         End With
 
         Try
@@ -2025,7 +2029,10 @@ 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, Optional CantidadMinima As Integer = 1) 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, Optional CveClasificacion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleUpdate")
 
@@ -2049,6 +2056,7 @@ Public Class ClsVentas
             .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin
             .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle
             .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
         End With
 
         Try

Ventas/Promociones.aspx

@@ -180,6 +180,7 @@
                                     <asp:BoundField HeaderText="Promoción" DataField="Promocion" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.00##}" ItemStyle-Width="10%" />
                                     <asp:BoundField HeaderText="P.U. Promoción" DataField="PUPromocion" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.00##}" ItemStyle-Width="10%" />
                                     <asp:BoundField HeaderText="Condiciones" ItemStyle-HorizontalAlign="Center" DataField="AplicaRestriccionTexto" ItemStyle-Width="15%" />
+                                    <asp:BoundField HeaderText="Clasificacion" ItemStyle-HorizontalAlign="Left" DataField="Clasificacion"/>
                                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                                         <ItemTemplate>
                                             <asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandArgument='<%# Container.DataItemIndex%>' CommandName="Editar" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />

Ventas/Promociones.aspx.vb

@@ -219,8 +219,8 @@ Partial Class Ventas_Promociones
 
     Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs)
 
-        If DdlPS.SelectedValue.ToEntero <= 0 Then
+        If DdlClasificacion.SelectedValue.ToEntero <= 0 Then
-            Alert("Debe seleccionar un Producto/Servicio.", TipoMensaje.MsgAdvertencia)
+            Alert("Debe seleccionar una clasificacion", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
@@ -242,7 +242,7 @@ Partial Class Ventas_Promociones
             Dr("Clasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("Clasificacion")
         End If
 
-        Dr("CvePS") = DdlPS.SelectedValue
+        Dr("CvePS") = If(DdlPS.SelectedValue = "", "-1", DdlPS.SelectedValue)
         Dr("CodigoPS") = DdlPS.SelectedText
         Dr("PUAnterior") = LbPUActual.Text.ToDecimal
 
@@ -388,7 +388,8 @@ 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, Dr("CantidadMinima").ToString.ToEntero) Then
+                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero,
+                                                       CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero)) Then
                     TieneError = True
                     Exit For
                 End If
@@ -417,7 +418,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, Dr("CantidadMinima").ToString.ToEntero) Then
+                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1)) Then
                     TieneError = True
                     Exit For
                 End If
@@ -427,7 +428,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, Dr("CantidadMinima").ToString.ToEntero) Then
+                                                           Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1)) Then
                         TieneError = True
                         Exit For
                     End If