0dcf8825-7c0d-4851-ae05-bf9f0e61d596 Sales Order Custom Fields with UI This plugin demonstrates how to create custom fields for the Sales Order screen, and includes a user interface for defining the values that will appear in the combobox custom field. false false 0 Jiwa Financials 7.0.175.0

Imports JiwaFinancials.Jiwa
Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Data
Imports System.Collections.Generic

Public Class FormPlugin
    Inherits System.MarshalByRefObject
    Implements JiwaApplication.IJiwaFormPlugin

    Public Overrides 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

    Public Overrides 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

    Public Overrides 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

    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 HostObject As JiwaApplication.IJiwaCustomFieldValues, ByVal CustomField As JiwaApplication.CustomFields.CustomField, ByVal CustomFieldValue As JiwaApplication.CustomFields.CustomFieldValue) Implements JiwaApplication.IJiwaCustomFieldPlugin.FormatCell	
		Static comboBoxItemList As New List(Of String)
        Static comboBoxItemDataList As New List(Of String)
		
			If comboBoxItemList.Count = 0 Then
				Dim salesOrderComboBoxValues As New SalesOrderComboBoxValueCollection 
				salesOrderComboBoxValues.Read	
				
				For Each existingsalesOrderComboBoxValue As SalesOrderComboBoxValue In salesOrderComboBoxValues
					comboBoxItemList.Add(existingsalesOrderComboBoxValue.Item)
        			comboBoxItemDataList.Add(existingsalesOrderComboBoxValue.ItemData)
				Next
			End If

        DirectCast(GridObject.ActiveSheet.Cells(row, col).CellType, FarPoint.Win.Spread.CellType.ComboBoxCellType).Items = comboBoxItemList.ToArray
        DirectCast(GridObject.ActiveSheet.Cells(row, col).CellType, FarPoint.Win.Spread.CellType.ComboBoxCellType).ItemData = comboBoxItemDataList.ToArray
    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 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 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

    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 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 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 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

