Hi,
try to creata filed and Button and browse and save to DB.
Imports System.Threading
Imports System.IO
Sub OpenFile()
Try
ShowFolderBrowserThread = New Threading.Thread(AddressOf ShowFolderBrowser)
If ShowFolderBrowserThread.ThreadState = ThreadState.Unstarted Then
ShowFolderBrowserThread.SetApartmentState(ApartmentState.STA)
ShowFolderBrowserThread.Start()
ElseIf ShowFolderBrowserThread.ThreadState = ThreadState.Stopped Then
ShowFolderBrowserThread.Start()
ShowFolderBrowserThread.Join()
End If
Catch ex As Exception
End Try
End Sub
Public Sub ShowFolderBrowser()
Try
Dim omat As SAPbouiCOM.Matrix = PI_Frm.Items.Item("m_attach").Specific
Dim MyTest As New OpenFileDialog
Dim MyProcs() As Process
Dim filename As String
MyProcs = Process.GetProcessesByName("SAP Business One")
If MyProcs.Length <> 0 Then
For i As Integer = 0 To MyProcs.Length - 1
Dim MyWindow As New WindowWrapper(MyProcs(i).MainWindowHandle)
MyTest.Filter = "Excel files (.xls)|.xls|Document files (.doc)|.doc"
MyTest.InitialDirectory = "C:\"
If MyTest.ShowDialog(MyWindow) = DialogResult.OK Then
filename = MyTest.FileName
Dim f As New System.IO.FileInfo(filename)
PI_Frm.Freeze(True)
omat.AddRow()
omat.FlushToDataSource()
ATTACH_oDBds.Offset = ATTACH_oDBds.Size - 1
ATTACH_oDBds.SetValue("LineId", ATTACH_oDBds.Offset, omat.VisualRowCount)
ATTACH_oDBds.SetValue("U_path", ATTACH_oDBds.Offset, f.DirectoryName)
ATTACH_oDBds.SetValue("U_fname", ATTACH_oDBds.Offset, f.Name)
ATTACH_oDBds.SetValue("U_adate", ATTACH_oDBds.Offset, DateTime.Today.ToString("yyyyMMdd"))
omat.SetLineData(ATTACH_oDBds.Size)
' omat.FlushToDataSource()
PI_Frm.Items.Item("Display").Enabled = True
PI_Frm.Items.Item("Delete").Enabled = True
PI_Frm.Freeze(False)
System.Windows.Forms.Application.ExitThread()
Else
System.Windows.Forms.Application.ExitThread()
End If
Next
Else
Console.WriteLine("No SBO instances found.")
End If
Catch ex As Exception
PI_Frm.Freeze(False)
End Try
End Sub
regards,
Prasad