Commit inicial Ventas Productivo

Ventas/Promociones.aspx.vb

@@ -0,0 +1,473 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+
+
+Partial Class Ventas_Promociones
+    Inherits ClsPaginas
+
+#Region "  PROPIEDADES  "
+    Private Property TempDT As DataTable
+        Get
+            Return CType(ViewState("TempDT"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("TempDT") = value
+        End Set
+    End Property
+    Private Property CvePromocion As Integer
+        Get
+            Return ViewState("CvePromocion").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CvePromocion") = value
+        End Set
+    End Property
+    Private Property CveConsecutivo As Integer
+        Get
+            Return ViewState("CveConsecutivo").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveConsecutivo") = value
+        End Set
+    End Property
+
+    Private Property DtSubProyectos As DataTable
+        Get
+            Return If(IsNothing(ViewState("DtSubProyectos")), Nothing, CType(ViewState("DtSubProyectos"), DataTable))
+        End Get
+        Set(value As DataTable)
+            ViewState("DtSubProyectos") = value
+        End Set
+    End Property
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CvePromocion = -1
+            CargaValoresIniciales()
+            CargaMonedas()
+            If Request("CvePromocion") IsNot Nothing AndAlso Request("CvePromocion").ToString.ToEntero > 0 Then
+                CvePromocion = Request("CvePromocion").ToString.ToEntero
+                CargaDatos()
+            Else
+                ChkEstatus.Enabled = True
+                ChkEstatus.Checked = True
+                CreaDT()
+            End If
+
+        End If
+    End Sub
+
+
+#Region "  VALORES INICIALES  "
+
+    Private Sub CargaValoresIniciales()
+
+        'CLASIFICACIONES
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        DdlClasificacion.DataBind()
+        DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        'CARGA PS
+        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+        If Not DdlPS.UsaWebService AndAlso CType(DdlPS.DataSource, DataTable) Is Nothing Then
+            DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+            DdlPS.DataBind()
+        End If
+
+        'CARGA SUBPROYECTOS
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataBind()
+
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        DdlCliente.DataBind()
+        DdlCliente.Items.Insert(0, New ListItem("todos", "-1"))
+
+        TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
+        TxtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
+    End Sub
+
+    Private Sub CreaDT()
+        TempDT = New DataTable
+
+        TempDT.Columns.Add("Estatus", GetType(Integer))
+        TempDT.Columns.Add("CvePromocionDetalle", GetType(Integer))
+        TempDT.Columns.Add("CveClasificacion", GetType(Integer))
+        TempDT.Columns.Add("Clasificacion", GetType(String))
+        TempDT.Columns.Add("CvePS", GetType(Integer))
+        TempDT.Columns.Add("CodigoPS", GetType(String))
+        TempDT.Columns.Add("PUAnterior", GetType(Decimal))
+        TempDT.Columns.Add("PUPromocion", GetType(Decimal))
+        TempDT.Columns.Add("CveTipoPromocion", GetType(Integer))
+        TempDT.Columns.Add("TipoPromocion", GetType(String))
+        TempDT.Columns.Add("Promocion", GetType(String))
+
+        TempDT.Columns.Add("AplicaRestriccionTexto", GetType(String))
+        TempDT.Columns.Add("AplicaRestriccion", GetType(Boolean))
+        TempDT.Columns.Add("HoraInicio", GetType(DateTime))
+        TempDT.Columns.Add("HoraFin", GetType(DateTime))
+        TempDT.Columns.Add("AplicaLunes", GetType(Boolean))
+        TempDT.Columns.Add("AplicaMartes", GetType(Boolean))
+        TempDT.Columns.Add("AplicaMiercoles", GetType(Boolean))
+        TempDT.Columns.Add("AplicaJueves", GetType(Boolean))
+        TempDT.Columns.Add("AplicaViernes", GetType(Boolean))
+        TempDT.Columns.Add("AplicaSabado", GetType(Boolean))
+        TempDT.Columns.Add("AplicaDomingo", GetType(Boolean))
+    End Sub
+
+#Region "  PS  "
+    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
+        ChangeDdlProducto()
+    End Sub
+    Private Sub ChangeDdlProducto()
+        If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
+            DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros("", "PSCodigo")
+            DdlPS.DataBind()
+            DdlPS.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+        Else
+            DdlPS.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.SelectedValue)
+        End If
+    End Sub
+#End Region
+
+
+#End Region
+
+
+
+
+#Region "  CARGA DATOS  "
+
+    Private Sub CargaDatos()
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetPromociones(CvePromocion, "-1", -1, -1, -1, UsuarioActual.CveEmpresa, -1) AndAlso ObjVentas.DtResultados.Rows.Count = 1 Then
+            Dim Dr = ObjVentas.DtResultados.Rows(0)
+            TxtPromocion.Text = Dr("Promocion").ToString
+            TxtFechaI.Text = Dr("FechaInicio").ToString.ToDate.ToShortDateString
+            TxtFechaF.Text = Dr("FechaFin").ToString.ToDate.ToShortDateString
+            DdlSubProyecto.SelectedValue = Dr("CveSubProyecto").ToString
+            If Dr("CveVendedor").ToString.ToEntero > 0 Then DdlVendedor.SelectedValue = Dr("CveVendedor").ToString
+            If Dr("CveCliente").ToString.ToEntero > 0 Then DdlCliente.SelectedValue = Dr("CveCliente").ToString
+            ChkEstatus.Checked = If(Dr("Estatus").ToString = "True", True, False)
+            DdlMoneda.SelectedValueExist(Dr("CveMoneda").ToString)
+
+            If ObjVentas.GetPromocionesDetalle(CvePromocion, UsuarioActual.CveEmpresa) Then
+                TempDT = ObjVentas.DtResultados
+                CargaGrid()
+            Else
+                Alert("Ocurrió un error al consultar los detalles de la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+            End If
+
+        Else
+            Alert("Ocurrió un error al consultar la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+        End If
+
+        ObjVentas.Dispose()
+    End Sub
+    Private Sub CargaGrid()
+        GvDatos.DataSource = TempDT.FiltraParametros("Estatus <> 2")
+        GvDatos.DataBind()
+        UpDatos.Update()
+    End Sub
+
+
+    Private Sub CargaMonedas()
+        DdlMoneda.DataSource = GlobalDTMonedas
+        DdlMoneda.DataBind()
+    End Sub
+
+#End Region
+
+
+#Region "  AGREGAR  "
+    Protected Sub LbAgregarModal_Click(sender As Object, e As EventArgs)
+        RegistraScript("$('#DivAgregar').modal('show')")
+        CveConsecutivo = -1
+
+        DdlClasificacion.SelectedValue = "-1"
+        ChangeDdlProducto()
+
+        LbPUActual.Text = ""
+        DdlTipoPromocion.SelectedValue = "-1"
+        TxtPromocionConcepto.Text = ""
+
+        ChkRestricciones.Checked = False
+        'DivRestricciones.Visible = False
+        ChkLunes.Checked = False
+        ChkMartes.Checked = False
+        ChkMiercoles.Checked = False
+        ChkJueves.Checked = False
+        ChkViernes.Checked = False
+        ChkSabado.Checked = False
+        ChkDomingo.Checked = False
+
+        BtnAgregar.Text = "Agregar"
+
+        UpAgregar.Update()
+    End Sub
+
+    Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs)
+
+        If DdlPS.SelectedValue.ToEntero <= 0 Then
+            Alert("Debe seleccionar un Producto/Servicio.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim Dr As DataRow = Nothing
+
+        If CveConsecutivo >= 0 Then
+            Dr = TempDT.Rows(CveConsecutivo)
+            Dr("Estatus") = 1
+        Else
+            Dr = TempDT.NewRow
+            Dr("Estatus") = 0
+        End If
+
+        If DdlClasificacion.SelectedValue.ToEntero > 0 Then
+            Dr("CveClasificacion") = DdlClasificacion.SelectedValue
+            Dr("Clasificacion") = DdlClasificacion.SelectedItem.Text
+        Else
+            Dr("CveClasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("CveClasificacion")
+            Dr("Clasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("Clasificacion")
+        End If
+
+        Dr("CvePS") = DdlPS.SelectedValue
+        Dr("CodigoPS") = DdlPS.SelectedText
+        Dr("PUAnterior") = LbPUActual.Text.ToDecimal
+
+        Dr("CveTipoPromocion") = DdlTipoPromocion.SelectedValue.ToEntero
+        Dr("TipoPromocion") = DdlTipoPromocion.SelectedItem.Text
+        Dr("Promocion") = TxtPromocionConcepto.Text
+
+        If DdlTipoPromocion.SelectedValue.ToEntero = 1 Then
+            Dr("PUPromocion") = TxtPromocionConcepto.Text.ToDecimal
+        Else
+            Dr("PUPromocion") = LbPUActual.Text.ToDecimal - (LbPUActual.Text.ToDecimal * TxtPromocionConcepto.Text.ToDecimal / 100)
+        End If
+
+        If ChkRestricciones.Checked Then
+            Dr("AplicaRestriccionTexto") = "Si"
+            Dr("AplicaRestriccion") = True
+            Dr("HoraInicio") = Now.ToShortDateString.ToDate.AddHours(TxtHoraInicio.Text.Trim.Substring(0, 2).ToEntero).AddMinutes(TxtHoraInicio.Text.Trim.Substring(2, 2).ToEntero)
+            Dr("HoraFin") = Now.ToShortDateString.ToDate.AddHours(TxtHoraFin.Text.Trim.Substring(0, 2).ToEntero).AddMinutes(TxtHoraFin.Text.Trim.Substring(2, 2).ToEntero)
+            Dr("AplicaLunes") = ChkLunes.Checked
+            Dr("AplicaMartes") = ChkMartes.Checked
+            Dr("AplicaMiercoles") = ChkMiercoles.Checked
+            Dr("AplicaJueves") = ChkJueves.Checked
+            Dr("AplicaViernes") = ChkViernes.Checked
+            Dr("AplicaSabado") = ChkSabado.Checked
+            Dr("AplicaDomingo") = ChkDomingo.Checked
+        Else
+            Dr("AplicaRestriccionTexto") = "No"
+            Dr("AplicaRestriccion") = False
+            Dr("HoraInicio") = MinFecha.ToDateTime
+            Dr("HoraFin") = MaxFecha.ToDateTime
+            Dr("AplicaLunes") = False
+            Dr("AplicaMartes") = False
+            Dr("AplicaMiercoles") = False
+            Dr("AplicaJueves") = False
+            Dr("AplicaViernes") = False
+            Dr("AplicaSabado") = False
+            Dr("AplicaDomingo") = False
+        End If
+
+        If CveConsecutivo >= 0 Then
+            Dr.AcceptChanges()
+        Else
+            TempDT.Rows.Add(Dr)
+        End If
+
+        CargaGrid()
+        RegistraScript("$('#DivAgregar').modal('hide')")
+    End Sub
+    Protected Sub ChkRestricciones_CheckedChanged(sender As Object, e As EventArgs)
+        DivRestricciones.Visible = ChkRestricciones.Checked
+    End Sub
+#End Region
+
+
+#Region "   GV PS   "
+    Private Sub GvDatos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvDatos.RowCommand
+
+        If e.CommandName = "Editar" Then
+            Dim Gvr = GvDatos.Rows(e.CommandArgument.ToString.ToEntero)
+
+            RegistraScript("$('#DivAgregar').modal('show')")
+            CveConsecutivo = e.CommandArgument.ToString.ToEntero
+
+            DdlClasificacion.SelectedValue = Gvr.DataKey("CveClasificacion")
+            ChangeDdlProducto()
+            If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
+                DdlPS.SelectedValue = Gvr.DataKey("CvePS")
+            Else
+                DdlPS.SelectedValue = Gvr.DataKey("CvePS")
+                DdlPS.SelectedText = Gvr.DataKey("CodigoPS")
+            End If
+
+            LbPUActual.Text = Gvr.DataKey("PUAnterior").FormatoNumero
+            DdlTipoPromocion.SelectedValue = Gvr.DataKey("CveTipoPromocion")
+            TxtPromocionConcepto.Text = Gvr.DataKey("Promocion").FormatoNumero(4)
+
+            TxtHoraInicio.Text = $"{Gvr.DataKey("HoraInicio").ToDate.Hour}:{Gvr.DataKey("HoraInicio").ToDate.Minute}"
+            TxtHoraFin.Text = $"{Gvr.DataKey("HoraFin").ToDate.Hour}:{Gvr.DataKey("HoraFin").ToDate.Minute}"
+
+            ChkRestricciones.Checked = CBool(Gvr.DataKey("AplicaRestriccion"))
+            DivRestricciones.Visible = CBool(Gvr.DataKey("AplicaRestriccion"))
+            ChkLunes.Checked = CBool(Gvr.DataKey("AplicaLunes"))
+            ChkMartes.Checked = CBool(Gvr.DataKey("AplicaMartes"))
+            ChkMiercoles.Checked = CBool(Gvr.DataKey("AplicaMiercoles"))
+            ChkJueves.Checked = CBool(Gvr.DataKey("AplicaJueves"))
+            ChkViernes.Checked = CBool(Gvr.DataKey("AplicaViernes"))
+            ChkSabado.Checked = CBool(Gvr.DataKey("AplicaSabado"))
+            ChkDomingo.Checked = CBool(Gvr.DataKey("AplicaDomingo"))
+
+            BtnAgregar.Text = "Actualizar"
+
+            UpAgregar.Update()
+            GvDatos.EditIndex = -1
+        End If
+
+    End Sub
+    Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
+        Dim DbRow = TempDT.Rows(e.RowIndex)
+
+        If CvePromocion > 0 Then
+            DbRow("Estatus") = 2
+        Else
+            TempDT.Rows.Remove(DbRow)
+        End If
+
+        CargaGrid()
+    End Sub
+#End Region
+
+
+#Region "  GUARDAR  "
+    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
+        If CvePromocion > 0 Then
+            ActualizaPromocion()
+        Else
+            GuardaPromocion()
+        End If
+    End Sub
+
+
+    Private Sub GuardaPromocion()
+        Dim ObjVentas As New ClsVentas
+        Dim TieneError = False
+        ObjVentas.IniciaTransacSQL()
+        CvePromocion = ObjVentas.AddPromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha), DdlVendedor.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero)
+
+        If CvePromocion > 0 Then
+            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
+                    TieneError = True
+                    Exit For
+                End If
+            Next
+        Else
+            TieneError = True
+        End If
+
+        If Not TieneError Then
+            ObjVentas.Commit()
+            Alert("La promoción se guardo correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatPromociones.aspx"";")
+        Else
+            ObjVentas.RollBack()
+            Alert("Ocurrió un error al guardar la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+        End If
+
+        ObjVentas.Dispose()
+    End Sub
+    Private Sub ActualizaPromocion()
+        Dim ObjVentas As New ClsVentas
+        Dim TieneError = False
+        ObjVentas.IniciaTransacSQL()
+
+        If ObjVentas.UpdatePromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha), DdlVendedor.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CvePromocion, DdlSubProyecto.SelectedValue.ToEntero) Then
+
+            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
+                    TieneError = True
+                    Exit For
+                End If
+            Next
+
+            If Not TieneError Then
+                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
+                        TieneError = True
+                        Exit For
+                    End If
+                Next
+            End If
+
+            If Not TieneError Then
+                For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 2").Rows
+                    If Not ObjVentas.RemovePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero) Then
+                        TieneError = True
+                        Exit For
+                    End If
+                Next
+            End If
+
+        Else
+            TieneError = True
+        End If
+
+        If Not TieneError Then
+            ObjVentas.Commit()
+            Alert("La promoción se guardo correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatPromociones.aspx"";")
+        Else
+            ObjVentas.RollBack()
+            Alert("Ocurrió un error al guardar la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+        End If
+
+        ObjVentas.Dispose()
+    End Sub
+#End Region
+
+
+#Region "  ELIMINAR  "
+    Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)
+        Dim ObjVentas As New ClsVentas
+        ObjVentas.IniciaTransacSQL()
+        Dim TieneError = False
+
+        If ObjVentas.RemovePromocionesDetalle(CvePromocion) Then
+            If Not ObjVentas.RemovePromociones(CvePromocion, UsuarioActual.CveEmpresa) Then
+                TieneError = True
+            End If
+        Else
+            TieneError = True
+        End If
+
+        If Not TieneError Then
+            ObjVentas.Commit()
+            Alert("La promoción se elimino correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatPromociones.aspx"";")
+        Else
+            ObjVentas.RollBack()
+            Alert("Ocurrió un error al registrar la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+        End If
+        ObjVentas.Dispose()
+    End Sub
+#End Region
+
+
+
+End Class