-- cambios visuales por acomodo de filtros

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