From 838a88f2d129819d512f01b3f40b4b559bf3aa11 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 7 May 2024 10:26:18 -0700 Subject: [PATCH] Calendario de Viajes AF Codigo Descripcion, orden cronograma por sub tipo activo fijo --- Transportes/RepContratosCalendario.aspx | 2 +- Transportes/RepContratosCalendario.aspx.vb | 2 +- UserControl/AddMedico.ascx | 10 +++--- UserControl/AddMedico.ascx.vb | 37 +++++++++++++++++----- Ventas/ActualizarPrecios.aspx | 8 +++-- Ventas/ActualizarPrecios.aspx.vb | 17 ++++++++++ 6 files changed, 58 insertions(+), 18 deletions(-) diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 3d5d77992..9645e1181 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -389,7 +389,7 @@
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 7a41ac7e3..d6923c233 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -62,7 +62,7 @@ Partial Class RepContratosCalendario Private Sub CargaCronograma() If DtAvance IsNot Nothing Then - Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", "Codigo", {"Codigo"}) + Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", " SubTipoActivoFijo DESC ", {"Codigo"}) 'For Each Row As DataRow In DtAvance.Rows ' If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx index f37366070..0ae546ed8 100644 --- a/UserControl/AddMedico.ascx +++ b/UserControl/AddMedico.ascx @@ -59,14 +59,14 @@
- - + +
-
- - +
+ +
diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb index 83774eb0c..f2e4d1edf 100644 --- a/UserControl/AddMedico.ascx.vb +++ b/UserControl/AddMedico.ascx.vb @@ -80,6 +80,7 @@ Partial Class UserControl_AddMedico Private Sub LlenarMeses() + DdlMesNacimiento.Items.Clear() DdlMesNacimiento.Items.Add(New ListItem("-", "-1")) DdlMesNacimiento.Items.Add(New ListItem("Enero", "1")) @@ -95,19 +96,37 @@ Partial Class UserControl_AddMedico DdlMesNacimiento.Items.Add(New ListItem("Nomviembre", "11")) DdlMesNacimiento.Items.Add(New ListItem("Diciembre", "12")) + DdlDiaNacimiento.Items.Add(New ListItem("-", "-1")) + For dia As Integer = 1 To 31 + DdlDiaNacimiento.Items.Add(New ListItem(dia.ToString(), dia.ToString())) + Next + End Sub Protected Sub DdlMesNacimiento_SelectedIndexChanged(sender As Object, e As EventArgs) - DdlDiaNacimiento.Items.Clear() - If DdlMesNacimiento.SelectedValue <> "" Then + ValidaFechaNacimiento() + End Sub + + Protected Sub DdlDiaNacimiento_SelectedIndexChanged(sender As Object, e As EventArgs) + ValidaFechaNacimiento() + End Sub + + Private Sub ValidaFechaNacimiento() + + + + If DdlDiaNacimiento.SelectedValue.ToEntero > 0 AndAlso DdlMesNacimiento.SelectedValue.ToEntero > 0 Then + Dim mes As Integer = Integer.Parse(DdlMesNacimiento.SelectedValue) - Dim año As Integer = DateTime.Now.Year ' Asume año actual para calcular los días - Dim diasEnMes As Integer = System.DateTime.DaysInMonth(año, mes) + Dim diasEnMes As Integer = System.DateTime.DaysInMonth(2000, mes) + + If DdlDiaNacimiento.SelectedValue.ToEntero > diasEnMes Then + DdlDiaNacimiento.SelectedValueExist(diasEnMes) + End If - DdlDiaNacimiento.Items.Add(New ListItem("-", "-1")) - For dia As Integer = 1 To diasEnMes - DdlDiaNacimiento.Items.Add(New ListItem(dia.ToString(), dia.ToString())) - Next End If + + UpModal.Update() + End Sub Sub CargaVendedores() @@ -648,4 +667,6 @@ Partial Class UserControl_AddMedico + + End Class diff --git a/Ventas/ActualizarPrecios.aspx b/Ventas/ActualizarPrecios.aspx index 677820c14..dd6743fa4 100644 --- a/Ventas/ActualizarPrecios.aspx +++ b/Ventas/ActualizarPrecios.aspx @@ -52,16 +52,18 @@
  • Importar Listado
    • -
  • + - +
  • + Exportar Excel +
    • - + diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index fc6c81ae6..aa0f0018d 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -108,8 +108,16 @@ Partial Class Ventas_ActualizarPrecios If UsuarioActual.CveEmpresa.Contiene(189, 190, 192, 193) Then LblModalidad.Visible = True DivModalidad.Visible = True + End If + + If UsuarioActual.TienePermisoProceso(282) Then + PermisoEdicionLista = False + DivActualizarPrecio.Visible = False + HlAgregarExcel.Visible = False End If + CargaCombos() + End If End Sub Public Sub CargaCombos() @@ -256,7 +264,13 @@ Partial Class Ventas_ActualizarPrecios dvDatos.Visible = True dvMultiple.Visible = False + DivActualizarPrecio.Visible = True + + If UsuarioActual.TienePermisoProceso(282) Then + DivActualizarPrecio.Visible = False + End If + GVPrecios.DataBind() End If @@ -1010,6 +1024,9 @@ Partial Class Ventas_ActualizarPrecios dvDatos.Visible = DdlModalidad.SelectedValue = "1" DivActualizarPrecio.Visible = DdlModalidad.SelectedValue = "1" + If UsuarioActual.TienePermisoProceso(282) Then + DivActualizarPrecio.Visible = False + End If dvMultiple.Visible = DdlModalidad.SelectedValue = "2" UPPrecioLista.Update()