From bd6248a5a4d0b76a623350b2ebfd83f4297c855b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 9 Feb 2024 16:35:06 -0700
Subject: [PATCH] =?UTF-8?q?-=20obtenci=C3=B3n=20de=20folio=20de=20contrato?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Transportes/RepContratos.aspx.vb | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index 815b3084e..7f3626dd3 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -1,5 +1,6 @@
 Option Explicit On
 Option Strict On
+Imports System.Data
 Imports System.Data.SqlClient
 Imports Extensiones
 Imports Extensiones.ModExtensiones
@@ -41,11 +42,12 @@ Partial Class ListadoContratos
             DdlEstatusConsulta.Items.Insert(0, New ListItem("-", ""))
         End If
 
-
+        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "EsMatriz = 1").ToEntero
         Dim ObjFolio As New ClsGralFolios
-        If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=10) Then
-            If ObjFolio.DtResultados.FiltraParametros($"CveSubProyecto = 10").Rows.Count > 0 Then
-                LbFolio.Text = $"{GlobalDTSubProyectos(-1, 10).FiltroPrimeroValor("Serie")}-{ObjFolio.DtResultados.FiltroPrimeroValor("FActual", $"CveSubProyecto = {10}")}"
+        If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then
+            If ObjFolio.DtResultados.Rows.Count > 0 Then
+                Dim drr As DataRow = ObjFolio.DtResultados.FiltroPrimero("")
+                LbFolio.Text = drr("FActual").ToString
             End If
         End If
         UpTitulos.Update()