correcciones en algunas páginas e implementación del metodo de subproyecto y proyecto

AF/PopUpBuscarAF.aspx.vb

@@ -126,7 +126,11 @@ Partial Class AF_PopUpBuscarAF
             CargaEstatusActivoFijo()
             CargaMarcaActivoFijo()
             'CargaModeloActivoFijo()
-            CargaProyecto()
+            CargarCentrosDeCosto(DdlProyecto, Nothing, LblProyecto, LblSubProyectos)
+            If Not LblProyecto.Visible Then
+                tdProyecto.Attributes.Add("style", "display:none")
+                tdDdlProyecto.Attributes.Add("style", "display:none")
+            End If
             CargaSubProyecto()
             CargaSubTipoActivoFijo()
             CargaCliente()
@@ -236,10 +240,6 @@ Partial Class AF_PopUpBuscarAF
 
         DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
     End Sub
-    Private Sub CargaProyecto()
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-    End Sub
     Private Sub CargaEstatusActivoFijo()
         DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
         DdlEstadoActivoFijo.DataBind()