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
Showing results for 
Search instead for 
Did you mean: 
Read only

Problem with selection options

NeerajRao
Explorer
0 Likes
1,070

Hi to All,

I had applied modif id to the selection-options in the selection screen but when i use AT SELECTION-SCREEN OUTPUT and Loop a screen a small input box is displayed before every selection-options.

Given below is the code that had problem :--

PARAMETERS: OA_WISE RADIOBUTTON GROUP RAD1 user-command ijkl,

DA_WISE RADIOBUTTON GROUP RAD1 DEFAULT 'X'.

*

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002.

SELECT-OPTIONS PERIOD1 FOR VBAK-ERDAT modif id GP1.

SELECT-OPTIONS SALORD FOR VBAK-VBELN modif id GP1.

PARAMETERS CONDS TYPE CHECKBOX user-command abcd modif id GP1.

SELECT-OPTIONS: SO_COND FOR KONV-KSCHL NO INTERVALS modif id G11.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-003.

SELECT-OPTIONS PERIOD2 FOR VBRK-FKDAT modif id GP2.

SELECT-OPTIONS BILLNO FOR VBRK-VBELN modif id GP2.

PARAMETERS COND TYPE CHECKBOX user-command EFGH modif id GP2.

SELECT-OPTIONS BILL_CON FOR KONV-KSCHL NO INTERVALS MODIF ID G22.

SELECTION-SCREEN END OF BLOCK B2.

  • FOR SELECION SCREEN OUTPUT

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF OA_WISE = 'X'. " ENABLING Sales Order SELECTION BOX

IF SCREEN-GROUP1 = 'GP1'.

screen-invisible = '0'.

screen-input = '1'.

modify screen.

endif.

if screen-group1 = 'GP2' OR screen-group1 = 'G22'.

screen-invisible = '1'.

screen-input = '0'.

modify screen.

endif.

  • FOR SO PRICING CONDITION

IF CONDS = 'X'.

IF SCREEN-GROUP1 = 'G11'.

SCREEN-INPUT = 0.

ENDIF.

ELSE.

IF SCREEN-GROUP1 = 'G11'.

SCREEN-INPUT = 1.

ENDIF.

ENDIF.

MODIFY SCREEN.

  • END OF SO PRICING CONDITION.

ELSE.

if screen-group1 = 'GP1' OR screen-group1 = 'G11'. " ENABLING BILL SELECTION BOX

screen-invisible = '1'.

screen-input = '0'.

modify screen.

endif.

if screen-group1 = 'GP2' OR screen-group1 = 'G22'.

screen-invisible = '0'.

screen-input = '1'.

modify screen.

endif.

  • FOR BILL PRICING CONDITION

IF COND = 'X'.

IF SCREEN-GROUP1 = 'G22'.

SCREEN-INPUT = 0.

ENDIF.

ELSE.

IF SCREEN-GROUP1 = 'G22'.

SCREEN-INPUT = 1.

ENDIF.

ENDIF.

MODIFY SCREEN.

  • END OF PRICING CONDITION

ENDIF.

ENDLOOP. " FOR LOOP AT SCREEN

"END OF SELECTION SCREEN OUTPUT.

Please suggest the solution.

Thanks in advance

Neraj Rao

1 ACCEPTED SOLUTION
Read only

awin_prabhu
Active Contributor
0 Likes
1,030

Hi Neeraj,

Remove the line screen-input = '1' in ur code. This will remove box before select-options.

Ur code:

PARAMETERS: OA_WISE RADIOBUTTON GROUP RAD1 user-command ijkl,

DA_WISE RADIOBUTTON GROUP RAD1 DEFAULT 'X'.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002.

SELECT-OPTIONS PERIOD1 FOR VBAK-ERDAT modif id GP1.

SELECT-OPTIONS SALORD FOR VBAK-VBELN modif id GP1.

PARAMETERS CONDS TYPE CHECKBOX user-command abcd modif id GP1.

SELECT-OPTIONS: SO_COND FOR KONV-KSCHL NO INTERVALS modif id G11.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-003.

SELECT-OPTIONS PERIOD2 FOR VBRK-FKDAT modif id GP2.

SELECT-OPTIONS BILLNO FOR VBRK-VBELN modif id GP2.

PARAMETERS COND TYPE CHECKBOX user-command EFGH modif id GP2.

SELECT-OPTIONS BILL_CON FOR KONV-KSCHL NO INTERVALS MODIF ID G22.

SELECTION-SCREEN END OF BLOCK B2.

  • FOR SELECION SCREEN OUTPUT

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF OA_WISE = 'X'. " ENABLING Sales Order SELECTION BOX

IF SCREEN-GROUP1 = 'GP1'.

screen-invisible = '0'.

screen-input = '1'. <----


Remove this line

modify screen.

endif.

if screen-group1 = 'GP2' OR screen-group1 = 'G22'.

screen-invisible = '1'.

screen-input = '0'.

modify screen.

endif.

  • FOR SO PRICING CONDITION

IF CONDS = 'X'.

IF SCREEN-GROUP1 = 'G11'.

