SIG/Ventas/CatVendedores.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones

Partial Class Ventas_CatVendedores
    Inherits ClsPaginas

    Private Property DtVendedores As DataTable
        Get
            Return CType(ViewState("DtVendedores"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtVendedores") = value
        End Set
    End Property

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

#Region "  CARGA VALORES INICIALES   "
    Private Sub CargaValoresIniciales()
        ViewState("Orden") = ""
        CargaSubProyectos()
        CargaDatos()
    End Sub
    Public Sub CargaSubProyectos()
        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
        DdlSubProyecto.DataBind()
        DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
    End Sub
#End Region
    Public Sub CargaDatos()
        Dim ObjVendedores As New ClsVtaVendedores
        Dim ObjComisiones As New ClsEsquemasComisiones
        If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjVendedores.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            DtVendedores = ObjVendedores.DtResultados

            DdlSuperior.Items.Clear()
            DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 2")
            DdlVendedores.DataSource = DtVendedores
            DdlSuperior.DataBind()
            ObjVendedores.Dispose()
            GvDatos.DataBind()
        Else
            Me.GvDatos.DataSource = Nothing
        End If
        If ObjComisiones.GetEsquemaComisiones(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
            DdlEsquemaComision.DataSource = ObjComisiones.DtResultados
        Else
            Alert("Ocurrio un Error al cargar los esquemas de comisiones", TipoMensaje.MsgError)
            DdlEsquemaComision.DataSource = Nothing
        End If
        ObjComisiones.Dispose()
        DdlEsquemaComision.DataBind()
    End Sub

    Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click

        Dim ObjVendedores As New ClsVtaVendedores
        Dim TieneError = False

        If HdnModalidad.Value = "I" Then
            If ObjVendedores.AddVendedores(TxtVendedor.Text.Trim, TxtCorreo.Text.Trim, txtTelefono.Text.Trim, TxtCelular.Text.Trim, ChkEstatus.Checked,
                                           DDlPuestoVendedor.SelectedValue.ToEntero, DdlSuperior.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtTituloDocumentos.Text, DdlSubProyecto.SelectedValue.ToEntero, TxtCodigo.Text.Trim, DdlEsquemaComision.SelectedValue.ToEntero) Then
                Alert("El nuevo Vendedor se guardó correctamente.", TipoMensaje.MsgInformacion)
                TxtCodigo.Text = ""
                TxtVendedor.Text = ""
                TxtCorreo.Text = ""
                txtTelefono.Text = ""
                TxtCelular.Text = ""
            Else
                TieneError = True
                Alert("Error al agregar vendedor", TipoMensaje.MsgError)
            End If
        Else
            If HdnID.Value.ToEntero <> -1 Then
                If ObjVendedores.UpdateVendedor(TxtCodigo.Text, TxtVendedor.Text, TxtCorreo.Text.Trim, txtTelefono.Text, TxtCelular.Text, ChkEstatus.Checked,
                                                 DDlPuestoVendedor.SelectedValue.ToEntero, DdlSuperior.SelectedValue.ToEntero,
                                                HdnID.Value.ToEntero, TxtTituloDocumentos.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlEsquemaComision.SelectedValue.ToEntero) Then
                    GvDatos.EditIndex = -1
                    Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
                Else
                    TieneError = True
                    Alert("Error al actualizar los cambios.", TipoMensaje.MsgError)
                End If
            End If
        End If

        ObjVendedores.Dispose()
        CargaDatos()
        CargaGlobal()
        OcultaDiv()
        UpDatos.Update()
    End Sub

#Region "G V  D A T O S"
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
                If e.Row.DBCampo("Estatus") = "Activo" Then
                    e.Row.FCLabel("LtlEstatus").ForeColor = Drawing.Color.Green
                Else
                    e.Row.FCLabel("LtlEstatus").ForeColor = Drawing.Color.Red
                End If
            End If
        End If
    End Sub

    Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
        Dim ObjVendedores As New ClsVtaVendedores
        Dim TieneError = False

        If ObjVendedores.RemoveVendedor(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
            GvDatos.EditIndex = -1
            Alert("EL Vendedor se eliminó correctamente.", TipoMensaje.MsgInformacion)
        Else
            TieneError = True
            Alert("Error al eliminar Vendedor", TipoMensaje.MsgError)
        End If

        ObjVendedores.Dispose()
        CargaDatos()

        If Not TieneError Then
            CargaGlobal()
        End If
    End Sub

#End Region


#Region "CARGA GLOBAL"
    Private Sub CargaGlobal()
        GlobalDTVendedores(UsuarioActual.CveEmpresa) = Nothing
        'Dim ObjVendedores As New ClsVtaVendedores
        'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
        '    GlobalDTVendedores(-1) = ObjVendedores.DtResultados
        'End If
        'ObjVendedores.Dispose()
    End Sub
#End Region

    Private Sub OcultaDiv()
        ScriptManager.RegisterStartupScript(Me, Me.GetType, "Llave", "HideDivRegistro();", True)
    End Sub

    Public Sub BtnAgregarSucursalModal_Click(sender As Object, e As EventArgs)
        LbAgregar.Text = "Agregar"
        LtlTituloModal.Text = "Agregar Vendedor"
        DdlSubProyecto.SelectedIndex = 0
        DdlSuperior.Items.Clear()
        DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 2")
        DdlSuperior.DataBind()
        DivSupervisor.Visible = True
        DDlPuestoVendedor.SelectedIndex = 0
        TxtCodigo.Text = ""
        txtTelefono.Text = ""
        TxtVendedor.Text = ""
        TxtCelular.Text = ""
        TxtTituloDocumentos.Text = ""
        TxtCorreo.Text = ""
        ChkEstatus.Checked = True
        UpModal.Update()
        HdnModalidad.Value = "I"
        RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
    End Sub

    Public Sub Edit_Click(sender As Object, e As EventArgs)
        Dim ObjVendedores As New ClsVtaVendedores
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        HdnModalidad.Value = "U"


        HdnID.Value = GvRow.DataKey("CveVendedor")
        DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
        DdlEsquemaComision.SelectedValueExist(GvRow.DataKey("CveEsquemaComision"))
        TxtCodigo.Text = GvRow.DataKey("Codigo")
        txtTelefono.Text = GvRow.DataKey("Telefono")
        TxtTituloDocumentos.Text = GvRow.DataKey("TituloDocumentos")
        TxtVendedor.Text = GvRow.DataKey("Vendedor")
        TxtCorreo.Text = GvRow.DataKey("Correo")
        TxtCelular.Text = GvRow.DataKey("Celular")
        ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
        DDlPuestoVendedor.SelectedValueExist(GvRow.DataKey("VendedorTipo"))
        ValidaVendedores()
        DdlSuperior.SelectedValueExist(GvRow.DataKey("CveSuperior"))
        LbAgregar.Text = "Actualizar"
        LtlTituloModal.Text = String.Format("{0}{1}", "Actualizar Vendedor: ", TxtVendedor.Text)

        If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
            DdlVendedores.Items.Clear()
            DdlVendedores.DataSource = DtVendedores.FiltraParametros($"CveVendedor <> {GvRow.DataKey("CveVendedor")}")
            DdlVendedores.DataBind()
        End If

        UpModal.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
        ObjVendedores.Dispose()
    End Sub

    Private Sub DDlPuestoVendedor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDlPuestoVendedor.SelectedIndexChanged
        ValidaVendedores()
    End Sub

    Private Sub ValidaVendedores()
        If DDlPuestoVendedor.SelectedValue = "1" Then
            DdlSuperior.Items.Clear()
            DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 2")
            DdlSuperior.DataBind()
            DivSupervisor.Visible = True
        ElseIf DDlPuestoVendedor.SelectedValue = "3" Then
            DdlSuperior.Items.Clear()
            DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 1")
            DdlSuperior.DataBind()
            DivSupervisor.Visible = True
        ElseIf DDlPuestoVendedor.SelectedValue = "2" Then
            DdlSuperior.Items.Clear()
            DivSupervisor.Visible = False
        End If
        UpModal.Update()
    End Sub

    Private Sub BtnTraspasarClientes_Click(sender As Object, e As EventArgs) Handles BtnTraspasarClientes.Click
        Dim ObjVendedores As New ClsVtaVendedores
        Dim TieneError = False

        ObjVendedores.IniciaTransacSQL()

        If Not ObjVendedores.TraspasarClientesVendedor(HdnID.Value.ToEntero, DdlVendedores.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            TieneError = True
        End If

        If Not TieneError Then
            ObjVendedores.Commit()
            Alert("Se han traspasado los clientes al nuevo vendedor", TipoMensaje.MsgInformacion)
        Else
            ObjVendedores.RollBack()
            Alert("Ocurrió un error al traspasar los clientes al nuevo vendedor", TipoMensaje.MsgError)
        End If

        RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarSucursal"))
        ObjVendedores.Dispose()
        CargaDatos()
        CargaGlobal()
        UpDatos.Update()
    End Sub
End Class