The simplest accounting flexfield form item

Question

Hi guys
I'm trying to understand how to code a field/item to capture an account combination.
I want to build a form with a single item. When I click on it, the accounting key flexfield window should pop up.
(I have the DESC and ID fields in the form too)
Currently I have a WHEN-MOUSE-DOWN trigger on the item with the following code:
BEGIN
FND_KEY_FLEX.DEFINE(
BLOCK=>'BLOCK1',
FIELD=>'ITEM1',
ID=>'ID',
DESCRIPTION=>'DESC',
APPL_SHORT_NAME=>'SQLGL',
CODE=>'GL#',
NUM=>'101',
REQUIRED=>'N');
EXCEPTION
          WHEN OTHERS THEN
               message('Error: ' || SQLERRM || SQLCODE);
END;
The problem is that the form just opens and closes immediately. When I comment out the code or replace with a message it works. Can somone please point me in the right direction of how to get this working?

Answer 1

HI,
Did you tried to bring the combobox into the foreground?
If not, try the following from your add-on:
1. Click the accouting tab
2. select the value in combo box
            Dim oPoForm As SAPbouiCOM.Form = sbo_application.Forms.ActiveForm
            oPoForm.Items.Item("138").Click(BoCellClickType.ct_Regular)
            Dim objComboBox As SAPbouiCOM.ComboBox = oPoForm.Items.Item("157").Specific
            objComboBox.Select(strProj, SAPbouiCOM.BoSearchKey.psk_ByDescription)
or
1.Set the panelevel of combo box into the current panelevel
2. select now value
            Dim oPoForm As SAPbouiCOM.Form = sbo_application.Forms.ActiveForm
            Static oldFromPane As Integer = oPoForm.Items.Item("157").FromPane
            oPoForm.Items.Item("157").FromPane = oPoForm.PaneLevel
            Dim objComboBox As SAPbouiCOM.ComboBox = oPoForm.Items.Item("157").Specific
            objComboBox.Select(strProj, SAPbouiCOM.BoSearchKey.psk_ByDescription)
            oPoForm.Items.Item("157").FromPane = oldFromPane
Regards
J.
Ps: if the asnwer correct, please close this thread....