Earlier in blog Collapsible Area Module Pool Screen I explained how to create collapsible area in module pool program. In this blog we will see how to create collapsible area in selection screen.
Controls are made to look collapsible by hiding them from screen on AT SELECTION SCREEN OUTPUT event. This event is triggered by a push button which is placed on the top of collapsible area using statement SELECTION-SCREEN: PUSHBUTTON 79(18) pb%exco USER-COMMAND expcol.
When user press collapse button AT SELECTION-SCREEN OUTPUT event is triggered which hide controls and also change icon of push button. To user it appears that input controls are collapsed.
REPORT zpwscrcollapse.
DATA : full TYPE char01 .
INCLUDE <icon>.
TABLES : likp , vbap , vbak , kuagv , vbpa , vbuk .
SELECTION-SCREEN BEGIN OF BLOCK sel1od WITH FRAME TITLE text-002.
SELECT-OPTIONS: od_lfdat FOR likp-lfdat,
od_vod FOR likp-vbeln,
od_lifex FOR likp-lifex.
SELECTION-SCREEN END OF BLOCK sel1od.
SELECTION-SCREEN: BEGIN OF BLOCK sel2od WITH FRAME TITLE text-001.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: PUSHBUTTON 79(18) pb%exco USER-COMMAND expcol
MODIF ID new.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: od_werks FOR vbap-werks MEMORY ID wrk MODIF ID new,
od_audat FOR vbak-audat MODIF ID old.
SELECT-OPTIONS :od_auart FOR vbak-auart MODIF ID old,
od_vso FOR vbak-vbeln MODIF ID old,
od_vsc FOR vbak-vbeln MODIF ID old,
od_kag FOR kuagv-kunnr MODIF ID old,
od_lifnr FOR vbpa-lifnr MODIF ID old,
od_vdatu FOR vbak-vdatu MODIF ID old,
od_fkstk FOR vbuk-fkstk MODIF ID old,
od_pdstk FOR vbuk-pdstk MODIF ID old.
PARAMETERS: xd1 AS CHECKBOX MODIF ID old.
SELECTION-SCREEN: END OF BLOCK sel2od.
*--------------------------------------------------------------------*
* At Selection Screen
*--------------------------------------------------------------------*
AT SELECTION-SCREEN .
CASE sy-ucomm .
WHEN 'EXPCOL' .
ENDCASE .
*--------------------------------------------------------------------*
* At Selection Screen Output
*--------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT .
PERFORM set_collapse CHANGING pb%exco .
*&---------------------------------------------------------------------*
*& Form set_collapse
*&---------------------------------------------------------------------*
FORM set_collapse CHANGING button TYPE c.
IF full = 'X' .
full = space .
ELSE.
full = 'X' .
ENDIF.
IF full = space.
LOOP AT SCREEN.
IF screen-group1 = 'OLD' .
screen-active = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_expand
info = 'Expand'
IMPORTING
RESULT = button.
ELSE.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_collapse
info = 'Collapse'
IMPORTING
RESULT = button.
ENDIF.
ENDFORM. "set_collapse