|
<< Click to Display Table of Contents >> Navigation: Programming Mechworks PDM > DBWCommandShell > Commands Reference > DBWArm > AddUserToProject |
With the DBWARM enabled, adds an user to the working list of the assigned project.
call DBWShell("AddUserToProject UserID ProjectID")
UserID |
name of the user to add |
|---|---|
ProjectID |
project id to add the user to |
DBWARM must be enabled
AddProjectToSelection
AddUserToProject
SetProjectSelection
sub main
DBWInit(TRUE)
projectId = "Toy Tractor"
userId = "Ciro"
DBWShell("UserWorksInProject " & replace(userId," ","|") & " " & replace(projectId," ","|") )
okWorks = DBWResult("@OKWORKS")
if okWorks = 0 then
DBWMsgBox userId & " does not work in project " & projectId & "." & vbcrlf & "I will add him now ..."
DBWShell("AddUserToProject " & replace(userId," ","|") & " " & replace(projectId," ","|") )
else
DBWMsgBox userId & " works in project " & projectId & "." & vbcrlf & "I will remove him now ..."
DBWShell("RemoveUserFromProject " & replace(userId," ","|") & " " & replace(projectId," ","|") )
end if
DBWShell("CloseSheet")
DBWShell("OpenForBrowsing")
end sub