SIG/Ventas/CatMetasVendedores.aspx.vb

Imports System.Data
Imports System.Linq
Imports Extensiones

Partial Class CatMetasVendedores
    Inherits ClsPaginas
    Private Property CveMetaVendedor() As Integer 'Guardamos el ID de registro para saber cual registro Editar
        Get
            Return If(IsNothing(ViewState("CveMetaVendedor")), -1, CInt(ViewState("CveMetaVendedor")))
        End Get
        Set
            ViewState("CveMetaVendedor") = Value
        End Set
    End Property

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            CargaDatos()
            CargaDatosModal()
        End If
    End Sub

    Private Sub CargaDatos()
        Dim ObjVentas As New ClsVentas
        If ObjVentas.GetMetasVendedores(UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjVentas.DtResultados
        End If
        ObjVentas.Dispose()
        GvDatos.DataBind()
    End Sub

    Private Sub CargaDatosModal()
        DdlVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
        DdlVendedores.DataBind()
        DdlVendedores.Items.Insert(0, New ListItem("Seleccionar", "-1"))

        Dim ObjPS As New ClsProductosServicios
        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
            DdlMarcas.DataSource = ObjPS.DtResultados
        End If
        ObjPS.Dispose()
        DdlMarcas.DataBind()
        DdlMarcas.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacion.DataBind()
        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlClasificacionSup.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacionSup.DataBind()
        DdlClasificacionSup.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Protected Sub LnkAgregar_Click() Handles LnkAgregar.Click
        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
    End Sub

    Protected Sub BtnAgregarMetaVendedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarMetaVendedor.Click

        If DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "" AndAlso DdlMarcas.SelectedValue.ToEntero > 0 AndAlso DdlClasificacionSup.SelectedValue.ToEntero > 0 Then

            Dim ObjVentas As New ClsVentas
            If BtnAgregarMetaVendedor.Text = "Agregar" Then
                If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero,
                                            TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero) Then
                    Alert("Se agregó la meta al vendedor")
                Else
                    Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError)
                End If
            ElseIf BtnAgregarMetaVendedor.Text = "Actualizar" Then
                If ObjVentas.UpdateMetasVendedores(CveMetaVendedor, DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero,
                                                   TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero,
                                                   DdlClasificacionSup.SelectedValue.ToEntero) Then
                    Alert("Se actualizó la información de la meta del vendedor")
                Else
                    Alert("No se pudo actualizar la meta del vendedor", TipoMensaje.MsgError)
                End If
            End If
        Else
            Alert(String.Format("Falta Seleccionar {0}{1}{2}", If(DdlVendedores.SelectedValue.ToEntero > 0, "", "Vendedor, "), If(DdlMarcas.SelectedValue.ToEntero > 0, "", "Marca, "), If(TxtFechaI.Text <> "", "", "Fecha, ")))
        End If
        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
        ResetDatosSeleccionadosModal()
        CargaDatos()
        UpDatos.Update()
    End Sub

    Private Sub ResetDatosSeleccionadosModal()
        DdlVendedores.SelectedValue = "-1"
        TxtFechaI.Text = ""
        DdlMarcas.SelectedValue = "-1"
        TxtMetaCantidad.Text = ""
        TxtMetaImporte.Text = ""
        UpModalTiposD.Update()
    End Sub

    Public Sub GvDatos_RowEditing(sender As Object, e As EventArgs)
        BtnAgregarMetaVendedor.Text = "Actualizar"
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        CveMetaVendedor = GvRow.DataKey("CveMeta").ToEntero
        DdlVendedores.SelectedValue = GvRow.DataKey("CveVendedor")
        TxtFechaI.Text = GvRow.DataKey("MesAño")
        DdlClasificacionSup.SelectedValue = GvRow.DataKey("CveClasificacionSup")
        DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion")
        DdlMarcas.SelectedValue = GvRow.DataKey("CveMarca")
        TxtMetaCantidad.Text = GvRow.DataKey("MetaCantidad")
        TxtMetaImporte.Text = GvRow.DataKey("MetaImporte")
        UpModalTiposD.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
    End Sub

    Public Sub Delete_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim CveMetaEliminar As Integer = GvRow.DataKey("CveMeta").ToEntero
        Dim ObjVentas As New ClsVentas
        If ObjVentas.RemoveMetasVendedores(CveMetaEliminar) Then
            Alert("Meta eliminada exitosamente")
        End If
        ObjVentas.Dispose()
        CargaDatos()
        UpDatos.Update()
    End Sub
End Class