Dim pdV, pdC
' Property IDs on the Vessel object
pdV = Vault.PropertyDefOperations.GetPropertyDefIDByAlias("PD.Vessel")
' The Company property
Dim Compan: Set Compan = CreateObject("MFilesApi.Lookup")
pdC = Vault.PropertyDefOperations.GetPropertyDefIDByAlias("PD.CompanyDocumentCompany")
Set Compan = PropertyValues.SearchForProperty(pdC).TypedValue.GetValueAsLookup()
' Get the ObjID of the company object
Dim ObjIDCompany: Set ObjIDCompany = CreateObject("MFilesAPI.ObjID")
ObjIDCompany.ID = Compan.Item
ObjIDCompany.Type = Compan.ObjectType
' Get the ObjVer of the object
Dim OVCompany : Set OVCompany = CreateObject("MFilesApi.ObjVer")
Set OVCompany = Vault.ObjectOperations.GetLatestObjVer(ObjIDCompany, True)
' Get the property value of the TM property of the vessel
Dim TMPVVessel : Set TMPVVessel = CreateObject("MFilesApi.PropertyValue")
Set TMPVVessel = Vault.ObjectPropertyOperations.GetProperty(OVCompany,pdV)
output.SetValueToLookup TMPVVessel.Value.GetValueAsLookup()
vb script error on Line 13 "Object Required"
Forum rules
Do not post any licensing information in this forum.
Any code longer than three lines should be added as code using the 'Select Code' dropdown menu or attached as a file.
Do not post any licensing information in this forum.
Any code longer than three lines should be added as code using the 'Select Code' dropdown menu or attached as a file.
- Alexander Riedel
- Posts: 8583
- Last visit: Fri Nov 08, 2024 3:54 pm
- Been upvoted: 42 times
Re: vb script error on Line 13 "Object Required"
You set Compan here:
Set Compan = PropertyValues.SearchForProperty(pdC).TypedValue.GetValueAsLookup()
But you do not check if the statement produces a result that is not null.
Set Compan = PropertyValues.SearchForProperty(pdC).TypedValue.GetValueAsLookup()
But you do not check if the statement produces a result that is not null.
Alexander Riedel
SAPIEN Technologies, Inc.
SAPIEN Technologies, Inc.