From 01c74a128ae265e9b6b68f02ef3126deb9cf60be Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 17 Oct 2024 16:22:28 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejora=20en=20obtenci=C3=B3n=20de=20datos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/RepContratos.aspx.vb | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) 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