Hey guys, I'm using the script below to create a object in the "AfterCreateNewObjectFinalize" event handler.
Everything in the script works as intended but I noticed that the object created via the script has "Custom" set as their object access rights, as seen in the picture below.
How can I correct this so all objects created with the script uses the normal NACL that is default for the object/class type?
'Henter lookup iden til nåværende klasse og objekt id'en
Dim classID : classID = PropertyValues.SearchForProperty(100).TypedValue.GetLookupID
Dim currentObjID : currentObjID = DisplayID
'Oppretter saken hvis "Rådsmøte" klassen er opprettet
If classID = 31 Then
'Oppretter de nødvendige hjelpevariablene
Dim oPropVals: Set oPropVals = CreateObject("MFilesAPI.PropertyValues")
Dim oOnePropVal: Set oOnePropVal = CreateObject("MFilesAPI.PropertyValue")
Dim oFiles: Set oFiles = CreateObject("MFilesAPI.SourceObjectFiles")
Dim oACL: Set oACL = CreateObject("MFilesAPI.AccessControlList")
'Deklarer objekttype id'en til saken vi skal opprette
Dim creationObjectID: creationObjectID = 176
'Deklarer hvilken klasse det nye objektet skal tilhøre
oOnePropVal.PropertyDef = 100
oOnePropVal.TypedValue.SetValue MFDatatypeLookup, 32
oPropVals.Add -1, oOnePropVal
'Deklarer lookup id'en på rådsmøtet denne skaen tilhører (nåværende objekt)
oOnePropVal.PropertyDef = 1327
oOnePropVal.TypedValue.SetValue MFDatatypeLookup, currentObjID
oPropVals.Add -1, oOnePropVal
'Deklarer navnet på det nye objektet som skal opprettes
oOnePropVal.PropertyDef = 0
oOnePropVal.TypedValue.SetValue MFDatatypeText, "12. Oppmuntring og støtte"
oPropVals.Add -1, oOnePropVal
'Oppretter objektet
Call Vault.ObjectOperations.CreateNewObjectEx(creationObjectID, oPropVals, oFiles, False, True, oACL)
End if
