-

RH/Asistencias.aspx

@@ -41,13 +41,13 @@
                                 </div> 
                                 <asp:Label ID="LblProyectoAsignado" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                                 <div class="col-md-1" id="DivProyectosAsignado1" runat="server">
-                                    <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" Style="display: inline-block;" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                    <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                     </asp:DropDownList>
                                 </div>   
                                <asp:Label ID="LblSubProyectoAsignado" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                                   <div class="col-md-1">
-                                    <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" Style="display: inline-block" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                    <asp:DropDownList ID="DdlSubProyecto" runat="server" Style="display: inline-block" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                         <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                     </asp:DropDownList>
                                 </div>   

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