0

我有一个特定的 FolderID，我想将文件上传到这个目录。（我参考了 iManage.dll 和 ImanEXTLib）。

我正在努力从代码级别填写对话框/导入窗口中的某些字段。

理想情况下，我想跳过此阶段以加快上传速度。如果我正在传送所有必需的数据，那么除了单击“确定”之外，我在对话框中看不到任何点。

这是代码：

我正在使用ManDMS.CreateSearchParameters

得到结果后：

Dim rslts as IManFolders
Set rslts = IManSession.WorkArea.SearchFolders(<ManStrings>,<SearchParameters>)
If rslts.Empty = True Then
    MsgBox "Found shit."
Elseif rslts.Empty = False Then
    Dim TgtFdr as ImanFolder
    Set impCmd = ImportCmd
    Set context = New ContextItems
    Set TgtFdr = rslts.ItemByIndex(1)

现在我正在设置上下文项，但我遇到了物质和子类的问题。这些是上传所必需的，但这些字段仍然为空，我不知道如何解决它们以完成上传：

context.Add("IManDestinationObject", TgtFdr)
context.Add("IManExt.Import.DocAuthor", UserID)
context.Add("IManExt.Import.DocDescription", file Name)           
context.Add("IManExt.Import.FileName", file path)
context.Add("IManExt.Import.DocClass", "some info")
context.Add("IManExt.Import.DocSubclass", "some info")
context.Add("IManExt.Import.DocMatter", "some info")

impCmd.Initialize context
impCmd.Update

If impCmd.Status = IMANEXTLib.CommandStatus.nrActiveCommand Then

    impCmd.Execute
Else
Endif

尝试了不同的东西 - MatterID，MatterDesc，Custom1,2,3，。是否可以使用此窗口跳过部分并以更直接的方式上传文件？另外，是否可以在最后取出新导入文件的doc号？

我试过了：

UplDoc = (ImanDocument)context.Item("ImportedDocument")
4

1 回答 1

0

我想通了整个事情。

有点...我进入对象浏览器并设法解决问题并利用 .DuplicateProfileFromDoc 方法。我只是从已经存储在工作现场的其他文件中镜像上传文档的配置文件。

最后一点也解决了。它应该是：

Set UplDoc = context.Item("ImportedDocument")

干杯!

于 2018-08-15T20:30:29.007 回答