diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index 23ea4ccb0..dcf0b8e45 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -60,12 +60,12 @@ Partial Class ListadoContratos
     Private Sub CargaDatos()
         Dim ObjContratos As New ClsContratos
 
-        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=34) Then
+        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.DataBind()
+
         End If
         ObjContratos.Dispose()
-
+        GvContratos.DataBind()
 
         UpTitulos.Update()
     End Sub
@@ -262,16 +262,7 @@ Partial Class ListadoContratos
         ObjContratos.Dispose()
     End Sub
     Protected Sub Consultar(sender As Object, e As EventArgs)
-        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
-
-        End If
-        ObjContratos.Dispose()
-        GvContratos.DataBind()
-
-        UpTitulos.Update()
     End Sub
     Protected Sub Personalizar(sender As Object, e As EventArgs)
         GvContratos.Columns(6).Visible = ChkChofer.Checked