ABAP报表返回选择屏幕时回到上次的页签详解编程语言

*----------------------------------------------------------------------*                                          
CONSTANTS: gc_push1(5) TYPE C VALUE 'PUSH1', 
gc_push2(5) TYPE C VALUE 'PUSH2', 
gc_push3(5) TYPE C VALUE 'PUSH3'. 
*----------------------------------------------------------------------* 
*----------------------------------------------------------------------* 
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN. 
SELECTION-SCREEN BEGIN OF BLOCK B11 WITH FRAME TITLE T011. 
SELECT-OPTIONS : s_werks FOR vbap-werks,                             
s_matkl FOR t023t-matkl. 
SELECTION-SCREEN END OF BLOCK B11. 
SELECTION-SCREEN END OF SCREEN 100. 
*----------------------------------------------------------------------* 
*----------------------------------------------------------------------* 
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN. 
SELECTION-SCREEN BEGIN OF BLOCK B21 WITH FRAME TITLE T021. 
SELECT-OPTIONS : s_werks2 FOR vbap-werks,                            
s_lgort2 FOR vbap-lgort, 
s_matkl2 FOR t023t-matkl. 
SELECTION-SCREEN END OF BLOCK B21. 
SELECTION-SCREEN END OF SCREEN 200. 
*----------------------------------------------------------------------* 
*----------------------------------------------------------------------* 
SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN. 
SELECTION-SCREEN BEGIN OF BLOCK b31 WITH FRAME TITLE T031. 
SELECT-OPTIONS: s_werks3 FOR vbap-werks, 
s_matnr3 FOR mara-matnr, 
s_lgort3 FOR vbap-lgort. 
SELECTION-SCREEN END OF BLOCK B31. 
SELECTION-SCREEN END OF SCREEN 300. 
*----------------------------------------------------------------------* 
*----------------------------------------------------------------------* 
SELECTION-SCREEN: BEGIN OF TABBED BLOCK blk1 for 16 LINES, 
TAB (20) gct_1 USER-COMMAND push1 DEFAULT SCREEN 100, 
TAB (20) gct_2 USER-COMMAND push2 DEFAULT SCREEN 200, 
TAB (20) gct_3 USER-COMMAND push3 DEFAULT SCREEN 300, 
END OF BLOCK blk1. 
*----------------------------------------------------------------------* 
*----------------------------------------------------------------------* 
INITIALIZATION. 
PERFORM fm_init. 
*----------------------------------------------------------------------* 
*----------------------------------------------------------------------* 
AT SELECTION-SCREEN OUTPUT. 
PERFORM fm_set_screen. 
*----------------------------------------------------------------------* 
*----------------------------------------------------------------------* 
AT SELECTION-SCREEN. 
PERFORM fm_authority_check. 
PERFORM fm_screen_check. 
PERFORM fm_process_screen. 
*----------------------------------------------------------------------* 
*----------------------------------------------------------------------* 
START-OF-SELECTION. 
PERFORM fm_alv. 
*----------------------------------------------------------------------* 
*----------------------------------------------------------------------* 
END-OF-SELECTION. 
*----------------------------------------------------------------------*

*----------------------------------------------------------------------* 
FORM fm_init. 
T011 = '检索参数'. 
T021 = '检索参数'. 
T031 = '检索参数'. 
gct_1 = '按单***'. 
gct_2 = '按单***'. 
gct_3 = '按库***'. 
*  获取上次用的子屏幕 
IMPORT gv_dynnr TO gv_dynnr FROM MEMORY ID 'ZSDD_025'. 
blk1-prog = sy-repid. 
IF gv_dynnr = space. 
blk1-dynnr = 100. 
gv_push = gc_push1. 
blk1-activetab = gc_push1. 
ELSE. 
blk1-dynnr = gv_dynnr. 
IF gv_dynnr = 300. 
gv_push = gc_push3. 
blk1-activetab = gc_push3. 
ENDIF. 
IF gv_dynnr = 200 . 
gv_push = gc_push2. 
blk1-activetab = gc_push2. 
ENDIF. 
IF gv_dynnr = 100 . 
gv_push = gc_push1. 
blk1-activetab = gc_push1. 
ENDIF. 
ENDIF. 
ENDFORM. 
*----------------------------------------------------------------------*

*----------------------------------------------------------------------* 
FORM fm_screen_check. 
IF sscrfields-ucomm = gc_push1 OR sscrfields-ucomm = gc_push2 OR sscrfields-ucomm = gc_push3. 
gv_push = sscrfields-ucomm. 
ENDIF. 
*  CHECK sy-fleng = 18. 
* F8的时候将页签编号存到内存 
IF sscrfields-ucomm = 'ONLI'. 
*   按单*** 
IF gv_push = gc_push1 OR gv_push = space. 
gv_dynnr = 100. 
gv_push = gc_push1. 
EXPORT gv_dynnr FROM gv_dynnr TO MEMORY ID 'ZSDD_025'. 
ENDIF. 
*   按单*** 
IF gv_push = gc_push2. 
gv_dynnr = 200. 
gv_push = gc_push2. 
EXPORT gv_dynnr FROM gv_dynnr TO MEMORY ID 'ZSDD_025'. 
ENDIF. 
*    按库*** 
IF gv_push = gc_push3. 
gv_dynnr = 300. 
gv_push = gc_push3. 
EXPORT gv_dynnr FROM gv_dynnr TO MEMORY ID 'ZSDD_025'. 
ENDIF. 
ENDIF. 
ENDFORM. 
*----------------------------------------------------------------------*