diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index 64d99615b..d0e466fec 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -3,7 +3,7 @@ CodeFile="RepContratos.aspx.vb" Inherits="ListadoContratos" %> - + Listado de Contratos @@ -30,10 +30,31 @@ .boton { background: red; } + + .consulta { + padding: 1rem 2rem; + background-color: #2C3E50; + display: flex; + justify-content: space-around; + align-items: center; + margin-bottom:1rem; + } + + .consulta_campo { + display: flex; + gap: 1rem; + align-items: center; + width:100%; + } + + .consulta_campo label { + color: white; + font-weight: bold; + } - +
  • @@ -49,15 +70,117 @@ - + -
    + <%--
    " style="display: inline-block; margin-right: -10px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    +
    --%> + + + +
    +
    + + +
    + +
    + +
    + + + + + + + + + +
    +
    + +
    + +
    +
    +
    + + + + +
    + + + + + + + + + +
    +
    +
    + +
    + +
    +
    + + + + +
    + + + + + + + + + +
    +
    + + +
    +
    +
    @@ -156,6 +279,7 @@ UsaWebService="true"> +
    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