Option Explicit On
Option Strict On

Imports Extensiones
Imports System.Data
Partial Class Ventas_CatImpuestosLocales
    Inherits ClsPaginas

#Region " PROPIEDADES"
    Private Property DtCuentasContables As Data.DataTable
        Get
            Return CType(ViewState("DtCuentasContables"), DataTable)
        End Get
        Set(value As Data.DataTable)
            ViewState("DtCuentasContables") = value
        End Set
    End Property

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

    Private Property CveImpuestoLocal As Integer
        Get
            Return ViewState("CveImpuestoLocal").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveImpuestoLocal") = value
        End Set
    End Property
#End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CveImpuestoLocal = -1
            CargaCuentasContables()
            CargaDatos()
            OrdenaDatos()
        End If
    End Sub

    Private Sub CargaDatos()
        Dim ObjVentas As New ClsVentas()
        If ObjVentas.GetImpuestosLocales(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            GvImpuestos.DataSource = ObjVentas.DtResultados
            GvImpuestos.DataBind()
        End If
        ObjVentas.Dispose()
        UpDatos.Update()
    End Sub

    Private Sub CargaCuentasContables()
        If UsuarioActual.Empresa.UsaContabilidad OrElse UsuarioActual.Empresa.UsaAC Then
            Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
            'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
            If ObjContabilidad.GetCuentasRecursiva(1, 1) Then
                DtCuentasContables = ObjContabilidad.DtResultados
            Else
                DtCuentasContables = Nothing
            End If
            ObjContabilidad.Dispose()
        End If


        DdlCuentasContables.DataSource = DtCuentasContables
        DdlCuentasContables.DataBind()
    End Sub


#Region "GV IMPUESTOS "


    'Protected Sub GvImpuestos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvImpuestos.RowEditing
    '    GvImpuestos.EditIndex = e.NewEditIndex
    '    CargaDatos()
    'End Sub

    Protected Sub GvImpuestos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvImpuestos.RowUpdating
        Dim ObjVentas As New ClsVentas()
        Dim TieneError = False
        Dim CveImpuestoLocal As Integer = GvImpuestos.Rows(e.RowIndex).DataKey("CveImpuestoLocal").ToEntero
        Dim Impuesto As String = GvImpuestos.Rows(e.RowIndex).FCTextBox("TxtImpuestoLocal").Text.Trim
        Dim Porcentaje As Double = GvImpuestos.Rows(e.RowIndex).FCTextBox("TxtVentaPorcentaje").Text.ToDouble
        Dim Orden = GvImpuestos.Rows(e.RowIndex).FCTextBox("TxtOrdenImpuesto").Text.ToEntero
        Dim TipoImpuesto = GvImpuestos.Rows(e.RowIndex).FCDropDownList("DdlTipoImpuestoEdit").SelectedValue.ToEntero
        Dim IdCtaContable = GvImpuestos.Rows(e.RowIndex).FCDropDownList("DdlCuentasContables").SelectedValue.ToEntero

        Dim Estatus As Integer
        If GvImpuestos.Rows(e.RowIndex).FCCheckBox("ChkEstatusEdit").Checked = True Then
            Estatus = 1
        Else
            Estatus = 0
        End If


        If Not ObjVentas.UpdateImpuestosLocales(CveImpuestoLocal, Impuesto, Porcentaje, Orden, TipoImpuesto, Estatus, IdCtaContable) Then
            TieneError = True
        End If
        ObjVentas.Dispose()


        If Not TieneError Then
            GvImpuestos.EditIndex = -1
            CargaDatos()
        Else
            Alert("Ocurrio un erro al actualizar los datos", TipoMensaje.MsgAdvertencia)
        End If

    End Sub

    Protected Sub GvImpuestos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvImpuestos.RowCancelingEdit
        GvImpuestos.EditIndex = -1
        CargaDatos()
    End Sub

    Protected Sub GvImpuestos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvImpuestos.RowDeleting
        Dim ObjVentas As New ClsVentas()
        Dim TieneError = False

        Dim CveImpuesto As Integer = GvImpuestos.Rows(e.RowIndex).DataKey("CveImpuestoLocal").ToEntero

        If Not ObjVentas.RemoveImpuestosLocales(CveImpuesto) Then
            TieneError = True
        End If
        ObjVentas.Dispose()


        If Not TieneError Then
            GvImpuestos.EditIndex = -1
            Alert("Se elimino correctamente el Impuesto Local.", TipoMensaje.MsgInformacion)
        Else
            Alert("Ocurrio un error al eliminar el Impuesto Local.", TipoMensaje.MsgAdvertencia)
        End If


        CargaDatos()
    End Sub

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

            If (e.Row.RowState And DataControlRowState.Edit) > 0 Then
                e.Row.FCDropDownList("DdlTipoImpuestoEdit").SelectedValueExist(e.Row.DataKey("TipoImpuesto"))

                e.Row.FCDropDownList("DdlCuentasContables").DataSource = DtCuentasContables
                e.Row.FCDropDownList("DdlCuentasContables").DataBind()
                e.Row.FCDropDownList("DdlCuentasContables").Items.Add(New ListItem("Seleccione", "-1"))
                e.Row.FCDropDownList("DdlCuentasContables").SelectedValue = e.Row.DBCampo("IdCuentaImpuestoLocal")

            End If


            If e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal Then
                If e.Row.DBCampo("IdCuentaImpuestoLocal").ToEntero > 0 Then
                    e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCuentaImpuestoLocal")}")
                Else
                    e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta"
                End If
            End If

        End If
    End Sub



    Private Sub OrdenaDatos()
        If (GvImpuestos.Rows.Count > 0) Then
            GvImpuestos.UseAccessibleHeader = True
            GvImpuestos.HeaderRow.TableSection = TableRowSection.TableHeader
            RegistraScript("OrdenarGV();")
        End If
    End Sub

