Limpieza masiva Centros de costo

-Se unificó todo el comporatmiento de centros de costo en ClsPaginas
-Se unificó la carga de subproyectos en ClsPaginas

OS/CatEstatusOrdenServicio.aspx

@@ -136,11 +136,11 @@
                             <div class="row">
                                 <label class="col-md-1">Proyecto: </label>
                                 <div class="col-md-2" id="DivProyecto" runat="server">
-                                    <asp:DropDownList ID="CboProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
                                 </div>
-                                <label class="col-md-1" id="LblSubproyecto" runat="server">SubProyecto: </label>
+                                <asp:Label ID="LblSubProyecto" class="col-md-1" runat="server">SubProyecto: </asp:Label>
                                 <div class="col-md-2" id="DivSubProyecto" runat="server">
-                                    <asp:DropDownList ID="CboSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
                                 </div>
                             </div>
                         </div>

OS/CatEstatusOrdenServicio.aspx.vb

@@ -63,19 +63,13 @@ Partial Class OS_CatEstatusOrdenServicio
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            'DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
-            'CargaDatos()
-            'AsociarEstatusUsuarios()
-            'CargarUsuarioConEstatus()
-            'CargarSubProyectos()
-            CargarProyectos()
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
             CargarTodosLosDatos()
             CveEstatuOS = -1
         End If
     End Sub
 
     Private Sub CargarTodosLosDatos()
-        'CargarSubProyectos()
         CargaDatos()
         AsociarEstatusUsuarios()
         CargarUsuarioConEstatus()
@@ -85,18 +79,14 @@ Partial Class OS_CatEstatusOrdenServicio
         DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         Using ObjEstatusOrdenServicios As New ClsOS
             If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then
-
                 DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
                 GvDatos.DataSource = DtEstatusOS
-
                 GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
-
             End If
 
-            If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=CboSubProyecto.SelectedValue.ToEntero) Then
+            If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
                 DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados
             End If
-
         End Using
         GvDatos.DataBind()
         OrdenaDatos()
@@ -252,11 +242,11 @@ Partial Class OS_CatEstatusOrdenServicio
     End Sub
 
     Private Sub GuardarDatosGvUsuariosEstatus(sender As Object, e As EventArgs) Handles BtnGuardarUsuariosEstatus.Click
-        If CboSubProyecto.SelectedValue.ToEntero > 0 Then
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
             Dim objEstatusOC As New ClsOS
             objEstatusOC.IniciaTransacSQL()
             Dim HuboErrores As Boolean = False
-            Dim CveSubProyecto As Integer = CboSubProyecto.SelectedValue.ToEntero
+            Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
 
             For Each Row As GridViewRow In GvUsuariosEstatus.Rows
                 Dim controles As Integer = Row.Controls.Count
@@ -301,26 +291,15 @@ Partial Class OS_CatEstatusOrdenServicio
         Next
     End Sub
 
-    Private Sub CargarProyectos()
-        CboProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
-        CboProyecto.DataBind()
-        CboProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
-    End Sub
-    Private Sub CargaSubProyectos()
-        CboSubProyecto.DataSource = GlobalDTSubProyectos(CboProyecto.SelectedValue.ToEntero)
-        CboSubProyecto.DataBind()
-        CboSubProyecto.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-2"))
-    End Sub
-
-    Private Sub Proyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProyecto.SelectedIndexChanged
-        CargaSubProyectos()
+    Private Sub Proyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
         'CargaDatos()
         EstatusUsuariosGridActualizar()
         CargarTodosLosDatos()
         UpGvUsuariosEstatus.Update()
     End Sub
 
-    Private Sub SubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboSubProyecto.SelectedIndexChanged
+    Private Sub SubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
         EstatusUsuariosGridActualizar()
         CargarTodosLosDatos()
     End Sub