tables : vbkd,lips,likp.
*---------------------------------- 例二 -----------------------------------
selection-screen begin of screen 1100 as subscreen .
selection-screen begin of block b1 with frame title text-011.
parameters: p_vstel type likp-vstel.
selection-screen skip 5.
parameters: p_mark1 type c as checkbox.
selection-screen end of block b1.
selection-screen end of screen 1100.
selection-screen begin of screen 1200 as subscreen.
selection-screen begin of block b2 with frame title text-001.
select-options: s_lgort2 for lips-lgort.
parameters: p_mark type c as checkbox.
selection-screen end of block b2.
selection-screen end of screen 1200.
selection-screen: begin of tabbed block mytab for 12 lines,
tab (20) button1 user-command push1,
tab (20) button2 user-command push2,
end of block mytab.
initialization.
button1 = 'No.1'.
button2 = 'No.2'.
mytab-prog = sy-repid.
mytab-dynnr = 1100.
mytab-activetab = 'BUTTON1'.
at selection-screen.
case sy-dynnr.
when 1000.
case sy-ucomm.
when 'PUSH1'.
mytab-dynnr = 1100.
mytab-activetab = 'BUTTON1'.
when 'PUSH2'.
mytab-dynnr = 1200.
mytab-activetab = 'BUTTON2'.
endcase.
endcase.
*--- 根据不同的选项卡输出不同的数据
start-of-selection.
if mytab-dynnr = 1100.
perform frm_get_1100.
perform frm_alv_output.
endif.
if mytab-dynnr = 1200.
perform frm_get_1200.
perform frm_avl_output2.
endif.
*---------------------------------- 例二 -------------------------------------
selection-screen begin of tabbed block tabb1 for 12 lines.
selection-screen tab (10) text-001 user-command ucomm1
default screen 101.
selection-screen tab (10) text-002 user-command ucomm2
default screen 102.
selection-screen tab (10) text-003 user-command ucomm3
default screen 103.
selection-screen end of block tabb1.
selection-screen begin of screen 101 as subscreen.
parameter: p_field1(10).
selection-screen end of screen 101.
selection-screen begin of screen 102 as subscreen.
parameter: p_field2(10).
selection-screen end of screen 102.
selection-screen begin of screen 103 as subscreen.
parameter: p_field3(10).
selection-screen end of screen 103.
write:/ p_field1.
write:/ p_field2.
write:/ p_field3.
评论