#End Region

#Region "BTN'S"
    Private Sub BtnAgregarImpuestoModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarImpuestoModal.Click
        CveImpuestoLocal = -1

        If CveImpuestoLocal > 0 Then
            BtnAgregarImpuesto.Text = "Actualizar"
            UpFooter.Update()
        Else
            BtnAgregarImpuesto.Text = "Agregar"
        End If

        RegistraScript("$('#divAddImpuestoLocal').modal();LimpiaModal()")
    End Sub

    Private Sub BtnAgregarImpuesto_Click(sender As Object, e As EventArgs) Handles BtnAgregarImpuesto.Click
        Dim ObjVentas As New ClsVentas
        Dim Estatus = 0

        If CveImpuestoLocal = -1 Then
            If ChkEstatus.Checked Then Estatus = 1

            If ObjVentas.AddImpuestosLocales(TxtImpuesto.Text.Trim, TxtPorcentaje.Text.ToDouble, TxtOrden.Text.ToEntero, DdlTipoImpuesto.SelectedValue.ToEntero, Estatus, DdlCuentasContables.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                CargaDatos()
            End If
            TxtImpuesto.Text = ""
            TxtPorcentaje.Text = ""
            TxtOrden.Text = ""
            TxtImpuesto.Focus()
        Else
            If CveImpuestoLocal <> -1 Then
                Dim TieneError = False
                Dim Impuesto As String = TxtImpuesto.Text.Trim
                Dim Porcentaje As Double = TxtPorcentaje.Text.ToDouble
                Dim Orden = TxtOrden.Text.ToEntero
                Dim TipoImpuesto = DdlTipoImpuesto.SelectedValue.ToEntero
                Dim IdCtaContable = DdlCuentasContables.SelectedValue.ToEntero
                If ChkEstatus.Checked Then Estatus = 1

                If Not ObjVentas.UpdateImpuestosLocales(CveImpuestoLocal, Impuesto, Porcentaje, Orden, TipoImpuesto, Estatus, IdCtaContable) Then
                    TieneError = True
                End If
                ObjVentas.Dispose()


                If Not TieneError Then
                    GvImpuestos.EditIndex = -1
                    CargaDatos()
                Else
                    Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia)
                End If
                CveImpuestoLocal = -1
            End If
        End If
        ObjVentas.Dispose()
        UpDatos.Update()
        RegistraScript("$('#divAddImpuestoLocal').modal('hide');")
    End Sub

    Protected Sub BtnCargaModal_Click(sender As Object, e As EventArgs)
        Dim ObjImpuestos As New ClsVentas

        Dim Clave = CType(sender, LinkButton).CommandArgument.ToEntero

        If ObjImpuestos.GetImpuestosLocales(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            DtImpuestosLocales = ObjImpuestos.DtResultados.FiltraParametros(String.Format("CveImpuestoLocal = {0}", Clave))
        End If


        TxtOrden.Text = DtImpuestosLocales(0)("Orden").ToString
        DdlTipoImpuesto.SelectedValueExist(DtImpuestosLocales(0)("TipoImpuesto").ToString)
        DdlCuentasContables.SelectedValueExist(DtImpuestosLocales(0)("IdCuentaImpuestoLocal").ToString)


        ObjImpuestos.Dispose()
    End Sub

    Public Sub Edit_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        DdlTipoImpuesto.SelectedValueExist(GvRow.DataKey("TipoImpuesto"))
        DdlCuentasContables.SelectedValueExist(GvRow.DataKey("IdCuentaImpuestoLocal"))
        TxtImpuesto.Text = GvRow.DataKey("ImpuestoLocal")
        TxtPorcentaje.Text = GvRow.DataKey("Porcentaje")
        TxtOrden.Text = GvRow.DataKey("Orden")
        ChkEstatus.Checked = If(GvRow.DataKey("EstatusBol").ToEntero = 1, True, False)
        BtnAgregarImpuesto.Text = "Actualizar"
        CveImpuestoLocal = GvRow.DataKey("CveImpuestoLocal").ToEntero
        UpAddImpuesto.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "divAddImpuestoLocal"))
    End Sub

#End Region


End Class