Create New Assignment - Workflow Script

Question

I am trying to create a new assignment via a script and it keeps telling me that I have a type mismatch when creating the assignment:

Dim newValue : Set newValue = CreateObject("MFilesAPI.TypedValue")
newvalue.SetValue MFDatatypeLookup, 104
Dim MyRecordSet : set MyRecordSet = CreateObject("ADODB.RecordSet")
MyRecordSet.Open SelectStatement, oConnection

Vault.ObjectOperations.CreateNewAssignment "Part " & MyRecordSet.Fields(3) & " Revision " & MyRecordSet.Fields(4) & " Assembly Update", "Please Update the assembly for " & MyRecordSet.Fields(0) & " Revision " & MyRecordSet.Fields(1) & ". The Assembly needs to be updated because the current revision was end dated.", newvalue

Radu Moca · Accepted Answer

This is the script. 
 It is not tested in this form as I had to clean it for sharing. 
 Credit goes to 
 Dim LU_user, LUs_users, assignmentID, assignmentListItem, assignmentList,oobjidassignment

Set assignmentListItem = CreateObject("MFilesAPI.LookUp")
Set assignmentList = CreateObject("MFilesAPI.LookUps")
Set LU_user = CreateObject("MFilesAPI.LookUp")
Set LUs_users = CreateObject("MFilesAPI.LookUps")
 
 LU_user.Item = 26 
 LUs_users.Add -1, LU_user
 
 assignmentID = CreateAssignment(LUs_users, "Assignment Title, "Assignment Description")
 
 assignmentListItem.Item = assignmentID 
 assignmentList.Add -1, assignmentListItem
 
'Here the assignment is added as Workflow Assigment, meaning that you can set in workflow automatic state transition on assigment completion 
Dim pdAssignments : Set pdAssignments = CreateObject("MFilesAPI.PropertyValue")
pdAssignments.PropertyDef = 79
pdAssignments.TypedValue.SetValueToMultiSelectLookup assignmentList 


'Function to create the assigment
Function CreateAssignment (assignedUsers, assignmentTitle, assignmentDescription)
	
	Dim oPropVals : Set oPropVals = CreateObject("MFilesAPI.PropertyValues")
	Dim oOnePropVal: Set oOnePropVal = CreateObject("MFilesAPI.PropertyValue")
	
 'Set class - 100 Assignment
	oOnePropVal.PropertyDef = 100
	oOnePropVal.TypedValue.SetValue MFDatatypeLookup, 83
	oPropVals.Add -1, oOnePropVal
	
 'Set NameorTitle
	oOnePropVal.PropertyDef = MFBuiltInPropertyDefNameOrTitle
	oOnePropVal.TypedValue.SetValue MFDatatypeText, assignmentTitle
	oPropVals.Add -1, oOnePropVal
	
	'set assigned users	
	oOnePropVal.PropertyDef = 44
	oOnePropVal.TypedValue.SetValueToMultiSelectLookup assignedUsers
	oPropVals.Add -1, oOnePropVal
	
	'set assignment description
	oOnePropVal.PropertyDef = MFBuiltInPropertyDefAssignmentDescription
	oOnePropVal.TypedValue.SetValue MFDatatypeMultiLineText, assignmentDescription
	oPropVals.Add -1, oOnePropVal

	
	'set workflow
	oOnePropVal.PropertyDef = 38
	oOnePropVal.TypedValue.SetValue MFDatatypeLookup, 124
	oPropVals.Add -1, oOnePropVal

	'set workflow state
	oOnePropVal.PropertyDef = 39
	oOnePropVal.TypedValue.SetValue MFDatatypeLookup, 272
	oPropVals.Add -1, oOnePropVal
	
	'set objtypeid
	Dim newObjectID : newObjectID = 10 
	
	Dim objNewObjectSourceFiles: Set objNewObjectSourceFiles = CreateObject("MFilesAPI.SourceObjectFiles")	
	Dim bolIsSingleFileDocument: bolIsSingleFileDocument = False
 
	' Create Object and Checkin
	Dim oVaP : Set oVaP = CreateObject("MFilesAPI.ObjectVersionAndProperties")
	
	oVaP = vault.ObjectOperations.CreateNewObjectExQuick(newObjectID, oPropVals, objNewObjectSourceFiles, bolIsSingleFileDocument, true, nothing)
	CreateAssignment = oVaP

End function

Radu Moca · Answer

Good to hear that. 
 Members of the user group. Group IDs are negative, user IDs are positive. (From API Documentation). 
 Try to add "-" before the id of the group.

Create New Assignment - Workflow Script

Top Replies