diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index d416a98bb..ea7eb8782 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -1758,7 +1758,7 @@ Public Class ClsBancos
 
         Return Retorno
     End Function
-    Public Function CancelarBancos_IE(CveUsuario As Integer, CveIE As Integer, MesAnterior As Boolean, IdPoliza As Integer, FolioPoliza As Integer, Optional FechaCancelacion As Date = MinFecha, Optional TipoMovimiento As Integer = 1, Optional CveTipoTransaccionCancelacion As Integer = -1) As Integer
+    Public Function CancelarBancos_IE(CveUsuario As Integer, CveIE As Integer, MesAnterior As Boolean, IdPoliza As Integer, FolioPoliza As Integer, Optional FechaCancelacion As Date = MinFecha, Optional TipoMovimiento As Integer = 1, Optional CveTipoTransaccionCancelacion As Integer = -1, Optional CveCuentaDevolucion As Integer = -1) As Integer
 
         Dim Retorno As Integer = 0
         DataAdapter("PA_Banc_IECancelar")
@@ -1772,6 +1772,7 @@ Public Class ClsBancos
             .Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion
             .Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento
             .Add("@CveTipoTransaccionCancelacion", SqlDbType.Int).Value = CveTipoTransaccionCancelacion
+            .Add("@CveCuentaDevolucion", SqlDbType.Int).Value = CveCuentaDevolucion
             .Add("@CvePrePoliza", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
@@ -3592,7 +3593,7 @@ Public Class ClsBancos
 #End Region
 
 #Region "PagosCajaChica"
-    Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional MSI As Integer = -1) As Boolean
+    Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional MSI As Integer = -1, Optional CveUsuario As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_BancosCajaChicaPagosGet")
 
@@ -3603,6 +3604,7 @@ Public Class ClsBancos
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@TipoChequeEfectivo", SqlDbType.Int).Value = TipoPago
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@MSI", SqlDbType.Int).Value = MSI
         End With
 
diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index 117e521ea..70b809ca8 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/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>
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index 0064d146f..6f5be6c6d 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/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"))