Define new

Question

Hi.
When i click Define New in the combo box the datas that i enter should be displayed in the combo.but it is not displayed.how to do it

Answer 1

Hi try this one
CREATE FORM SUB
Public Sub CreateForm(...)
  If oMatrix.RowCount > 0 Then
    Call InitializeMatrixCombo(oForm, _
                               MatrixID, _
                               "DSU_Linked", _  ' Combobox Column
                               "@LINKED_TABLE", _
                               "<Default_Value>" _
  End If
End Sub
InitComboBox sub when we initializing combobox to combobox values we add also 2 new values:
- "","" : NULL value, if database column accept null value
- "Redefine","Redefine" : When selected with ItemEvent we activating menu with form uid where are we can define new values.
Public Sub InitializeMatrixCombo( _
    ByRef oForm As SAPbouiCOM.Form, _
    ByVal sMatrixID As String, _
    ByVal sComboColumnName As String, _
    ByVal sLinkedTable As String, _
    Optional ByVal sDefaultValue As String = "" _
  Try
    oForm.Freeze(True)
    If SBO_Company.Connect Then
      ' Matrix
      Dim oMatrix As SAPbouiCOM.Matrix
      oMatrix = oForm.Items.Item(sMatrixID).Specific
      If oMatrix Is Nothing Then Throw New Exception("ERROR: matrix object is nothing"))
      ' Matrix column
      Dim oColumn As SAPbouiCOM.Column
      oColumn = oMatrix.Columns.Item(sComboColumnName)
      ' Matrix column cell
      Dim oCell As SAPbouiCOM.Cell
      oCell = oColumn.Cells.Item(oMatrix.VisualRowCount)
      ' Matrix column cell combo
      Dim oCombo As SAPbouiCOM.ComboBox
      oCombo = oCell.Specific
      If ClearCombo(oCombo) Then
        Try
          ' Add 1-st value if database field accept NULL
          oCombo.ValidValues.Add("", "")
          Dim oRS As SAPbobsCOM.Recordset
          oRS = SBO_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
          Dim sSql As String = "SELECT Code, Name FROM [@" & sLinkedTable & "] ORDER BY 1"
          oRS.DoQuery(sSql)
          oRS.MoveFirst()
          While oRS.EoF = False
            oCombo.ValidValues.Add(oRS.Fields.Item("Code").Value, _
            oRS.Fields.Item("Name").Value)
            oRS.MoveNext()
          End While
          ' Add DEFINE NEW value +++++++++++++++++++++++++++++++
          ' Note: Code can have length up to 8 caracters
          oCombo.ValidValues.Add("Redefine", "Redefine")
          If Not oRS Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oRS)
            oRS = Nothing
          End If
          System.GC.Collect() 'Release the handle to the table
          ' Select dafault value if not null
          If Not sDefaultValue.Equals("") Then
            If oCombo.ValidValues.Count > 0 Then
              oCombo.Select(sDefaultValue, SAPbouiCOM.BoSearchKey.psk_ByValue)
            End If
          Else
            If oCombo.ValidValues.Count >= 1 Then
              oCombo.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)
            End If
          End If
        Catch ex As Exception
          ' log exception
        Finally
          oCombo = Nothing
          oCell = Nothing
          oColumn = Nothing
          oMatrix = Nothing
        End Try
      End If
    End If
  Catch ex As Exception
    ' log exception
  Finally
    oForm.Freeze(False)
    System.GC.Collect() 'Release the handle to the table
  End Try
End Sub
Item Event to handle selection of "Redefine" voice in combobox.
Private Sub SBO_Application_ItemEvent( _
      ByVal FormUID As String, _
      ByRef pVal As SAPbouiCOM.ItemEvent, _
      ByRef BubbleEvent As Boolean _
) Handles SBO_Application.ItemEvent
  Dim oForm As SAPbouiCOM.Form
  oForm = SBO_Application.Forms.Item(FormUID)
  If pVal.EventType = SAPbouiCOM.BoEventTypes.et_COMBO_SELECT _
  And pVal.FormUID = sgloFormUID _
  And pVal.ItemUID = MatrixID _
  And pVal.ColUID = "DSU_Linked" _
  And pVal.BeforeAction = False _
  And pVal.ItemChanged = True _
  Then
    Try
      Dim oMatrix As SAPbouiCOM.Matrix
      oMatrix = oForm.Items.Item(MatrixID).Specific
      If oMatrix Is Nothing Then Throw New Exception("ERROR: matrix object is nothing")
      Try
        Dim oCombo As SAPbouiCOM.ComboBox
        Dim sValue As String = ""
        oCombo = oMatrix.Columns.Item("DSU_Linked").Cells.Item(pVal.Row).Specific
        sValue = oCombo.Selected.Value
        If sValue.Equals("Redefine") Then
          Try
            oCombo.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)
            oForm.Refresh()
          Catch ex As Exception
           ' log exception
          End Try
          ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
          ' Here place your menu uid to call the form for adding new value
          ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
          SBO_Application.Menus.Item("51207").Activate()
        End If
        BubbleEvent = False
      Catch ex1 As Exception
        ' log exception
      End Try
    Catch ex As Exception
      ' log exception
    End Try
  End If
  ' Other events +++
End Sub