|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
" PARAMETERS: p_alv_v TYPE slis_vari. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_alv_v. p_alv_v = lcl_get_data=>f4_alv_variant( ). "Опишем сам класс CLASS lcl_get_data DEFINITION. PUBLIC SECTION. CLASS-METHODS: f4_alv_variant RETURNING VALUE(rv_alv_v) TYPE slis_vari. ENDCLASS. CLASS lcl_get_data IMPLEMENTATION. METHOD f4_alv_variant. DATA ls_variant TYPE DISVARIANT. DATA ls_variant_exit TYPE DISVARIANT. DATA lv_exit TYPE c. "Будем искать варианты ALV для текущего отчета "если именно под этим именем они были сохранены ls_variant-report = sy-repid. CALL FUNCTION 'REUSE_ALV_VARIANT_F4' EXPORTING is_variant = ls_variant IMPORTING e_exit = lv_exit es_variant = ls_variant_exit EXCEPTIONS not_found = 2. IF sy-subrc = 2. MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ELSE. IF lv_exit = space. rv_alv_v = ls_variant_exit-variant. ENDIF. ENDIF. ENDMETHOD. ENDCLASS. |