• Web Administrator (Microsoft Office Project Server): Users who have global permission "Manage Windows SharePoint Services".
• Project Managers (Microsoft Office Project Server): Users who have category permission "Save Project to Project Server" on the project.
• Team Members  (Microsoft Office Project Server): Users who are added in project team and assigned to task.
• Readers  (Microsoft Office Project Server):  Users who have category permission "View Project Workspace" on the project OR who are added in project team but not assigned to task.

• New user is created with "Manage Windows SharePoint Services", "Save Project to Project Server", and/or "View Project Workspace" permission.
• A existing user's permissions have changed.  The above three permissions have been changed.
• A resource with those three permissions are activated or de-activated.
• A resource is added to project and project is published.

1. Prepare the new servers.  Install OS with latest service pack, and install .NET framework 1.1
2. Install SQLServer 2000 on database server.  You need to install at least service pack 3, recommended service pack 4.
3. Install STS 2.0 and service pack on project server.  Select "Server Farm" mode to install and configure the STS and default web site after installation. 
4. Install project server 2003 and service pack.

1. Make sure WSS, Project Server of two system on the same version
    a. For project server
        All project server instances should be updated to at least SP2a.  Go to the installed folder of project server, find PDS.dll file.  Here is the version table:

    B. For WSS
        Go to Control Panel – Add and Remove Programs, select the Microsoft Windows SharePoint Service 2.0, and then click: Click here for support.  The versions will be shown in dialog.  Here is the table of WSS 2.0 version

           To find database schema version, you may open the globals table in configure database.  The field SchemaVersion will be the database schema version.

2. Restore Project Server database

3. Change Project Server database

1. Open MSP_WEB_STS_SERVERS table
2. Change WSTS_SERVER_NAME to new project server name.
3. Change WSTS_SERVER_ADMIN_PORT to the port of WSS admin site.
4. Change WSTS_ADMIN_SERVER_NAME to new project server name.

4. Re-assign project user and projectserver user

1. Remove the MSProjectUser and MSProjectServerUser from ProjectServer Database.
2. Go to security – logins
3. Right-click on MSProjectServerUser and select Property
4. In user property dialog, select “Database Access”
5. Check the ProjectServer database and select “MSProjectServerRole” in the database role list
   
6. Select OK to close dialog.
7. Right-click on MSProjectUser and select Property
8. In user property dialog, select “Database Access”
9. Check the ProjectServer database and select “MSProjectRole” in the database role list
10. Select OK to close dialog.

5. Restore WSS Content database

6. Add content database to virtual server

1. Open SharePoint admin site, select Configure Virtual Server Settings.
   
2. Select Default Web Site
   
3. Select Manage Content Databases
   
4. Select WSS_Content_Prod database
   
5. Check Remove content database in Remove Content Database section and click OK.
6. After done, Click “Add a Content Database”
7. Select Specify database server settings
   Enter SQL server name as database server name
   Enter WSS_Content_Prod as database name
   Enter 9000 in Number of sites before a warning event is generated
   Enter 15000 in Maximum number of sites that can be created in this database
   
8. Click OK to add the content database, the WSS will find all sites in that new content database.

However, clients may have different requirement.  For example, let project manager be the web administrator of its own project workspace.  Select/deselect one of the default permission of specific role.  Project Server cannot customize the roles and users.  If we change the role configuration in WSS, then after synchonization, the setting will be restored to default settings.

The customization can be done by modifing the project server ASP file.  The permission of each role is defined in DOCLIB\STSADUTL.ASP, and the function name is StsAdminUtil_DoCustomSOAPToWSSOM.  The mask defines the permission matrix.  You may find the permission matrix in WSS SDK or as follows:

To change the permission or add more roles, you can modify the mask or the whole function.

Also in STSADUTL.ASP file, StsAdminUtil_RoleUsers function defines who should be put in each role.  You may change the function to change the user role.

