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()