Copy item from single-select to multi-select.

I have worked further on this, and perhaps my problem is not referring to the external ID for the object explicitly.

I changed to the following:

Option Explicit

 Dim iRollNumberProperty : iRollNumberProperty = 1432 '1432 is the Roll Number Property Definition
 Dim iRollNumbersProperty : iRollNumbersProperty = 1055 '1055 is the Roll Number(s) Property Definition
 Dim iLegalLandDescriptionProperty : iLegalLandDescriptionProperty = 1075 '1075 is the Legal Land Description Property Definition
 Dim iLegalLandDescriptionsProperty : iLegalLandDescriptionsProperty = 1041 '1075 is the Legal Land Description(s) Property Definition
 Dim iLandIDProperty : iLandIDProperty = 1747 '1747 is the LandID Property Definition
 Dim iRollInformationOBJID: iRollInformationOBJID = 106
 Dim iLandIDOBJID: iLandIDOBJID = 344
 Dim iVBScriptProperty: iVBScriptProperty = 1754
 
 Dim objClientLookup: Set objClientLookup= PropertyValues.SearchForProperty(iLandIDProperty).TypedValue.GetValueAsLookup()
'Err.Raise MFScriptCancel, objClientLookup.DisplayValue & "-" & objClientLookup.DisplayID

if IsNull (PropertyValues.SearchForPropertyEx(iLandIDProperty, true))=false then
'if IsNull(PropertyValues.SearchForPropertyEx(iLandIDProperty, true)) then
'Err.Raise MFScriptCancel, "got here"
  dim iRolls: iRolls = 129203000
'	Output = "1"
	
  dim oValueListItem
	set oValueListItem = Vault.ValueListItemOperations.GetValueListItemByDisplayID(iLandIDOBJID , iRolls)
	'Err.Raise MFScriptCancel, oValueListItem.DisplayValue & "-" & oValueListItem.DisplayID
	Dim oPropValRelationship: Set oPropValRelationship = PropertyValues.SearchForProperty( iLandIDProperty )
  oPropValRelationship.Value.SetValue MFDatatypeMultiSelectLookup, oValueListItem.ID 'ID of the External object
  Vault.ObjectPropertyOperations.SetProperty ObjVer, oPropValRelationship


'  AddUpdateProperty iRolls, iLandIDProperty

end if


Function AddUpdateProperty(sValue, PROP_ID)

	Dim oProperty : Set oProperty = CreateObject("MFilesAPI.PropertyValue")
	oProperty.PropertyDef = PROP_ID
	Dim iDataType : iDataType = Vault.PropertyDefOperations.GetPropertyDef(oProperty.PropertyDef).DataType
	Dim iValue : iValue = CLng(sValue)			
	Dim oLookups : Set oLookups = PropertyValues.SearchForProperty(PROP_ID).TypedValue.GetValueAsLookups()
	Dim oLookup : Set oLookup = CreateObject("MFilesAPI.Lookup")
	Dim oCount
	
	oCount = oLookups.Count
	If oCount <> 0 then oCount = oCount + 1
	oLookup.Item = iValue
	oLookups.Add oCount, oLookup
	PropertyValues.SearchForProperty(PROP_ID).TypedValue.SetValueToMultiSelectLookup oLookups
	oProperty.TypedValue.SetValueToMultiSelectLookup oLookups
	Vault.ObjectPropertyOperations.SetProperty ObjVer, oProperty
End Function

I believe this might be working, but it seems to loop and then dies with the error message "maximum number of script executions exceeded" probably because I am doing this as an autocalculate on an unrelated property (called vbscript). Does this seem correct? So, basically, it runs initially because I add the "vbscript" property to the object (happens to be a multi-file document), and save the object. Then, unfortunately, it runs again because the object was modified by changing the value of the multi-select property, and runs again and again because of the same thing. I couldn't find anything that definitively tells me when the auto-calculate properties on an object cause an associated script to run.

Right now, I am thinking I should run this in an event handler instead, but I only want it to run on the objects we add the "vbscript" property to. I'm not really sure what event handler would be appropriate if I go that way.