<*
// ----------------------------------------------------------------------------------------------------
// GetName function for element: 'Data Access Layer Interface'
// ----------------------------------------------------------------------------------------------------
public string IDataAccessLayer_GetName() {

	// Choose whatever name you wish for this object
	return (@"IDataAccessLayer.cs");

}

// ----------------------------------------------------------------------------------------------------
// Creation method for element: 'Data Access Layer Interface'
// ----------------------------------------------------------------------------------------------------
public void IDataAccessLayer() {

	try {

		Source.CurrentTemplate.ExecutionStatusMessage = "Code Generation succeed. ";
		Response.WriteLine("//  File Name: " + IDataAccessLayer_GetName());
		Response.WriteLine("//  Code Generated By: " + DynamicParameters.DeveloperAlias);
		Response.WriteLine("//  Code Generated On: " + System.DateTime.Now.ToShortDateString());
		Response.WriteLine();
		Response.WriteLine("using System;");
		Response.WriteLine("using System.Data;");
		Response.WriteLine();
		Response.WriteLine("namespace " + DynamicParameters.CompanyName + ".Data");
		Response.WriteLine("{");
		Response.WriteLine("\tpublic interface IDataAccessLayer");
		Response.WriteLine("\t{");
		
		Response.WriteLine("\t\tstring ConnectionString {get;}");
		Response.WriteLine("\t\tbool WithTransaction {get;}");
		StoredProcedureCollection Procedures = Source.SelectedStoredProcedures;
		foreach (StoredProcedure SP in Procedures)
		{
			string ReturnType;
			if (SP.ReturnsData == true)
			{
				if (SP.Resultsets.Count > 1)
					ReturnType = "DataSet";
				else
					ReturnType = "DataTable";
			}
			else
			{
				ReturnType = "void";
			}

			ParameterCollection Parameters = SP.Parameters;
			string ParameterString = "";
			foreach (Parameter P in Parameters)
			{
				string Direction = "";
				if (P.Direction == ParameterDirection.Output)
				{
					Direction = "out ";
				}
				else if (P.Direction == ParameterDirection.ReturnValue)
				{
					continue;
				}
				if (ParameterString != "")
				{
					ParameterString += ",";
				}
				string DotNetName = P.Name;

				if (DotNetName.Substring(0,1) == "@")
				{
					DotNetName = DotNetName.Remove(0,1);
				}

				ParameterString += Direction + P.DotNetType.CommonTypeSystemEquivalent + " " + DotNetName;
			}

			Response.WriteLine("\t\t" + ReturnType + " " + SP.Name.Replace(" ", "_") + "(" + ParameterString + ");");
		}

		Response.WriteLine("\t}");
		Response.WriteLine("}");
	}
	catch (System.Exception GlobalException) {

		Source.CurrentTemplate.ExecutionStatusCode = GenerationStatus.Error;
		Source.CurrentTemplate.ExecutionStatusMessage = GlobalException.Message;

		Response.WriteLine();
		Response.WriteLine("*************************");
		Response.WriteLine(" AN EXCEPTION WAS THROWN");
		Response.WriteLine("*************************");
		Response.WriteLine(GlobalException.Message);
		Response.WriteLine();
		Response.WriteLine("****************");
		Response.WriteLine(" FULL EXCEPTION");
		Response.WriteLine("****************");
		Response.WriteLine(GlobalException.ToString());
		if (Source.DesignMode) {
			System.Windows.Forms.MessageBox.Show(GlobalException.ToString(), "An error has occured", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Error);
		}
		else {
			throw;
		}
	}
}

// ----------------------------------------------------------------------------------------------------
// GetName function for element: 'Data Access Layer Basic Implementation'
// ----------------------------------------------------------------------------------------------------
public string DataAccessLayer_GetName() {

	// Choose whatever name you wish for this object
	return (@"DataAccessLayer.cs");

}

