Option Explicit On
Option Strict On

Imports Extensiones
Imports System.Data
Partial Class Ventas_CatVentasDeducciones
    Inherits ClsPaginas


#Region "Propiedades"

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

    Public Sub CargaTodo()
        CargaGrid()
    End Sub


#Region "Porcentajes"
    Public Sub CargaGrid()
        Dim Objeto As New ClsVentas
        If Objeto.GetDeduccion(UsuarioActual.CveEmpresa) Then
            GvDeducciones.DataSource = Objeto.DtResultados
            GvDeducciones.DataBind()

        End If
        Objeto.Dispose()
        UpGVPorcentajes.Update()
    End Sub

    Protected Sub AgregarGvDeducciones_Click(sender As Object, e As EventArgs) Handles AgregarGVPorcentajes.Click
        Dim AgregarDeduccion As New ClsVentas
        AgregarDeduccion.AddDeduccion(TxtDeduccion.Text, TxtPorcentaje.Text.ToDouble, UsuarioActual.CveUsuario.ToEntero, UsuarioActual.CveEmpresa.ToEntero)
        If AgregarDeduccion.GetDeduccion(UsuarioActual.CveEmpresa) Then
            CargaGrid()
        End If
        AgregarDeduccion.Dispose()

        TxtDeduccion.Text = ("")
        TxtPorcentaje.Text = ("")
        TxtDeduccion.Focus()
        UpGVPorcentajes.Update()
    End Sub

    Protected Sub GvDeducciones_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDeducciones.RowEditing
        GvDeducciones.EditIndex = e.NewEditIndex
        CargaGrid()
        UpGVPorcentajes.Update()
    End Sub

    Protected Sub GvDeducciones_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDeducciones.RowUpdating
        Dim Objeto As New ClsVentas
        Dim Deduccion = GvDeducciones.Rows(e.RowIndex).FCTextBox("TxtVentaDeduccion").Text.Trim
        Dim Porcentaje = GvDeducciones.Rows(e.RowIndex).FCTextBox("TxtVentaPorcentaje").Text.ToDouble
        Dim Clave = GvDeducciones.Rows(e.RowIndex).DataKey("CveVentaDeduccion").ToEntero
        Objeto.UpdateDeduccion(Clave, Deduccion, Porcentaje, UsuarioActual.CveUsuario.ToEntero, UsuarioActual.CveEmpresa.ToEntero)
        GvDeducciones.EditIndex = -1
        CargaGrid()
    End Sub

    Protected Sub GvDeducciones_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDeducciones.RowCancelingEdit
        GvDeducciones.EditIndex = -1
        CargaGrid()
        Alert("Se canceló la edición de los campos.")
    End Sub

    Protected Sub GvDeducciones_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDeducciones.RowDeleting
        Dim ObjNombres As New ClsVentas
        Dim CveVentaDeduccion = GvDeducciones.Rows(e.RowIndex).DataKey("CveVentaDeduccion").ToEntero

        If ObjNombres.RemoveDeduccion(CveVentaDeduccion) Then
            GvDeducciones.EditIndex = -1

            Alert("Se borró corrrectamente la deducción.", TipoMensaje.MsgInformacion)



        End If


        ObjNombres.Dispose()
        CargaGrid()
        UpGVPorcentajes.Update()
    End Sub



#End Region




End Class