Imports System.Data
Imports Extensiones

Partial Class RH_RepCursos
    Inherits ClsPaginas

    Private Sub RH_RepCursos_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            Dim fActual As New Date
            TxtFechaI.Text = Now.AddDays(-60).ToString("dd/MM/yyyy")
            TxtFechaF.Text = Now.ToString("dd/MM/yyyy")

            CargaCombos()

            CargaDatos()

        End If
    End Sub

    Private Sub CargaCombos()

        DdlDepartamentos.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        DdlDepartamentos.DataBind()
        DdlDepartamentos.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
        DdlSupervisor.DataBind()
        DdlSupervisor.Items.Insert(0, New ListItem("Todos", "-1"))

        Dim objRH As New ClsRH

        If objRH.CursoGet(-1, -1, -1, -1, -1, -1, UsuarioActual.Empresa.CveEmpresa) Then
            DdlCursos.DataSource = objRH.DtResultados
        Else
            DdlCursos.DataSource = Nothing
        End If

        objRH.Dispose()
        DdlCursos.DataBind()
        DdlCursos.Items.Insert(0, New ListItem("Todos", "-1"))

    End Sub

    Private Sub CargaDatos()

        Dim objRH As New ClsRH

        Dim fInicial As Date
        Dim fFinal As Date

        If TxtFechaF.Text.Length = 10 And TxtFechaF.Text <> "__/__/____" Then
            fFinal = Date.Parse(TxtFechaF.Text)
        Else
            fFinal = MaxFecha
        End If

        If TxtFechaI.Text.Length = 10 And TxtFechaI.Text <> "__/__/____" Then
            fInicial = Date.Parse(TxtFechaI.Text)
        Else
            fInicial = MinFecha
        End If

        Select Case DDLAgrupador.SelectedValue.ToEntero
            Case 1
                Gv.Columns(0).HeaderText = "Tema"
            Case 2
                Gv.Columns(0).HeaderText = "Subtema"
            Case 3
                Gv.Columns(0).HeaderText = "Capacitador"
        End Select

        If objRH.CursosRepGet(fInicial, fFinal, DDLAgrupador.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDepartamentos.SelectedValue.ToEntero, DdlSupervisor.SelectedValue.ToEntero, DdlCursos.SelectedValue.ToEntero) Then
            Gv.DataSource = objRH.DtResultados
        Else
            Gv.DataSource = Nothing
        End If

        objRH.Dispose()
        Gv.DataBind()

    End Sub

    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
        CargaDatos()
    End Sub

    Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
        Gv.ExportToExcelGembox("ReporteCapacitacion", UsuarioActual, "", "", "Report eCapacitación", "", 1)
    End Sub

    Protected Sub Gv_RowDataBound(sender As Object, e As GridViewRowEventArgs)

        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.DataKey("GPO").ToString.Trim.Length = 0 Then
                e.Row.Cells(0).Text = "Totales"
                e.Row.Attributes.Add("style", "background-color:#DDDDDD;")
            End If


        End If

    End Sub

    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
    End Sub

End Class