RH/Asistencias.aspx.vb

@@ -1,4 +1,6 @@
-Imports Extensiones
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 
 Partial Class RH_Asistencias
     Inherits ClsPaginas
@@ -8,6 +10,7 @@ Partial Class RH_Asistencias
         If Not IsPostBack Then
             'CargaClientes()
             DdlCliente.Attributes.Add("onclick", "CargaClientes();")
+            CargaSuperioresOrganigrama()
             CargaProyecto()
             CargaTurnos()
             TxtFechaAsistencia.Text = Now.ToShortDateString
@@ -20,6 +23,23 @@ Partial Class RH_Asistencias
 
 #Region "CargaCombos"
 
+#Region "  ORGANIGRAMA  "
+    Private Sub CargaSuperioresOrganigrama()
+        Dim ObjRH As New ClsRH
+
+        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+            DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
+        Else
+            DdlSupervisorOrganigrama.DataSource = Nothing
+            Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
+        End If
+        ObjRH.Dispose()
+
+        If DdlSupervisorOrganigrama.DataSource IsNot Nothing Then
+            DdlSupervisorOrganigrama.DataBind()
+        End If
+    End Sub
+#End Region
     Private Sub CargaClientes()
         Dim ObjClientes As New ClsClientes
         If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
@@ -39,8 +59,16 @@ Partial Class RH_Asistencias
     End Sub
 
     Private Sub CargaProyecto()
-        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"})
-        DdlProyecto.DataBind()
+        'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"})
+        'DdlProyecto.DataBind()
+
+        CargarCentrosDeCosto(DdlProyecto, DdlProyecto, LblProyectoAsignado, LblSubProyectoAsignado)
+        DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
+
+
+        DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub CargaSubProyecto()
@@ -65,10 +93,20 @@ Partial Class RH_Asistencias
         If TxtFechaAsistencia.Text.Trim.ToDate.Year.Contiene(Now.Year - 1, Now.Year, Now.Year + 1) Then
             Dim objpersonal As New ClsRH
             If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, TxtFechaAsistencia.Text.Trim.ToDate, TxtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
-                GV.DataSource = objpersonal.DtResultados
+                Dim dt As DataTable = objpersonal.DtResultados
+                If DdlSupervisorOrganigrama.SelectedValue.ToEntero() > 0 Then
+                    dt = dt.FiltraParametros(String.Format("CvePersonalPadre = {0}", DdlSupervisorOrganigrama.SelectedValue.ToEntero()))
+                ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then
+                    dt = dt.FiltraParametros("CvePersonalPadre IS NULL")
+
+                Else
+
+                End If
+                GV.DataSource = dt
             Else
                 GV.DataSource = Nothing
             End If
+
             objpersonal.Dispose()
             GV.DataBind()
             BtnGuardar.Visible = (GV.Rows.Count > 0)
@@ -78,6 +116,42 @@ Partial Class RH_Asistencias
         End If
     End Sub
 
+    Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs)
+        Dim Fecha As String = TxtFechaAsistencia.Text
+
+
+        Dim tablaReporte As New DataTable
+
+        Dim objpersonal As New ClsRH
+        If objpersonal.GetAsistencias(-1, DdlCliente.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, 1, TxtFechaAsistencia.Text.Trim.ToDate, TxtFechaAsistencia.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
+            tablaReporte = objpersonal.DtResultados
+            If DdlSupervisorOrganigrama.SelectedValue.ToEntero() > 0 Then
+                tablaReporte = tablaReporte.FiltraParametros(String.Format("CvePersonalPadre = {0}", DdlSupervisorOrganigrama.SelectedValue.ToEntero()))
+            ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then
+                tablaReporte = tablaReporte.FiltraParametros("CvePersonalPadre IS NULL")
+
+            Else
+
+            End If
+        Else
+        End If
+
+        objpersonal.Dispose()
+
+
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("Fecha", Fecha))
+
+        Dim lrds As New List(Of ReportDataSource)
+        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
+        lrds.Add(rds)
+        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+        Dim rutardlc = "GPS/Asistencia.rdlc"
+        ImprimirPDF(rutardlc, lrds, params, "Lista de asistencia")
+    End Sub
+
     Protected Sub GV_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GV.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.RowIndex = 0 Then
@@ -197,4 +271,5 @@ Partial Class RH_Asistencias
         DdlPeriodo.DataBind()
         DdlPeriodo.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
+
 End Class