From 4acf5fda67cd5d4c55e26c03eeaf698cb6703cbf Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 5 May 2025 14:34:17 -0700
Subject: [PATCH] -

---
 Transportes/RepContratos.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index e62ea28c1..38a8034ba 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -74,7 +74,8 @@ Partial Class ListadoContratos
         Dim ObjContratos As New ClsContratos
 
         If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, CveSubProyecto:=DdlCentroCostos.SelectedValue.ToEntero, CveTipoAF:=DdlTipoUnidad.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero) Then
-            GvContratos.DataSource = ObjContratos.DtResultados
+
+            GvContratos.DataSource = ObjContratos.DtResultados.FiltraParametros($"FechaInicial >= '{txtFechaI.Text.ToDate.ToString("yyyy/MM/dd")}'", "FechaInicial")
             DtDatos = ObjContratos.DtResultados.Copy
 
         End If