topic Re: Regarding Selection screen in Application Development and Automation Discussions

Regarding Selection screen

Former Member — Tue, 19 Aug 2008 11:28:20 GMT

Hi Experts,

I have a problem with selection screen. In selection screen, i want to disply like this.

The selection screen is:

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

PARAMETERS: P_EXCEL AS CHECKBOX DEFAULT 'X'.

PARAMETERS: P_HEADER AS CHECKBOX DEFAULT 'X'.

PARAMETERS: P_SEP(1) TYPE C DEFAULT ','.

SELECTION-SCREEN END OF BLOCK IN.

IF P_EXEL = 'X'.

Disable the parameter P_SEP.

else

enable the parameter P_SEP.

endif.

Please help me.

Regards

Sai.

Re: Regarding Selection screen

Former Member — Tue, 19 Aug 2008 11:31:21 GMT

Hai Sai ,

You can try this .

at selection-screen output.

if p_excel = 'X'.

loop at screen.

IF screen-name = 'p_sep'.

screen-input = '0'.

else

screen-input = '1'.

endif.

endloop.

endif.

Regards,

Chitra

Re: Regarding Selection screen

Former Member — Tue, 19 Aug 2008 11:31:53 GMT

Hi Sai,

Put the below code in the event



AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'MI2'.
        SCREEN-INVISIBLE = 0.
        SCREEN-INPUT = 0.
        SCREEN-ACTIVE = 1.
        SCREEN-OUTPUT = 1.
        MODIFY SCREEN.
      ENDIF.
      IF SCREEN-GROUP1 = 'MI2'.
        SCREEN-INVISIBLE = 0.
        SCREEN-INPUT = 0.
        SCREEN-ACTIVE = 1.
        SCREEN-OUTPUT = 1.
        MODIFY SCREEN.

      ENDIF.
    ENDLOOP.

Regards,

Chidanand

Re: Regarding Selection screen

Former Member — Tue, 19 Aug 2008 11:32:39 GMT

Check below code...

----

S E L E C T I O N S C R E E N

----

SELECTION-SCREEN BEGIN OF BLOCK FILE WITH FRAME TITLE TEXT-000.

SELECTION-SCREEN : BEGIN OF LINE.

PARAMETERS: RB_APPN RADIOBUTTON GROUP RAD1 DEFAULT 'X' USER-COMMAND RAD.

SELECTION-SCREEN COMMENT 3(25) TEXT-030.

PARAMETERS: RB_PRTN RADIOBUTTON GROUP RAD1.

SELECTION-SCREEN COMMENT 32(20) TEXT-031.

SELECTION-SCREEN : END OF LINE.

PARAMETERS : P_LPATH TYPE FILEPATH-PATHINTERN MODIF ID Z1,

P_FILE TYPE RLGRAP-FILENAME OBLIGATORY.

PARAMETERS : P_SUBGRP TYPE RLGRAP-FILENAME,

P_INVEN TYPE RLGRAP-FILENAME,

P_SALES TYPE RLGRAP-FILENAME.

SELECTION-SCREEN END OF BLOCK FILE.

SELECTION-SCREEN BEGIN OF BLOCK FILE1 WITH FRAME TITLE TEXT-032.

SELECT-OPTIONS:

S_WERKS FOR T001W-WERKS OBLIGATORY DEFAULT 5210,

S_SPART FOR MARA-SPART,

S_MATNR FOR MARA-MATNR.

SELECTION-SCREEN END OF BLOCK FILE1.

----

A T S E L E C T I O N - S C R E E N O U T P U T

----

AT SELECTION-SCREEN OUTPUT.

PERFORM F_MODIFY_SCREEN.

----

A T S E L E C T I O N S C R E E N

----

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

PERFORM VALIDATE_FILE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_SUBGRP.

IF RB_PRTN = 'X'.

PERFORM GET_LOCAL_FILE_NAME USING P_SUBGRP .

ELSEIF RB_APPN = 'X'.

MESSAGE I000 WITH

'No F4 help for files on Application Server.'(033).

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_INVEN.

IF RB_PRTN = 'X'.

PERFORM GET_LOCAL_FILE_NAME USING P_INVEN .

ELSEIF RB_APPN = 'X'.

MESSAGE I000 WITH

'No F4 help for files on Application Server.'(033).

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_SALES.

IF RB_PRTN = 'X'.

PERFORM GET_LOCAL_FILE_NAME USING P_SALES .

ELSEIF RB_APPN = 'X'.

MESSAGE I000 WITH

'No F4 help for files on Application Server.'(033).

ENDIF.

&----

*& Form F_MODIFY_SCREEN

&----

text

----

FORM F_MODIFY_SCREEN .

*-- For Output Options

IF RB_PRTN = 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'Z1' .

SCREEN-INVISIBLE = 1.

SCREEN-ACTIVE = 0.

ELSE.

SCREEN-INVISIBLE = 0.

SCREEN-ACTIVE = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

ENDFORM. " F_MODIFY_SCREEN

Re: Regarding Selection screen

sachin_mathapati — Tue, 19 Aug 2008 11:32:56 GMT

Hi sai,

Try this..

SELECTION-SCREEN BEGIN OF BLOCK in WITH FRAME TITLE text-001.

PARAMETERS: p_excel AS CHECKBOX DEFAULT 'X' USER-COMMAND cmd1.

PARAMETERS: p_header AS CHECKBOX DEFAULT 'X'.

PARAMETERS: p_sep(1) TYPE c DEFAULT ',' MODIF ID sp1.

SELECTION-SCREEN END OF BLOCK in.

AT SELECTION-SCREEN OUTPUT.

IF p_excel = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'SP1'.

screen-input = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

Regards,

Sachin M M

Re: Regarding Selection screen

valter_oliveira — Tue, 19 Aug 2008 11:34:04 GMT

Hello.

First, make

PARAMETERS: P_EXCEL AS CHECKBOX DEFAULT 'X' USER-COMMAND xls.

PARAMETERS: P_SEP(1) TYPE C DEFAULT ',' MODIF ID sep.

Then,


AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
  CHECK screen-group1 EQ 'SEP'.
  IF P_EXEL = 'X'.
    screen-active = '0'.
  ELSE.
    screen-active = '1'.
  ENDIF.
  MODIFY SCREEN.
ENDLOOP.

Regards.

Valter Oliveira.

Re: Regarding Selection screen

Former Member — Tue, 19 Aug 2008 11:35:39 GMT

Hi,

The selection screen is:

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

PARAMETERS: P_EXCEL AS CHECKBOX DEFAULT 'X'.

PARAMETERS: P_HEADER AS CHECKBOX DEFAULT 'X'.

PARAMETERS: P_SEP(1) TYPE C DEFAULT ','.

SELECTION-SCREEN END OF BLOCK IN.

Check file path has given or not

at selection-screen.

at selection-screen output.

IF P_EXEL = 'X'.

loop at screen.

if screen-name = 'P_SEP'.

screen-input = 0.

modify screen.

endif.

endloop.

endif.

thanks,

Aruna

Re: Regarding Selection screen

Former Member — Tue, 19 Aug 2008 11:40:23 GMT

Hi,

you need to loop at screen and make it disable according to your requirement.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

case screen-name .

when 'P_SEP'.

IF P_EXEL = 'X'.

SCREEN-active = '0'.

endif.

endcase.

endloop.

Regards,

Raj.