diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index f651eac3c..78e3472d1 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -267,6 +267,16 @@ Partial Class Bancos_DepositosCaja
             FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
         End If
 
+        If CveSubProyecto <= 0 Then 'sino se seleccionó del combo, busca en el listado el primero
+
+            For Each Gvr As GridViewRow In GvFacturas.Rows
+                If Gvr.FCCheckBox("ChkFactura").Checked Then
+                    CveSubProyecto = Gvr.DataKey("CveSubProyecto").ToEntero
+                    Exit For
+                End If
+            Next
+        End If
+
         If FolioIE <= 0 Then
             OcurrioError = True
         End If