topic Re: Check box before select option in a report program. in Application Development and Automation Discussions

Check box before select option in a report program.

former_member195383 — Mon, 23 Jun 2008 09:33:01 GMT

Hi All..

I have a report program with select options..I want to put a checkbox before the select option, aligned with it...Is it possible..

Regards

Rudra

Re: Check box before select option in a report program.

Former Member — Mon, 23 Jun 2008 09:38:53 GMT

hi,

use begin of line - end of line to put the select-options n check-box in the same line.

then use POSITION to specify the position where the select-option shud start.

regards,

madhu

Re: Check box before select option in a report program.

Former Member — Mon, 23 Jun 2008 09:39:08 GMT

Hi,

Try to use

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN END OF LINE.

it can help you.

Re: Check box before select option in a report program.

Former Member — Mon, 23 Jun 2008 09:39:39 GMT

DATA: LV_VBELN TYPE VBAP-VBELN.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: P_CHK1 AS CHECKBOX.

SELECT-OPTIONS: S_SEL FOR LV_VBELN.

SELECTION-SCREEN END OF LINE.

Reward points if useful

Re: Check box before select option in a report program.

Former Member — Mon, 23 Jun 2008 09:43:43 GMT

Hi,

yes it can be done...

Check the below code

SELECTION-SCREEN BEGIN OF LINE.
PARAMETER      chk  AS  CHECKBOX USER-COMMAND chk..
SELECTION-SCREEN COMMENT 3(20) comment.
SELECT-OPTIONS date FOR sy-datum.
SELECTION-SCREEN END   OF LINE.

INITIALIZATION.

  MOVE 'Include date' TO comment.

AT SELECTION-SCREEN OUTPUT.

  IF chk EQ 'X'.
    LOOP AT SCREEN.
      CHECK screen-name = 'DATE-LOW'  OR
            screen-name = 'DATE-HIGH'.
      screen-input = 1.
      MODIFY SCREEN.
    ENDLOOP.
  ELSE.
    LOOP AT SCREEN.
      CHECK screen-name = 'DATE-LOW'  OR
            screen-name = 'DATE-HIGH'.
      screen-input = 0.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.

Cheers,

Jose.

Re: Check box before select option in a report program.

Former Member — Mon, 23 Jun 2008 09:44:13 GMT

Hi,

Check the Below Code snippet.

TABLES : ekko ,

ekpo .

CONSTANTS :

c_XY(02) TYPE c VALUE 'XY',

c_x(01) TYPE c VALUE 'X',

c_XX(02) TYPE c VALUE 'XX'.

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

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN POSITION 1.

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

PARAMETERS:

rb_cred RADIOBUTTON GROUP r2 DEFAULT 'X' USER-COMMAND u1.

SELECTION-SCREEN POSITION 25.

PARAMETERS: cb_par1 as checkbox modif id aa.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN POSITION 1.

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

PARAMETERS: rb_reld RADIOBUTTON GROUP r2.

SELECTION-SCREEN POSITION 25.

SELECT-OPTIONS:

s_redat FOR ekko-aedat OBLIGATORY NO-EXTENSION DEFAULT sy-datum MODIF ID ab.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b3 .

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF rb_cred = c_x AND screen-group1 = c_XY.

screen-output = 0.

screen-active = 0.

screen-input = 0.

clear: cb_par1.

ELSEIF rb_reld = c_x AND screen-group1 = c_XX.

screen-output = 0.

screen-active = 0.

screen-input = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

Regards,

Viji.

Re: Check box before select option in a report program.

Former Member — Mon, 23 Jun 2008 09:49:20 GMT

Hi Rudra,

Take the below help program. In the below program I am disabling the text fields....

Take the refrence and do it will fix the problem

&***************************Reward Point if helpful***************************&


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

PARAMETERS: P1 RADIOBUTTON GROUP G1 DEFAULT 'X' USER-COMMAND Z1.
SELECT-OPTIONS: S_PMNUX FOR S076-PMNUX MODIF ID MI1.
PARAMETERS:     P_WENUX LIKE S076-WENUX MODIF ID MI1.
PARAMETERS: P5 TYPE CHAR15 AS LISTBOX  VISIBLE  LENGTH 15 MODIF ID MI1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 7.
PARAMETERS: P3 RADIOBUTTON GROUP G2 MODIF ID MI1.
SELECTION-SCREEN COMMENT 10(10) TEXT-001 MODIF ID MI1.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 7.
PARAMETERS: P4 RADIOBUTTON GROUP G2 MODIF ID MI1.
SELECTION-SCREEN COMMENT 10(10) TEXT-002 MODIF ID MI1.
SELECTION-SCREEN END OF LINE.

PARAMETERS: P_FILE TYPE RLGRAP-FILENAME MODIF ID MI1.
PARAMETERS: P2 RADIOBUTTON GROUP G1.
SELECT-OPTIONS: S_PMNUX1 FOR S076-PMNUX MODIF ID MI2.        " Product Group
PARAMETERS:     P_WENUX1 LIKE S076-WENUX MODIF ID MI2.       " Plant
PARAMETERS: P6(15) TYPE C AS LISTBOX VISIBLE LENGTH 10 MODIF ID MI2.

*PARAMETERS: P_EMAIL(255) TYPE C MODIF ID MI2.
PARAMETERS: P_EMAIL TYPE SOMLRECI1-RECEIVER.    " Email Address
SELECTION-SCREEN END OF BLOCK B1.



**********************************************************
*      AT SELECTION-SCREEN OUTPUT                        *
**********************************************************
AT SELECTION-SCREEN OUTPUT.
  IF P1 = 'X'.
    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.
  ELSEIF P2 = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'MI1'.
        SCREEN-INVISIBLE = 0.
        SCREEN-INPUT = 0.
        SCREEN-ACTIVE = 1.
        SCREEN-OUTPUT = 1.
        MODIFY SCREEN.
      ENDIF.
      IF SCREEN-GROUP1 = 'MI1'.
        SCREEN-INVISIBLE = 0.
        SCREEN-INPUT = 0.
        SCREEN-ACTIVE = 1.
        SCREEN-OUTPUT = 1.
        MODIFY SCREEN.

      ENDIF.
    ENDLOOP.
  ELSE.
    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 = 'MI1'.
        SCREEN-INVISIBLE = 0.
        SCREEN-INPUT = 0.
        SCREEN-ACTIVE = 1.
        SCREEN-OUTPUT = 1.
        MODIFY SCREEN.
      ENDIF.

    ENDLOOP.
  ENDIF.