10-07-2008 10:47 AM
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.
10-07-2008 10:57 AM
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 -
-
10-07-2008 11:01 AM
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
10-07-2008 11:05 AM
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
10-07-2008 11:43 AM
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.
10-07-2008 11:55 AM
10-07-2008 12:38 PM
10-07-2008 2:02 PM
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.
10-07-2008 2:04 PM
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?
10-07-2008 2:14 PM
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.
10-07-2008 2:27 PM
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.
10-07-2008 2:31 PM
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
11-03-2008 11:11 AM