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.

Comments

Popular posts from this blog

Export data to xls using OOPS

Factory method ALV sap abap

Delete Selected Record in ALV Report