topic Re: Tabstrip Control in Application Development and Automation Discussions

Tabstrip Control

Former Member — Tue, 07 Oct 2008 09:47:40 GMT

Hi,

i have a tabstrip control in 0100 screen.

i had to push the back button sometimes to go back after rambling on tabs.

what should i do ?

can somebody help me pls?

thanks.

Re: Tabstrip Control

Former Member — Tue, 07 Oct 2008 09:57:30 GMT

Hi Nurullah RÜSTEM,

Generally, in PAI of that '0100' screen, the corresponding FUNCTION CODE of that BACK button processed with the following code.


  SET SCREEN 0.
  LEAVE SCREEN.

Is there anything different in your acenario?

Regards,

R.Nagarajan.

We can -

Re: Tabstrip Control

Former Member — Tue, 07 Oct 2008 10:01:10 GMT

hi,

can u bit clear you want to go at same screen or other.

if you want to leave screen then u can use LEAVE SCREEN

or if u want to go to other screen then CALL SCREEN u can use..

thanks n regards

Sachin

Re: Tabstrip Control

Former Member — Tue, 07 Oct 2008 10:05:43 GMT

write the below code in PAI

module user_command_0100.

In ur report below code

data: ok_code type sy-ucomm.
module user_command_0100 input.
case ok_code.
when 'BACK'.
leave to screen 0.
endcase.
endmodule.

<<removed by moderator>>

*Requesting/Offering Points not allowed *

Regards,

Sri

Re: Tabstrip Control

Former Member — Tue, 07 Oct 2008 10:43:29 GMT

Thanks to you,

yes i had already did that

MODULE USER_COMMAND_0100 INPUT.

CASE sy-ucomm.

WHEN '&F03' .

LEAVE TO SCREEN 0.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

but every pushing the tab buttons make me need to push the back button sometimes to go back.

i couldn't understand because of why?

nobody know that

thanks.

Re: Tabstrip Control

Former Member — Tue, 07 Oct 2008 10:55:54 GMT

Hi,

Did u solve ur issue...? what is ur exact need

Re: Tabstrip Control

Former Member — Tue, 07 Oct 2008 11:38:01 GMT

No i couldn't solve my issue

Re: Tabstrip Control

Former Member — Tue, 07 Oct 2008 13:02:31 GMT

when i push the back button , i need to push sometime to go back because of rambling on tabs.

i couldn't find why.

nobody knows?

thanks.

Re: Tabstrip Control

Former Member — Tue, 07 Oct 2008 13:04:36 GMT

To be honest, i don't really understand your problem.

Say you have screen 0200 with 5 tabscreens. You have navigated through all tabscreens and then you need to go back. But the question is: go back where?

Re: Tabstrip Control

Former Member — Tue, 07 Oct 2008 13:14:36 GMT

Thanks Maen Anachronos ,

yes i have navigated through all tabscreens and then i need to go back that 'LEAVE TO SCREEN' when i push the back button. When i push the back button i need do it sometime because of me navigating through all tabscreens right. What can i do to solve this problem pls?

thanks again.

Re: Tabstrip Control

Former Member — Tue, 07 Oct 2008 13:27:08 GMT

Ok.

Where do you start? Screen 0050? Then you go to screen 0100 with your tabscreens? And then go back to screen 0050?

How do you call screen 0100? Did you changed something in the logic that handles the tab code?

It's difficult to pinpoint your problem and supply a solution (if there is any) if we don't know the problem exactly and don't have your source code.

Re: Tabstrip Control

Former Member — Tue, 07 Oct 2008 13:31:44 GMT

i m calling 0100 first of all and 0100 have the tabstrips. right. i'm writing my source code right;

REPORT  /DTY/_DNDSDRP011.

type-pools: slis.

class alv_class definition deferred.
data: g_object type ref to alv_class .

data:gv_change value 1,
     gv_repid like sy-repid value sy-repid .

data: gs_layout   type lvc_s_layo,
      gt_fieldcat type lvc_t_fcat,
      gs_fieldcat type lvc_s_fcat,
      gT_SORT  TYPE  lvc_t_sort,
      gs_SORT  TYPE  lvc_s_sort,
      gt_exclude  type ui_functions.

