void Application_NewProject(Microsoft.Office.Interop.MSProject.Project pj)
{
MSProject.Task newTask = pj.Tasks.Add("This text was added by using code", missing);
newTask.Start = DateTime.Now;
newTask.Duration = "3";
newTask.ResourceNames = "Rob Caron, Kelly Krout";
}
public void BuildMSPNetwork(ref MSProject.Task oTask, int i, int j, short nLevel)
{ // On an initial project build we create a Network with the first Activity
// With the MergeSAPMSPProject sub we refresh the Network only
//Parent object
oTask.SetField(Microsoft.Office.Interop.MSProject.PjField.pjTaskOutlineCode1, "Yes");
oTask.Name = TaskType.Network; // arNtwkActy[j].Description; need to get Network description
try
{ // Outline level of parent tasks are specified by
// their parent relationship
oTask.OutlineLevel = nLevel;
}
catch (COMException ex)
{; }
try
{
//If this is a parent task we cannot change the date value
// MS calculates; ex. A top level start date is the earliest start date
// of its subordinate tasks
oTask.ActualStart = FromSAPDateConversion(arNtwkActy[j].Actual_Start_Date);
oTask.ActualFinish = FromSAPDateConversion(arNtwkActy[j].Actual_Finish_Date);
}
catch (COMException ex)
{; }
oTask.Text15 = arNtwkActy[j].Description;
oTask.Text16 = TaskType.Network;
//oTask.Text27 = arNtwkActy[j]. ... MRP Controller
// Sched_type
// Profile
oTask.Text29 = arNtwkActy[j].Wbs_Element; //My addition for checking
oTask.Text30 = arNtwkActy[j].Network;
}
public void BuildMSPTask(ref MSProject.Task oTask, int i, int j, short nLevel)
{
oTask.SetField(Microsoft.Office.Interop.MSProject.PjField.pjTaskOutlineCode1, "Yes");
oTask.Name = arNtwkActy[j].Description;
try
{ // ??????
oTask.OutlineLevel = (short)(nLevel);
}
catch (COMException ex)
{; }
try
{
//?????
oTask.ActualStart = FromSAPDateConversion(arNtwkActy[j].Actual_Start_Date);
oTask.ActualFinish = FromSAPDateConversion(arNtwkActy[j].Actual_Finish_Date);
}
catch (COMException ex)
{; }
oTask.Text1 = arNtwkActy[j].Activity;
oTask.Text15 = arNtwkActy[j].Description;
oTask.Text16 = TaskType.Activity;
//oTask.Text21 = arNtwkActy[j]... Control Key ..
// Resource Text21 = Work Center
// Resource Text20 = Plant
oTask.Text29 = arNtwkActy[j].Wbs_Element;
oTask.Text30 = arNtwkActy[j].Network;
}
private void Application_NewProject(Microsoft.Office.Interop.MSProject.Project pj, TaskModel.TaskModel taskModel)
{
object missing = Type.Missing;
TaskModel.TaskModel tm = taskModel;
Microsoft.Office.Interop.MSProject.Task newTask = pj.Tasks.Add(tm.TaskName, missing);
newTask.Start = DateTime.Now;
newTask.Duration = tm.TaskDuring;
newTask.ResourceNames = tm.ResourceNames.ToString();
newTask.Notes = tm.Notes;
}
private void bnOk_Click(object sender, System.EventArgs e)
{
// user hit okay.
ProjectListItem selectedProject = (ProjectListItem)cbSelectProject.SelectedItem;
MSProject.Project current = projectApp.ActiveProject;
if (current != null)
{
try
{
ToDo[] todos = psc.getTodoManager().getAllToDosForProject(selectedProject.Project.id);
DateTime startTime = todos[0].dueDate;
for (int i = 0; i < todos.Length; i++)
{
try
{
if (todos[i].dueDate < startTime)
{
startTime = todos[i].dueDate;
}
MSProject.Task newTask = current.Tasks.Add(todos[i].name, i + 1);
newTask.Notes = todos[i].description;
newTask.Finish = todos[i].dueDate;
//MessageBox.Show(todos[i].dueDate.GetType().Name);
//MessageBox.Show(newTask.Finish.ToString() + " :: " + newTask.Finish.GetType().Name);
}
catch {}
}
//current.ProjectStart = startTime;
// temporary!
}
catch (Exception ex)
{
}
Close();
Dispose();
}
else
{
MessageBox.Show("ERROR: Unable to find an Active Project!");
}
}
public void MaintainSAPActivity(MSProject.Task oMSPTask, String sMethod, int iRefNum,
CSAPData.BAPI_METHOD_PROJECTTable arPrjMethod,
CSAPData.BAPI_NETWORKTable arNtwks,
CSAPData.BAPI_NETWORK_ACTIVITYTable arNtwkActivities,
CSAPData.BAPI_NETWORK_ACTIVITY_UPTable arNtwkActivitiesUpDate)
{
// Set the method control parameters
CSAPData.BAPI_METHOD_PROJECT stMethod = new CSAPData.BAPI_METHOD_PROJECT();
stMethod.Refnumber = "00000" + iRefNum.ToString();
stMethod.Objecttype = "NETWORKACTIVITY";
stMethod.Method = sMethod;
stMethod.Objectkey = oMSPTask.Text30 + oMSPTask.Text1;
arPrjMethod.Add(stMethod);
// Only add a single entry for the SAVE
if (bSaveMethodAdded == false) // Save method call has not been added
{
CSAPData.BAPI_METHOD_PROJECT stMethodSave = new CSAPData.BAPI_METHOD_PROJECT();
stMethodSave.Method = "SAVE";
arPrjMethod.Add(stMethodSave);
bSaveMethodAdded = true;
}
// Define the Network associated with the Activity
CSAPData.BAPI_NETWORK oNtwk = new CSAPData.BAPI_NETWORK();
oNtwk.Network = oMSPTask.Text30;
arNtwks.Add(oNtwk);
// Set the Activity attributes
CSAPData.BAPI_NETWORK_ACTIVITY oNtwkActivity = new CSAPData.BAPI_NETWORK_ACTIVITY();
CSAPData.BAPI_NETWORK_ACTIVITY_UP oNtwkActivityUp = new CSAPData.BAPI_NETWORK_ACTIVITY_UP();
oNtwkActivity.Network = oMSPTask.Text30;
oNtwkActivity.Activity = oMSPTask.Text1;
oNtwkActivity.Control_Key = "PS03"; //Required by SAP PS configuration
oNtwkActivity.Description = oMSPTask.Name;
arNtwkActivities.Add(oNtwkActivity);
// Fill their update structure
oNtwkActivityUp.Description = "X";
arNtwkActivitiesUpDate.Add(oNtwkActivityUp);
}
public void BuildMSPWBSElement(ref MSProject.Task oTask, int i, int j, short nLevel)
{
// Many of the attributes of a summary task are derived by MS Project
// from the subordinate tasks
// Use this to discuss creating and setting custom fields, see the notes,
// !Use intellisense to get the ID
oTask.SetField(Microsoft.Office.Interop.MSProject.PjField.pjTaskOutlineCode1, "Yes");
//oTask.Summary = true;
oTask.Name = arWBSELEMEXP[j].Description;
//oTask. = arWBSELEMEXP[j].Project_Definition;
oTask.Text15 = arWBSELEMEXP[j].Description;
oTask.Text16 = TaskType.WBS;
oTask.Text29 = arWBSELEMEXP[j].Wbs_Element;
try
{ // Outline level of summary tasks are specified by
// their parent relationship
oTask.OutlineLevel = nLevel;
}
catch (COMException ex)
{; }
try
{
//If this is a summary task we cannot change the date value
// MS calculates; ex. A top level start date is the earliest start date
// of its subordinate tasks
oTask.Start = (DateTime)FromSAPDateConversion(arWBSELEMEXP[j].Wbs_Basic_Start_Date);
oTask.Finish = FromSAPDateConversion(arWBSELEMEXP[j].Wbs_Basic_Finish_Date);
oTask.ActualStart = FromSAPDateConversion(arWBSELEMEXP[j].Wbs_Actual_Start_Date);
oTask.ActualFinish = FromSAPDateConversion(arWBSELEMEXP[j].Wbs_Actual_Finish_Date);
//oTask.OutlineLevel = nLevel;
}
catch (COMException ex)
{
//MessageBox.Show(ex.Message, "Error in BuildMSPWBSElement:oTaskStart");
;
}
}
/// <summary>
/// Assigns all the properties based upon the data in the
/// Microsoft Project task.
/// </summary>
/// <param name="o">The task to get the values from.</param>
public void SetProperties(MSProject.Task o)
{
Name = o.Name.ToString();
PercentComplete = (System.Int16)o.PercentComplete;
UID = (System.Int16)o.UniqueID;
ID = (System.Int16)o.ID;
Active = (System.Boolean)o.Active;
if (o.Created.ToString() != "NA")
{
CreatedDate = (System.DateTime)o.Created;
}
Wbs = o.WBS.ToString();
OutlineNumber = o.OutlineNumber;
OutlineLevel = o.OutlineLevel;
if (o.Start.ToString() != "NA")
{
Start = (DateTime)o.Start;
}
if (o.Finish.ToString() != "NA")
{
Finish = (DateTime)o.Finish;
}
}
// constructor
public TaskRow(PythonDictionary shotgunTaskIn = null, MSProject.Task projectTaskIn = null)
{
shotgunTask = shotgunTaskIn;
projectTask = projectTaskIn;
}
public Task(MSProject.Task o)
{
SetProperties(o);
}
