Most of what's below has been a copy/paste from the manuals at what's already been posted.
My error occurs when applying the value to filLoc. My error states the following:
Conversion from string "IManExt.OpenCmd.ING.FileLocation" to type 'Integer' is not valid.
Also, I'm unsure of the next step to actually opening the document.
Any assitance would be helpful.
Thanks in advance. By the way, my next attempt will be copying documents to a local file location.
-----------------------------------------------------------------------------
Imports IManage
Imports IIntegrationDlg
Imports IMANEXTLib
Imports IMANEXT2Lib
Public Class Form1
Private Sub btnLogin_Click(sender As System.Object, e As System.EventArgs) Handles btnLogin.Click
Dim pNRTDMS As New NRTDMS
Dim pSession As NRTSession = pNRTDMS.Sessions.Add("labworksite")
pSession.TrustedLogin()
Dim oDialog As New IIntegrationDlg.DocOpenDlg
oDialog.NRTDMS = pNRTDMS
oDialog.SingleSel = False
oDialog.CloseOnOK = False
Dim oCommands(0 To 3) As String
oCommands(0) = "
@1@&Open "
oCommands(1) = "
@2@&Open &Copy"
oCommands(2) = "
@3@&View"
oCommands(3) = "
@4@&Properties"
oDialog.CommandList = oCommands
AddHandler oDialog.OnOK, AddressOf oDialog_OnOK
oDialog.Show(0)
'Dim oCommandSelected As Integer = oDialog.CommandSelected
'Dim docArray = oDialog.DocumentList
oDialog = Nothing
pSession.Logout()
pNRTDMS.CloseApplication()
End Sub
'Private WithEvents oDialog As IIntegrationDlg.DocOpenDlg
Private Sub oDialog_OnOK(ByVal oInterface As IIntegrationDlg.DocOpenDlg)
Dim oDocumentList = oInterface.DocumentList
Select Case oInterface.CommandSelected
Case 1
OpenDocument(oDocumentList)
Case (2)
MessageBox.Show("Copy Selected")
Case 3
MessageBox.Show("View Selected")
Case 4
MessageBox.Show("Properties Selected")
End Select
End Sub
Private Sub OpenDocument(ByVal DocumentList As Object)
Dim oDoc As NRTDocument
Dim oCommand As OpenCmd
Dim oContextItems As ContextItems
Dim oSelectedDocs(0) As NRTDocument
Dim i, ct As Long
ct = UBound(DocumentList) - LBound(DocumentList)
For i = 0 To ct
oDoc = DocumentList(i)
oSelectedDocs(0) = oDoc
oCommand = New OpenCmd
oContextItems = New ContextItems
oContextItems.Add("SelectedNRTDocuments", oSelectedDocs)
oContextItems.Add("IManExt.OpenCmd.NoCmdUI", True)
oContextItems.Add("IManExt.OpenCmd.Integration", True)
oCommand.Initialize(oContextItems)
oCommand.Update()
If oCommand.Status = (oCommand.Status And CommandStatus.nrActiveCommand) Then
oCommand.Execute()
Dim filLoc As String
filLoc = oContextItems("IManExt.OpenCmd.ING.FileLocation")
End If
Next
oCommand = Nothing
oContextItems = Nothing
oDoc = Nothing
End Sub
