Dynamic Selction screen -AT Selection-Screen Output
*----------------------------------------------------------------------** Name of the program: y_selection_scr *
* *
* Purpose: Demo of Selection screen *
*----------------------------------------------------------------------*
* Author : Jatin Singhal *
* Date : 14.05.2014 *
* Ref Doc : *
* TR No. : *
REPORT y_selection_scr.
DATA : gv_matnr TYPE matnr,
gv_matkl TYPE matkl,
gv_mtart TYPE mara-mtart,
gv_werks TYPE werks_d,
gv_mfrpn type mfrpn.
DATA p_matnr type matnr.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : rad1 RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND abcd,
rad2 RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002 .
SELECT-OPTIONS: s_matnr FOR gv_matnr MODIF ID abc, "matchcode object helpname1
s_matkl FOR gv_matkl MODIF ID abc, "matchcode object helpname2
s_mtart FOR gv_mtart MODIF ID abc, "matchcode object helpname3
s_mfrpn for gv_mfrpn MATCHCODE OBJECT yjselection_screen.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
SELECT-OPTIONS : s_werks FOR gv_werks MODIF ID int.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-004.
PARAMETERS : alv AS CHECKBOX DEFAULT 'X',
email AS CHECKBOX ,
print AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b4.
*Initialization.
*
*text-001 = 'Select-options'.
*text-002 = 'Select Input'.
*text-003 = 'Output Options'.
AT SELECTION-SCREEN OUTPUT.
**************************************
* If rad1 EQ 'X'.
* Loop at screen.
* If screen-group1 eq 'INT' .
* screen-INPUT = 0.
* screen-invisible = 1.
* modify screen.
* Endif.
* Endloop.
*
* Elseif rad2 EQ 'X'.
* Loop at screen.
* If screen-group1 eq 'INT'.
* screen-INPUT = 1.
* screen-invisible = 0.
* modify screen.
* Endif.
* Endloop.
*
* Endif.
*************************************
IF rad1 = 'X' .
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'abc'.
screen-active = 1.
screen-invisible = 0.
MODIFY SCREEN.
WHEN 'INT'.
screen-active = 0.
screen-invisible = 1.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ELSE.
IF rad2 = 'X'.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'abc'.
screen-active = 0.
screen-invisible = 1.
MODIFY SCREEN.
WHEN 'INT'.
screen-active = 1.
screen-invisible = 0.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ENDIF.
ENDIF.
* *
* Purpose: Demo of Selection screen *
*----------------------------------------------------------------------*
* Author : Jatin Singhal *
* Date : 14.05.2014 *
* Ref Doc : *
* TR No. : *
REPORT y_selection_scr.
DATA : gv_matnr TYPE matnr,
gv_matkl TYPE matkl,
gv_mtart TYPE mara-mtart,
gv_werks TYPE werks_d,
gv_mfrpn type mfrpn.
DATA p_matnr type matnr.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : rad1 RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND abcd,
rad2 RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002 .
SELECT-OPTIONS: s_matnr FOR gv_matnr MODIF ID abc, "matchcode object helpname1
s_matkl FOR gv_matkl MODIF ID abc, "matchcode object helpname2
s_mtart FOR gv_mtart MODIF ID abc, "matchcode object helpname3
s_mfrpn for gv_mfrpn MATCHCODE OBJECT yjselection_screen.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
SELECT-OPTIONS : s_werks FOR gv_werks MODIF ID int.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-004.
PARAMETERS : alv AS CHECKBOX DEFAULT 'X',
email AS CHECKBOX ,
print AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b4.
*Initialization.
*
*text-001 = 'Select-options'.
*text-002 = 'Select Input'.
*text-003 = 'Output Options'.
AT SELECTION-SCREEN OUTPUT.
**************************************
* If rad1 EQ 'X'.
* Loop at screen.
* If screen-group1 eq 'INT' .
* screen-INPUT = 0.
* screen-invisible = 1.
* modify screen.
* Endif.
* Endloop.
*
* Elseif rad2 EQ 'X'.
* Loop at screen.
* If screen-group1 eq 'INT'.
* screen-INPUT = 1.
* screen-invisible = 0.
* modify screen.
* Endif.
* Endloop.
*
* Endif.
*************************************
IF rad1 = 'X' .
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'abc'.
screen-active = 1.
screen-invisible = 0.
MODIFY SCREEN.
WHEN 'INT'.
screen-active = 0.
screen-invisible = 1.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ELSE.
IF rad2 = 'X'.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'abc'.
screen-active = 0.
screen-invisible = 1.
MODIFY SCREEN.
WHEN 'INT'.
screen-active = 1.
screen-invisible = 0.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ENDIF.
ENDIF.
Comments
Post a Comment