data: gr_alvgrid type ref to cl_gui_alv_grid,
      gc_custom_control_name type scrfname VALUE 'CONT_ORDER',
      gr_container type ref to cl_gui_custom_container.

DATA: GT_MAIN  LIKE VBAP   OCCURS 0 WITH HEADER LINE.
DATA: GT_MAIN2 LIKE BSEG   OCCURS 0 WITH HEADER LINE.
DATA: GT_MAIN3 LIKE PA0001 OCCURS 0 WITH HEADER LINE.

data       : wa_celltab type lvc_s_styl,
             it_celltab type lvc_t_styl,
             wa_colorcell type LVC_S_SCOL,
             it_colorcell type lvc_t_scol.

field-symbols: <fs1> type table, " for fieldcat
               <fs2> type table, " for main table
               <wa>  type any,
               <dyn_table> type standard table  .

*---------------------------------------------------------------------*
*       CLASS alv_class DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class alv_class definition .
  public section .
    methods:
*To add new functional buttons to the ALV toolbar
    handle_toolbar
      for event toolbar of cl_gui_alv_grid
          importing e_object e_interactive ,
*To implement user commands
    handle_user_command
      for event user_command of cl_gui_alv_grid
          importing e_ucomm ,
*handle_hotspot_click
  handle_hotspot_click
       for event hotspot_click of cl_gui_alv_grid
          importing e_row_id
                    e_column_id
                    es_row_no,
*handle_data_changed
    handle_data_changed
       for event data_changed of cl_gui_alv_grid
           importing  er_data_changed
                      e_onf4
                      e_onf4_before
                      e_onf4_after
                      e_ucomm,

*handle_data_changed_finished
    handle_data_changed_finished
       for event data_changed_finished of cl_gui_alv_grid
           importing  e_modified
                      et_good_cells   .

  private  section.

endclass.                    "alv_class DEFINITION

*---------------------------------------------------------------------*
*       CLASS alv_class IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
class alv_class implementation .
*Handle Toolbar
  method handle_toolbar.
*    PERFORM handle_toolbar USING e_object e_interactive .
  endmethod .                    "handle_toolbar

*Handle User Command
  method handle_user_command .
    perform handle_user_command using : e_ucomm.
  endmethod.                    "handle_user_command

*Handle Data Changed
  method handle_data_changed .
    perform handle_data_changed using er_data_changed .
  endmethod.                    "handle_data_changed
*Handle hotspot_click
  method handle_hotspot_click.
    perform handle_hotspot_click using e_row_id e_column_id es_row_no.
  endmethod.                    "handle_hotspot_click

*Handle Data Changed finished
  method handle_data_changed_finished .
    perform handle_data_changed_finished
            using e_modified et_good_cells.
  endmethod.                    "handle_data_changed
endclass .                    "alv_class IMPLEMENTATION


START-OF-SELECTION.

  PERFORM get_data  USING gc_custom_control_name.
  PERFORM show_data USING 'GT_MAIN'.

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'GUI'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.

  CASE sy-ucomm.
    WHEN '&F03' or '&F15' or '&F12'.
      LEAVE TO SCREEN 0.

    WHEN 'TABSTRIP_FC1'.
      gc_custom_control_name = 'CONT_ORDER'.
      CLEAR:  gs_layout,
              gt_exclude,
              gt_sort,
              gt_exclude[],
              gt_sort[].
      PERFORM get_data  USING gc_custom_control_name.
      PERFORM show_data USING 'GT_MAIN'.

    WHEN 'TABSTRIP_FC2'.
      gc_custom_control_name = 'CONT_OFFER'.
      CLEAR:  gs_layout,
              gt_exclude,
              gt_sort,
              gt_exclude[],
              gt_sort[].
      PERFORM get_data  USING gc_custom_control_name.
      PERFORM show_data USING 'GT_MAIN2'.
    WHEN 'TABSTRIP_FC3'.
      gc_custom_control_name = 'CONT_PERS'.
      CLEAR:  gs_layout,
              gt_exclude,
              gt_sort,
              gt_exclude[],
              gt_sort[].
      PERFORM get_data  USING gc_custom_control_name.
      PERFORM show_data USING 'GT_MAIN3'.

  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT

