topic Re: Select-options in Application Development and Automation Discussions

Select-options

Former Member — Wed, 27 Dec 2006 09:16:39 GMT

At the following code i want to make the "s_status_ to be grey in some cases as you see.It is working when it is Parameter .

But i can't make it work when the "s_status" is SELECT-OPTIONS.

How can i do this ? Simply to activate or deactivate the select-optiopns .

----

SELECTION SCREEN DECLARATION *

----

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

SELECT-OPTIONS : S_CERTNR FOR YQM_CERT-CERTNR,

S_DOCNR FOR YQM_CERT-DOCNR,

S_VBELN FOR YQM_CERT-VBELN,

S_RDOCLN FOR YQM_CERT-RDOCLN.

PARAMETERS : S_STATUS LIKE YQM_CERT-STATUS.

PARAMETERS: XRHSTHS TYPE SY-UNAME.

SELECTION-SCREEN END OF BLOCK B1.

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

DATA: P_VARI LIKE DISVARIANT-VARIANT .

*PARAMETERS: XRHSTHS TYPE SY-UCOMM.

SELECTION-SCREEN END OF BLOCK B2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF XRHSTHS = 'XXXX'

OR XRHSTHS = 'YYYYY'

OR XRHSTHS = 'BBBBB'

OR XRHSTHS = 'DDDDD'.

IF SCREEN-NAME = 'S_STATUS'.

SCREEN-INPUT = 1.

SCREEN-INTENSIFIED = 1.

MODIFY SCREEN.

EXIT.

ENDIF.

ELSE.

IF SCREEN-NAME = 'S_STATUS'.

SCREEN-INPUT = 0.

SCREEN-INTENSIFIED = 0.

MOVE 'A' TO S_STATUS.

MODIFY SCREEN.

EXIT.

ENDIF.

ENDLOOP.

Re: Select-options

Former Member — Wed, 27 Dec 2006 09:22:16 GMT

Make the highlighted changes:

LOOP AT SCREEN.

IF XRHSTHS = 'XXXX'

OR XRHSTHS = 'YYYYY'

OR XRHSTHS = 'BBBBB'

OR XRHSTHS = 'DDDDD'.

IF SCREEN-NAME cs 'S_STATUS'.

SCREEN-INPUT = 1.

SCREEN-INTENSIFIED = 1.

MODIFY SCREEN.

EXIT.

ENDIF.

ELSE.

IF SCREEN-NAME cs 'S_STATUS'.

SCREEN-INPUT = 0.

SCREEN-INTENSIFIED = 0.

MOVE 'A' TO S_STATUS.

MODIFY SCREEN.

EXIT.

ENDIF.

ENDLOOP.

LOOP AT SCREEN.

IF XRHSTHS = 'XXXX'

OR XRHSTHS = 'YYYYY'

OR XRHSTHS = 'BBBBB'

OR XRHSTHS = 'DDDDD'.

IF SCREEN-NAME = 'S_STATUS-LOW'.

SCREEN-INPUT = 1.

SCREEN-INTENSIFIED = 1.

MODIFY SCREEN.

EXIT.

ENDIF.

ELSE.

IF SCREEN-NAME = 'S_STATUS-LOW'.

SCREEN-INPUT = 0.

SCREEN-INTENSIFIED = 0.

MOVE 'A' TO S_STATUS.

MODIFY SCREEN.

EXIT.

ENDIF.

ENDLOOP.

Regards,

Ravi

Re: Select-options

dani_mn — Wed, 27 Dec 2006 09:22:34 GMT

select-options: S_STATUS FOR YQM_CERT-STATUS MODIF ID SEL.


at selection-screen output.

    loop at screen.
       IF XRHSTHS = 'XXXX'
          OR XRHSTHS = 'YYYYY'
          OR XRHSTHS = 'BBBBB'
          OR XRHSTHS = 'DDDDD'.

      if screen-group1 = 'SEL'.
        SCREEN-active = 1.
        SCREEN-INTENSIFIED = 1.
        modify screen.
        exit.
      endif.
      ELSE.
      if screen-group1 = 'SEL'.
        SCREEN-active = 0.
        SCREEN-INTENSIFIED = 0.
        MOVE 'A' TO S_STATUS.
        modify screen.
        exit.
      endif.
     ENDIF.

    endloop.

Re: Select-options

Former Member — Wed, 27 Dec 2006 09:24:34 GMT

IF SCREEN-NAME = 'S_STATUS-LOW' OR

SCREEN-NAME = 'S_STATUS-HIGH' .

SCREEN-INPUT = 0.

SCREEN-INTENSIFIED = 0.

MOVE 'A' TO S_STATUS.

MODIFY SCREEN.

EXIT.

ENDIF.

REGARDS

SHIBA DUTTA

Re: Select-options

uwe_schieferstein — Wed, 27 Dec 2006 09:32:24 GMT

Hello Dimath

You could use a modification id for your select-option or directly inactivate it:

SELECT-OPTIONS:
  s_status    FOR cert-status  MODIF ID 'INA'.



AT SELECTION-SCREEN OUTPUT.
  LOOP AT screen.
    IF ( screen-group1 = 'INA' ).
       screen-input = 0.
       modify screen.
    ENDIF.
  ENDLOOP.


" or:

  LOOP AT screen.
    IF ( screen-name CS ' S_STATUS' ).   " -low  AND -high !!!
     screen-input = 0.
     modify screen.
   ENDIF.
  ENDLOOP.

Regards

Uwe

Re: Select-options

Former Member — Wed, 27 Dec 2006 09:34:28 GMT

Try changing the statement

IF SCREEN-NAME = 'S_STATUS' to

IF SCREEN-NAME CS 'S_STATUS' or IF SCREEN-NAME CP 'S_STATUS'. One of them should work. Also put the code in a form and call it in each of the

AT SELECTION-SCREEN .............

statements.

Re: Select-options

Former Member — Wed, 27 Dec 2006 09:38:15 GMT

cHECK THSI DEMO CODE AND Reward if helpfull

tables pa0002.

Select-options : S_STATUS for pa0002-pernr modif Id ABC.

PARAMETERS : P_CHECK AS CHECKBOX USER-COMMAND CH.

CHECK SY-UCOMM = 'CH'.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF P_CHECK = 'X'.

IF SCREEN-GROUP1 = 'ABC'.

SCREEN-INPUT = 1.

*SCREEN-INTENSIFIED = 1.

MODIFY SCREEN.

ENDIF.

ELSE.

IF SCREEN-GROUP1 = 'ABC'.

SCREEN-INPUT = 0.

*SCREEN-INTENSIFIED = 0.

*MOVE 'A' TO S_STATUS.

MODIFY SCREEN.

ENDIF.

ENDLOOP.