Public Class ScheduledExecutionPlugin
    Inherits System.MarshalByRefObject
    Implements JiwaApplication.IJiwaScheduledExecutionPlugin

    Public Sub Execute(ByVal Plugin As JiwaApplication.Plugin.Plugin, ByVal Schedule As JiwaApplication.Schedule.Schedule) Implements JiwaApplication.IJiwaScheduledExecutionPlugin.Execute

    End Sub

    Public Sub OnServiceStart(ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaScheduledExecutionPlugin.OnServiceStart

    End Sub

    Public Sub OnServiceStopping(ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaScheduledExecutionPlugin.OnServiceStopping

    End Sub
End Class

Public Class SalesOrderComboBoxValue
    Inherits JiwaApplication.JiwaCollectionItem(Of SalesOrderComboBoxValue)

#Region "Events"
    Public Event Read()
#End Region

#Region "Fields"
    Private _Item As String = ""
    Private _ItemData As String = ""
#End Region

#Region "Properties"
    Public ReadOnly Property SalesOrderComboBoxValues() As SalesOrderComboBoxValueCollection
        Get
            Return Collection
        End Get
    End Property

    Public Property Item As String
        Get
            Return _Item
        End Get
        Set(ByVal value As String)
            _Item = value
            NotifyPropertyChanged("Item")
        End Set
    End Property

    Public Property ItemData As String
        Get
            Return _ItemData
        End Get
        Set(ByVal value As String)
            _ItemData = value
            NotifyPropertyChanged("ItemData")
        End Set
    End Property
#End Region

#Region "Methods"
    Public Overrides Sub Clear()
        RecID = ""
        Item = ""
        ItemData = ""
        ItemNo = 0
    End Sub

    Public Sub ReadRecord(ByVal RecIDtoRead As String)
        Dim SQL As String = ""
        Dim SQLReader As SqlDataReader = Nothing
        Dim SQLParam As SqlParameter = Nothing

        With JiwaApplication.Manager.Instance.Database
            Try
                SQL = "SELECT TOP 1 Item, ItemData, ItemNo " &
                      "FROM SO_ComboBoxValues " &
                      "WHERE RecID = @RecID "

                Using SQLCmd As SqlCommand = New SqlCommand(SQL, .SQLConnection, .SQLTransaction)

                    SQLParam = New SqlParameter("@RecID", System.Data.SqlDbType.Char)
                    SQLParam.Value = RecIDtoRead
                    SQLCmd.Parameters.Add(SQLParam)

                    SQLReader = SQLCmd.ExecuteReader()

                    If SQLReader.Read = True Then
                        RecID = RecIDtoRead
                        Item = .Sanitise(SQLReader, "Item")
                        ItemData = .Sanitise(SQLReader, "ItemData")
                        ItemNo = .Sanitise(SQLReader, "ItemNo")
                    Else
                        Throw New System.Exception("SalesOrderComboBoxValue Not Found")
                    End If

                End Using

                OnRead()

            Finally
                If Not SQLReader Is Nothing Then
                    SQLReader.Close()
                End If
            End Try
        End With
    End Sub

    Public Overridable Sub OnRead()
        RaiseEvent Read()
    End Sub
#End Region

    Protected Overrides Sub iSave()
        Dim Sql As String
        Dim SQLParam As SqlParameter
        Try
            With JiwaApplication.Manager.Instance.Database
                ' Save lines
                Validate()

                If DeleteFlag = False Then
                    If InsertFlag Then
                        Sql = "INSERT INTO SO_ComboBoxValues (RecID, Item, ItemData, ItemNo) " &
                            "VALUES (@RecID, @Item, @ItemData, @ItemNo)"
                    Else
                        Sql = "UPDATE SO_ComboBoxValues SET " &
                            " Item = @Item" &
                            ", ItemData = @ItemData " &
                            ", ItemNo = @ItemNo " &
                            "WHERE RecID = @RecID "
                    End If

                    Using SQLCmd As SqlCommand = New SqlCommand(Sql, .SQLConnection, .SQLTransaction)
                        SQLParam = New SqlParameter("@RecID", System.Data.SqlDbType.Char)
                        SQLParam.Value = RecID
                        SQLCmd.Parameters.Add(SQLParam)

                        SQLParam = New SqlParameter("@Item", System.Data.SqlDbType.VarChar)
                        SQLParam.Value = Item
                        SQLCmd.Parameters.Add(SQLParam)

                        SQLParam = New SqlParameter("@ItemData", System.Data.SqlDbType.VarChar)
                        SQLParam.Value = ItemData
                        SQLCmd.Parameters.Add(SQLParam)

                        SQLParam = New SqlParameter("@ItemNo", System.Data.SqlDbType.Int)
                        SQLParam.Value = ItemNo
                        SQLCmd.Parameters.Add(SQLParam)

                        If SQLCmd.ExecuteNonQuery() = 0 Then
                            Throw New JiwaApplication.Exceptions.ConcurrencyConflictException("unable to " & If(InsertFlag, "insert into", "update") & " SO_ComboBoxValues")
                        End If
                    End Using
                End If

                If DeleteFlag Then
                    Sql = "DELETE FROM SO_ComboBoxValues WHERE RecID = @RecID "

                    Using SQLCmd As SqlCommand = New SqlCommand(Sql, .SQLConnection, .SQLTransaction)
                        SQLParam = New SqlParameter("@RecID", System.Data.SqlDbType.Char)
                        SQLParam.Value = RecID
                        SQLCmd.Parameters.Add(SQLParam)

                        If SQLCmd.ExecuteNonQuery() = 0 Then
                            Throw New JiwaApplication.Exceptions.ConcurrencyConflictException("unable to delete from SO_ComboBoxValues")
                        End If
                    End Using

                End If
            End With
        Catch ex As SqlException
            Const SqlDuplicateKeyError As Integer = 2601

            If ex.Number = SqlDuplicateKeyError Then
                Throw New JiwaApplication.Exceptions.UniquenessException("There are two or more SO_ComboBoxValues with an item of '" & _Item & "'.  Items must be unique.")
            End If
            Throw
        Catch ex As System.Exception
            Throw
        End Try

    End Sub

    Private Sub Validate()
        If ChangeFlag Or InsertFlag Then
            If _Item.Trim.Length = 0 Then
                Throw New System.Exception("Item " & ItemNo & " is blank.  SalesOrderComboBoxValue items cannot be blank.")
            End If
        End If
    End Sub
End Class

Public Class SalesOrderComboBoxValueCollection
	Inherits JiwaFinancials.Jiwa.JiwaApplication.BusinessLogic.ListMaintenance(Of SalesOrderComboBoxValue)

	Public Overrides Sub Save()
		Dim weStartedTransaction As Boolean

		With JiwaApplication.Manager.Instance.Database
			Try
				If .SQLTransaction Is Nothing Then
					' flag that we created the transaction, so we know if we should be the ones to .commit or .rollback later.
					.BeginNewTransaction()
					weStartedTransaction = True
				End If

				OnSaveStart()

				MyBase.Save()

				OnSaveEnding()

				If weStartedTransaction Then
					.Commit()
				End If

				MyBase.OnSaved()

			Catch ex As System.Exception
				If weStartedTransaction AndAlso Not JiwaApplication.Manager.Instance.Database.SQLTransaction Is Nothing AndAlso Not JiwaApplication.Manager.Instance.Database.SQLTransaction.Connection Is Nothing Then
					JiwaApplication.Manager.Instance.Database.SQLTransaction.Rollback()
					JiwaApplication.Manager.Instance.Database.SQLTransaction.dispose()
					JiwaApplication.Manager.Instance.Database.SQLTransaction = Nothing
				End If
				Throw
			End Try
		End With
	End Sub

	Public Overrides Sub Read()
		Dim Sql As String
		Dim SQLReader As SqlDataReader = Nothing
		Dim SQLParam As SqlParameter = Nothing
		Dim oldReading As Boolean = Reading

		Try
			Reading = True
			Clear()

			With JiwaApplication.Manager.Instance.Database

				Sql = "SELECT RecID, Item, ItemData, ItemNo " &
					  "FROM SO_ComboBoxValues " &
					  "ORDER BY ItemNo "

				Using SQLCmd As SqlCommand = New SqlCommand(Sql, .SQLConnection, .SQLTransaction)

					SQLReader = SQLCmd.ExecuteReader()

					Do While SQLReader.Read = True
						Dim SalesOrderComboBoxValue As SalesOrderComboBoxValue = New SalesOrderComboBoxValue
						SalesOrderComboBoxValue.RecID = .Sanitise(SQLReader, "RecID")
						SalesOrderComboBoxValue.ItemNo = .Sanitise(SQLReader, "ItemNo")
						SalesOrderComboBoxValue.Item = .Sanitise(SQLReader, "Item")
						SalesOrderComboBoxValue.ItemData = .Sanitise(SQLReader, "ItemData")
						Add(SalesOrderComboBoxValue)
					Loop

					SQLReader.Close()
				End Using
			End With

			MyBase.OnRead()

		Finally
			Reading = oldReading

			If Not SQLReader Is Nothing Then
				SQLReader.Close()
			End If
		End Try
	End Sub

	Public Sub New()
		RecIDIsGUID = True
	End Sub
End Class


<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class SalesOrderComboBoxConfiguration
    Inherits JiwaApplication.ListMaintenance.UserInterface(Of SalesOrderComboBoxValue, SalesOrderComboBoxValueCollection)

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        CType(Me.UltraToolbarsManager1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.UserInterface_Fill_Panel.SuspendLayout()
        CType(Me.UltraStatusBar1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'UltraToolbarsManager1
        '
        Me.UltraToolbarsManager1.MenuSettings.ForceSerialization = True
        Me.UltraToolbarsManager1.Ribbon.FileMenuStyle = Infragistics.Win.UltraWinToolbars.FileMenuStyle.None
        Me.UltraToolbarsManager1.Ribbon.QuickAccessToolbar.Visible = False
        Me.UltraToolbarsManager1.Ribbon.Visible = True
        Me.UltraToolbarsManager1.ToolbarSettings.ForceSerialization = True
        '
        'UserInterface_Fill_Panel
        '
        Me.UserInterface_Fill_Panel.Location = New System.Drawing.Point(8, 150)
        Me.UserInterface_Fill_Panel.Size = New System.Drawing.Size(524, 287)
        '
        'UltraStatusBar1
        '
        Me.UltraStatusBar1.Location = New System.Drawing.Point(0, 437)
        Me.UltraStatusBar1.Size = New System.Drawing.Size(540, 23)
        '
        'SalesOrderComboBoxConfiguration
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.ClientSize = New System.Drawing.Size(540, 460)
        Me.Name = "SalesOrderComboBoxConfiguration"
        Me.Text = "Sales Order ComboBox Configuration"
        CType(Me.UltraToolbarsManager1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.UserInterface_Fill_Panel.ResumeLayout(False)
        CType(Me.UltraStatusBar1, System.ComponentModel.ISupportInitialize).EndInit()            
        Me.ResumeLayout(False)

    End Sub


#Region "Setup"
        Public Overrides Sub SetupBeforeHandlers()
            MyBase.SetupBeforeHandlers()
            Me.MdiParent = JiwaApplication.Manager.Instance.MDIParentForm            
        End Sub

        Public Overrides Sub Setup()
            AddHandlers()
            SetupForm()
        End Sub

        Public Overrides Sub AddHandlers()
            AddHandler grdLines.ButtonClicked, AddressOf grdLines_ButtonClicked
            AddHandler grdLines.Change, AddressOf grdLines_Change            
            MyBase.AddHandlers()
        End Sub

        Public Sub SetupForm()
            SetupWindow()
            SetupControls()
        End Sub

        Private Sub SetupControls()
            With grdLines
                .AddColumn("RecID", New JiwaApplication.JiwaManageGrid.JiwaTextCellType, "RecID", 0, True, False)
                .AddColumn("ItemNo", New FarPoint.Win.Spread.CellType.NumberCellType, "Item No.", 5)
                .AddColumn("Item", New JiwaApplication.JiwaManageGrid.JiwaTextCellType, "Item", 10, False, True, True, False, 50, False, False)
                .AddColumn("ItemData", New JiwaApplication.JiwaManageGrid.JiwaTextCellType, "Item Data", 10, False, True, True, False, 50, False, False)
                .AddColumn("Bin", New JiwaApplication.JiwaManageGrid.JiwaBinButtonCellType, "")
                .SetupComplete()
            End With
        End Sub
#End Region

#Region "Control Event Handlers"
        Private Sub grdLines_ButtonClicked(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EditorNotifyEventArgs)
            Dim column As FarPoint.Win.Spread.Column = grdLines.ActiveSheet.Columns(e.Column)

            If column.Tag = "Bin" Then
                BusinessLogic.Remove(BusinessLogic(grdLines.GridText("RecID", e.Row)))
            End If
        End Sub

        Private Sub grdLines_Change(sender As Object, e As FarPoint.Win.Spread.ChangeEventArgs)
            Dim Key As String
            Dim ColID As String = grdLines.ActiveSheet.Columns(e.Column).Tag

            With grdLines
                If ColID = "ItemNo" Then
                    If e.Row = .ActiveSheet.RowCount - 1 Then
                        Dim newSalesOrderComboBoxValue As New SalesOrderComboBoxValue
                        newSalesOrderComboBoxValue.ItemNo = .GridText("ItemNo", e.Row)
                        BusinessLogic.Add(newSalesOrderComboBoxValue)
                    Else
                        Key = .GridText("RecID", e.Row)
                        BusinessLogic(Key).ItemNo = .GridText("ItemNo", e.Row)
                    End If
                ElseIf ColID = "Item" Then
                    If e.Row = .ActiveSheet.RowCount - 1 Then
                        Dim newSalesOrderComboBoxValue As New SalesOrderComboBoxValue
                        newSalesOrderComboBoxValue.Item = .GridText("Item", e.Row)
                        BusinessLogic.Add(newSalesOrderComboBoxValue)
                    Else
                        Key = .GridText("RecID", e.Row)
                        BusinessLogic(Key).Item = .GridText("Item", e.Row)
                    End If
                ElseIf ColID = "ItemData" Then
                    If e.Row = .ActiveSheet.RowCount - 1 Then
                        Dim newSalesOrderComboBoxValue As New SalesOrderComboBoxValue
                        newSalesOrderComboBoxValue.ItemData = .GridText("ItemData", e.Row)
                        BusinessLogic.Add(newSalesOrderComboBoxValue)
                    Else
                        Key = .GridText("RecID", e.Row)
                        BusinessLogic(Key).ItemData = .GridText("ItemData", e.Row)
                    End If
                End If
            End With
        End Sub
#End Region

#Region "Display"

        Public Overrides Sub DisplayLine(ByVal mySalesOrderComboBoxValue As SalesOrderComboBoxValue, Optional ByVal Row As Integer = -1)

            If Row = -1 Then
                For MyLoop As Integer = 0 To grdLines.ActiveSheet.Rows.Count - 1
                    If grdLines.GridText("RecID", MyLoop) = mySalesOrderComboBoxValue.RecID Then
                        Row = MyLoop
                        Exit For
                    End If
                Next MyLoop
            End If

            If Row <> -1 Then
                ' copy col header tag into each cell tag.
                For Each column As FarPoint.Win.Spread.Column In grdLines.ActiveSheet.Columns
                    grdLines.ActiveSheet.Cells(Row, column.Index).Tag = grdLines.ActiveSheet.ColumnHeader.Cells(1, column.Index).Tag
                Next

                grdLines.GridText("RecID", Row) = mySalesOrderComboBoxValue.RecID
                grdLines.GridText("ItemNo", Row) = mySalesOrderComboBoxValue.ItemNo
                grdLines.GridText("Item", Row) = mySalesOrderComboBoxValue.Item
                grdLines.GridText("ItemData", Row) = mySalesOrderComboBoxValue.ItemData

                grdLines.LockColumn(True, "RecID", Row)
                grdLines.LockColumn(False, "ItemNo", Row)
                grdLines.LockColumn(False, "Item", Row)
                grdLines.LockColumn(False, "ItemData", Row)
                grdLines.LockColumn(False, "Bin", Row)
            End If

        End Sub

#End Region
		
		
End Class

Report VisualBasic f8401516-1204-4872-9083-d8f9d3a39b6c JiwaApplication, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaApplication.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaApplication.dll 37d3ef08-b176-4487-a96f-5703cc43b1ce mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 mscorlib.dll C:\Windows\Microsoft.NET\Framework\v4.0.30319\mscorlib.dll 258f8f8f-ac79-4508-83fe-23e68ef9b794 System, Version=4.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 251b206b-5dc7-4b4e-bf96-ce3fecfc5163 System.Data, Version=4.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 ddceb0b4-8905-464c-908c-5a2fec35b4ad JiwaODBC, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaODBC.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaODBC.dll c46d59ec-ef98-4b5c-b72e-c69a7f8b1e97 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 995ff320-433c-4320-90e2-5a7db8a5a9b4 System.Runtime.Serialization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Runtime.Serialization.dll C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Runtime.Serialization\v4.0_4.0.0.0__b77a5c561934e089\System.Runtime.Serialization.dll 59051e58-cd6e-4665-8c9e-271035eab0ce 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 ab8e1832-aa24-4a86-ac75-6e8262cff519 Microsoft.SqlServer.Smo, Version=13.100.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91 Microsoft.SqlServer.Smo.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Microsoft.SqlServer.Smo.dll f1884835-a730-4968-b91d-6f5bc60d3b8d Microsoft.SqlServer.ConnectionInfo, Version=13.100.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91 Microsoft.SqlServer.ConnectionInfo.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Microsoft.SqlServer.ConnectionInfo.dll b8cb5f7a-e512-42e5-a323-02198cbd451d 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 f6f0ab5a-ca6b-454a-8ff2-0fbb1191692d 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 87a16aaa-92e0-46f1-b9f0-72d1c820922b 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 266d27cc-648b-4126-8a83-9c22c0f97b9e 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 67090bd0-23cd-45be-b5ce-e4cb663684ec 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 747dcd04-7121-42b4-8c5f-ca32f459557b 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 2cd9062e-fc88-4007-ba62-bca4fcde79d7 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 deedf1c0-6cc6-4bec-8df9-387fb8ee1d60 FarPoint.Win.Spread, Version=8.35.20151.0, Culture=neutral, PublicKeyToken=327c3516b1b18457 FarPoint.Win.Spread.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\FarPoint.Win.Spread.dll f86a60b7-c82c-4855-927f-aa871109d8f8 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 15dc2424-036a-4847-b371-125dc22646ab 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 5a468a17-865e-4ff8-9ef9-0dd5a6ee4cfc 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 fbd25246-6c2b-4e58-b763-5edfb0b94fc1 Infragistics4.Win.UltraWinListView.v13.1, Version=13.1.20131.2060, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb Infragistics4.Win.UltraWinListView.v13.1.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Infragistics4.Win.UltraWinListView.v13.1.dll 50c1d62d-9226-4b43-87d8-dda63291f1d8 ActiproSoftware.SyntaxEditor.WinForms, Version=12.1.304.0, Culture=neutral, PublicKeyToken=c27e062d3c1a4763 ActiproSoftware.SyntaxEditor.WinForms.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\ActiproSoftware.SyntaxEditor.WinForms.dll 369bcf7f-080f-4032-99cc-a34053ab7c27 ZetaHtmlEditControl, Version=1.1.0.3, Culture=neutral, PublicKeyToken=2e2e5ba5da72b6c0 ZetaHtmlEditControl.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\ZetaHtmlEditControl.dll 4c0a71ff-0ee8-4796-acc3-1117a15ac929 ActiproSoftware.SyntaxEditor.Addons.DotNet.WinForms, Version=12.1.304.0, Culture=neutral, PublicKeyToken=c27e062d3c1a4763 ActiproSoftware.SyntaxEditor.Addons.DotNet.WinForms.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\ActiproSoftware.SyntaxEditor.Addons.DotNet.WinForms.dll cf0e0512-5b4c-4a44-b45a-1986bd4e2a4c JiwaEncryption, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaEncryption.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaEncryption.dll 3e47228d-a164-4ddf-8e84-d964253e7b18 Microsoft.Office.Interop.Outlook, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c Microsoft.Office.Interop.Outlook.dll C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Outlook\14.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Outlook.dll 0442d602-ce96-481c-b1ac-7de6ff5e77de Microsoft.SqlServer.Dac, Version=13.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a Microsoft.SqlServer.Dac.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\Microsoft.SqlServer.Dac.dll 1c54fdb1-d802-47a6-af10-b84efea1fa41 CrystalDecisions.CrystalReports.Engine, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304 CrystalDecisions.CrystalReports.Engine.dll C:\Windows\assembly\GAC_MSIL\CrystalDecisions.CrystalReports.Engine\13.0.2000.0__692fbea5521e1304\CrystalDecisions.CrystalReports.Engine.dll eeeb8416-eb83-4bec-b37f-643bad61fc0a CrystalDecisions.Shared, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304 CrystalDecisions.Shared.dll C:\Windows\assembly\GAC_MSIL\CrystalDecisions.Shared\13.0.2000.0__692fbea5521e1304\CrystalDecisions.Shared.dll 51e42b82-99b4-444b-84e9-2ed8392c6380 CrystalDecisions.ReportAppServer.Controllers, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304 CrystalDecisions.ReportAppServer.Controllers.dll C:\Windows\assembly\GAC_MSIL\CrystalDecisions.ReportAppServer.Controllers\13.0.2000.0__692fbea5521e1304\CrystalDecisions.ReportAppServer.Controllers.dll fd4080c5-bec5-41e3-b3f6-8ddb919cdd50 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 802cd04a-cf3b-4680-aa68-8597db29798a 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 aaa3fe90-d0a5-476c-bc01-21b4a6fffbb9 JiwaLib, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaLib.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaLib.dll 660708bd-73ae-47b3-b93d-976791e4f175 CrystalDecisions.Windows.Forms, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304 CrystalDecisions.Windows.Forms.dll C:\Windows\assembly\GAC_MSIL\CrystalDecisions.Windows.Forms\13.0.2000.0__692fbea5521e1304\CrystalDecisions.Windows.Forms.dll d027379c-e92c-4a77-b861-f7985ecdef76 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 0934e8bb-938c-40a7-94f2-54317c2f34fd 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 777def36-2cc5-4c54-854b-3c2277d3a61e 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 a3391771-c183-4083-bf8b-143318cd4419 ActiproSoftware.Shared.WinForms, Version=12.1.304.0, Culture=neutral, PublicKeyToken=c27e062d3c1a4763 ActiproSoftware.Shared.WinForms.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\ActiproSoftware.Shared.WinForms.dll 13424438-50aa-4d43-bde6-6a342b5d986b FarPoint.Win, Version=8.35.20151.0, Culture=neutral, PublicKeyToken=327c3516b1b18457 FarPoint.Win.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\FarPoint.Win.dll 25a31de2-89d6-44b7-aabb-3410033122ff 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 7d5be2a3-97a6-4359-8257-59bb316f6d14 CrystalDecisions.ReportAppServer.ClientDoc, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304 CrystalDecisions.ReportAppServer.ClientDoc.dll C:\Windows\assembly\GAC_MSIL\CrystalDecisions.ReportAppServer.ClientDoc\13.0.2000.0__692fbea5521e1304\CrystalDecisions.ReportAppServer.ClientDoc.dll 8f9d4bbd-055b-4c23-8420-cf006efb4921 CrystalDecisions.ReportAppServer.ReportDefModel, Version=13.0.2000.0, Culture=neutral, PublicKeyToken=692fbea5521e1304 CrystalDecisions.ReportAppServer.ReportDefModel.dll C:\Windows\assembly\GAC_MSIL\CrystalDecisions.ReportAppServer.ReportDefModel\13.0.2000.0__692fbea5521e1304\CrystalDecisions.ReportAppServer.ReportDefModel.dll de7d268a-fa06-45e4-b3af-161f07c2b506 JiwaSalesUI, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaSalesUI.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaSalesUI.dll 286ce60d-0510-4eec-8a27-c92a9d7222a3 System.Xml.Linq, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Xml.Linq.dll C:\Windows\Microsoft.Net\assembly\GAC_MSIL\System.Xml.Linq\v4.0_4.0.0.0__b77a5c561934e089\System.Xml.Linq.dll 55874df8-3a35-4647-b449-fa598b967a6b JiwaSales, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaSales.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaSales.dll b26a6bbf-45d6-45e3-84f8-af4ee90c3f36 JiwaJobCosting, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaJobCosting.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaJobCosting.dll 7776df0c-3340-4ce4-83f4-4f1d2dd202a8 JiwaPriceSchemes, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaPriceSchemes.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaPriceSchemes.dll 3513bfa4-7e95-4c81-a4da-b3477cff3bb9 JiwaSerialNumbersUI, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaSerialNumbersUI.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaSerialNumbersUI.dll 4d42eb0d-e377-42fb-9d28-a7f0bd0c2863 Combobox sample 1 Combo Sales Order