SCREEN-INPUT = 0.

ENDIF.

ELSE.

IF SCREEN-GROUP1 = 'G11'.

SCREEN-INPUT = 1. <----


Remove this line

ENDIF.

ENDIF.

MODIFY SCREEN.

  • END OF SO PRICING CONDITION.

ELSE.

if screen-group1 = 'GP1' OR screen-group1 = 'G11'. " ENABLING BILL SELECTION BOX

screen-invisible = '1'.

screen-input = '0'.

modify screen.

endif.

if screen-group1 = 'GP2' OR screen-group1 = 'G22'.

screen-invisible = '0'.

screen-input = '1'. <----


Remove this line

modify screen.

endif.

  • FOR BILL PRICING CONDITION

IF COND = 'X'.

IF SCREEN-GROUP1 = 'G22'.

SCREEN-INPUT = 0.

ENDIF.

ELSE.

IF SCREEN-GROUP1 = 'G22'.

SCREEN-INPUT = 1. <----


Remove this line

ENDIF.

ENDIF.

MODIFY SCREEN.

  • END OF PRICING CONDITION

ENDIF.

ENDLOOP. " FOR LOOP AT SCREEN

"END OF SELECTION SCREEN OUTPUT.

MIght solve ur problem.

Thanks..

5 REPLIES 5
Read only

I355602
Product and Topic Expert
Product and Topic Expert
0 Likes
1,030

Hi,

I copied the same code, its working fine.

Remember when you use:-

screen-invisible = 1.

Then dnt use:-

screen-input = 1. "or
screen-input = 0.

Else when you use:-

screen-invisible = 0.

Then you can use:-

screen-input = 1.

Please check again.

Regards,

Tarun

Edited by: Tarun Gambhir on Mar 23, 2009 9:35 AM

Read only

awin_prabhu
Active Contributor
0 Likes
1,031

Hi Neeraj,

Remove the line screen-input = '1' in ur code. This will remove box before select-options.

Ur code:

PARAMETERS: OA_WISE RADIOBUTTON GROUP RAD1 user-command ijkl,

DA_WISE RADIOBUTTON GROUP RAD1 DEFAULT 'X'.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002.

SELECT-OPTIONS PERIOD1 FOR VBAK-ERDAT modif id GP1.

SELECT-OPTIONS SALORD FOR VBAK-VBELN modif id GP1.

PARAMETERS CONDS TYPE CHECKBOX user-command abcd modif id GP1.

SELECT-OPTIONS: SO_COND FOR KONV-KSCHL NO INTERVALS modif id G11.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-003.

SELECT-OPTIONS PERIOD2 FOR VBRK-FKDAT modif id GP2.

SELECT-OPTIONS BILLNO FOR VBRK-VBELN modif id GP2.

PARAMETERS COND TYPE CHECKBOX user-command EFGH modif id GP2.

SELECT-OPTIONS BILL_CON FOR KONV-KSCHL NO INTERVALS MODIF ID G22.

SELECTION-SCREEN END OF BLOCK B2.

  • FOR SELECION SCREEN OUTPUT

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF OA_WISE = 'X'. " ENABLING Sales Order SELECTION BOX

IF SCREEN-GROUP1 = 'GP1'.

screen-invisible = '0'.

screen-input = '1'. <----


Remove this line

modify screen.

endif.

if screen-group1 = 'GP2' OR screen-group1 = 'G22'.

screen-invisible = '1'.

screen-input = '0'.

modify screen.

endif.

  • FOR SO PRICING CONDITION

IF CONDS = 'X'.

IF SCREEN-GROUP1 = 'G11'.

SCREEN-INPUT = 0.

ENDIF.

ELSE.

IF SCREEN-GROUP1 = 'G11'.

SCREEN-INPUT = 1. <----


Remove this line

ENDIF.

ENDIF.

MODIFY SCREEN.

  • END OF SO PRICING CONDITION.

ELSE.

if screen-group1 = 'GP1' OR screen-group1 = 'G11'. " ENABLING BILL SELECTION BOX

screen-invisible = '1'.

screen-input = '0'.

modify screen.

endif.

if screen-group1 = 'GP2' OR screen-group1 = 'G22'.

screen-invisible = '0'.

screen-input = '1'. <----


Remove this line

modify screen.

endif.

  • FOR BILL PRICING CONDITION

IF COND = 'X'.

IF SCREEN-GROUP1 = 'G22'.

SCREEN-INPUT = 0.

ENDIF.

ELSE.

IF SCREEN-GROUP1 = 'G22'.

SCREEN-INPUT = 1. <----


Remove this line

ENDIF.

ENDIF.

MODIFY SCREEN.

  • END OF PRICING CONDITION

ENDIF.

ENDLOOP. " FOR LOOP AT SCREEN

"END OF SELECTION SCREEN OUTPUT.

MIght solve ur problem.

Thanks..

Read only

0 Likes
1,030

Thanks its working...

Read only

0 Likes
1,030

Thank you!

Read only

0 Likes
1,030

Sap Fan, Thank you!