9b67d84f-0303-4a19-a380-e5d09385fd1c Launch Excel Price Import Baed on Jiwa Launch App plugin false false 0 Danny Costa 7.0.78.0 Imports JiwaFinancials.Jiwa Public Class FormPlugin Inherits System.MarshalByRefObject Implements JiwaFinancials.Jiwa.JiwaApplication.IJiwaFormPlugin Overrides Public Function InitializeLifetimeService() As Object ' returning null here will prevent the lease manager ' from deleting the Object. Return Nothing End Function Public Sub SetupBeforeHandlers(ByVal JiwaForm As JiwaApplication.IJiwaForm, ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaFormPlugin.SetupBeforeHandlers End Sub Public Sub Setup(ByVal JiwaForm As JiwaApplication.IJiwaForm, ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaFormPlugin.Setup End Sub End Class Public Class BusinessLogicPlugin Inherits System.MarshalByRefObject Implements JiwaApplication.IJiwaBusinessLogicPlugin Overrides Public Function InitializeLifetimeService() As Object ' returning null here will prevent the lease manager ' from deleting the Object. Return Nothing End Function Public Sub Setup(ByVal JiwaBusinessLogic As JiwaApplication.IJiwaBusinessLogic, ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaBusinessLogicPlugin.Setup End Sub End Class Public Class ApplicationManagerPlugin Inherits System.MarshalByRefObject Implements JiwaApplication.IJiwaApplicationManagerPlugin Overrides Public Function InitializeLifetimeService() As Object ' returning null here will prevent the lease manager ' from deleting the Object. Return Nothing End Function Public Sub Setup(ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaApplicationManagerPlugin.Setup End Sub End Class Public Class CustomFieldPlugin Inherits System.MarshalByRefObject Implements JiwaApplication.IJiwaCustomFieldPlugin Overrides Public Function InitializeLifetimeService() As Object ' returning null here will prevent the lease manager ' from deleting the Object. Return Nothing End Function Public Sub FormatCell(ByVal BusinessLogicHost As JiwaApplication.IJiwaBusinessLogic, ByVal GridObject As JiwaFinancials.Jiwa.JiwaApplication.Controls.JiwaGrid, ByVal FormObject As JiwaApplication.IJiwaForm, ByVal Col As Integer, ByVal Row As Integer, ByVal HostObject As JiwaApplication.IJiwaCustomFieldValues, ByVal CustomField As JiwaApplication.CustomFields.CustomField, ByVal CustomFieldValue As JiwaApplication.CustomFields.CustomFieldValue) Implements JiwaApplication.IJiwaCustomFieldPlugin.FormatCell End Sub Public Sub ReadData(ByVal BusinessLogicHost As JiwaApplication.IJiwaBusinessLogic, ByVal GridObject As JiwaFinancials.Jiwa.JiwaApplication.Controls.JiwaGrid, ByVal FormObject As JiwaApplication.IJiwaForm, ByVal Row As Integer, ByVal HostObject As JiwaApplication.IJiwaCustomFieldValues, ByVal CustomField As JiwaApplication.CustomFields.CustomField, ByVal CustomFieldValue As JiwaApplication.CustomFields.CustomFieldValue) Implements JiwaApplication.IJiwaCustomFieldPlugin.ReadData End Sub Public Sub ButtonClicked(ByVal BusinessLogicHost As JiwaApplication.IJiwaBusinessLogic, ByVal GridObject As JiwaFinancials.Jiwa.JiwaApplication.Controls.JiwaGrid, ByVal FormObject As JiwaApplication.IJiwaForm, ByVal Col As Integer, ByVal Row As Integer, ByVal HostObject As JiwaApplication.IJiwaCustomFieldValues, ByVal CustomField As JiwaApplication.CustomFields.CustomField, ByVal CustomFieldValue As JiwaApplication.CustomFields.CustomFieldValue) Implements JiwaApplication.IJiwaCustomFieldPlugin.ButtonClicked End Sub End Class Public Class LineCustomFieldPlugin Inherits System.MarshalByRefObject Implements JiwaApplication.IJiwaLineCustomFieldPlugin Overrides Public Function InitializeLifetimeService() As Object ' returning null here will prevent the lease manager ' from deleting the Object. Return Nothing End Function Public Sub FormatCell(ByVal BusinessLogicHost As JiwaApplication.IJiwaBusinessLogic, ByVal GridObject As JiwaFinancials.Jiwa.JiwaApplication.Controls.JiwaGrid, ByVal FormObject As JiwaApplication.IJiwaForm, ByVal Col As Integer, ByVal Row As Integer, ByVal HostItem As JiwaApplication.IJiwaLineCustomFieldValues, ByVal CustomField As JiwaApplication.CustomFields.CustomField, ByVal CustomFieldValue As JiwaApplication.CustomFields.CustomFieldValue) Implements JiwaApplication.IJiwaLineCustomFieldPlugin.FormatCell End Sub Public Sub ReadData(ByVal BusinessLogicHost As JiwaApplication.IJiwaBusinessLogic, ByVal GridObject As JiwaFinancials.Jiwa.JiwaApplication.Controls.JiwaGrid, ByVal FormObject As JiwaApplication.IJiwaForm, ByVal Row As Integer, ByVal HostItem As JiwaApplication.IJiwaLineCustomFieldValues, ByVal CustomField As JiwaApplication.CustomFields.CustomField, ByVal CustomFieldValue As JiwaApplication.CustomFields.CustomFieldValue) Implements JiwaApplication.IJiwaLineCustomFieldPlugin.ReadData End Sub Public Sub ButtonClicked(ByVal BusinessLogicHost As JiwaApplication.IJiwaBusinessLogic, ByVal GridObject As JiwaFinancials.Jiwa.JiwaApplication.Controls.JiwaGrid, ByVal FormObject As JiwaApplication.IJiwaForm, ByVal Col As Integer, ByVal Row As Integer, ByVal HostItem As JiwaApplication.IJiwaLineCustomFieldValues, ByVal CustomField As JiwaApplication.CustomFields.CustomField, ByVal CustomFieldValue As JiwaApplication.CustomFields.CustomFieldValue) Implements JiwaApplication.IJiwaLineCustomFieldPlugin.ButtonClicked End Sub End Class Public Class SystemSettingPlugin Inherits System.MarshalByRefObject Implements JiwaApplication.IJiwaSystemSettingPlugin Public Overrides Function InitializeLifetimeService() As Object ' returning null here will prevent the lease manager ' from deleting the Object. Return Nothing End Function Public Sub FormatCell(ByVal BusinessLogicHost As JiwaApplication.IJiwaBusinessLogic, ByVal GridObject As JiwaApplication.Controls.JiwaGrid, ByVal FormObject As JiwaApplication.IJiwaForm, ByVal Col As Integer, ByVal Row As Integer, ByVal SystemSetting As JiwaApplication.SystemSettings.Setting) Implements JiwaApplication.IJiwaSystemSettingPlugin.FormatCell End Sub Public Sub ReadData(ByVal BusinessLogicHost As JiwaApplication.IJiwaBusinessLogic, ByVal GridObject As JiwaApplication.Controls.JiwaGrid, ByVal FormObject As JiwaApplication.IJiwaForm, ByVal Row As Integer, ByVal SystemSetting As JiwaApplication.SystemSettings.Setting) Implements JiwaApplication.IJiwaSystemSettingPlugin.ReadData End Sub Public Sub ButtonClicked(ByVal BusinessLogicHost As JiwaApplication.IJiwaBusinessLogic, ByVal GridObject As JiwaApplication.Controls.JiwaGrid, ByVal FormObject As JiwaApplication.IJiwaForm, ByVal Col As Integer, ByVal Row As Integer, ByVal SystemSetting As JiwaApplication.SystemSettings.Setting) Implements JiwaApplication.IJiwaSystemSettingPlugin.ButtonClicked End Sub End Class Partial Class LaunchApp Inherits JiwaFinancials.Jiwa.JiwaApplication.ProcessAction.UserInterface Public Sub New() 'Dim notepad As System.Diagnostics.Process = System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo("notepad.exe")) End Sub 'This code was developed by Gerardo Lopez and was downloaded from www.brangle.com 'Complete source code is available at: 'http://www.brangle.com/wordpress/2009/09/howto-use-the-openfiledialog-box-in-vbnet/ 'This was declared as a function because I want to be able to return a filename 'the filename will be returned as a string Public Function OpenFile() As String 'declare a string, this is will contain the filename that we return Dim strFileName = "" 'declare a new open file dialog Dim fileDialogBox As New OpenFileDialog() 'add file filters, this step is optional, but if you notice the screenshot 'above it does not look clean if you leave it off, I explained in further 'detail on my site how to add/modify these values fileDialogBox.Filter = "Rich Text Format (*.rtf)|*.rtf|" _ & "Excel Files (*.xls)|*.xls|" _ & "Text Files (*.txt)|*.txt|" _ & "Word Documents (*.doc;*.docx)|*.doc;*.docx|" _ & "Image Files (*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif|" _ & "All Files(*.*)|" 'this sets the default filter that we created in the line above, if you don't 'set a FilterIndex it will automatically default to 1 fileDialogBox.FilterIndex = 3 'this line tells the file dialog box what folder it should start off in first 'I selected the users my document folder fileDialogBox.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal) 'Check to see if the user clicked the open button If (fileDialogBox.ShowDialog() = DialogResult.OK) Then strFileName = fileDialogBox.FileName 'Else ' MsgBox("You did not select a file!") End If 'return the name of the file Return strFileName End Function Private Sub btnOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenFile.Click 'declare a string to the filename Dim strFileNameAndPath As String = OpenFile() 'check to see if they selected a file or just clicked cancel If (strFileNameAndPath = "") Then 'Chastise the user for not selecting a file :) MsgBox("You did not select a file!") Else 'Begin doing whatever it is you would normally do with the file! MsgBox("You selected this file: " & strFileNameAndPath & vbCrLf & _ "The filename is: " & System.IO.Path.GetFileName(strFileNameAndPath) & vbCrLf & _ "Located in: " & System.IO.Path.GetDirectoryName(strFileNameAndPath) & vbCrLf & _ "It has the following extension: " & System.IO.Path.GetExtension(strFileNameAndPath) & vbCrLf & _ "The file was created on " & System.IO.File.GetCreationTime(strFileNameAndPath) & vbCrLf & _ "The file was last written to on " & System.IO.File.GetLastWriteTime(strFileNameAndPath) _ ) End If End Sub End Class Report f7c906c3-f996-47b4-9875-e220663cf24a Microsoft.VisualBasic, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a Microsoft.VisualBasic.dll C:\windows\Microsoft.Net\assembly\GAC_MSIL\Microsoft.VisualBasic\v4.0_10.0.0.0__b03f5f7f11d50a3a\Microsoft.VisualBasic.dll c6a62714-6ed8-4913-9d1f-574bbe37247c System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Windows.Forms.dll C:\windows\Microsoft.Net\assembly\GAC_MSIL\System.Windows.Forms\v4.0_4.0.0.0__b77a5c561934e089\System.Windows.Forms.dll 54276c38-1d17-48d2-b966-6c47110fc7f8 System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a System.Drawing.dll C:\windows\Microsoft.Net\assembly\GAC_MSIL\System.Drawing\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.Drawing.dll ed99311b-b37c-4bd9-8dfc-4add0b8a3a0a JiwaODBC, Version=7.0.78.0, Culture=neutral, PublicKeyToken=16681e4ff68950ef JiwaODBC.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaODBC.dll f2d1db22-943f-4120-a280-8422cbdd6ddc System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.dll C:\windows\Microsoft.Net\assembly\GAC_MSIL\System\v4.0_4.0.0.0__b77a5c561934e089\System.dll 313f4089-c4ac-455c-9bc7-c607b8c98ef4 System.Core, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Core.dll C:\windows\Microsoft.Net\assembly\GAC_MSIL\System.Core\v4.0_4.0.0.0__b77a5c561934e089\System.Core.dll ad0569e8-a9d7-4312-8c8e-a1e3dee58f83 JiwaApplication, Version=7.0.78.0, Culture=neutral, PublicKeyToken=16681e4ff68950ef JiwaApplication.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaApplication.dll 49c69fb4-92c6-4261-b95c-66f412cdaf92 Infragistics4.Win.UltraWinToolbars.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.UltraWinToolbars.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.UltraWinToolbars.v13.1.dll c22723e0-e7e5-4a92-a441-5d7681f444e4 Infragistics4.Win.Misc.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.Misc.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.Misc.v13.1.dll cb4035ed-0fe5-4085-aa65-0ecac0b93985 Infragistics4.Win.UltraWinStatusBar.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.UltraWinStatusBar.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.UltraWinStatusBar.v13.1.dll e7a5d31b-a5e0-430b-b4a9-5cbc0442d9ea FarPoint.Win.Spread, Version=7.35.20132.1, Culture=neutral, PublicKeyToken=327c3516b1b18457 FarPoint.Win.Spread.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\FarPoint.Win.Spread.dll 77ef0923-af04-4e19-b4a8-86ecff8b8934 Infragistics4.Win.UltraWinTabControl.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.UltraWinTabControl.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.UltraWinTabControl.v13.1.dll c0dc5484-64bf-444a-aebf-8abfcaf3997b Infragistics4.Win.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.v13.1.dll 7db3d5c4-8299-428f-bf43-177ce1e05609 Infragistics4.Win.UltraWinEditors.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.UltraWinEditors.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.UltraWinEditors.v13.1.dll b43f5765-de8f-4317-97b9-d5154ebdf72a Infragistics4.Win.UltraWinExplorerBar.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.UltraWinExplorerBar.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.UltraWinExplorerBar.v13.1.dll 8a063135-ec45-4dfb-afab-a57d577e6401 Infragistics4.Win.UltraWinTree.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.UltraWinTree.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.UltraWinTree.v13.1.dll fc676296-ae98-4265-b1eb-4067ace30311 System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Xml.dll C:\windows\Microsoft.Net\assembly\GAC_MSIL\System.Xml\v4.0_4.0.0.0__b77a5c561934e089\System.Xml.dll 802603c3-7566-4c8e-93fa-2ab907bb060d Infragistics4.Win.AppStylistSupport.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.AppStylistSupport.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.AppStylistSupport.v13.1.dll a8f70aa1-addc-4c8a-b706-25ad557e3211 Infragistics4.Win.UltraWinSchedule.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.UltraWinSchedule.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.UltraWinSchedule.v13.1.dll ab5ce68e-24cf-4c15-89e4-c21e3449b8d3 Infragistics4.Win.UltraWinGrid.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.UltraWinGrid.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.UltraWinGrid.v13.1.dll 96968811-8fc3-400d-bd8c-3b4957b11df0 Infragistics4.Shared.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Shared.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Shared.v13.1.dll 34ae70d9-88a8-4488-862a-1543bcf3ee3f System.Data, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Data.dll C:\windows\Microsoft.Net\assembly\GAC_32\System.Data\v4.0_4.0.0.0__b77a5c561934e089\System.Data.dll 3f881f5b-a7c5-4a0f-9660-59bcb74961b8 mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 mscorlib.dll C:\Windows\Microsoft.NET\Framework\v4.0.30319\mscorlib.dll 393857fe-9431-4554-98cf-00a40894694e FarPoint.Win, Version=7.35.20132.1, Culture=neutral, PublicKeyToken=327c3516b1b18457 FarPoint.Win.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\FarPoint.Win.dll edc6fd4a-f0e4-4147-802b-dc74cc7ad0f1 System.Security, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a System.Security.dll C:\windows\Microsoft.Net\assembly\GAC_MSIL\System.Security\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.Security.dll