RH/Asistencias.aspx.vb

@@ -138,10 +138,24 @@ Partial Class RH_Asistencias
 
         objpersonal.Dispose()
 
-
+        Dim Filtros As String = ""
+        If Not IsNothing(DdlCliente.SelectedValue) AndAlso DdlCliente.SelectedValue.ToEntero() > 0 Then
+            Filtros = String.Format("{0}{2}Cliente :{1}", Filtros, DdlCliente.SelectedText, vbNewLine)
+        End If
+        If DdlSubProyecto.SelectedValue.ToEntero() > 0 Then
+            Filtros = String.Format("{0}{2}{3} :{1}", Filtros, DdlSubProyecto.SelectedItem.Text, vbNewLine, LblSubProyectoAsignado.Text)
+        End If
+        If DdlTurno.SelectedValue.ToEntero() > 0 Then
+            Filtros = String.Format("{0}{2}Turno :{1}", Filtros, DdlTurno.SelectedItem.Text, vbNewLine)
+        End If
+        If DdlSupervisorOrganigrama.SelectedValue.ToEntero() > 0 Then
+            Filtros = String.Format("{0}{2}Supervisor :{1}", Filtros, DdlSupervisorOrganigrama.SelectedItem.Text, vbNewLine)
+        End If
 
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("Fecha", Fecha))
+        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy HH:mm")))
+        params.Add(New ReportParameter("Filtros", Filtros))
 
         Dim lrds As New List(Of ReportDataSource)
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}