Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Query Related to Selection Screen

Former Member

‎2008 Jun 27 10:06 AM

0 Likes
532

Hi All,

I have created screen 1000 with the following code.

Kindly let me know how i can select only a single block at a time with only single checkbox at a time. Can i make both the selection blocks in the code below as mandatory.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-001.

*SELECT-OPTIONS : S_BUKRS FOR BSIS-BUKRS no intervals OBLIGATORY.

SELECT-OPTIONS : s_bukrs FOR bsis-bukrs." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-002.

SELECT-OPTIONS : s_gjahr FOR bsis-gjahr NO-EXTENSION NO INTERVALS." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-003.

SELECT-OPTIONS : s_monat FOR bsis-monat NO-EXTENSION." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-004.

SELECT-OPTIONS : s_prctr FOR bsis-prctr.

SELECTION-SCREEN END OF LINE.

PARAMETERS: p_file TYPE rlgrap-filename NO-DISPLAY.

SELECT-OPTIONS : s_bukrs1 FOR bsis-bukrs NO-EXTENSION NO INTERVALS NO-DISPLAY.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : s_check1 AS CHECKBOX." RADIOBUTTON GROUP rad2 DEFAULT 'X'.

SELECTION-SCREEN COMMENT 4(25) text-005.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : s_check2 AS CHECKBOX." RADIOBUTTON GROUP rad2.

SELECTION-SCREEN COMMENT 4(25) text-006.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-009.

SELECT-OPTIONS : s_rbukrs FOR glu3-rbukrs NO-EXTENSION NO INTERVALS." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(20) text-011.

PARAMETERS : s_year LIKE bsis-gjahr." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(20) text-013.

*PARAMETERS : s_period TYPE vrm_value-key AS LISTBOX VISIBLE LENGTH 8 OBLIGATORY.

PARAMETERS : s_period LIKE bsis-monat." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECT-OPTIONS : s_stagr FOR faglskf_pn-stagr NO-DISPLAY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-010.

SELECT-OPTIONS : s_rprctr FOR glu3-prctr.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-t04.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : s_check3 AS CHECKBOX.

SELECTION-SCREEN COMMENT 4(25) text-007.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b4.

Thanks & Regards,

Bhavika Kumar

Hi All,

I have created screen 1000 with the following code.

Kindly let me know how i can select only a single block at a time with only single checkbox at a time. Can i make both the selection blocks in the code below as mandatory.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-001.

*SELECT-OPTIONS : S_BUKRS FOR BSIS-BUKRS no intervals OBLIGATORY.

SELECT-OPTIONS : s_bukrs FOR bsis-bukrs." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-002.

SELECT-OPTIONS : s_gjahr FOR bsis-gjahr NO-EXTENSION NO INTERVALS." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-003.

SELECT-OPTIONS : s_monat FOR bsis-monat NO-EXTENSION." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-004.

SELECT-OPTIONS : s_prctr FOR bsis-prctr.

SELECTION-SCREEN END OF LINE.

PARAMETERS: p_file TYPE rlgrap-filename NO-DISPLAY.

SELECT-OPTIONS : s_bukrs1 FOR bsis-bukrs NO-EXTENSION NO INTERVALS NO-DISPLAY.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : s_check1 AS CHECKBOX." RADIOBUTTON GROUP rad2 DEFAULT 'X'.

SELECTION-SCREEN COMMENT 4(25) text-005.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : s_check2 AS CHECKBOX." RADIOBUTTON GROUP rad2.

SELECTION-SCREEN COMMENT 4(25) text-006.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-009.

SELECT-OPTIONS : s_rbukrs FOR glu3-rbukrs NO-EXTENSION NO INTERVALS." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(20) text-011.

PARAMETERS : s_year LIKE bsis-gjahr." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(20) text-013.

*PARAMETERS : s_period TYPE vrm_value-key AS LISTBOX VISIBLE LENGTH 8 OBLIGATORY.

PARAMETERS : s_period LIKE bsis-monat." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECT-OPTIONS : s_stagr FOR faglskf_pn-stagr NO-DISPLAY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-010.

SELECT-OPTIONS : s_rprctr FOR glu3-prctr.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-t04.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : s_check3 AS CHECKBOX.

SELECTION-SCREEN COMMENT 4(25) text-007.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b4.

Thanks & Regards,

Bhavika Kumar

Reply
2 REPLIES 2
Read only

Former Member

‎2008 Jun 27 10:11 AM

0 Likes
488

Hi,

Really didnt get your query....

Could u elaborate a bit?

Read only

Former Member

‎2008 Jun 27 10:45 AM

0 Likes
488

Hi Bhavaki,

please check this code...

if first check box is selected then the first block will disappear,

if second check box is selected then the second block will disappear.

TABLES: bsis,
glu3,
faglskf_pn.
************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(17) text-001 MODIF ID 1.

*SELECT-OPTIONS : S_BUKRS FOR BSIS-BUKRS no intervals OBLIGATORY.
SELECT-OPTIONS : s_bukrs FOR bsis-bukrs MODIF ID 1." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(17) text-002 MODIF ID 1.

SELECT-OPTIONS : s_gjahr FOR bsis-gjahr NO-EXTENSION NO INTERVALS
MODIF ID 1.
*" OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(17) text-003 MODIF ID 1.

SELECT-OPTIONS : s_monat FOR bsis-monat NO-EXTENSION MODIF ID 1.
*" OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(17) text-004 MODIF ID 1.

SELECT-OPTIONS : s_prctr FOR bsis-prctr MODIF ID 1.

SELECTION-SCREEN END OF LINE.
PARAMETERS: p_file TYPE rlgrap-filename NO-DISPLAY MODIF ID 1.
SELECT-OPTIONS : s_bukrs1 FOR bsis-bukrs NO-EXTENSION NO INTERVALS
NO-DISPLAY MODIF ID 1.

SELECTION-SCREEN END OF BLOCK b1.
**********************************************************************
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.

SELECTION-SCREEN BEGIN OF LINE.


PARAMETERS : s_check1 AS CHECKBOX user-command u1.
*" RADIOBUTTON GROUP rad2 DEFAULT 'X'.

SELECTION-SCREEN COMMENT 4(25) text-005.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : s_check2 AS CHECKBOX user-command u2.
*" RADIOBUTTON GROUP rad2.

SELECTION-SCREEN COMMENT 4(25) text-006.


SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b2.
**********************************************************************
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 2(17) text-009 MODIF ID 2.
SELECT-OPTIONS : s_rbukrs FOR glu3-rbukrs NO-EXTENSION NO INTERVALS
MODIF ID 2.
*" OBLIGATORY.
SELECTION-SCREEN END OF LINE.


SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) text-011 MODIF ID 2.
PARAMETERS : s_year LIKE bsis-gjahr MODIF ID 2." OBLIGATORY.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) text-013 MODIF ID 2.
*PARAMETERS : s_period TYPE vrm_value-key AS LISTBOX VISIBLE LENGTH 8
*OBLIGATORY.
PARAMETERS : s_period LIKE bsis-monat MODIF ID 2." OBLIGATORY.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECT-OPTIONS : s_stagr FOR faglskf_pn-stagr NO-DISPLAY MODIF ID 2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(17) text-010 MODIF ID 2.
SELECT-OPTIONS : s_rprctr FOR glu3-prctr MODIF ID 2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b3.
***********************************************************************
AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.
    IF  s_check1 = 'X'.
      IF screen-group1 = '1'.
        screen-active = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
      IF  s_check2 = 'X'.
      IF screen-group1 = '2'.
        screen-active = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.

  ENDLOOP.

Best regards,

raam