Influnce a listbox in a grid

Question

Hi all,
I try to influence a custom listbox in a grid maintaining different values in the different lines of the grid.
I implement the code in the method IF_CRM_BSP_MODEL_ACCESS_IL~FILL_DROPDOWN_LISTBOX, in debug mode I display the correct value in each line but when I display the BSP in every line appear the value that I first modified.
Have you any idea?
Thank you
Giulio

Answer 1

Hi,
this is the code:
METHOD if_crm_bsp_model_access_il~fill_dropdown_listbox.
Call superclass
  CALL METHOD super->if_crm_bsp_model_access_il~fill_dropdown_listbox
    EXPORTING
      iv_object_key            = iv_object_key
      iv_screen_structure_name = iv_screen_structure_name
      iv_all_values            = iv_all_values
      it_screen_structure      = it_screen_structure
    IMPORTING
      et_field_catalog         = et_field_catalog
    CHANGING
      ct_dropdownlb_data       = ct_dropdownlb_data.
    FIELD-SYMBOLS: <fs_ddlb>             TYPE crmt_dropdownlistbox_data,
                   <lt_responsarea_data> TYPE shsvaltab.
    DATA: l_shsvalstr TYPE shsvalstr.
    DATA: l_tabix TYPE sy-tabix.
    LOOP AT ct_dropdownlb_data ASSIGNING <fs_ddlb>.
      IF <fs_ddlb>-fieldname = 'TEST'.
EX: No Line
        IF itm_type IS INITIAL.
          FREE <fs_ddlb>-data.
        ENDIF.
EX: First line in the Grid
        IF itm_type EQ 'LINE_ONE'.
          ASSIGN <fs_ddlb>-data->* TO <lt_responsarea_data>.
          LOOP AT <lt_responsarea_data> INTO l_shsvalstr.
            MOVE sy-tabix TO l_tabix.
            IF NOT l_shsvalstr-key IS INITIAL.
      Delete entry from listbox, for field TEST
              DELETE <lt_responsarea_data> INDEX l_tabix.
            ENDIF.
          ENDLOOP.
          MOVE: '001'    TO l_shsvalstr-key,
                'TEST001' TO l_shsvalstr-value.
          APPEND l_shsvalstr TO <lt_responsarea_data>.
        ENDIF.
EX: Second line in the Grid
        IF itm_type EQ 'LINE_TWO'.
          ASSIGN <fs_ddlb>-data->* TO lt_responsarea_data>.
          LOOP AT <lt_responsarea_data> INTO l_shsvalstr.
            MOVE sy-tabix TO l_tabix.
            IF NOT l_shsvalstr-key IS INITIAL.
      Delete entry from listbox, for field TEST
              DELETE <lt_responsarea_data> INDEX l_tabix.
            ENDIF.
          ENDLOOP.
          MOVE: '002'     TO l_shsvalstr-key,
                'TEST002' TO l_shsvalstr-value.
          APPEND l_shsvalstr TO <lt_responsarea_data>.
        ENDIF.
      ENDIF.
    ENDLOOP.
ENDMETHOD.
I display only the first entry 001 in both lines, but in debug mode when I insert the second line I look into the internal table ct_dropdownlb_data the second entry.
Thank you for your support
Giulio