From d3cf589cbe8939c236ad1c7adf801775d6a31055 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 1 Feb 2023 00:19:32 -0700
Subject: [PATCH] - cvesubproyecto en concepto de bancos

---
 Bancos/DepositosCaja.aspx.vb | 10 ++++++++++
 1 file changed, 10 insertions(+)

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