-- filtro usuario, en deposito caja

Bancos/DepositosCaja.aspx

@@ -129,6 +129,12 @@
                                 <asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
                                 </asp:DropDownList>
                             </div>
+                         <label class="col-md-1 truncate">Usuario:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlUsuario" runat="server" AppendDataBoundItems="true" DataTextField="Usuario" DataValueField="CveUsuario" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
 
                     </div>
                 </div>

Bancos/DepositosCaja.aspx.vb

@@ -75,7 +75,11 @@ Partial Class Bancos_DepositosCaja
         DdlClasificacionIntermediario.DataBind()
 
         DdlSubProyectoIntermediario.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
-        DdlSubProyectoIntermediario.DataBind()
+        DdlSubProyectoIntermediario.DataBind()
+
+        'CargaUsuarios
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlUsuario.DataBind()
 
 
     End Sub
@@ -94,7 +98,7 @@ Partial Class Bancos_DepositosCaja
             MSI = DDlMesesSinIntereses.SelectedValue.ToEntero
         End If
 
-        ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, MSI:=MSI)
+        ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, MSI:=MSI, CveUsuario:=DdlUsuario.SelectedValue.ToEntero)
 
         GvFacturas.DataSource = ObjBancos.DtResultados
 
@@ -106,7 +110,7 @@ Partial Class Bancos_DepositosCaja
         ObjBancos.Dispose()
 
 
-            GvFacturas.DataBind()
+        GvFacturas.DataBind()
         ChkFaltante.Checked = False
         ChkDescuento.Checked = False
         ChkIntermediario.Checked = False
@@ -201,7 +205,7 @@ Partial Class Bancos_DepositosCaja
         Dim documentos As String = "Los Depósitos se realizaron exitosamente<br/><br/>"
         Dim imprimirFolios As String = ""
         Dim CveSubProyectoIntermediario As Integer
-        Dim CveClasificacionIntermediario As Integer 
+        Dim CveClasificacionIntermediario As Integer
         Dim CveProveedorIntermediario As Integer = -1
 
         If drOrigen IsNot Nothing Then
@@ -371,18 +375,12 @@ Partial Class Bancos_DepositosCaja
     Protected Sub GvFacturas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvFacturas.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-
-            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoPago.SelectedValue.Contiene("11", "12", "-2") Then
                 e.Row.FCCheckBox("ChkFactura").Checked = True
                 e.Row.FCCheckBox("ChkFactura").Enabled = False
 
-                'Dim checkbox As HtmlControl = DirectCast(e.Row.FindControl("checkbox"), HtmlControl)
-                'checkbox.Attributes.Add("chequed", "cheked")
-
             End If
 
-
-
             e.Row.FCCheckBox("ChkFactura").Attributes.Add("onclick", String.Format("FnSuma(this,{0});", e.Row.DBCampo("Importe")))
             e.Row.FCCheckBox("ChkFactura").InputAttributes.Add("Value", e.Row.DBCampo("Importe"))