-

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