From 8d86768cad043832b687158ae61b259407298643 Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Wed, 7 Feb 2024 23:47:17 -0700 Subject: [PATCH] =?UTF-8?q?--Se=20redujo=20el=20c=C3=B3digo=20en=20la=20ba?= =?UTF-8?q?rra=20de=20consultas=20y=20se=20eliminaron=20todos=20los=20vali?= =?UTF-8?q?dadores,=20se=20intercambi=C3=B3=20el=20c=C3=B3digo=20fijo=20de?= =?UTF-8?q?=20Ddlestatusconsulta=20por=20los=20reales=20de=20la=20base=20d?= =?UTF-8?q?e=20datos,=20se=20agreg=C3=B3=20la=20columna=20de=20estatus=20y?= =?UTF-8?q?=20el=20color=20pertinente=20y=20se=20elimin=C3=B3=20la=20colum?= =?UTF-8?q?na=20de=20acciones=20editar=20y=20eliminar.=20Se=20agregaron=20?= =?UTF-8?q?FI=20y=20FF=20iniciales=20para=20la=20consulta=20y=20se=20elimi?= =?UTF-8?q?naron=20los=20m=C3=A9todos=20de=20editar=20y=20eliminar.=20=20E?= =?UTF-8?q?n=20RepContratosCalendario=20se=20agregaron=20los=20DdlEstatusC?= =?UTF-8?q?ontratos=20.=20Se=20cargaron=20los=20datos=20de=20estatus=20en?= =?UTF-8?q?=20ddls=20y=20se=20simplific=C3=B3=20el=20OnRowDataBound=20ya?= =?UTF-8?q?=20que=20se=20sacan=20los=20colores=20del=20mismo=20PA.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/RepContratos.aspx | 111 ++++++--------------- Transportes/RepContratos.aspx.vb | 48 ++------- Transportes/RepContratosCalendario.aspx | 24 ++--- Transportes/RepContratosCalendario.aspx.vb | 33 +++--- 4 files changed, 66 insertions(+), 150 deletions(-) diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index 5c7abfa40..339d007a1 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -75,44 +75,20 @@
-
-
-
- - - - -
- - - -
-
+ + +
- -
-
- - - - -
- - - -
+ + + +
@@ -129,17 +105,7 @@ - - - - - - -
@@ -154,14 +120,14 @@ + data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF, Importe, ImporteMin, ImporteMax,CveChofer, Observaciones, CveContratosEstatus, CveAF"> - + Fecha
@@ -177,19 +143,19 @@ + + - - Fecha
@@ -202,19 +168,9 @@ - - - - - - - - + + @@ -306,14 +262,15 @@
- - - - + + + +
@@ -357,7 +314,8 @@
- + @@ -383,17 +341,6 @@
- -
- Estatus: -
- - - -
-
diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index a74708db4..3f08f8f72 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -16,6 +16,9 @@ Partial Class ListadoContratos End Set End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("yyyy-MM-dd").Replace(" ", "T") + txtFechaF.Text = DateTime.Now.AddDays(7).ToString("yyyy-MM-dd").Replace(" ", "T") + If Not IsPostBack Then ViewState("CveContrato") = 0 InicializaCombos() @@ -23,15 +26,14 @@ Partial Class ListadoContratos End If End Sub Private Sub InicializaCombos() + 'Lista Tipo AF DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTipoAF.DataBind() - DdlTipoAF.Items.Insert(0, New ListItem("Seleccione", "")) - + DdlTipoAF.Items.Insert(0, New ListItem("-", "")) 'Lista Chofer' DdlChofer.DataSource = GlobalDTRHPersonal(185) DdlChofer.DataBind() - DdlChofer.Items.Insert(0, New ListItem("Seleccione", "")) - + DdlChofer.Items.Insert(0, New ListItem("-", "")) UpModal.Update() End Sub Private Sub CargaDatos() @@ -61,13 +63,6 @@ Partial Class ListadoContratos TxtPesos.Text = Math.Round(Pesos.ToDecimal, 2).ToString TxtAnticipo.Text = Math.Round(Anticipo.ToDecimal * 100, 2).ToString BtnGuardar.Text = Boton - Dim EstatusContrato As String - If EstatusContrato <> "" Then - LbEstatus.Visible = True - DdlEstatusContrato.Visible = True - DdlEstatusContrato.SelectedValue = EstatusContrato - End If - 'DdlEstatusContrato.Text = EstatusContrato myModalLabel.InnerHtml = $"{Boton} Contrato" UpModal.Update() RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar")) @@ -85,16 +80,10 @@ Partial Class ListadoContratos Dim ObjContratos As New ClsContratos ObjContratos.IniciaTransacSQL() - Dim CveEstatusInicial As Integer = 10 - Dim CveContratoHijo As Integer = -1 - Dim CveContratoTipo As Integer = 2 - Dim retorno As Boolean = False - CveEstatusInicial = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus=1").ToEntero 'Agregar contrato If BtnGuardar.Text = "Guardar" Then - CveContratoHijo = ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=CveEstatusInicial, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero) - If CveContratoHijo > 0 Then + If ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero) > 0 Then ObjContratos.Commit() Alert("Agregado Correctamente.") End If @@ -102,10 +91,11 @@ Partial Class ListadoContratos 'Actualizar contrato If BtnGuardar.Text = "Editar" Then - retorno = ObjContratos.UpdateContratos(CveContrato, "", TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero) + If ObjContratos.UpdateContratos(CveContrato, "", TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero) Then - ObjContratos.Commit() - Alert("Actualizado Correctamente.") + ObjContratos.Commit() + Alert("Actualizado Correctamente.") + End If End If TxtDescripcion.Text = "" @@ -125,22 +115,6 @@ Partial Class ListadoContratos CargaDatos() End Sub - Protected Sub UpdateContrato(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - ViewState("CveContrato") = GvRow.DataKey("CveContrato") - MostrarModal( - Descripcion:=GvRow.DataKey("DescripcionContrato"), FechaSalida:=GvRow.DataKey("FechaInicial").ToDateTime.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T"), FechaRegreso:=GvRow.DataKey("FechaFinal").ToDateTime.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T"), Observaciones:=GvRow.DataKey("DescripcionContrato"), Ubicacion:=GvRow.DataKey("Ubicacion"), Transporte:=GvRow.DataKey("CveTipoAF"), CveCliente:=GvRow.DataKey("CveCliente").ToEntero, Dolares:=GvRow.DataKey("Importe"), Pesos:=GvRow.DataKey("ImporteMax"), Anticipo:=GvRow.DataKey("ImporteMin"), Boton:="Editar", Chofer:=GvRow.DataKey("CveChofer")) - End Sub - Protected Sub RemoveContrato(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim ObjContratos As New ClsContratos - - If ObjContratos.RemoveContrato(GvRow.DataKey("CveContrato").ToEntero, UsuarioActual.CveEmpresa) Then - Alert("Contrato eliminado correctamente") - CargaDatos() - End If - ObjContratos.Dispose() - End Sub Protected Sub LBExcel_Click(sender As Object, e As EventArgs) Handles LBExcel.Click GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString) diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index c64d5e5c2..8f23dbe22 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -108,7 +108,7 @@
-
@@ -116,7 +116,7 @@
-
@@ -133,19 +133,11 @@
- - - - - - -
@@ -161,7 +153,7 @@ + data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF, Importe, ImporteMin, ImporteMax,CveChofer, Observaciones, CveAF"> @@ -212,7 +204,8 @@ - + + @@ -370,7 +363,8 @@ Estatus:
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index d5480858d..c01c47982 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -11,8 +11,8 @@ 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("yyyy-MM-dd HH:mm:ss").Replace(" ", "T") - txtFechaF.Text = DateTime.Now.AddDays(7).ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T") + txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("yyyy-MM-dd").Replace(" ", "T") + txtFechaF.Text = DateTime.Now.AddDays(7).ToString("yyyy-MM-dd").Replace(" ", "T") If Not IsPostBack Then CargaCombos() @@ -29,10 +29,21 @@ Partial Class RepContratosCalendario Dim ObjContratos As New ClsContratos If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=2) Then GvContratos.DataSource = ObjContratos.DtResultados + GvContratos.DataBind() End If - ObjContratos.Dispose() - GvContratos.DataBind() + If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then + DdlEstatusConsulta.DataSource = ObjContratos.DtResultados + DdlEstatusConsulta.DataBind() + DdlEstatusConsulta.Items.Insert(0, New ListItem("-", "")) + + DdlEstatusContrato.DataSource = ObjContratos.DtResultados + DdlEstatusContrato.DataBind() + DdlEstatusContrato.Items.Insert(0, New ListItem("-", "")) + + End If + + ObjContratos.Dispose() End Sub Private Sub InicializaCalendar() @@ -56,22 +67,12 @@ Partial Class RepContratosCalendario DdlChofer.DataBind() DdlChofer.Items.Insert(0, New ListItem("-", "")) - 'Lista de Estatus - End Sub Private Sub OnRowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvContratos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - Dim estatusContrato As String = DataBinder.Eval(e.Row.DataItem, "EstatusContrato").ToString() - - Select Case estatusContrato - Case "1" - e.Row.BackColor = Drawing.Color.FromArgb(0, 165, 106) - Case "2" - e.Row.BackColor = Drawing.Color.FromArgb(43, 79, 214) - Case "3" - e.Row.BackColor = Drawing.Color.FromArgb(238, 96, 46) - End Select + Dim BackgroundColor As String = DataBinder.Eval(e.Row.DataItem, "BackgroundColor").ToString() + e.Row.BackColor = Drawing.ColorTranslator.FromHtml(BackgroundColor) End If End Sub Protected Sub MostrarModal(sender As Object, e As System.EventArgs)