VBScript: Populate a MultiSelect Property (Text List) from another Multi Select Property (Object List)

Question

I read a lot of threads with similar problems but I think no one asked about this case? 
 The script should run as a Auto Calculated Value on the Multi Select Property which is based on a Text List.. Can you get me started?

𝕤𝕨𝕖𝕚𝕤𝕖 · Accepted Answer

Got it working, here's the code 
 Dim PropertyValues : Set PropertyValues = Vault.ObjectPropertyOperations.GetProperties(ObjVer)
Dim oLookups1 : Set oLookups1 = PropertyValues.SearchForPropertyByAlias(Vault, "PD.ZugehoerigeObjekte", True).TypedValue.GetValueAsLookups
Dim oLookup1 : Set oLookup1 = CreateObject("MFilesAPI.Lookup")
Dim oLookups2 : Set oLookups2 = CreateObject("MFilesAPI.Lookups")
Dim oLookup2 : Set oLookup2 = CreateObject("MFilesAPI.Lookup")
Dim iValueListID : iValueListID = 127
Dim oValueListItems : Set oValueListItems = Vault.ValueListItemOperations.GetValueListItems(iValueListID)
Dim oValueListItem
Dim oAdd
Dim oItem

For Each oLookup1 In oLookups1	
	oAdd = 1

	For Each oItem in oValueListItems
 If oItem.Name = oLookup1.DisplayValue Then
 oAdd = 0
 End If
	Next

	If oAdd = 1 Then
 Set oValueListItem = CreateObject("MFilesAPI.ValueListItem")
 oValueListItem.Name = oLookup1.DisplayValue
 Vault.ValueListItemOperations.AddValueListItem iValueListID, oValueListItem, False
	End If

	oAdd = 1

	For Each oLookup2 in oLookups2
 If oLookup2.DisplayValue = oLookup1.DisplayValue Then
 oAdd = 0
 Exit For
 End If
	Next

	If oAdd = 1 Then
 Dim oSearchCondition : Set oSearchCondition = CreateObject("MFilesAPI.SearchCondition")
 Dim oSearchConditions : Set oSearchConditions = CreateObject("MFilesAPI.SearchConditions")
 
 oSearchCondition.Expression.SetValueListItemExpression 2, 0, Nothing
 oSearchCondition.ConditionType = 1
 oSearchCondition.TypedValue.SetValue 1, oLookup1.DisplayValue
 oSearchConditions.Add -1, oSearchCondition

 oSearchCondition.Expression.SetValueListItemExpression 5, 0, Nothing
 oSearchCondition.ConditionType = MFConditionTypeEqual
 oSearchCondition.TypedValue.SetValue MFDatatypeBoolean, false
 oSearchConditions.Add -1, oSearchCondition
 
 Dim oSearchResults : Set oSearchResults = Vault.ValueListItemOperations.SearchForValueListItemsEx(iValueListID, oSearchConditions, True, 0, True)
 Dim oSearchResult
 Dim NewLookup : Set NewLookup = CreateObject("MFilesAPI.Lookup")

 For Each oSearchResult In oSearchResults
 NewLookup.Item = oSearchResult.ID
 NewLookup.SetLatestVersion
 oLookups2.Add -1, NewLookup
 Next
	End If
Next 

Dim oPropertyValue : Set oPropertyValue = CreateObject("MFilesAPI.PropertyValue")

oPropertyValue.TypedValue.SetValueToMultiSelectLookup(oLookups2)
oPropertyValue.PropertyDef = Vault.PropertyDefOperations.GetPropertyDefIDByAlias("PD.ZugehrigeObjektedocufill")
Call Vault.ObjectPropertyOperations.SetProperty(ObjVer, oPropertyValue)

Ne0Tr0n · Answer

I do not think that such a solution would be practical in your case, because in practice this means that a list of values must be created dynamically for each document. This speaks of a problem with architecture, as Bright-Idias pointed out in the quoted post. As a workaround, I can suggest the use of multi-line text to be used in the template. The code for this must be something like this: 
 'Get instance of current object properties
Dim oPropVals: Set oPropVals = CreateObject("MFilesApi.PropertyValues")
Set oPropVals = Vault.ObjectPropertyOperations.GetProperties(ObjVer)

'Get property IDbyAliase
Dim iPDZugehoerigeObjekte : iPDZugehoerigeObjekte = Vault.PropertyDefOperations.GetPropertyDefIDByAlias("PD.ZugehoerigeObjekte")

'Get chosen items as text
szPDZugehoerigeObjekte = oPropVals.SearchForProperty(iPDZugehoerigeObjekte).TypedValue.DisplayValue

'Splitting by ;
arrPDZugehoerigeObjekte = Split (szPDZugehoerigeObjekte, ";")

'Convert Array to multiline string
For i = 0 To UBound(arrPDZugehoerigeObjekte)
	szPDTemplateZugehoerigeObjekte = szPDTemplateZugehoerigeObjekte & i + 1 & ". " & arrPDZugehoerigeObjekte (i) & vbCrLf
Next 

'Remove Extra new line
If Len (szPDTemplateZugehoerigeObjekte) > 0 Then 
	szPDTemplateZugehoerigeObjekte = Left (szPDTemplateZugehoerigeObjekte, Len(szPDTemplateZugehoerigeObjekte) - 1)
End If 

OUTPUT = szPDTemplateZugehoerigeObjekte 
 This, of course, would only allow placing each selected value on a separate line

VBScript: Populate a MultiSelect Property (Text List) from another Multi Select Property (Object List)

Top Replies