Increment revison on file drag n drop

Question

Hi all, related to my other query https://community.m-files.com/forums-1552881334/f/m-files-api/6494/replacing-files-within-mfd-on-drag-drop-action 
 When files are dragged into a Multi File Document, I want to increment the revision number property (given certain conditions about workflow states and so on) 
 The problem is 1) If I put this into BeforeCheckInChanges, it will trigger every time the document is changed by any process (it needs to be only if a new file has been dragged in) 
 2) If I put this into BeforeFileUpload / AfterFileUpload, those event handlers have no awareness of ObjVer, only the FileVer. (so then can't edit properties on the Document ObjVer) 
 
 Is this possible? Many thanks

Spooky · Accepted Answer

Here's what I ended up with, in AfterFileUpload event handler, many thanks 
 ' Test the current object is a 'Document' Object Type = 0	
If ObjVer.Type = 0 Then	

	' Test the current object is a 'Document' Class
	Dim oPropVal : Set oPropVal = CreateObject("MFilesApi.PropertyValues")
	Set oPropVal = Vault.ObjectPropertyOperations.GetProperties(ObjVer)
 Dim iClassId
 iClassId = Vault.ClassOperations.GetObjectClassIDByAlias("H.Class.Document")
 If oPropVal.SearchForProperty(MFBuiltInPropertyDefClass).TypedValue.GetValueAsLookup.Item = iClassId Then 
	
 ' Test the document is in WIP workflow state (if not, it would not be editable)
 Dim wfState : wfState = oPropVal.SearchForProperty(39).TypedValue.DisplayValue ' 39 = Workflow State
 If wfState = "WIP" Then 

 ' Increment Revision
 Dim pRev : pRev = Vault.PropertyDefOperations.GetPropertyDefIDByAlias("H.Property.Revision")
 Dim iRev : iRev = oPropVal.SearchForProperty(pRev).TypedValue.Value
 iRev = iRev + 1
	
 ' Update Document object with new Revision
 Dim propVal : Set propVal = CreateObject("MfilesAPI.PropertyValue")
 propVal.PropertyDef = pRev 
 propVal.TypedValue.SetValue MFDataType.MFDatatypeInteger, iRev
 vault.ObjectPropertyOperations.SetProperty ObjVer, propVal

 End If ' End the WIP workflow state check
	End If ' End the Class check
End If ' End the Type check

ant_ibrahim · Answer

According to the M-Files Event Handler documentation the ObjVer variable is available for the AfterFileUpload event handler, but not for the BeforeFileUpload event handler: 
 Here is a reference: https://www.m-files.com/user-guide/2018/eng/Event_handlers_variables.html

Increment revison on file drag n drop

Top Replies