// ----------------------------------------------------------------------------------------------------
// Creation method for element: 'Data Access Layer Basic Implementation'
// ----------------------------------------------------------------------------------------------------
public void DataAccessLayer() {

	try {

		Source.CurrentTemplate.ExecutionStatusMessage = "Code Generation succeed. ";
		Response.WriteLine("//  File Name: " + DataAccessLayer_GetName());
		Response.WriteLine("//  Code Generated By: " + DynamicParameters.DeveloperAlias);
		Response.WriteLine("//  Code Generated On: " + System.DateTime.Now.ToShortDateString());
		Response.WriteLine();
		Response.WriteLine("using System;");
		Response.WriteLine("using System.Data;");
		Response.WriteLine("using System.Data.SqlClient;");
		Response.WriteLine("using Microsoft.ApplicationBlocks.Data;");
		Response.WriteLine("using " + DynamicParameters.CompanyName + ".Configure;");
		Response.WriteLine();
		Response.WriteLine("namespace " + DynamicParameters.CompanyName + ".Data");
		Response.WriteLine("{");
		Response.WriteLine("\tpublic class DataAccessLayer : IDataAccessLayer");
		Response.WriteLine("\t{");
		Response.WriteLine("\t\t// connection string of SQL database");
		Response.WriteLine("\t\tprivate string _ConnectionString = \"\";");
		Response.WriteLine("\t\t// transaction option");
		Response.WriteLine("\t\tprivate bool _WithTransaction = false;");
		Response.WriteLine("\t\t// connection");
		Response.WriteLine("\t\tprivate SqlConnection _Connection = null;");
		Response.WriteLine("\t\t// transaction");
		Response.WriteLine("\t\tprivate SqlTransaction _Transaction = null;");
		Response.WriteLine();
		Response.WriteLine("\t\t// get connection string");
		Response.WriteLine("\t\tpublic string ConnectionString");
		Response.WriteLine("\t\t{");
		Response.WriteLine("\t\t\tget {return _ConnectionString;}");
		Response.WriteLine("\t\t}");
		Response.WriteLine();
		Response.WriteLine("\t\t// get or set transaction option");
		Response.WriteLine("\t\tpublic bool WithTransaction");
		Response.WriteLine("\t\t{");
		Response.WriteLine("\t\t\tget {return _WithTransaction;}");
		Response.WriteLine("\t\t}");
		Response.WriteLine();

		Response.WriteLine("\t\t// construction with connection string");
		Response.WriteLine("\t\tpublic DataAccessLayer(string Connection)");
		Response.WriteLine("\t\t{");
		Response.WriteLine("\t\t\t_ConnectionString = Connection;");
		Response.WriteLine("\t\t}");
		Response.WriteLine();
		Response.WriteLine("\t\t// construction with configure");
		Response.WriteLine("\t\tpublic DataAccessLayer(IConfigure Config)");
		Response.WriteLine("\t\t{");
		Response.WriteLine("\t\t\t_ConnectionString = Config.GetConnectionString();");
		Response.WriteLine("\t\t}");
		Response.WriteLine();
		Response.WriteLine("\t\t// construction with connection, caller will manage the connection");
		Response.WriteLine("\t\tpublic DataAccessLayer(SqlConnection Connection)");
		Response.WriteLine("\t\t{");
		Response.WriteLine("\t\t\tif (Connection == null)");
		Response.WriteLine("\t\t\t\tthrow new Exception(\"Connection cannot be null.\");");
		Response.WriteLine("\t\t\t_Connection = Connection;");
		Response.WriteLine("\t\t}");
		Response.WriteLine();
		Response.WriteLine("\t\t// construction with transaction, caller will manage the connection and transaction");
		Response.WriteLine("\t\tpublic DataAccessLayer(SqlTransaction Transaction)");
		Response.WriteLine("\t\t{");
		Response.WriteLine("\t\t\tif (Transaction == null)");
		Response.WriteLine("\t\t\t\tthrow new Exception(\"Transaction cannot be null.\");");
		Response.WriteLine("\t\t\t_Connection = Transaction.Connection;");
		Response.WriteLine("\t\t\t_ConnectionString = _Connection.ConnectionString;");
		Response.WriteLine("\t\t\t_Transaction = Transaction;");
		Response.WriteLine("\t\t\t_WithTransaction = true;");
		Response.WriteLine("\t\t}");
		Response.WriteLine();

		StoredProcedureCollection Procedures = Source.SelectedStoredProcedures;
		foreach (StoredProcedure SP in Procedures)
		{
			string ReturnType;
			if (SP.ReturnsData == true)
			{
				if (SP.Resultsets.Count > 1)
					ReturnType = "DataSet";
				else
					ReturnType = "DataTable";
			}
			else
			{
				ReturnType = "void";
			}

			ParameterCollection Parameters = SP.Parameters;
			string ParameterString = "";
			string SqlDBParameterString = "";
			int TrueParameter = 0;
			foreach (Parameter P in Parameters)
			{
				string Direction = "";
				if (P.Direction == ParameterDirection.Output)
				{
					Direction = "out ";
				}
				else if (P.Direction == ParameterDirection.ReturnValue)
				{
					continue;
				}
				if (ParameterString != "")
				{
					ParameterString += ",";
					SqlDBParameterString += ",";
				}
				string DotNetName = P.Name;

				if (DotNetName.Substring(0,1) == "@")
				{
					DotNetName = DotNetName.Remove(0,1);
				}

				ParameterString += Direction + P.DotNetType.CommonTypeSystemEquivalent + " " + DotNetName;
				SqlDBParameterString += P.Name + " " + P.SqlFullType;
				TrueParameter ++;
			}
			Response.WriteLine("\t\t// Execute stored procedure:");
			Response.WriteLine("\t\t//     " + SP.Name + "(" + SqlDBParameterString + ")");
			Response.WriteLine("\t\tpublic " + ReturnType + " " + SP.Name.Replace(" ", "_") + "(" + ParameterString + ")");
			Response.WriteLine("\t\t{");
			if (SP.ReturnsData == true)
				Response.WriteLine("\t\t\tDataSet ds = null;");
			Response.WriteLine();
			Response.WriteLine("\t\t\ttry");
			Response.WriteLine("\t\t\t{");
			if (TrueParameter > 0)
			{
				Response.WriteLine("\t\t\t\tSqlParameter[] Params = new SqlParameter[" + TrueParameter + "];");
				Response.WriteLine();
				int i = 0;
				foreach (Parameter P in Parameters)
				{
					if (P.Direction == ParameterDirection.ReturnValue)
					{
						continue;
					}
					string DotNetName = P.Name;

					if (DotNetName.Substring(0,1) == "@")
					{
						DotNetName = DotNetName.Remove(0,1);
					}

					Response.WriteLine("\t\t\t\tParams[" + i + "] = new SqlParameter(\"" + P.Name+ "\",  "+ P.DotNetType.FullSqlDbTypeEquivalent + ", " + P.Length+ ");");
					Response.WriteLine("\t\t\t\tParams[" + i + "].Value = " + DotNetName +";");
					if (P.Direction == ParameterDirection.Output)
						Response.WriteLine("\t\t\t\tParams[" + i + "].Direction = ParameterDirection.Output;");
					Response.WriteLine();
					i++;
				}
			}
			string MethodName = "";
			string ReturnDataSet = "";
			if (SP.ReturnsData == true)
			{
				MethodName = "ExecuteDataset";
				ReturnDataSet = "ds = ";
			}
			else
			{
				MethodName = "ExecuteNoQuery";
			}
			string ParamString = "";
			if (TrueParameter > 0)
			{
				ParamString = ", Params";
			}
			Response.WriteLine("\t\t\t\tif (_Transaction != null)");
			Response.WriteLine("\t\t\t\t{");
			Response.WriteLine("\t\t\t\t\t" + ReturnDataSet+ "SqlHelper." + MethodName + "(_Transaction, CommandType.StoredProcedure, \"" + SP.Name + "\"" + ParamString + ");");
			Response.WriteLine("\t\t\t\t}");
			Response.WriteLine("\t\t\t\telse if (_Connection != null)");
			Response.WriteLine("\t\t\t\t{");
			Response.WriteLine("\t\t\t\t\t" + ReturnDataSet+ "SqlHelper." + MethodName + "(_Connection, CommandType.StoredProcedure, \"" + SP.Name + "\"" + ParamString + ");");
			Response.WriteLine("\t\t\t\t}");
			Response.WriteLine("\t\t\t\telse");
			Response.WriteLine("\t\t\t\t{");
			Response.WriteLine("\t\t\t\t\t" + ReturnDataSet+ "SqlHelper." + MethodName + "(_ConnectionString, CommandType.StoredProcedure, \"" + SP.Name + "\"" + ParamString + ");");
			Response.WriteLine("\t\t\t\t}");
			if (SP.ReturnsData == true)
			{
				if (SP.Resultsets.Count > 1)
					Response.WriteLine("\t\t\t\treturn ds;");
				else
					Response.WriteLine("\t\t\t\treturn ds.Tables[0];");
			}
			else
				Response.WriteLine("\t\t\t\treturn;");
			Response.WriteLine("\t\t\t}");
			Response.WriteLine("\t\t\tcatch(Exception ex)");
			Response.WriteLine("\t\t\t{");
			Response.WriteLine("\t\t\t\tthrow new Exception(\"Cannot execute the stored procedure.\", ex);");
			Response.WriteLine("\t\t\t}");
			Response.WriteLine("\t\t}");
			Response.WriteLine();
		}

		Response.WriteLine("\t}");
		Response.WriteLine("}");

	}
	catch (System.Exception GlobalException) {

		Source.CurrentTemplate.ExecutionStatusCode = GenerationStatus.Error;
		Source.CurrentTemplate.ExecutionStatusMessage = GlobalException.Message;

		Response.WriteLine();
		Response.WriteLine("*************************");
		Response.WriteLine(" AN EXCEPTION WAS THROWN");
		Response.WriteLine("*************************");
		Response.WriteLine(GlobalException.Message);
		Response.WriteLine();
		Response.WriteLine("****************");
		Response.WriteLine(" FULL EXCEPTION");
		Response.WriteLine("****************");
		Response.WriteLine(GlobalException.ToString());
		if (Source.DesignMode) {
			System.Windows.Forms.MessageBox.Show(GlobalException.ToString(), "An error has occured", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Error);
		}
		else {
			throw;
		}
	}
}