*&---------------------------------------------------------------------*
*&      Form  handle_user_command
*&---------------------------------------------------------------------*
form handle_user_command  using e_ucomm .
  case e_ucomm.
    when '&IC1'.

  endcase.
endform.                    " handle_user_command
*&---------------------------------------------------------------------*
*&      Form  handle_data_changed
*&---------------------------------------------------------------------*
form handle_data_changed  using
     p_er_data_changed    type ref to cl_alv_changed_data_protocol.

  data: ls_mod_cells type lvc_s_modi.
  data: lv_anzhl(10),
        lv_pernr LIKE pa2010-pernr.
  data: new_line type ref to data.

  field-symbols <fs> type any.

  gv_change = 'X'.
  loop at p_er_data_changed->mt_good_cells into ls_mod_cells.

    call method p_er_data_changed->get_cell_value
      EXPORTING
        i_row_id    = ls_mod_cells-row_id
        i_fieldname = ls_mod_cells-fieldname
      IMPORTING
        e_value     = lv_anzhl.

*    if gv_screen = '1'.
*      clear gt_main.
*      read table gt_main index ls_mod_cells-row_id.
*    endif.
*

    create data new_line like line of <dyn_table>.
    assign new_line->* to <wa>.
    read table <dyn_table> into <wa> index ls_mod_cells-row_id.

    read table gt_fieldcat into gs_fieldcat
      with key fieldname = ls_mod_cells-fieldname.

    modify gt_main index sy-tabix. clear gt_main.

  endloop.

  call method gr_alvgrid->refresh_table_display.
  clear gt_main.
endform.                    " handle_data_changed
*&---------------------------------------------------------------------*
*&      Form  handle_hotspot_click
*&---------------------------------------------------------------------*
form handle_hotspot_click  using    p_e_row_id TYPE LVC_S_ROW
                                    p_e_column_id TYPE LVC_S_COL
                                    p_es_row_no TYPE LVC_S_ROID.

CASE p_e_column_id.

  WHEN 'VBELN'.
      READ TABLE gt_main INDEX P_ES_ROW_NO-row_id.
      set PARAMETER ID gt_main-vbeln FIELD 'VBELN'.
      call TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
  WHEN 'BELNR'.
      READ TABLE gt_main2 INDEX P_ES_ROW_NO-row_id.
      set PARAMETER ID gt_main2-BELNR FIELD 'BELNR'.
      call TRANSACTION 'VA21' AND SKIP FIRST SCREEN.
  WHEN 'PERNR'.
      READ TABLE gt_main3 INDEX P_ES_ROW_NO-row_id.
      set PARAMETER ID gt_main3-PERNR FIELD 'PERNR'.
      call TRANSACTION 'VA21' AND SKIP FIRST SCREEN.

ENDCASE.


*  READ TABLE gt_master INDEX p_e_row_id-index.
*
*  CALL FUNCTION '/DTY/_DNDPA_M01'
*    EXPORTING
*      PERNR = gt_master-pernr
*      BEGDA = gt_master-begda
*      ENDDA = '99991231'
*      DAR00 = '01'
*      PLVAR = '02'.
*
*  CLEAR gt_master.
endform.                    " handle_hotspot_click
*&---------------------------------------------------------------------*
*&      Form  handle_data_changed_finished
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->E_MODIFIED     text
*      -->ET_GOOD_CELLS  text
*----------------------------------------------------------------------*
form handle_data_changed_finished using e_modified
                                        et_good_cells type lvc_t_modi.

  data:ls_good_cells type lvc_s_modi.
  data:new_line type ref to data.

  field-symbols <fs> type any.

  IF sy-subrc = 0.

    call method gr_alvgrid->refresh_table_display.

  ENDIF.

endform.                    " handle_data_changed_finished


*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
FORM GET_DATA  USING    GC_CUSTOM_CONTROL_NAME.

  CLEAR: gt_main, gt_main[], gt_main2, gt_main2[].

  IF GC_CUSTOM_CONTROL_NAME = 'CONT_ORDER'.

    SELECT * FROM vbap APPENDING TABLE gt_main UP TO 50 ROWS.

  ELSEIF GC_CUSTOM_CONTROL_NAME = 'CONT_OFFER'.

    SELECT * FROM bseg APPENDING TABLE gt_main2 UP TO 50 ROWS.

  ELSEIF GC_CUSTOM_CONTROL_NAME = 'CONT_PERS'.

     SELECT * FROM PA0001 APPENDING TABLE gt_main3 UP TO 50 ROWS.

 ENDIF.

