无法在Matter Centric HP/Autonomy WorkSite（iManage）中创建文档DMS

Question

我试图在DMS中创建一个文档，设置一些属性，然后将其检入。此工作很好，直到我们禁止平面空间归档。现在我必须指定一个工作区文件夹才能保存，但我似乎无法弄清楚如何去做。

lcDoc = mcDatabase.CreateDocument() 
lcDoc.Security.DefaultVisibility = imSecurityType.imView 
lcDoc.Security.GroupACLs.Add("INFORMATION_TECHNOLOGY", imAccessRight.imRightAll) 
lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileDescription, FileName) 
lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileAuthor, msUserID) 
lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileOperator, msUserID) 
lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileType, "ANSI") 
lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileClass, "ADMIN") 
lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileCustom1, ClientID) 
lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileCustom2, MatterID) 
lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileCustom10, "060") 
lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileCustom14, DMSServerName)   

' Fails here with error: [Folder ][AddDocument ]Operation requested on a record that  does not exist. 
DirectCast(loFolder, NRTFolder).AddDocument(DirectCast(lcDoc, NRTDocument)) 

' If I comment out the line above, this line returns a failure: 
' This operation is currently not available due to flatspace filing restrictions. 
Dim lcResults As IManCheckinResult = lcDoc.CheckInWithResults(lsFilePath,  imCheckinDisposition.imCheckinNewDocument, imCheckinOptions.imDontKeepCheckedOut) 

我很努力地找到给出这个答案的正确的API文档。

Answer 1

确定，因此该解决方案是一个界面，我不知道有关，但发现COM开发者页面上引导81

 lcDoc = mcDatabase.CreateDocument() 
     'lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileLocation, loFolder.ObjectID) 
     lcDoc.Security.DefaultVisibility = imSecurityType.imView 
     lcDoc.Security.GroupACLs.Add("APPLICATIONSDEVELOPMENTALL", imAccessRight.imRightAll) 
     lcDoc.Security.GroupACLs.Add("INFORMATION_TECHNOLOGY", imAccessRight.imRightAll) 
     ' [04/21/2014 KB] Changed this to use the specified name instead of a hard coded one. 

     ' lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileDescription, String.Format("iManageAPI:{0}", "Test Create Document")) 
     lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileDescription, FileName) 
     lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileAuthor, msUserID) 
     lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileOperator, msUserID) 
     lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileType, "ANSI") 
     lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileClass, "ADMIN") 
     lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileCustom1, ClientID) 
     lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileCustom2, MatterID) 
     lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileCustom10, "060") 
     lcDoc.Profile.SetAttributeByID(imProfileAttributeID.imProfileCustom14, DMSServerName) 
     ''loFolder.AddDocument(lcDoc) 'Add document to folder 
     'DirectCast(loFolder, NRTFolder).AddDocument(DirectCast(lcDoc, NRTDocument)) 
     'Dim lcResults As IManCheckinResult = lcDoc.CheckInWithResults(lsFilePath, imCheckinDisposition.imCheckinNewDocument, imCheckinOptions.imDontKeepCheckedOut) 
     lcResults = DirectCast(lcDoc, IManDocument3). 
      CheckInExToFolderAsNewDocumentWithResults(lsFilePath, imCheckinOptions.imDontKeepCheckedOut, loFolder, 
                 imHistEvent.imHistoryNew, 
                 System.Reflection.Assembly.GetExecutingAssembly().FullName, 
                 "", "")