A
Anatess
Hi all,
I wrote a macro to retrieve resource rates information from the enterprise
resource pool and writing it to a text file. I used the Resources object to
retrieve the information. I need the WRES_ID for the Resource as well, but I
don't see that field in the Resources object. How do I extract the WRES_ID?
Here's a sample of how I'm retrieving resource data. I need to add WRES_ID
to the MsgBox...
Sub GetRates()
Dim r As Resource
Dim rs As Resources
Dim prs As PayRates
Set rs = ActiveProject.Resources
For Each r In rs
Set prs = r.CostRateTables("A").PayRates
Dim dtFromDate
Dim dblStdRate
Dim dblOTRate
dtFromDate = prs(1).EffectiveDate
dblStdRate = prs(1).StandardRate
dblOTRate = prs(1).OvertimeRate
MsgBox ("From:" & dtFromDate & " Std Rate: " & dblStdRate & " OT Rate:
" & dblOTRate)
Next
End Sub
regards,
Anatess
I wrote a macro to retrieve resource rates information from the enterprise
resource pool and writing it to a text file. I used the Resources object to
retrieve the information. I need the WRES_ID for the Resource as well, but I
don't see that field in the Resources object. How do I extract the WRES_ID?
Here's a sample of how I'm retrieving resource data. I need to add WRES_ID
to the MsgBox...
Sub GetRates()
Dim r As Resource
Dim rs As Resources
Dim prs As PayRates
Set rs = ActiveProject.Resources
For Each r In rs
Set prs = r.CostRateTables("A").PayRates
Dim dtFromDate
Dim dblStdRate
Dim dblOTRate
dtFromDate = prs(1).EffectiveDate
dblStdRate = prs(1).StandardRate
dblOTRate = prs(1).OvertimeRate
MsgBox ("From:" & dtFromDate & " Std Rate: " & dblStdRate & " OT Rate:
" & dblOTRate)
Next
End Sub
regards,
Anatess