2014-04-28 6 views
1

DMS에서 문서를 만들고 속성을 설정 한 다음 체크인하려고합니다. 평면 공간 파일링을 허용하지 않을 때까지 훌륭했습니다. 이제 저장할 수 있기 전에 작업 영역 폴더를 지정해야하지만 그렇게하는 방법을 알아낼 수는 없습니다.Matter Centric HP/Autonomy WorkSite (iManage)에서 문서를 만들지 못했습니다.

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 문서를 찾으려면 고심하고 있습니다.

답변

2

OK,이 솔루션은 내가 알고하지 않은 인터페이스에, 그러나 페이지의 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, 
                 "", "") 
+0

안녕 케빈, 나는 이틀 동안 HP 이야기와 함께 자신을 죽이고있다 COM 개발자 가이드의 또 다른 복사본을 얻으려면 몇 주가 걸릴 수 있습니다. 보내실 수있는 기회가 있습니까? 감사. –

+0

내 이메일은 [email protected]입니다. 감사합니다. –