ENDFORM.                    " GET_DATA

*&---------------------------------------------------------------------*
*&      Form  SHOW_DATA
*&---------------------------------------------------------------------*
FORM SHOW_DATA USING tabname.

  perform alv_initial using tabname .

*Burak Ö. Ekledi

  IF tabname = 'GT_MAIN'.
    assign: GT_MAIN[] to <fs2>.
  ELSEIF tabname = 'GT_MAIN2'.
    assign: GT_MAIN2[] to <fs2>.
  ELSEIF tabname = 'GT_MAIN3'.
    assign: GT_MAIN3[] to <fs2>.
  ENDIF.

  ASSIGN  gt_fieldcat  to <fs1>.

*  gv_screen = '1'.

  perform display_alv using <fs2> <fs1>.

  CALL SCREEN 0100.

ENDFORM.                    " SHOW_DATA

*&---------------------------------------------------------------------*
*&      Form  display_alv
*&---------------------------------------------------------------------*
form display_alv  using   table fcat.
*--first_display


  call method gr_alvgrid->set_table_for_first_display
    EXPORTING
      is_layout                     = gs_layout
      it_toolbar_excluding          = gt_exclude
    CHANGING
      it_outtab                     = table
      it_fieldcatalog               = fcat
      IT_SORT                       = gt_sort[]
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      others                        = 4.



  call method cl_gui_cfw=>flush.
  call method gr_alvgrid->refresh_table_display.

*  perFORM change_statu .
endform.                    " display_alv

*&---------------------------------------------------------------------*
*&      Form  create_container
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form alv_initial using tabname .

  data: it_f4 type lvc_t_f4,
        wa_f4 type lvc_s_f4.

  create object g_object.
*----Creating custom container instance
  create object gr_container
    EXPORTING
      container_name              = gc_custom_control_name
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5
      others                      = 6.

*----Creating ALV Grid instance
  create object gr_alvgrid
    EXPORTING
      i_parent          = gr_container
    EXCEPTIONS
      error_cntl_create = 1
      error_cntl_init   = 2
      error_cntl_link   = 3
      error_dp_create   = 4
      others            = 5.

  call method gr_alvgrid->register_f4_for_fields
    EXPORTING
      it_f4 = it_f4.

* Deu011Fiu015Fiklikleri anu0131nda handle edebilmek için..
  call method gr_alvgrid->register_edit_event
    EXPORTING
      i_event_id = cl_gui_alv_grid=>mc_evt_enter.

  set handler g_object->handle_data_changed for gr_alvgrid.
*  set handler g_object->handle_user_command for gr_alvgrid.
  set handler g_object->handle_hotspot_click for gr_alvgrid.
  set handler g_object->handle_data_changed_finished for gr_alvgrid.
*---Preparing layout structure
  perform prepare_layout        changing gs_layout .
*---Preparing field catalog.
  perform create_fieldcatalog using tabname.
  perform modify_fieldcat.

*---Preparing exclude_toolbar
  perform exclude_tb_functions  changing gt_exclude .

ENDFORM.                    "create_container

*&---------------------------------------------------------------------*
*&      Form  prepare_layout
*&---------------------------------------------------------------------*
form prepare_layout changing ps_layout type lvc_s_layo.

  ps_layout-zebra      = 'X'.
  ps_layout-grid_title = '' .
  ps_layout-smalltitle = 'X'.
  ps_layout-cwidth_opt = 'X'.
  ps_layout-col_opt    = 'X'.
  ps_layout-info_fname = 'ROWCOLOR'.
  ps_layout-cwidth_opt = 'X'.
  ps_layout-stylefname = 'CELLTAB'."Burak Ö. Ekledi.
  ps_layout-ctab_FNAME = 'CELCOL'. "Burak Ö. Ekledi.
  ps_layout-BOX_FNAME = 'MARK'.
*  ps_layout-ctab_fname = 'COLOR'.

endform. " prepare_layout