// ----------------------------------------------------------------------------------------------------
// GetName function for element: 'Configuration Interface'
// ----------------------------------------------------------------------------------------------------
public string IConfigure_GetName() {

	// Choose whatever name you wish for this object
	return (@"IConfigure.cs");

}

// ----------------------------------------------------------------------------------------------------
// Creation method for element: 'Configuration Interface'
// ----------------------------------------------------------------------------------------------------
public void IConfigure() {

	try {

		Source.CurrentTemplate.ExecutionStatusMessage = "Code Generated Succeed.";
		Response.WriteLine("//  File Name: " + IConfigure_GetName());
		Response.WriteLine("//  Code Generated By: " + DynamicParameters.DeveloperAlias);
		Response.WriteLine("//  Code Generated On: " + System.DateTime.Now.ToShortDateString());
		Response.WriteLine();
		Response.WriteLine("using System;");
		Response.WriteLine();
		Response.WriteLine("namespace " + DynamicParameters.CompanyName + ".Configure");
		Response.WriteLine("{");
		Response.WriteLine("\tpublic interface IConfigure");
		Response.WriteLine("\t{");
		Response.WriteLine("\t\tstring GetConnectionString();");
		Response.WriteLine("\t}");
		Response.WriteLine("}");

	}
	catch (System.Exception GlobalException) {

		Source.CurrentTemplate.ExecutionStatusCode = GenerationStatus.Error;
		Source.CurrentTemplate.ExecutionStatusMessage = GlobalException.Message;

		Response.WriteLine();
		Response.WriteLine("*************************");
		Response.WriteLine(" AN EXCEPTION WAS THROWN");
		Response.WriteLine("*************************");
		Response.WriteLine(GlobalException.Message);
		Response.WriteLine();
		Response.WriteLine("****************");
		Response.WriteLine(" FULL EXCEPTION");
		Response.WriteLine("****************");
		Response.WriteLine(GlobalException.ToString());
		if (Source.DesignMode) {
			System.Windows.Forms.MessageBox.Show(GlobalException.ToString(), "An error has occured", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Error);
		}
		else {
			throw;
		}
	}
}
*>

