topic Re: Disabling check box in Application Development and Automation Discussions

Disabling check box

Former Member — Tue, 06 Jun 2006 11:52:21 GMT

I have a list with check box on each line.After the ticking the check boxes and at user command the input should no longer be allowed and the check box should no longer be checked.

Re: Disabling check box

Former Member — Tue, 06 Jun 2006 11:57:07 GMT

do this way

if checK_x = 'x'

screen-active = '0'.

screen-visible = '1'.

endif.

Regards,

Santosh

Re: Disabling check box

rahulkavuri — Tue, 06 Jun 2006 12:00:44 GMT

AT SELECTION-SCREEN OUTPUT .

LOOP AT SCREEN.

IF SCREEN-NAME = 'check'.

if check = 'x'.

SCREEN-invisible = '1'.

screen-input = 'x'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Re: Disabling check box

Former Member — Tue, 06 Jun 2006 12:01:30 GMT

Hi,

If you are using ALVs and ABAP objects, then use the following subroutine and call it in the user-command of the check box.

&----

*& Form SWITCH_EDIT_MODE

&----

text

----

--> p1 text
<-- p2 text

----

FORM switch_edit_mode.

IF grid1->is_ready_for_input( ) eq 0.

set edit enabled cells ready for input

CALL METHOD grid1->set_ready_for_input

EXPORTING i_ready_for_input = 1.

ELSE.

lock edit enabled cells against input

CALL METHOD grid1->set_ready_for_input

EXPORTING i_ready_for_input = 0.

ENDIF.

ENDFORM. " SWITCH_EDIT_MODE

otherwise for normal reports you can use the screen parameters as told by others.

Regards,

Aswin

Re: Disabling check box

Former Member — Tue, 06 Jun 2006 12:02:41 GMT

Joseph,

Is it a conventinal report with WRITE statements or an ALV?

Re: Disabling check box

Former Member — Tue, 06 Jun 2006 12:03:00 GMT

u can try

loop at screen.

if checkbox = 'X'.

screen-input = '0'.

modify screen.

endif.

Re: Disabling check box

Former Member — Tue, 06 Jun 2006 12:05:40 GMT

Joseph,

Check this code it will work.

Cheers,

Thomas.

REPORT zcheck.

PARAMETER ch_head AS CHECKBOX  MODIF ID mo1.

* At selection Screen Output Event
AT SELECTION-SCREEN OUTPUT.
  IF ch_head EQ 'X'.
    LOOP AT SCREEN.
      IF  screen-group1 = 'MO1'.
        screen-input = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.

  ENDIF.

Re: Disabling check box

Former Member — Tue, 06 Jun 2006 12:06:46 GMT

Hi joseph,

1. There must be extra field

in your internal table for check box.

2. Just make that to 'C'

for DISABLED CHECKBOX AND BLANK

(we make it 'X'

for enabling)

3. This program will do What u Want.

Just copy paste in new program.

4. a) an alv list with check box will come

b) select any / multiple check box

c) DOUBLE CLICK ON ALV

D) it will get refreshed and the selectd ones

will be DISABLED

REPORT abc.

TYPE-POOLS : slis.

*----

Data

DATA : BEGIN OF itab OCCURS 0.

INCLUDE STRUCTURE t001.

DATA : flag tyPE c,

END OF itab.

DATA : alvfc TYPE slis_t_fieldcat_alv.

DATA : alvly TYPE slis_layout_alv.

*----

Select Data

SELECT * FROM t001 INTO TABLE itab.

*------- Field Catalogue

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'ITAB'

i_inclname = sy-repid

CHANGING

ct_fieldcat = alvfc

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

*----

Display

alvly-box_fieldname = 'FLAG'.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

it_fieldcat = alvfc

i_callback_program = sy-repid "<-------Important

i_callback_user_command = 'ITAB_USER_COMMAND' "<------ Important

is_layout = alvly

TABLES

t_outtab = itab

EXCEPTIONS

program_error = 1

OTHERS = 2.

*----

CALL BACK FORM

*----

FORM itab_user_command USING whatcomm TYPE sy-ucomm whatrow TYPE

slis_selfield.

LOOP AT itab.

if itab-flag = 'X'.

itab-flag = 'C'.

MODIFY itab.

endif.

ENDLOOP.

*----

IMPORTANT.

WHATROW-REFRESH = 'X'.

ENDFORM. "ITAB_user_command

regards,

amit m.

Re: Disabling check box

Former Member — Tue, 06 Jun 2006 12:15:01 GMT

Hii

report zcheck_box. .

parameters: p_rad1 radiobutton group grp1 default 'X'

user-command check,

p_rad2 radiobutton group grp1.

parameters: p_datum for sy-datum modif id sop.

at selection-screen output.

loop at screen.

if screen-group1 = 'SOP'.

if p_rad1 = 'X'.

screen-input = '1'.

elseif p_rad2 = 'X'.

screen-input = '0'.

endif.

modify screen.

endif.

endloop.

Regards

Naresh

Re: Disabling check box

Former Member — Tue, 06 Jun 2006 12:22:01 GMT

thanks solved