*&---------------------------------------------------------------------*
*&      Form  create_fieldcatalog
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->TABNAME    text
*----------------------------------------------------------------------*
form create_fieldcatalog  using  tabname .

  data:lt_fcat type  slis_t_fieldcat_alv with header line.
  data:l_tabname(20).
  clear gt_fieldcat[].
  field-symbols: <fs> type table.
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = gv_repid
      i_internal_tabname     = tabname
      i_inclname             = gv_repid
      i_client_never_display = 'X'
      i_bypassing_buffer     = 'X'
    CHANGING
      ct_fieldcat            = lt_fcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      others                 = 3.
  check sy-subrc = 0.

  concatenate tabname '[]' into l_tabname.
  assign (l_tabname) to <fs>.
  call function 'LVC_TRANSFER_FROM_SLIS'
    EXPORTING
      it_fieldcat_alv = lt_fcat[]
    IMPORTING
      et_fieldcat_lvc = gt_fieldcat[]
    TABLES
      it_data         = <fs>
    EXCEPTIONS
      it_data_missing = 1
      others          = 2.

endform.                    " create_fieldcatalog

*&      Form  modify_fieldcatalog_text
*&---------------------------------------------------------------------*
form modify_fieldcatalog_text  using   fieldname  text    l_text.

  perform modify_fieldcatalog
          using: fieldname 'SCRTEXT_L'    l_text,
                 fieldname 'SCRTEXT_S'    text,
                 fieldname 'SCRTEXT_M'    text ,
                 fieldname 'REPTEXT'      text .

endform.                    " modify_fieldcatalog_text
*&---------------------------------------------------------------------*
*&      Form  modify_fieldcatalog_all
*&---------------------------------------------------------------------*
form modify_fieldcatalog_all  using target  value.

  loop at gt_fieldcat into gs_fieldcat.
    perform modify_fieldcatalog
            using: gs_fieldcat-fieldname target value.
  endloop.

endform.                    " modify_fieldcatalog_all

*&---------------------------------------------------------------------*
*&      Form  modify_fieldcat
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form modify_fieldcat .

  perform modify_fieldcatalog_text
          using: 'TOTAL' 'Aylu0131k Top.' 'Aylu0131k Toplam',
*                 'ENDDA' 'Btu015F.Tarihi' 'Bitiu015F Tarihi',
*                 'BEGDA' 'Bau015F.Tarihi' 'Bau015Flangu0131ç Tarihi',
*                 'UAN01' 'u0130zin Hakku0131' 'Yu0131llu0131k u0130zin Hakku0131',
*                 'ORGTX' 'Org.Birimi' 'Organizasyon Birimi',
*                 'PLSTX' 'Pozisyon'   'Pozisyon',
*                 'PERTX' 'Ç.Alt Grubu' 'Çalu0131u015Fan Alt Grubu',
*                 'ONAY'  'Onay'        'Onay Durumu',
*                 'INF_TOTAL'  'Atu0131lan' 'Atu0131lan',
*                 'G_ANZHL'  'Girilen' 'Girilen',
*                 'O_ANZHL'  'Onaylanan' 'Onaylanan',
                 'CAUSE'  'Sebep' 'Sebep/Neden'.

  perform modify_fieldcatalog_all using: 'KEY' space.

  perform modify_fieldcatalog
          using: 'VBELN'      'HOTSPOT' 'X',
                 'BELNR'      'HOTSPOT' 'X',
                 'PERNR'      'HOTSPOT' 'X'.
*                 'UNAME'      'NO_OUT'  'X',
*                 'ORGEH'      'NO_OUT'  'X',
*                 'PLANS'      'NO_OUT'  'X',
*                 'PERSK'      'NO_OUT'  'X',
*                 'BEGDA'      'NO_OUT'  'X' ,
*                 'ONAY'       'NO_OUT'  'X' ,
*                 'G_ANZHL'    'NO_ZERO' 'X',
*                 'O_ANZHL'    'NO_ZERO' 'X',
*                 'CAUSE'      'OUTPUTLEN' 60,
*                 'INF_TOTAL'  'NO_ZERO' 'X',
*                 'PERNR'      'KEY'     'X',
*                 'ENAME'      'KEY'     'X',
*                 'CHANGED'    'NO_OUT'  'X'.


  CLEAR gt_sort[]."Burak