Any input appreciated.

I have worked further on this, and perhaps my problem is not referring to the external ID for the object explicitly.

I changed to the following:

Option Explicit

 Dim iRollNumberProperty : iRollNumberProperty = 1432 '1432 is the Roll Number Property Definition
 Dim iRollNumbersProperty : iRollNumbersProperty = 1055 '1055 is the Roll Number(s) Property Definition
 Dim iLegalLandDescriptionProperty : iLegalLandDescriptionProperty = 1075 '1075 is the Legal Land Description Property Definition
 Dim iLegalLandDescriptionsProperty : iLegalLandDescriptionsProperty = 1041 '1075 is the Legal Land Description(s) Property Definition
 Dim iLandIDProperty : iLandIDProperty = 1747 '1747 is the LandID Property Definition
 Dim iRollInformationOBJID: iRollInformationOBJID = 106
 Dim iLandIDOBJID: iLandIDOBJID = 344
 Dim iVBScriptProperty: iVBScriptProperty = 1754
 
 Dim objClientLookup: Set objClientLookup= PropertyValues.SearchForProperty(iLandIDProperty).TypedValue.GetValueAsLookup()
'Err.Raise MFScriptCancel, objClientLookup.DisplayValue & "-" & objClientLookup.DisplayID

if IsNull (PropertyValues.SearchForPropertyEx(iLandIDProperty, true))=false then
'if IsNull(PropertyValues.SearchForPropertyEx(iLandIDProperty, true)) then
'Err.Raise MFScriptCancel, "got here"
  dim iRolls: iRolls = 129203000
'	Output = "1"
	
  dim oValueListItem
	set oValueListItem = Vault.ValueListItemOperations.GetValueListItemByDisplayID(iLandIDOBJID , iRolls)
	'Err.Raise MFScriptCancel, oValueListItem.DisplayValue & "-" & oValueListItem.DisplayID
	Dim oPropValRelationship: Set oPropValRelationship = PropertyValues.SearchForProperty( iLandIDProperty )
  oPropValRelationship.Value.SetValue MFDatatypeMultiSelectLookup, oValueListItem.ID 'ID of the External object
  Vault.ObjectPropertyOperations.SetProperty ObjVer, oPropValRelationship


'  AddUpdateProperty iRolls, iLandIDProperty

end if


Function AddUpdateProperty(sValue, PROP_ID)

	Dim oProperty : Set oProperty = CreateObject("MFilesAPI.PropertyValue")
	oProperty.PropertyDef = PROP_ID
	Dim iDataType : iDataType = Vault.PropertyDefOperations.GetPropertyDef(oProperty.PropertyDef).DataType
	Dim iValue : iValue = CLng(sValue)			
	Dim oLookups : Set oLookups = PropertyValues.SearchForProperty(PROP_ID).TypedValue.GetValueAsLookups()
	Dim oLookup : Set oLookup = CreateObject("MFilesAPI.Lookup")
	Dim oCount
	
	oCount = oLookups.Count
	If oCount <> 0 then oCount = oCount + 1
	oLookup.Item = iValue
	oLookups.Add oCount, oLookup
	PropertyValues.SearchForProperty(PROP_ID).TypedValue.SetValueToMultiSelectLookup oLookups
	oProperty.TypedValue.SetValueToMultiSelectLookup oLookups
	Vault.ObjectPropertyOperations.SetProperty ObjVer, oProperty
End Function

I believe this might be working, but it seems to loop and then dies with the error message "maximum number of script executions exceeded" probably because I am doing this as an autocalculate on an unrelated property (called vbscript). Does this seem correct? So, basically, it runs initially because I add the "vbscript" property to the object (happens to be a multi-file document), and save the object. Then, unfortunately, it runs again because the object was modified by changing the value of the multi-select property, and runs again and again because of the same thing. I couldn't find anything that definitively tells me when the auto-calculate properties on an object cause an associated script to run.

Right now, I am thinking I should run this in an event handler instead, but I only want it to run on the objects we add the "vbscript" property to. I'm not really sure what event handler would be appropriate if I go that way.

Any input appreciated.