Modify Screen as per the selection Screen
We can modify screen as per the selection screen
FORM f_modify_screen .
* IF p_calim IS NOT INITIAL.
* LOOP AT SCREEN.
* IF screen-group1 EQ 'M1'.
* screen-active = '0'.
* screen-input = '0'.
* MODIFY SCREEN.
* ENDIF.
* ENDLOOP.
* ENDIF.
*IF sy-ucomm EQ 'ONLI'.
LOOP AT SCREEN.
IF screen-group1 = 'M1'.
IF p_calim = 'X'.
screen-active = '0'.
ELSE.
screen-active = '1'.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
*ENDIF.
LOOP AT SCREEN.
IF screen-group1 = 'M2'.
IF P_Recept = 'X'.
screen-active = '0'.
ELSE.
screen-active = '1'.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
select-OPTIONS: s_BUKRS FOR bsid-bukrs NO-EXTENSION NO INTERVALS OBLIGATORY,
s_KUNNR FOR bsid-KUNNR,
s_xblnr FOR bsid-xblnr,
s_VBELN FOR bsid-VBELN MODIF ID M2,
S_BELNR FOR BSID-BELNR,
S_AUGDT FOR BSID-AUGDT,
S_YEAR FOR BSID-GJAHR NO-EXTENSION NO INTERVALS DEFAULT sy-datum+0(4) MODIF ID M1.
*PARAMETERS: p_calim AS CHECKBOX DEFAULT 'X',
* P_Recept AS CHECKBOX USER-COMMAND A.
PARAMETERS : p_calim RADIOBUTTON GROUP g1 USER-COMMAND M1 DEFAULT 'X',
P_Recept RADIOBUTTON GROUP g1.
SELECTION-SCREEN: END OF BLOCK b1.
AT SELECTION-SCREEN OUTPUT.
PERFORM f_modify_screen.
********************************ROHINI KUMAR*********************************
Please support my work : sap.rohini988@gmail.com LinkedIn Link : https://www.linkedin.com/in/rohini-kumar-14647a13a/
********************************************************************************
Comments
Post a Comment