endform.                    " modify_fieldcat

*&---------------------------------------------------------------------*
*&      Form  modify_fieldcatalog
*&---------------------------------------------------------------------*
form modify_fieldcatalog  using fieldname   target value.

  data: lv_fieldname(30).
  field-symbols: <field> type any.
  read table gt_fieldcat with key fieldname = fieldname
                   into gs_fieldcat .
  check sy-subrc = 0.
  concatenate 'gs_fieldcat-' target into lv_fieldname.
  assign (lv_fieldname) to <field>.

  <field> = value.
  modify gt_fieldcat from gs_fieldcat  index sy-tabix.

endform.                    " modify_fieldcatalog

*&---------------------------------------------------------------------*
*&      Form  exclude_tb_functions
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PT_EXCLUDE text
*----------------------------------------------------------------------*
form exclude_tb_functions changing pt_exclude type ui_functions .

* excluded buttons
  append :
  cl_gui_alv_grid=>mc_fc_graph             to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_info              to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_print_back        to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_loc_copy_row      to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_loc_copy          to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_loc_insert_row    to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_loc_append_row    to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_loc_cut           to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_loc_delete_row    to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_loc_paste         to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_loc_paste_new_row to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_loc_insert_row    to  pt_exclude  ,
  cl_gui_alv_grid=>mc_mb_view              to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_loc_undo          to  pt_exclude  ,
  cl_gui_alv_grid=>mc_fc_loc_append_row    to  pt_exclude  .

endform .                    "exclude_tb_functions




*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TABSTRIP'
CONSTANTS: BEGIN OF C_TABSTRIP,
             TAB1 LIKE SY-UCOMM VALUE 'TABSTRIP_FC1',
             TAB2 LIKE SY-UCOMM VALUE 'TABSTRIP_FC2',
             TAB3 LIKE SY-UCOMM VALUE 'TABSTRIP_FC3',
           END OF C_TABSTRIP.
*&SPWIZARD: DATA FOR TABSTRIP 'TABSTRIP'
CONTROLS:  TABSTRIP TYPE TABSTRIP.
DATA:      BEGIN OF G_TABSTRIP,
             SUBSCREEN   LIKE SY-DYNNR,
             PROG        LIKE SY-REPID VALUE '/DTY/_DNDSDRP011',
             PRESSED_TAB LIKE SY-UCOMM VALUE C_TABSTRIP-TAB1,
           END OF G_TABSTRIP.
DATA:      OK_CODE LIKE SY-UCOMM.

*&SPWIZARD: OUTPUT MODULE FOR TS 'TABSTRIP'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: SETS ACTIVE TAB
MODULE TABSTRIP_ACTIVE_TAB_SET OUTPUT.
  TABSTRIP-ACTIVETAB = G_TABSTRIP-PRESSED_TAB.
  CASE G_TABSTRIP-PRESSED_TAB.
    WHEN C_TABSTRIP-TAB1.
      G_TABSTRIP-SUBSCREEN = '0101'.
    WHEN C_TABSTRIP-TAB2.
      G_TABSTRIP-SUBSCREEN = '0102'.
    WHEN C_TABSTRIP-TAB3.
      G_TABSTRIP-SUBSCREEN = '0103'.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
  ENDCASE.
ENDMODULE.                    "TABSTRIP_ACTIVE_TAB_SET OUTPUT

*&SPWIZARD: INPUT MODULE FOR TS 'TABSTRIP'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE TABSTRIP_ACTIVE_TAB_GET INPUT.
  OK_CODE = SY-UCOMM.
  CASE OK_CODE.
    WHEN C_TABSTRIP-TAB1.
      G_TABSTRIP-PRESSED_TAB = C_TABSTRIP-TAB1.
    WHEN C_TABSTRIP-TAB2.
      G_TABSTRIP-PRESSED_TAB = C_TABSTRIP-TAB2.
    WHEN C_TABSTRIP-TAB3.
      G_TABSTRIP-PRESSED_TAB = C_TABSTRIP-TAB3.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
  ENDCASE.
ENDMODULE.                    "TABSTRIP_ACTIVE_TAB_GET INPUT

Re: Tabstrip Control

Former Member — Mon, 03 Nov 2008 11:11:07 GMT

solved