RH/Asistencias.aspx

@@ -35,9 +35,10 @@
                         <ul class="list-inline">
                             <li>Cliente:
                                 <asp:Button ID="BtnCargarClientes" runat="server" ClientIDMode="Static" Text="CargarClientes" Style="display: none;" />
-                                <asp:DropDownList ID="DdlCliente" runat="server" AppendDataBoundItems="true" Style="display: inline-block; width: 250px;" DataTextField="Nombre" DataValueField="CveCliente" Class="form-control input-sm select2me">
+                                <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCliente" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%"></ADS:Dropdownlost>
+                                <%--<asp:DropDownList ID="DdlCliente" runat="server" AppendDataBoundItems="true" Style="display: inline-block; width: 250px;" DataTextField="Nombre" DataValueField="CveCliente" Class="form-control input-sm select2me">
                                     <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                </asp:DropDownList>
+                                </asp:DropDownList>--%>
                             </li>
                             <li id="DivProyectosAsignado" runat="server">
                                 <asp:Label runat="server" ID="LblProyectoAsignado" AssociatedControlID="DdlProyectoAsignado">Proyecto:  </asp:Label>

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}

RH/Personal.aspx.vb

@@ -2033,7 +2033,7 @@ Partial Class RH_Personal
 
         If TieneError Then
             ObjPersonal.RollBack()
-            Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+            'Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         Else
             ObjPersonal.Commit()
             Alert(Mensaje, TipoMensaje.MsgInformacion, Accion)