Commit inicial Ventas Productivo

RH/RepCursos.aspx.vb

@@ -0,0 +1,89 @@
+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("Seleccione un departamento", "-1"))
+
+        DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
+        DdlSupervisor.DataBind()
+        DdlSupervisor.Items.Insert(0, New ListItem("Seleccione un Supervisor", "-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("Seleccione un Curso", "-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.ExportToExcel("Reporte_Capacitacion")
+    End Sub
+End Class