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