Limpieza masiva Centros de costo

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

PortalCliente/PortalCliente.aspx.vb

@@ -2623,36 +2623,6 @@ Partial Class Ventas_PortalCliente
         End If
     End Sub
 
-    'Private Sub CargaTipoCentroCosto()
-    '    If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-    '        divProyecto.Visible = False
-    '        LblSubProyecto.InnerText = "Sucursal"
-
-    '        DdlSubProyecto.Items.Clear()
-    '        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-    '        DdlSubProyecto.DataBind()
-    '        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-    '    ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-    '        divProyecto.Visible = False
-    '        LblSubProyecto.InnerText = "Proyecto"
-
-    '        DdlSubProyecto.Items.Clear()
-    '        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-    '        DdlSubProyecto.DataBind()
-    '        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-    '    ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-    '        LblProyecto.InnerText = "Sucursal"
-    '        LblSubProyecto.InnerText = "Proyecto"
-
-    '    ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-    '        LblProyecto.InnerText = "Proyecto"
-    '        LblSubProyecto.InnerText = "Sucursal"
-
-    '    End If
-    'End Sub
-
     Private Sub CreaDTVentas()
         TmpDT = New DataTable
         TmpDT.Columns.Add("CveVenta", GetType(Integer))