use macros in project server

[Jose X Perez]

Hi everyone,

I'm trying to use a macro in project server in order to update a custom task
field.
But i do not know how to access the value of others defined task custom
fields.
the macro that works localy in mi pc is

Private Sub App_ProjectBeforeTaskChange(ByVal t As Task, _
ByVal Field As PjField, _
ByVal NewVal As Variant, _
Cancel As Boolean)
If Field <> pjTaskNumber2 Then
If t.Summary Or t.OutlineLevel = 1 Then
Rem MsgBox ("summary")
t.Number2 = t.Number1 * t.Number3 / 100
End If
If t.Summary And t.OutlineLevel > 1 Then
t.Number2 = t.Number1 * t.OutlineParent.Number2 / 100
End If
If Not t.Summary And t.OutlineLevel > 1 Then
Rem MsgBox ("not summary")
t.Number2 = t.Number1 * t.OutlineParent.Number2 / 100
End If
End If
End Sub


in order to make this works in the preject server i need to access the
taskCustomFieldNumber isntead of Number1

How can i do this? or i must use PSI ?
i preffer not to use PSI because i'll need to use a programer and i do not
have the resource.

thanks for your help
Jose X Perez

 

[Dale Howard [MVP]]

Jose --

I would suggest you post this question in the
microsoft.public.project.developer newsgroup, as you are more likely to get
an answer in that group. Hope this helps.

 

[Paul Conroy]

Referencing custom fields via VBA

'Read Enterprise Custom Field

call
ActiveProject.ProjectSummaryTask.GetField(FieldNameToFieldConstant("customfieldname"))


'Write Enterprise Custom Field

call
ActiveProject.ProjectSummaryTask.SetField(FieldNameToFieldConstant("customfieldname"))

 

[Jose X Perez]

thanks a lot,
where can i get more information about this objects and procedures?

 

[Gary L. Chefetz [MVP]]

Jose:

Rod Gill's book is the only book ever published on Project VBA:
http://www.projectvbabook.com


--

Gary L. Chefetz, MVP
MSProjectExperts
For Project Server Consulting: http://www.msprojectexperts.com
For Project Server FAQS: http://www.projectserverexperts.com