' Modify the time dimension to insert week of month.
Public Function ModifyTimeDimension(dsoDatabase As DSO.MDStore)
    Dim dsoDimension As DSO.Dimension
    Dim dsoLevelAll As DSO.DbLevel
    Dim dsoLevel As DSO.Level
    Dim strDimensionName As String
    Dim strDimensionTableName As String
    Dim dsoCube As DSO.MDStore
    Dim DicCubes As Dictionary
    Dim fSuccess As Boolean
    Dim jcJoin As JoinClauseManager
    Dim Condition As JoinClause
    Dim nPos  As Integer
   
    fSuccess = False
   
    On Error GoTo LblErrorHandler
   
    strDimensionName = "Time"
    strDimensionTableName = "MSP_CUBE_TIME_BY_DAY"
   
    Set DicCubes = New Dictionary
    Set jcJoin = New JoinClauseManager
   
    If dsoDatabase.Dimensions.Find(strDimensionName) Then
        For nPos = 1 To dsoDatabase.MDStores.Count
            Set dsoCube = dsoDatabase.MDStores(nPos)
            If dsoCube.Dimensions.Find(strDimensionName) And dsoCube.SubClassType = sbclsRegular Then
                Call DicCubes.Add(dsoCube.Name, dsoCube.Name)
                dsoCube.Dimensions.Remove (strDimensionName)
               
                Call jcJoin.LoadJoinClause(dsoCube.JoinClause)
                Call jcJoin.RemoveJoinCondition(TrimQuate(dsoCube.SourceTable), "TIME_ID", strDimensionTableName, "TIME_ID")
                Call jcJoin.RemoveJoinCondition(TrimQuate(dsoCube.SourceTable), "TIME_DATE", strDimensionTableName, "TIME_DATE")
                dsoCube.JoinClause = jcJoin.GetJoinClause
                dsoCube.Update
                dsoCube.Process processFull
           End If
        Next nPos
       
        For nPos = 1 To dsoDatabase.MDStores.Count
            Set dsoCube = dsoDatabase.MDStores(nPos)
            If dsoCube.Dimensions.Find(strDimensionName) And dsoCube.SubClassType = sbclsVirtual Then
                Call DicCubes.Add(dsoCube.Name, dsoCube.Name)
                dsoCube.Dimensions.Remove (strDimensionName)
               
                dsoCube.Update
                dsoCube.Process processFull
           End If
        Next nPos
        dsoDatabase.Dimensions.Remove (strDimensionName)
    End If
   
    Set dsoDimension = dsoDatabase.Dimensions.AddNew(strDimensionName, sbclsRegular)
    
    Set dsoDimension.DataSource = dsoDatabase.DataSources(1)
    dsoDimension.FromClause = """" & strDimensionTableName & """"
   
    Set dsoLevelAll = dsoDimension.Parent.Parent.CreateObject(clsDatabaseLevel)
       
    dsoLevelAll.Name = "All"
    dsoLevelAll.IsAll = True
   
    If dsoDimension.Levels.Count > 0 Then
        Call dsoDimension.Levels.Add(dsoLevelAll, , 1)
    Else
        Call dsoDimension.Levels.Add(dsoLevelAll)
    End If
     
    dsoLevelAll.MemberKeyColumn = "All Years"
    dsoLevelAll.LevelType = levAll
   
    Set dsoLevel = dsoDimension.Levels.AddNew("Year", sbclsRegular)
    dsoLevel.MemberKeyColumn = """" & strDimensionTableName & """.""" & "TIME_YEAR"""
    dsoLevel.MemberNameColumn = """" & strDimensionTableName & """.""" & "TIME_YEAR"""
    dsoLevel.LevelType = levTimeYears
    dsoLevel.columnType = adSmallInt

   
    Set dsoLevel = dsoDimension.Levels.AddNew("Quarter", sbclsRegular)
    dsoLevel.MemberKeyColumn = """" & strDimensionTableName & """.""" & "TIME_QTR"""
    dsoLevel.MemberNameColumn = """" & strDimensionTableName & """.""" & "TIME_QTR"""
    dsoLevel.LevelType = levTimeQuarters
    dsoLevel.columnType = adWChar
   
    Set dsoLevel = dsoDimension.Levels.AddNew("Month", sbclsRegular)
    dsoLevel.MemberKeyColumn = """" & strDimensionTableName & """.""" & "TIME_MONTH_OF_YEAR"""
    dsoLevel.MemberNameColumn = """" & strDimensionTableName & """.""" & "TIME_MONTH"""
    dsoLevel.LevelType = levTimeMonths
    dsoLevel.columnType = adSmallInt
    dsoLevel.Ordering = orderKey

   
    Set dsoLevel = dsoDimension.Levels.AddNew("Week", sbclsRegular)
    dsoLevel.MemberKeyColumn = """" & strDimensionTableName & """.""" & "TIME_WEEK_OF_YEAR"""
    dsoLevel.MemberNameColumn = """" & strDimensionTableName & """.""" & "TIME_WEEK"""
    dsoLevel.LevelType = levTimeWeeks
    dsoLevel.columnType = adSmallInt
    dsoLevel.Ordering = orderKey
   
    Set dsoLevel = dsoDimension.Levels.AddNew("Days", sbclsRegular)
    dsoLevel.MemberKeyColumn = """" & strDimensionTableName & """.""" & "TIME_DAY_OF_WEEK"""
    dsoLevel.MemberNameColumn = """" & strDimensionTableName & """.""" & "TIME_DAY_OF_MONTH"""
    dsoLevel.LevelType = levTimeDays
    dsoLevel.columnType = adSmallInt
    dsoLevel.Ordering = orderKey
   
    'Update and process the dimension.
    dsoDimension.Update
    dsoDimension.Process (processFull)
   
    For Each dsoCube In dsoDatabase.MDStores
        If DicCubes.Exists(dsoCube.Name) And dsoCube.SubClassType = sbclsRegular Then
            dsoCube.Dimensions.AddNew (strDimensionName)
            Call jcJoin.LoadJoinClause(dsoCube.JoinClause)
            Call jcJoin.AddJoinCondition(TrimQuate(dsoCube.SourceTable), "TIME_ID", strDimensionTableName, "TIME_ID")
            Call jcJoin.AddJoinCondition(TrimQuate(dsoCube.SourceTable), "TIME_DATE", strDimensionTableName, "TIME_DATE")
            dsoCube.JoinClause = jcJoin.GetJoinClause
            dsoCube.Update
            dsoCube.Process (processFull)
        End If
    Next dsoCube
   
    For Each dsoCube In dsoDatabase.MDStores
        If DicCubes.Exists(dsoCube.Name) And dsoCube.SubClassType = sbclsVirtual Then
            dsoCube.Dimensions.AddNew (strDimensionName)
            dsoCube.Update
            dsoCube.Process (processFull)
        End If
    Next dsoCube
   
    fSuccess = True
   
LblErrorHandler:
  
   Set dsoDimension = Nothing
   Set dsoLevelAll = Nothing
   Set dsoLevel = Nothing
   Set dsoCube = Nothing
  
   If (Not fSuccess) Then
      Call TraceAndRaise("Error in ModifyTimeDimension.")
   End If
   
End Function