From fcee8fcdd602e2ee0b09bd5b44b2390c8e8dbb48 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 11 May 2023 12:39:43 -0700 Subject: [PATCH] -- cambios visuales por acomodo de filtros --- RH/Asistencias.aspx | 110 ++++++++++++++++------------------------- RH/Asistencias.aspx.vb | 32 +++--------- 2 files changed, 48 insertions(+), 94 deletions(-) diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx index 98ae354cd..114706a68 100644 --- a/RH/Asistencias.aspx +++ b/RH/Asistencias.aspx @@ -25,103 +25,77 @@ - -
-
+
+
- "><%--class="expand"--%> - +
-
- Cliente: -
- -
-
- -
- Proyecto: -
+ + Cliente: +
+ +
+ Proyecto: +
-
-
- -
- SubProyecto: - -
+
+ SubProyecto: +
-
-
-
- Turno: -
- - - - -
-
- -
- -
- - - - - -
-
- - -
- F. Asistencia: -
+
+ F. Asistencia: +
- - + -
-
-
- - - +
+ +
+
+ + + + + +
+
-
-
> +
+ +
+
- - - - - - - diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index 613a70fcd..e6ccc247a 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -13,7 +13,11 @@ Partial Class RH_Asistencias CargaSuperioresOrganigrama() CargaProyecto() CargaTurnos() - TxtFechaAsistencia.Text = Now.ToShortDateString + If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then ' emp citricola + divCliente.Visible = False + LblCliente.Visible = False + End If + txtFechaAsistencia.Text = Now.ToShortDateString If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveUsuario = 2343 Then PnlMasivo.Visible = True CargaTiposPeriodo() @@ -44,36 +48,13 @@ Partial Class RH_Asistencias End Sub #End Region - 'Private Sub CargaClientes() - ' Dim ObjClientes As New ClsClientes - ' If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then - ' DdlCliente.DataSource = ObjClientes.DtResultados - ' Else - ' DdlCliente.DataSource = Nothing - ' End If - ' ObjClientes.Dispose() - ' 'Application("GlobalDTResponsable") - ' DdlCliente.DataBind() - 'End Sub - 'Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click - ' 'CargaClientes() - ' 'DdlCliente.Attributes.Remove("onclick") - 'End Sub Private Sub CargaProyecto() - 'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"}) - 'DdlProyecto.DataBind() - CargarCentrosDeCosto(DdlProyecto, DdlProyecto, LblProyectoAsignado, LblSubProyectoAsignado) - DivProyectosAsignado1.Visible = LblProyectoAsignado.Visible - DivProyectosAsignado2.Visible = LblProyectoAsignado.Visible + CargarCentrosDeCosto(DdlProyecto, DdlProyecto, LblProyectoAsignado, LblSubProyectoAsignado, divProyecto:=DivProyectosAsignado1) - - DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) End Sub Private Sub CargaSubProyecto() @@ -103,7 +84,6 @@ Partial Class RH_Asistencias dt = dt.FiltraParametros(String.Format("CvePersonalPadre = {0}", DdlSupervisorOrganigrama.SelectedValue.ToEntero())) ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then dt = dt.FiltraParametros("CvePersonalPadre IS NULL") - Else End If