110 lines
3.3 KiB
VB.net
110 lines
3.3 KiB
VB.net
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")
|
|
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
|