Promocion por cantidad

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