Material Price Code

[sbudzynski]

I know project calculates total costs derived from both material and work resources. Is there any way to have separate columns for the same task, one column for material resource cost and one for work resource cost?

I tried to write a custom field but my computer and I do not speak the same language if you know what I mean! (haha)

Thanks all,


Steve

Be

 

[PDQBach]

Untested

dim tsk as Task
dim asgn as Assignment
dim res as Resource
dim lTotalMaterialCost as long

for each tsk in activeproject.tasks
lTotalMaterialCost = 0
for each asgn in tsk.assignments
if asgn.resourcetype = 1 then 'material resource
tempRes = asgn.resourceid
tempCost = activeproject.resources(tempRes).standardrate
tempUnits = asgn.Units
tempExt = tempCost * tempUnits
lTotalMaterialCost = lTotalMaterialCost + tempExt
end if
next
tsk.Cost1 = lTotalMaterialCost
tsk.cost2 = tsk.cost - tsk.cost1 'Labour only costs
next

Remember to include code to ignore blank tasks and summary tasks.

 

[sbudzynski]

thank you,

I'll be sure to let you know how it works out for me!


Steve

Be