|
|
|
|
|
| Application |
|
| Task |
Uppgift |
| Unavailability |
|
| Customer |
|
| Equipment |
|
| Resource |
|
| Department |
|
| Project |
|
| DoTask |
|
| DoUnavailability |
|
|
|
Dim pp As PlanningPME.Application
Set pp = New PlanningPME.Application
Dim pp As Object
Set pp = CreateObject("PlanningPME.Application")
Dim r As Resource
Set r = pp.CreateItem(PpResource)
r.Label = "new Resource"
r.Type = PpResourceHuman
r.Save
Set r = Nothing
Set pp = nothing
|
|
