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

AF/AF.aspx.vb

@@ -275,10 +275,6 @@ Partial Class AF_AF
 
             End If
 
-            If UsuarioActual.Empresa.GralSoloProyecto Then
-                RowProyecto.Visible = False
-            End If
-
             If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad Then
                 ActivarRegistroCuentaAF()
             End If
@@ -320,8 +316,8 @@ Partial Class AF_AF
         CargaTipoActivoFijo()
         CargaResponsable()
         CargaEstatusActivoFijo()
-        'CargaProyecto()
-        CargaSubProyecto()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto)
+        RowProyecto.Visible = DdlProyecto.Visible
         CargaCliente()
         CargaGrupos()
         CargaMarcas()
@@ -404,10 +400,10 @@ Partial Class AF_AF
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
     End Sub
-    Private Sub CargaProyecto()
-        DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
-        DdlProyecto.DataBind()
-    End Sub
+    'Private Sub CargaProyecto()
+    '    DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
+    '    DdlProyecto.DataBind()
+    'End Sub
     Private Sub CargaEstatusActivoFijo()
         DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
         DdlEstadoActivoFijo.DataBind()