Active tab in a tabstrip

Question

Is it possible to manually set the active tab in a tabstrip?
Thank you,
Bogdan

Answer 1

Hi,
I will give u some sample code to do that
PROCESS BEFORE OUTPUT.
  MODULE status_9000.
  MODULE main_tab_active_tab_set.
  CALL SUBSCREEN main_tab_sca
    INCLUDING i_main_tab-prog i_main_tab-subscreen.
PROCESS AFTER INPUT.
  MODULE user_command_9000.
  MODULE main_tab_active_tab_get.
  MODULE main_tab_active_tab_set.
DATA FOR TABSTRIP 'MAIN_TAB'
CONTROLS:  main_tab TYPE TABSTRIP.
DATA:      BEGIN OF i_main_tab,
             subscreen   LIKE sy-dynnr,
             prog        LIKE sy-repid VALUE
                              'ZCSVO_COGNOS_EXTRACT',
             pressed_tab LIKE sy-ucomm VALUE c_main_tab-tab1,
           END OF i_main_tab.
<b>MODULE main_tab_active_tab_set OUTPUT.</b>
  main_tab-activetab = i_main_tab-pressed_tab.
  CASE i_main_tab-pressed_tab.
    WHEN c_main_tab-tab1.
  To display open orders report
     i_main_tab-subscreen = '9100'.
      CALL METHOD o_alvgrid1->set_table_for_first_display
      EXPORTING
         is_variant                    = w_variant
         i_save                        = c_lay
         is_layout                     = w_layout
      CHANGING
         it_outtab                     = i_output1[]
         it_fieldcatalog               = i_fieldcat[]
      EXCEPTIONS
         invalid_parameter_combination = 1
         program_error                 = 2
         too_many_lines                = 3
         OTHERS                        = 4.
  IF sy-subrc <> 0.
    MESSAGE i000 WITH text-e06."Error in ALV report display
    LEAVE LIST-PROCESSING.
  ENDIF.
    WHEN c_main_tab-tab2.
  To display due for biling report
      i_main_tab-subscreen = '9200'.
      CALL METHOD o_alvgrid2->set_table_for_first_display
      EXPORTING
         is_variant                    = w_variant2
         i_save                        = c_lay
         is_layout                     = w_layout
      CHANGING
         it_outtab                     = i_output2[]
         it_fieldcatalog               = i_fieldcat3[]
      EXCEPTIONS
         invalid_parameter_combination = 1
         program_error                 = 2
         too_many_lines                = 3
         OTHERS                        = 4.
  IF sy-subrc <> 0.
    MESSAGE i000 WITH text-e06."Error in ALV report display
    LEAVE LIST-PROCESSING.
  ENDIF.
WHEN OTHERS.
     DO NOTHING
  ENDCASE.
ENDMODULE.                 " MAIN_TAB_ACTIVE_TAB_SET  OUTPUT
*&      Module  MAIN_TAB_ACTIVE_TAB_GET  INPUT
      text
<b>MODULE main_tab_active_tab_get INPUT.</b>
  CASE sy-ucomm.
    WHEN c_main_tab-tab1.
      i_main_tab-pressed_tab = c_main_tab-tab1.
    WHEN c_main_tab-tab2.
      i_main_tab-pressed_tab = c_main_tab-tab2.
    WHEN OTHERS.
     DO NOTHING
  ENDCASE.
ENDMODULE.                 " MAIN_TAB_ACTIVE_TAB_GET  INPUT
*&      Module  USER_COMMAND_9000  INPUT
      text
<b>MODULE user_command_9000 INPUT.</b>
  CASE sy-ucomm.
    WHEN 'BACK'.
      PERFORM exit_program.
      SET SCREEN '0'.
    WHEN 'EXIT' OR  'CANC'.
      PERFORM exit_program.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000  INPUT
*&      Module  MAIN_TAB_ACTIVE_TAB_SET  INPUT
      text
<b>MODULE main_tab_active_tab_set INPUT.</b>
  main_tab-activetab = i_main_tab-pressed_tab.
  CASE i_main_tab-pressed_tab.
    WHEN c_main_tab-tab1.
        i_main_tab-subscreen = '9100'.
    WHEN c_main_tab-tab2.
        i_main_tab-subscreen = '9200'.
    WHEN OTHERS.
     DO NOTHING
  ENDCASE.
ENDMODULE.                 " MAIN_TAB_ACTIVE_TAB_SET  INPUT
Try this out.
Thanks & Regards,
Judith.