How to select a Workspace folder for the IMANFileSaveCmd?

MarcelVanKempen

For some of our customizations we have to preselect a Workspace folder when the Save As dialog box is presented to the user.

The IMANFileSaveCmd command has a ContextItem to preselect a Workspace folder.

When I use the ObjectId property of the Folders object as the IManExt2.DocOpenLocation context item for the IMANFileSaveCmd then the Save As dialog box presents the Recent Matters folder instead of the ObjectId’s folder.

The code below first finds the folder and then passes the folder's object id to the IMANFileSaveCmd but when the dialog box pops up it doesn't show the folder but the Recent matters.

Sub SaveAsInWorkspaceFolder()

Dim oDMS As IManDMS
Dim oSession As IManSession
Dim oWorkArea As IManWorkArea

Dim oFolders As IManFolders
Dim oFolderSearchParams As IManFolderSearchParameters
Dim oManStrings As ManStrings

Set oDMS = New ManDMS
Set oSession = oDMS.Sessions.Add("D4MT")

oSession.TrustedLogin

Set oWorkArea = oSession.WorkArea

Set oManStrings = New ManStrings
oManStrings.Add oSession.Databases.ItemByIndex(1).Name

Set oFolderSearchParams = oDMS.CreateFolderSearchParameters
oFolderSearchParams.Add imFolderName, "Herbert Horatio Bartle Bobton-Trent"

Set oFolders = oWorkArea.SearchFolders(oManStrings, oFolderSearchParams)

If oFolders.Count = 1 Then
Dim IDocument As NRTDocument

Dim pMode As iManO2K.ConnectionMode
pMode = OIAUtilXP.GetCurrentSessionDetails

Dim pContextItems As IMANEXTLib.ContextItems
Dim pFileSaveCmd As IMANEXT2Lib.IMANFileSaveCmd

Set pContextItems = New IMANEXTLib.ContextItems
Set pFileSaveCmd = New IMANEXT2Lib.IMANFileSaveCmd

pContextItems.Add "ParentWindow", GetActiveWindow
pContextItems.Add "IManDMS", OIAUtilXP.pNRTDMS
pContextItems.Add "IManExt2.DocOpenLocation", oFolders.ItemByIndex(1).ObjectID
pContextItems.Add "IManExt.Import.docType", "WORD"

pFileSaveCmd.Initialize pContextItems
pFileSaveCmd.Update

If pFileSaveCmd.Status = nrActiveCommand Then
pFileSaveCmd.Execute
End If
End If

End Sub

guido1

The IManExt2.DocOpenLocation context item is expecting the path to the folder, whereas you're just supplying the object ID

You can iterate over the IManFolder's Path collection property to build up a path (appending a backslash character between each item), and then pre-pend the Recent Workspace object id

Or an easier solution for you may be just to pre-pend the object ID of the Recent Folders entity and build a path that way

Something like (I've assumed you're coding in VB6):

 Dim pathToFolder as String 
pathToFolder = "\" & oSession.Alias & ":Recent Folders\" & oFolders.ItemByIndex(1).ObjectID
' pathToFolder should like something like this: \D4MT:Recent Folders\!nrtdms:0:!session4MT:!database:YOURDATABASENAME:!folderrdinary,123456:
pContextItems.Add "IManExt2.DocOpenLocation", pathToFolder

Guido