SIG/Ventas/CatEsquemaComisiones.aspx.vb

Option Explicit On
Option Strict On

Imports Extensiones
Partial Class Ventas_CatEsquemaComisiones
    Inherits ClsPaginas

#Region "PROPIEDADES"

#End Region
    Private Sub Ventas_CatEsquemaComisiones_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            InicializaValores()
        End If
    End Sub

#Region "  INICIALIZA VALORES  "
    Private Sub InicializaValores()
        CargaDdlEsquemaComisiones()
        CargaGridEsquema()
        CargaGridLimites()
    End Sub
#End Region



#Region "  ESQUEMA COMISIONES  "
    Private Sub LbAgregarEsquema_Click(sender As Object, e As EventArgs) Handles LbAgregarEsquema.Click
        Dim ObjEsquemas As New ClsEsquemasComisiones
        Dim TieneError = False

        If Not ObjEsquemas.AddEsquemaComisiones(TxtEsquemaComision.Text, DdlTipoComision.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
            TieneError = True
        End If
        ObjEsquemas.Dispose()

        If Not TieneError Then
            Alert(String.Format("Se guardo el esquema {0}", TxtEsquemaComision.Text), TipoMensaje.MsgInformacion)
            TxtEsquemaComision.Text = ""
            CargaGridEsquema()
        Else
            Alert("Error al guardar esquema", TipoMensaje.MsgError)
        End If
        CargaDdlEsquemaComisiones()
    End Sub

    Private Sub GVEsquema_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEsquema.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
                e.Row.FCDropDownList("DdlTipoComisionEdit").SelectedValue = e.Row.DBCampo("TipoComision")
            End If

        End If
    End Sub
    Private Sub GVEsquema_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GVEsquema.RowEditing
        GVEsquema.EditIndex = e.NewEditIndex
        CargaGridEsquema()
    End Sub
    Private Sub GVEsquema_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GVEsquema.RowCancelingEdit
        GVEsquema.EditIndex = -1
        CargaGridEsquema()
    End Sub
    Private Sub GVEsquema_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GVEsquema.RowUpdating
        Dim ObjEsquemas As New ClsEsquemasComisiones
        Dim TieneError = False
        Dim CveEsquemaComision = GVEsquema.Rows(e.RowIndex).DataKey("CveEsquemaComision").ToEntero
        Dim EsquemaComision = GVEsquema.Rows(e.RowIndex).FCTextBox("TxTComisionEdit").Text.Trim
        Dim TipoComision = GVEsquema.Rows(e.RowIndex).FCDropDownList("DdlTipoComisionEdit").SelectedValue.ToEntero

        If Not ObjEsquemas.UpdateEsquemaComisiones(CveEsquemaComision, EsquemaComision, TipoComision, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            TieneError = True
        End If
        ObjEsquemas.Dispose()

        If Not TieneError Then
            GVEsquema.EditIndex = -1
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
            CargaGridEsquema()
            CargaDdlEsquemaComisiones()
            CargaGridLimites()
        Else
            Alert("Error al actualizar los cambios.", TipoMensaje.MsgError)
        End If
        UpdatosEsquema.Update()
    End Sub

    Private Sub GVEsquema_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GVEsquema.RowDeleting
        Dim ObjEsquemas As New ClsEsquemasComisiones
        Dim TieneError = False
        Dim CveEsquemaComision = GVEsquema.Rows(e.RowIndex).DataKey("CveEsquemaComision").ToEntero

        If Not ObjEsquemas.RemoveEsquemaComisiones(GVEsquema.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
            TieneError = True
        End If

        If Not TieneError Then
            GVEsquema.EditIndex = -1
            Alert("El Esquema se elimino correctamente.", TipoMensaje.MsgInformacion)
            CargaGridEsquema()
            CargaDdlEsquemaComisiones()
        Else
            Alert("Error al eliminar Esquema", TipoMensaje.MsgError)
        End If
        ObjEsquemas.Dispose()
        'GVEsquema.DataSource = DtMovimientos
        'GVEsquema.DataBind()
        UpdatosEsquema.Update()
    End Sub

    Private Sub CargaGridEsquema()
        Dim ObjEsquemas As New ClsEsquemasComisiones

        If ObjEsquemas.GetEsquemaComisiones(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
            GVEsquema.DataSource = ObjEsquemas.DtResultados.FiltraParametros("", Orderby:="EsquemaComision")
        End If
        ObjEsquemas.Dispose()
        GVEsquema.DataBind()
        UpdatosEsquema.Update()
    End Sub
#End Region

    Private Sub CargaDdlEsquemaComisiones()
        Dim ObjEsquemas As New ClsEsquemasComisiones
        If ObjEsquemas.GetEsquemaComisiones(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
            DdlEsquemaComision.DataSource = ObjEsquemas.DtResultados
        End If


        DdlEsquemaComision.DataBind()
        DdlEsquemaComision.Items.Insert(0, New ListItem("Seleccione", "-1"))
        ObjEsquemas.Dispose()
        UpTitulosLimites.Update()
    End Sub


#Region "  LIMITES  "
    Private Sub LbAgregarLimites_Click(sender As Object, e As EventArgs) Handles LbAgregarLimites.Click
        Dim ObjEsquemas As New ClsEsquemasComisiones
        Dim TieneError = False

        If Not ObjEsquemas.AddEsquemaComisionLimite(TxtLimite.Text.ToDouble, TxtComision.Text.ToDouble, DdlEsquemaComision.SelectedValue.ToEntero, TxtNivel.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
            TieneError = True
        End If
        ObjEsquemas.Dispose()

        If Not TieneError Then
            Alert("Se guardo correctamente", TipoMensaje.MsgInformacion)
            TxtLimite.Text = ""
            TxtComision.Text = ""
            DdlEsquemaComision.SelectedIndex = -1
            CargaGridLimites()
        Else
            Alert("Error al guardar esquema", TipoMensaje.MsgError)
        End If
    End Sub

    Private Sub GVLimites_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVLimites.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
                Dim ObjLimites As New ClsEsquemasComisiones

                If ObjLimites.GetEsquemaComisiones(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
                    e.Row.FCDropDownList("DdlComisionEdit").DataSource = ObjLimites.DtResultados.FiltraParametros("", Orderby:="EsquemaComision")
                    e.Row.FCDropDownList("DdlComisionEdit").DataBind()

                End If
                e.Row.FCDropDownList("DdlComisionEdit").Items.Insert(0, New ListItem("Seleccione", "-1"))
                e.Row.FCDropDownList("DdlComisionEdit").SelectedValueExist(e.Row.DataKey("CveEsquemaComision"))
                ObjLimites.Dispose()
            End If

        End If
    End Sub
    Private Sub GVLimites_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GVLimites.RowEditing
        GVLimites.EditIndex = e.NewEditIndex
        CargaGridLimites()
    End Sub
    Private Sub GVLimites_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GVLimites.RowCancelingEdit
        GVLimites.EditIndex = -1
        CargaGridLimites()
    End Sub
    Private Sub GVLimites_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GVLimites.RowUpdating
        Dim ObjLimites As New ClsEsquemasComisiones
        Dim TieneError = False
        Dim CveEsquemaComisionLimite = GVLimites.Rows(e.RowIndex).DataKey("CveEsquemaComisionLimite").ToEntero
        Dim CveEsquemaComision As Integer = GVLimites.Rows(e.RowIndex).FCDropDownList("DdlComisionEdit").SelectedValue.ToEntero
        Dim Nivel = GVLimites.Rows(e.RowIndex).FCTextBox("TxTNivelEdit").Text.Trim
        Dim LimiteMaximo = GVLimites.Rows(e.RowIndex).FCTextBox("TxTLimiteEdit").Text.Trim.ToDouble
        Dim Comision = GVLimites.Rows(e.RowIndex).FCTextBox("TxTComisionLimiteEdit").Text.Trim.ToDouble
        'Dim Importe = DirectCast(GVLimites.Rows(e.RowIndex).FindControl("TxtImporteEdit"), TextBox).Text.Trim.ToDouble

        If Not ObjLimites.UpdateEsquemaComisionLimite(CveEsquemaComisionLimite, LimiteMaximo, Comision, CveEsquemaComision, Nivel, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            TieneError = True
        End If
        ObjLimites.Dispose()

        If Not TieneError Then
            GVLimites.EditIndex = -1
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
            CargaGridLimites()
        Else
            Alert("Error al actualizar los cambios.", TipoMensaje.MsgError)
        End If

        UpDatosLimites().Update()
    End Sub

    Private Sub GVLimites_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GVLimites.RowDeleting
        Dim ObjLimites As New ClsEsquemasComisiones
        Dim TieneError = False
        Dim CveEsquemaComisionLimite = GVLimites.Rows(e.RowIndex).DataKey("CveEsquemaComisionLimite").ToEntero

        If Not ObjLimites.RemoveEsquemaComisionLimite(CveEsquemaComisionLimite, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            TieneError = True
        End If
        ObjLimites.Dispose()

        If Not TieneError Then
            GVLimites.EditIndex = -1
            Alert("Se eliminador datos correctamente", TipoMensaje.MsgInformacion)
            CargaGridLimites()
        Else
            Alert("Error al eliminar", TipoMensaje.MsgError)
        End If

        UpDatosLimites.Update()
    End Sub


    Private Sub CargaGridLimites()
        Dim ObjLimites As New ClsEsquemasComisiones
        If ObjLimites.GetEsquemaComisionLimite(-1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
            GVLimites.DataSource = ObjLimites.DtResultados
        End If
        ObjLimites.Dispose()

        GVLimites.DataBind()
        UpDatosLimites.Update()
    End Sub
#End Region




End Class