Option Explicit On
Option Strict On

Imports Extensiones
Imports System.Data

Partial Class Nomina_RepConceptosAcumulados
    Inherits ClsPaginas

#Region "Propiedades"

    Private ReadOnly Property CveConcepto As Integer
        Get
            Return ViewState("CveConcepto").ToString.ToEntero
        End Get
    End Property

    Private ReadOnly Property CveTipoPeriodo As Integer
        Get
            Return ViewState("CveTipoPeriodo").ToString.ToEntero
        End Get
    End Property
#End Region

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            CargaConceptos()
            CargaTiposPeriodos()

            If Request("CveConcepto") IsNot Nothing AndAlso IsNumeric(Request("CveConcepto")) AndAlso Request("CveConcepto").ToEntero > 0 Then
                ViewState("CveConcepto") = Request("CveConcepto")
                DdlConcepto.SelectedValue = CveConcepto.ToString
            Else
                ViewState("CveConcepto") = -1
            End If

            If Request("CveTipoPeriodo") IsNot Nothing AndAlso IsNumeric(Request("CveTipoPeriodo")) AndAlso Request("CveTipoPeriodo").ToEntero > 0 Then
                ViewState("CveTipoPeriodo") = Request("CveTipoPeriodo")
                DdlTipoPeriodo.SelectedValue = CveTipoPeriodo.ToString
            Else
                ViewState("CveTipoPeriodo") = -1
            End If

            CargaDatos()
        End If
    End Sub

    Private Sub CargaConceptos()
        DdlConcepto.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros("", "Concepto")
        DdlConcepto.DataBind()
    End Sub

    Private Sub CargaTiposPeriodos()
        Dim ObjTiposPeriodos As New ClsNominas

        If ObjTiposPeriodos.GetTiposPeriodos() Then
            DdlTipoPeriodo.DataSource = ObjTiposPeriodos.DtResultados

        End If

        ObjTiposPeriodos.Dispose()
        DdlTipoPeriodo.DataBind()
    End Sub

    Private Sub CargaDatos()
        If CveConcepto > 0 And CveTipoPeriodo > 0 Then
            Dim ObjNomina As New ClsNominas()

            If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
                GvDatos.DataSource = ObjNomina.DtResultados
            Else
                GvDatos.DataSource = Nothing
            End If
            ObjNomina.Dispose()
            GvDatos.DataBind()

            UPDatos.Update()
        End If
    End Sub

    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim Css As String = "Texto"
            If e.Row.RowIndex = 0 Then
                'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
                'e.Row.Cells(0).Width = Unit.Pixel(200)
                'e.Row.Cells(1).Width = Unit.Pixel(100)
                'e.Row.Cells(2).Width = Unit.Pixel(100)
                'e.Row.Cells(3).Width = Unit.Pixel(100)
                e.Row.CssClass = "Totales"
                Css = "Totales"
            End If
        End If
    End Sub

    Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
        GvDatos.ExportToExcel("ReporteConceptosAcumulados" & Now.ToShortDateString)
    End Sub

    Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPeriodo.SelectedIndexChanged
        ViewState("CveTipoPeriodo") = DdlTipoPeriodo.SelectedValue

        'Saca el periodo activo
        CargaPeriodos(DDlEjercicio.SelectedValue.ToEntero, DdlTipoPeriodo.SelectedValue.ToEntero)
        CargaDatos()
    End Sub

    Private Sub CargaPeriodos(Ejercicio As Integer, CveTipoPeriodo As Integer)
        Dim ObjTiposPeriodos As New ClsNominas

        If ObjTiposPeriodos.GetPeriodos(CveTipoPeriodo, UsuarioActual.CveEmpresa, Ejercicio, -1, -1) Then
            DdlPeriodo.DataSource = ObjTiposPeriodos.DtResultados
        End If

        ObjTiposPeriodos.Dispose()
        DdlPeriodo.DataBind()
    End Sub

    Protected Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConcepto.SelectedIndexChanged
        ViewState("CveConcepto") = DdlConcepto.SelectedValue

        Dim Concepto As DataRow = GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros("CveConcepto = " & CveConcepto)(0)
        LblCodigo.Text = Concepto("Codigo").ToString
        LblFormula.Text = Concepto("Formula").ToString
        LblTipo.Text = Concepto("TipoD").ToString

        CargaDatos()
    End Sub

    Private Sub DdlPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPeriodo.SelectedIndexChanged
        CargaDatos()
    End Sub
End Class