diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index ea702834e..e00303889 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -1,5 +1,6 @@
Option Explicit On
Option Strict On
+Imports System.Data.SqlClient
Imports Extensiones
Imports Extensiones.ModExtensiones
@@ -146,4 +147,34 @@ Partial Class ListadoContratos
GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
End Sub
+ Protected Sub Consultar(sender As Object, e As EventArgs)
+
+ If DdlClientesConsulta.SelectedValue = "" Then
+ Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ Dim cliente As Integer = DdlClientesConsulta.SelectedValue.ToEntero
+ Dim estatus As Integer = DdlEstatusConsulta.SelectedValue.ToEntero
+ Dim fechaInicial As DateTime = txtFechaI.Text.ToDate
+ Dim fechaFinal As DateTime = txtFechaF.Text.ToDate
+
+ Dim query As String = "SELECT *, ISNULL(Cli.NombreComercial,'') AS NombreComercial FROM Con_Contratos C LEFT JOIN Clientes Cli with(nolock) ON Cli.CveCliente = C.CveCliente WHERE C.CveCliente = @Cliente AND CveContratosEstatus = @Estatus AND FechaInicial BETWEEN @FechaInicial AND @FechaFinal"
+
+ Using connection As New SqlConnection(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
+ Using command As New SqlCommand(query, connection)
+ command.Parameters.AddWithValue("@Cliente", cliente)
+ command.Parameters.AddWithValue("@Estatus", estatus)
+ command.Parameters.AddWithValue("@FechaInicial", fechaInicial)
+ command.Parameters.AddWithValue("@FechaFinal", fechaFinal)
+
+ connection.Open()
+ Dim reader As SqlDataReader = command.ExecuteReader()
+ GvContratos.DataSource = reader
+ GvContratos.DataBind()
+ End Using
+ End Using
+
+ UpTitulos.Update()
+ End Sub
End Class