topic Re: Label on Selection Screen in Application Development and Automation Discussions

Label on Selection Screen

Former Member — Mon, 05 May 2008 08:47:43 GMT

Hi,

I need to create a label on selection screen which holds a default value but that should not be edited by the user. It should be disabled on the selection screen. It should only show the default value.

Please give the solution.

Thanks in advance.

Sunanda.

Re: Label on Selection Screen

Former Member — Mon, 05 May 2008 08:50:03 GMT

hI,

Use loop at Screen.

And make Screen-input = 0.

Regards

Sandipan

Re: Label on Selection Screen

peter_ruiz2 — Mon, 05 May 2008 08:50:23 GMT

hi sunanda,

try this


 parameter up_test type c.

 initialization.
  loop at screen.
    if screen-name eq 'UP_TEST'.
      screen-input = 0.
      modify screen.
    endif.
  endloop.

regards,

Peter

Re: Label on Selection Screen

Former Member — Mon, 05 May 2008 08:51:41 GMT

parameters : p_pernr like pa0001-pernr default '10000000'.

Initialization.

loop at screen.

if screen-name = 'P_PERNR'.

SCREEN-INPUT = 0.

Modify screen.

endif.

endloop.

Re: Label on Selection Screen

Former Member — Mon, 05 May 2008 08:55:27 GMT

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) TEXT.
SELECTION-SCREEN END    OF LINE.

PARAMETERS P_BUKRS LIKE T001-BUKRS.


INITIALIZATION.

  TEXT = 'My label'.

Max

Re: Label on Selection Screen

Former Member — Mon, 05 May 2008 08:55:43 GMT

Hi Sunanda,

I am providing sample code. Check this code for your reference.

***************************************************************

SELECTION-SCREEN : BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-006.

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

SELECTION-SCREEN: BEGIN OF LINE.

PARAMETERS: RB1 RADIOBUTTON GROUP G1 USER-COMMAND FLAG.

SELECTION-SCREEN COMMENT 3(15) FOR FIELD RB1.

PARAMETERS: RB2 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 20(30) FOR FIELD RB2.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: END OF BLOCK D.

SELECTION-SCREEN : BEGIN OF BLOCK B0 WITH FRAME TITLE TEXT-004.

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

PARAMETERS : RCODE(30) TYPE C AS LISTBOX VISIBLE LENGTH 30 MODIF ID AS,

WW TYPE CHAR6 AS LISTBOX VISIBLE LENGTH 6 MODIF ID AS,

QTY TYPE ZQTY MODIF ID AS,

SELECTION-SCREEN : END OF BLOCK A.

SELECTION-SCREEN :

PUSHBUTTON 10(10) SAVE USER-COMMAND SAV MODIF ID AS,

PUSHBUTTON 25(10) DISPLAY USER-COMMAND DISP MODIF ID AS,

PUSHBUTTON 40(10) COPY USER-COMMAND COPY MODIF ID AS,

PUSHBUTTON 55(10) HISTORY USER-COMMAND HIST MODIF ID AS,

PUSHBUTTON 70(10) RST USER-COMMAND RST MODIF ID AS.

SELECTION-SCREEN : END OF BLOCK B0.

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

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

PARAMETERS : PS_FILE TYPE CHAR128 MODIF ID PS.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN :

PUSHBUTTON 10(10) UPLOAD USER-COMMAND UPL MODIF ID PS,

PUSHBUTTON 35(10) DOWNLOAD USER-COMMAND DWL MODIF ID PS.

SELECTION-SCREEN : END OF BLOCK B2.

SELECTION-SCREEN : END OF BLOCK B3.

FORM F_TOGGLE_FINPUTS1.

*It gives dynamic display of input boxes for file selection based on

*user choice

IF RB1 = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = C_AS. " 'AS'.

SCREEN-ACTIVE = 1.

ENDIF.

IF SCREEN-GROUP1 = C_PS. " 'PS'.

SCREEN-ACTIVE = 1.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSEIF RB2 = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = C_PS. " 'PS'.

SCREEN-ACTIVE = 1.

ENDIF.

IF SCREEN-GROUP1 = C_AS. " 'AS'.

SCREEN-ACTIVE = 1.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

ENDFORM.

***************************************************************

Hope this is helpful to you. If you need further information, revert back.

Reward all the helpful answers.

Regards

Nagaraj T