--Se aplica el filtro para consultas personalizadas

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