How to mark project as unchanged?

[Cool Timbers]

How can I trick Project to think an enterprise project file has not
changed?

I have a business need to publish an enterprise project plan to both
Project Server 2003 AND to Team Foundation Server.(TFS) I have solved
most of the problems but one.

I have written a Macro in Project Pro 2003 to publish a project to TFS
, and it works fine. (I first save the project file and publish to
Project Server.)

Here's my problem: Publishing to TFS somehow set the project "Saved"
property to false (indicating that the file has changed since the last
published to Project Server. Any subsequent Publishing to Project
Server causes duplicate entries in the Project Web Access Timesheet.

The Saved property is read only and I do not see an isDirty property,
like some other Office Applications.

So how can I publish a plan to TFS without Project thinking the plan
has changed?



My code example follows.



Sub JointPublish()
' Publish to Project Server
Call PublishProjServer
Dim cbar As CommandBar
For Each cbar In Application.CommandBars
If cbar.Name = "Team" Then
cbar.Visible = True
Call PublishTFS

End If
Next

End Sub



Sub PublishTFS()
' Publish to TFS Server
Dim ctl As CommandBarButton

For Each ctl In CommandBars("Team").Controls
If ctl.Caption = "Publish" Then
ctl.Execute
End If
Next
End Sub


Thanks in advance

Doug
wwww.cooltimbers.com
"Art for your soul"

 

[Dale Howard [MVP]]

Cool Timbers --

Please post this message in the microsoft.public.project.developers
newsgroup, as you are more likely to get a response there.