diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index e073494dc..d2a7a3d27 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -295,7 +295,7 @@
         <ContentTemplate>
             <br />
             <div style="height:450px;overflow-x:scroll">
-                <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio,CveCuenta" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None">
+                <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio,CveCuenta,CveSubProyecto" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index 3dc18e324..ca76c20ae 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -43,8 +43,8 @@ Partial Class Bancos_DepositosCaja
 
         DdlCajaChica.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
         DdlCajaChica.DataBind()
-        'código temporal, para claudia y toñita, monge, anadelia
-        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033) Then
+        'código temporal, para claudia y toñita, monge, anadelia, alba
+        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
             DdlCajaChica.Items.Add(New ListItem("Todas", "-1"))
         End If
 
@@ -302,6 +302,7 @@ Partial Class Bancos_DepositosCaja
                     Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero
                     Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero
                     Dim CveCuentaBancaria As Integer = Gvr.DataKey("CveCuenta").ToEntero
+                    Dim tCveSubProyecto As Integer = Gvr.DataKey("CveSubProyecto").ToEntero
 
                     FolioIE = ObjBancos.GetNextFolio(CveCuentaBancaria, 2)
                     If Not FolioIE > 0 Then
@@ -311,7 +312,7 @@ Partial Class Bancos_DepositosCaja
                     CveIEDestino = ObjBancos.AddBancos_IE(CveCuentaBancaria, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
 
-                    If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio) Then
+                    If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=tCveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio) Then
                         OcurrioError = True
                         Exit For
                     End If