Chapter 109
Dynamic Selection screen
Let's develop a program which can expand/close the columns in selection
screen when user click the button.
|
*&---------------------------------------------------------------------*
*& Report ZDYNAMIC_SEL *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zdynamic_sel. INCLUDE <icon>. TABLES: sscrfields, scarr. DATA: v_stat_cr TYPE char1. " O-Open, C-Closed, V-Closed with Value. DATA: v_value TYPE flag. DATA : gt_scarr TYPE TABLE OF scarr WITH HEADER LINE. CONSTANTS: c_on TYPE char1 VALUE '1', c_off TYPE char1 VALUE '0'. CONSTANTS: BEGIN OF c_stat, open TYPE char1 VALUE 'O', close TYPE char1 VALUE 'C', close_val TYPE char1 VALUE 'V', END OF c_stat. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN PUSHBUTTON (4) pb_cr USER-COMMAND u_cr. SELECTION-SCREEN COMMENT 6(25) v_cr. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE text-t01. SELECT-OPTIONS: s_carrid FOR scarr-carrid MODIF ID cr. SELECTION-SCREEN: END OF BLOCK blk1. INITIALIZATION. v_cr = 'Carrier ID'. MOVE c_stat-close TO: v_stat_cr. PERFORM set_icon USING v_stat_cr CHANGING pb_cr. AT SELECTION-SCREEN OUTPUT. LOOP AT SCREEN. CASE screen-group1. WHEN 'CR'. IF v_stat_cr = c_stat-open. screen-active = c_on. ELSE. screen-active = c_off. ENDIF. ENDCASE. MODIFY SCREEN. ENDLOOP. PERFORM set_icon USING v_stat_cr CHANGING pb_cr. AT SELECTION-SCREEN. CASE sscrfields-ucomm. WHEN 'U_CR'. CLEAR v_value. IF s_carrid[] IS NOT INITIAL. v_value = 'X'. ENDIF. PERFORM set_stat USING v_value CHANGING v_stat_cr. ENDCASE. START-OF-SELECTION. SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_scarr FROM scarr WHERE carrid IN s_carrid. LOOP AT gt_scarr. WRITE :/ gt_scarr-carrid, gt_scarr-carrname. ENDLOOP. *&---------------------------------------------------------------------* *& Form SET_ICON *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_V_STAT_CR text * <--P_PB_CR text *----------------------------------------------------------------------* FORM set_icon USING pv_stat CHANGING pb_cr. CASE pv_stat. WHEN c_stat-close. pb_cr = icon_data_area_expand. WHEN c_stat-open. pb_cr = icon_data_area_collapse. WHEN c_stat-close_val. pb_cr = icon_view_create. " ICON_status_best. ENDCASE. ENDFORM. " SET_ICON *&---------------------------------------------------------------------* *& Form SET_STAT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_v_value text * <--P_V_STAT_CR text *----------------------------------------------------------------------* FORM set_stat USING pv_value CHANGING pv_stat. IF pv_stat = c_stat-open. IF pv_value IS INITIAL. pv_stat = c_stat-close. ELSE. pv_stat = c_stat-close_val. ENDIF. ELSEIF ( pv_stat = c_stat-close OR pv_stat = c_stat-close_val ). pv_stat = c_stat-open. ENDIF. ENDFORM. " SET_STAT |
