ABAP Dynamic Selection…

可以根据下拉框的选项，动态显示选择屏幕

code：

*&---------------------------------------------------------------------*
*& Report  ZLM_SCREEN_001
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZLM_SCREEN_001 .

*&---------------------------------------------------------------------*
*& Purpose - Dynamic Selection Screen using the Tabbed Selected Screen
*& Author  - Naimesh Patel
*& URL     -
*&---------------------------------------------------------------------*
*
CLASS lcl_main  DEFINITION .
    PUBLIC  SECTION .
        TYPES :
            BEGIN  OF ty_vrm_values ,
                KEY   TYPE char40 ,
                text  TYPE char80 ,
            END    OF ty_vrm_values .
        TYPES : tt_vrm_values  TYPE  STANDARD  TABLE  OF ty_vrm_values
                          WITH  DEFAULT  KEY .
        TYPES :
            BEGIN  OF ty_config ,
                KEY   TYPE char10 ,
                desc  TYPE char50 ,
                dynnr  TYPE sy -dynnr ,
            END    OF ty_config .
        DATA : t_config  TYPE  STANDARD  TABLE  OF ty_config .
        METHODS :
            get_vrm_values
                RETURNING  VALUE (rt_values )  TYPE tt_vrm_values ,
            get_dynnr
                IMPORTING iv_objtype  TYPE char10
                RETURNING  VALUE (rv_dynnr )  TYPE sy -dynnr .
ENDCLASS .                     "lcl_main DEFINITION
*
DATA : t_objtypes  TYPE lcl_main =>tt_vrm_values .
DATA : o_main  TYPE  REF  TO lcl_main .

*
DATA : v_vbeln  TYPE vbak -vbeln ,
            v_erdat  TYPE vbak -erdat ,
            v_vkorg  TYPE vbak -vkorg ,
            v_vtweg  TYPE vbak -vtweg ,
            v_spart  TYPE vbak -spart .

* Object type Selector
PARAMETER : p_objtyp  TYPE char10  AS LISTBOX
                          VISIBLE  LENGTH  30  USER-COMMAND v_obj  .
*
* TABBED Selection screen for displaying the screen
SELECTION-SCREEN :  BEGIN  OF TABBED  BLOCK mytab  FOR  7  LINES ,
                                    TAB  ( 20 ) seltab  USER-COMMAND push1 ,
                                    END  OF  BLOCK mytab .
*
* Default screen
SELECTION-SCREEN  BEGIN  OF  SCREEN  100  AS SUBSCREEN .
SELECTION-SCREEN  END  OF  SCREEN  100 .
*
* for SO
SELECTION-SCREEN  BEGIN  OF  SCREEN  200  AS SUBSCREEN .
SELECT-OPTIONS : so_vbeln  FOR v_vbeln ,
                                so_erdat  FOR v_erdat ,
                                so_vkorg  FOR v_vkorg ,
                                so_vtweg  FOR v_vtweg ,
                                so_spart  FOR v_spart .
SELECTION-SCREEN  END  OF  SCREEN  200 .
*
* for Billing
SELECTION-SCREEN  BEGIN  OF  SCREEN  300  AS SUBSCREEN .
SELECT-OPTIONS : bi_vbeln  FOR v_vbeln ,
                                bi_erdat  FOR v_erdat ,
                                bi_vkorg  FOR v_vkorg ,
                                bi_vtweg  FOR v_vtweg ,
                                bi_spart  FOR v_spart .
SELECTION-SCREEN  END  OF  SCREEN  300 .
*
INITIALIZATION .
    CREATE OBJECT  o_main .
    t_objtypes  = o_main ->get_vrm_values (  ) .
    CALL  FUNCTION  'VRM_SET_VALUES'
        EXPORTING
            ID      =  'P_OBJTYP'
            VALUES  = t_objtypes .
*
    mytab -dynnr  = o_main ->get_dynnr ( p_objtyp  ) .
    mytab -prog  = sy -repid .
    mytab -activetab  =  'PUSH1' .
*
    seltab  =  'Selection Criteria' .
*
* dynamic text for objec type
    %_p_objtyp_%_app_% - text  =  'Object Type' .
*
*
AT  SELECTION-SCREEN  OUTPUT .
* Set the selection screen based on the object type
    mytab -dynnr  = o_main ->get_dynnr ( p_objtyp  ) .
*
*
START-OF-SELECTION .
*
*
CLASS lcl_main  IMPLEMENTATION .
    METHOD get_vrm_values .
        DATA : ls_config  LIKE  LINE  OF me ->t_config .
* ---- Config entries, in real time it comes from table
*
        ls_config - KEY    =  ".             " Default
        ls_config -desc    =  ".
        ls_config -dynnr  =  '0100' .
        APPEND ls_config  TO me ->t_config .
*
        ls_config - KEY    =  'ORDER' .
        ls_config -desc    =  'Sales Order' .
        ls_config -dynnr  =  '0200' .
        APPEND ls_config  TO me ->t_config .
*
        ls_config - KEY    =  'BILLING' .
        ls_config -desc    =  'Billing Document' .
        ls_config -dynnr  =  '0300' .
        APPEND ls_config  TO me ->t_config .
*
*   vrm set values
        DATA : ls_vrm  LIKE  LINE  OF rt_values .
        LOOP  AT me ->t_config  INTO ls_config .
            ls_vrm - KEY  = ls_config - KEY .
            ls_vrm - text  = ls_config -desc .
            APPEND ls_vrm  TO rt_values .
        ENDLOOP .

    ENDMETHOD .                     "get_vrm_values
    METHOD get_dynnr .
*   get the screen number
        DATA : ls_config  LIKE  LINE  OF me ->t_config .
        READ  TABLE me ->t_config  INTO ls_config
            WITH  KEY  KEY  = iv_objtype .
        IF sy -subrc  EQ  0 .
            rv_dynnr  = ls_config -dynnr .
        ELSE .
*     fallback - if default is not maintained in config
            rv_dynnr  =  '0100' .
        ENDIF .
    ENDMETHOD .                     "get_dynnr

ENDCLASS .                     "lcl_main IMPLEMENTATION