Refresh and combobox

Question

Hi all,
I need to develop a really small add-on for a client. This add on is suppose to handle this action:
When the user clicks on add when he is on the BP master data screen, the add-on will create a project code based on the BP Code and select the new project code in the combox before adding the BP.
Everything is working expect selecting the new project code before adding the BP. One of the issue is that I can't see the new project code until I reload the screen (I tried with a refresh but it does not work).
The second issue is that I don't know how to select my new project code in the combox. Can anyone help me?
Vincent
Here is the code if you think you can help me:
Select Case pVal.EventType
    Case et_LOST_FOCUS:
    Case et_FORM_LOAD:
        Set frm = SBO_Application.Forms(FormUID)
    Case et_ITEM_PRESSED:
    ' If user clicks on Add the business partner
    Case et_CLICK:
        If pVal.ItemUID = "1" And pVal.Before_Action = True Then
            Set frm = SBO_Application.Forms(FormUID)
            ' Check that we are in Add mode
            If frm.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE Then
                ' Item 5 is the BP Code
                Set oItem = frm.Items.Item("5")
                Set oTextField = oItem.Specific
                Set oRecordSet = oCompany.GetBusinessObject(BoRecordset)
                ' Check that the Project code soes not exist already
                stext = "SELECT PrjCode FROM OPRJ WHERE PrjCode='" & oTextField.String & "' "
                oRecordSet.DoQuery (stext)
                ' If not, we can create the new project code
                If oRecordSet.RecordCount = 0 Then
                    stext = "INSERT INTO OPRJ VALUES ('" & oTextField.String & "' ,'" & oTextField.String & "','N','I',1)"
                    oRecordSet.DoQuery (stext)
                    ' 222 is the project code combobox
                    Set oItem = frm.Items.Item("222")
                    Set oCombo = oItem.Specific
                    ' Refresh the screen to see the new value
                    frm.Refresh
                    'Here I don t know how to select the new value in the combobox
                Else
                    SBO_Application.MessageBox "Code already exists"
                End If
                Set oItem = frm.Items.Item("41")
                Set oTextField = oItem.Specific
                If oTextField.String = "" Then
                    BubbleEvent = False
                    SBO_Application.SetStatusBarMessage "Tel1 is a mandatory field", SAPbouiCOM.BoMessageTime.bmt_Short, True
                Else
                    BubbleEvent = True
                End If
            End If
        End If
    End Select
Exit Sub
errhandler:
  SBO_Application.MessageBox "Rel. 6.2 SP1: At the moment can't make items visible which are not user defined", 1, "OK", "", ""
End Sub
Thanks a lot
Vincent

Answer 1

You can select an item in the combo box as follows:
Set sboCombo = sboForm.Items("222").Specific
sboCombo.Select "My Project", psk_ByDescription
I think you will not be able to see your new project in the list due to the timing of when the list is populated.  It would probably be easier to simply update the BP record using the DI after it has been added to the database.  (et_ITEM_PRESSED, before_action = False).
John.