Skip to Content
0
Former Member
Dec 12, 2006 at 01:34 PM

making checkbox invisible

1382 Views

hi everyone

i have 2 checkboxes on a selection-screen

when i select one, the other shd be invisible, but my code is not working, can you check that plz

SELECTION-SCREEN: BEGIN OF BLOCK b02 WITH FRAME.

PARAMETERS:

p_rs_ch TYPE c AS CHECKBOX modif id B1 user-command com1,

p_ri_ch TYPE c AS CHECKBOX modif id B1 user-command com1.

SELECTION-SCREEN: END OF BLOCK b02.

INCLUDE zzfl0031obj_b.

*INCLUDE zzfl0031obj_lvp.

INITIALIZATION.

at selection-screen output.

loop at screen.

if p_rs_ch NE 'X' and screen-group1 = 'B1'.

screen-input = '0'.

screen-invisible = '1'.

endif.

if p_ri_ch NE 'X' and screen-group1 = 'B1'.

screen-input = '0'.

screen-invisible = '1'.

endif.

endloop.

PERFORM f_check_authorization.

  • Ending of modification <CM0554 New Version>

PERFORM init_data.

AT SELECTION-SCREEN.

IF p_rs_ch IS INITIAL AND p_ri_ch IS INITIAL.

MESSAGE e917(zz).

ENDIF.

IF NOT p_rs_ch IS INITIAL.

PERFORM f_check_rights USING 'FINANCE_RS' lc_rs.

ENDIF.