From 29e6a11c42754ba8858f8e74b8b6841a42d92f39 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 16 Feb 2024 11:21:02 -0700 Subject: [PATCH] -- contratos --- App_Code/ClsContratos.vb | 8 ++- Transportes/RepContratosCalendario.aspx | 45 +++---------- Transportes/RepContratosCalendario.aspx.vb | 75 ++++++---------------- 3 files changed, 38 insertions(+), 90 deletions(-) diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index a4f9b0a36..84fcb8ab7 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -197,13 +197,19 @@ Public Class ClsContratos #End Region #Region " C O N T R A T O S " - Public Function GetContratosReporte(CveEmpresa As Integer, FechaInicial As DateTime, FechaFinal As DateTime) As Boolean + Public Function GetContratosReporte(CveEmpresa As Integer, FechaInicial As DateTime, FechaFinal As DateTime, CveCliente As Integer, Optional CveEstatus As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveTipoAF As Integer = -1, Optional CveChofer As Integer = -1, Optional CveTipoContrato As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosReporteGet") With SqlAdapter.SelectCommand.Parameters .Add("@FechaInicial", SqlDbType.DateTime).Value = FechaInicial .Add("@FechaFinal", SqlDbType.DateTime).Value = FechaFinal + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF + .Add("@CveChofer", SqlDbType.Int).Value = CveChofer + .Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 471b4bdec..e29c96c02 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -85,7 +85,7 @@
- +
@@ -129,13 +129,8 @@
- - <%-- - - --%> -
- - + +
- + - + @@ -356,8 +350,8 @@
+ DataTextField="TipoActivoFijo" Class="form-control input-inline" + Width="100%" runat="server" Enabled="false">
@@ -369,13 +363,7 @@ - - - - +
@@ -385,29 +373,16 @@ - - - - +
-
- - - - +
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 057c83d93..7db256019 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -30,38 +30,30 @@ Partial Class RepContratosCalendario #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T") - txtFechaF.Text = DateTime.Now.AddDays(7).ToString("MM/dd/yyyy").Replace(" ", "T") + txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString + txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString If Not IsPostBack Then CargaCombos() InicializaCalendar() CargaDatos() - End If InicializaCalendar() End Sub Private Sub CargaDatos() Dim ObjContratos As New ClsContratos - GvContratos.HeaderStyle.ForeColor = Drawing.Color.Black + ' GvContratos.HeaderStyle.ForeColor = Drawing.Color.Black + Dim CveCliente As Integer = DdlClientesFiltro.SelectedValue.ToEntero + If CveCliente = 0 Then CveCliente = -1 - If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=34) Then + If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientesFiltro.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then GvContratos.DataSource = ObjContratos.DtResultados GvContratos.DataBind() End If DtAvance = ObjContratos.DtResultados - If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then - - - DdlEstatusContrato.DataSource = ObjContratos.DtResultados - DdlEstatusContrato.DataBind() - DdlEstatusContrato.Items.Insert(0, New ListItem("-", "")) - - End If - ObjContratos.Dispose() End Sub Private Sub InicializaCalendar() @@ -92,7 +84,7 @@ Partial Class RepContratosCalendario DdlChoferFiltro.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") DdlChoferFiltro.DataBind() - DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", "")) + DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", "-1")) DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)") DdlTipoUnidad.DataBind() @@ -102,6 +94,12 @@ Partial Class RepContratosCalendario DdlEstatusConsulta.DataBind() DdlEstatusConsulta.Items.Insert(0, New ListItem("Todos", "-1")) + DdlEstatusContrato.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa) + DdlEstatusContrato.DataBind() + DdlEstatusContrato.Items.Insert(0, New ListItem("-", "")) + + + CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) End Sub @@ -140,54 +138,19 @@ Partial Class RepContratosCalendario TxtDescripcion.Text = GvRow.DataKey("DescripcionContrato") TxtObservaciones.Text = GvRow.DataKey("Observaciones") TxtUbicacion.Text = GvRow.DataKey("Ubicacion") - TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy hh:mm:ss tt") - TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm:ss tt") + TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy hh:mm tt") + TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm tt") 'Requeridos ViewState("Contrato") = GvRow.DataKey("CveContrato") DdlAF.SelectedValue = GvRow.DataKey("CveAF") - DdlChofer.SelectedValue = GvRow.DataKey("CveChofer") - DdlChofer2.SelectedValue = GvRow.DataKey("CveChofer2") + DdlChofer.SelectedValueExist(GvRow.DataKey("CveChofer")) + DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2")) DdlEstatusContrato.SelectedValue = GvRow.DataKey("CveContratosEstatus") UpModal.Update() RegistraScript("$('#ModalActualizar').modal('show');") End Sub - Protected Sub Consultar(sender As Object, e As EventArgs) - Dim fechaInicial As String = txtFechaI.Text - Dim fechaFinal As String = txtFechaF.Text - Dim cliente As String = If(DdlClientes.SelectedValue = "", "", $"C.CveCliente = {DdlClientes.SelectedValue} AND") - Dim estatus As String = "" - Dim nombreEstatus As String = "" - Dim innerEstatus As String = "" - - Dim tipoUnidad As String = "" - Dim nombreTipoUnidad As String = "" - Dim innerTipoUnidad As String = "" - - Dim chofer As String = "" - Dim nombreChofer As String = "" - Dim innerChofer As String = "" - - If (DdlEstatusConsulta.SelectedValue <> "") Then - estatus = $"C.CveContratosEstatus = {DdlEstatusConsulta.SelectedValue} AND" - nombreEstatus = ", CE.ContratoEstatus As ContratoEstatus1" - innerEstatus = " INNER JOIN Con_ContratosEstatus CE with(nolock) ON CE.CveContratoEstatus = C.CveContratosEstatus " - End If - - If (DdlTIpoUnidad.SelectedValue <> "") Then - 'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND" - 'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1" - 'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus " - End If - - If (DdlChofer.SelectedValue <> "") Then - 'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND" - 'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1" - 'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus " - End If - UpTitulos.Update() - End Sub Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString) @@ -214,4 +177,8 @@ Partial Class RepContratosCalendario End If End Sub + + Protected Sub BtnConsultarListado_Click(sender As Object, e As EventArgs) + CargaDatos() + End Sub End Class