From 5c3c57288f5617854e31292cf2a3dc847b225edb Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 11 May 2023 13:39:51 -0700 Subject: [PATCH] - --- RH/Asistencias.aspx | 4 ++-- RH/Asistencias.aspx.vb | 15 ++------------- 2 files changed, 4 insertions(+), 15 deletions(-) diff --git a/RH/Asistencias.aspx b/RH/Asistencias.aspx index 114706a68..c22c41f78 100644 --- a/RH/Asistencias.aspx +++ b/RH/Asistencias.aspx @@ -41,13 +41,13 @@ Proyecto:
- +
SubProyecto:
- +
diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index e6ccc247a..decb15779 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -29,15 +29,7 @@ Partial Class RH_Asistencias #Region " ORGANIGRAMA " Private Sub CargaSuperioresOrganigrama() - 'Dim ObjRH As New ClsRH - 'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then - ' DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados - 'Else - ' DdlSupervisorOrganigrama.DataSource = Nothing - ' Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos") - 'End If - 'ObjRH.Dispose() Using objbase As New ClsRH() If (objbase.SupervisorOrganigramaGet(UsuarioActual.CveEmpresa)) Then DdlSupervisorOrganigrama.DataSource = objbase.DtResultados @@ -45,21 +37,18 @@ Partial Class RH_Asistencias End If End Using - End Sub #End Region - - Private Sub CargaProyecto() - CargarCentrosDeCosto(DdlProyecto, DdlProyecto, LblProyectoAsignado, LblSubProyectoAsignado, divProyecto:=DivProyectosAsignado1) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoAsignado, LblSubProyectoAsignado, divProyecto:=DivProyectosAsignado1) End Sub Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) End Sub