topic Re: disable selection screens in Application Development and Automation Discussions

disable selection screens

Former Member — Wed, 08 Feb 2006 03:40:14 GMT

I have three selection screens..


tables: bseg.
parameters: r1 radiobutton group r default 'X'.
parameters: r2 radiobutton group r.
parameters: r3 radiobutton group r.


selection-screen begin of block a1 with frame title text-001.
parameters:p_vkbur like v_equi-vkbur,
           p_kunum like afih-kunum ,
           p_month like usr01-bname obligatory,
           p_kdgrp like knvv-kdgrp.
selection-screen end of block a1.

selection-screen begin of block b1 with frame title text-002.
select-options:s_refno for bseg-aufnr.
selection-screen end of block b1.

selection-screen begin of block c1 with frame title text-003.
select-options:d_refno for bseg-aufnr.
selection-screen end of block c1.

When r1 is checked block 2 & block 3 should inactive.

<b>Here i want to display 2 and 3blocks,but user should not allow to enter anything. same in the foliowing blocks</b>

when r2 is checked block 1 and block 3 should inactive.

when r3 is checked block1 and block 2 should inactive.

When the screen is loaded only first block should be active rest will be inactive.

Can any one tell me how to do this?

Reward guaranteed

cheers

kaki

Re: disable selection screens

Former Member — Wed, 08 Feb 2006 03:45:53 GMT

parameters: r1 radiobutton group r default 'X'.
parameters: r2 radiobutton group r.
parameters: r3 radiobutton group r.


selection-screen begin of block a1 with frame title text-001.
parameters:p_vkbur like v_equi-vkbur modif id m1,
           p_kunum like afih-kunum  modif id m1,
           p_month like usr01-bname obligatory modif id m1,
           p_kdgrp like knvv-kdgrp modif id m1.
selection-screen end of block a1.

selection-screen begin of block b1 with frame title text-002.
*select-options:s_refno for zcsparameters-service_counter modif id m2.
selection-screen end of block b1.

selection-screen begin of block c1 with frame title text-003.
*select-options:d_refno for zcsparameters-service_counter modif id m3.
selection-screen end of block c1.

at selection-screen ON RADIOBUTTON GROUP r.
LOOP AT SCREEN.
    IF r1 <> 'X' AND
       screen-group1 = 'M1'.
      screen-active = '0'.
    ENDIF.
    IF r2 <> 'X' AND
       screen-group1 = 'M1'.
      screen-active = '0'.
    ENDIF.
     IF r3 <> 'X' AND
       screen-group1 = 'M1'.
      screen-active = '0'.
    ENDIF.
    MODIFY SCREEN.
 ENDLOOP.

Re: disable selection screens

Former Member — Wed, 08 Feb 2006 03:49:43 GMT

Use addition <b>USER-COMMAND ucomm</b> to radiobutton. See keyword doco (F1 on keyword Parameters) for the full explanation.

Cheers,

Sougata.

Re: disable selection screens

Former Member — Wed, 08 Feb 2006 03:53:42 GMT

TABLES : bseg.

parameters: r1 radiobutton group r default 'X' USER-COMMAND flag.
parameters: r2 radiobutton group r.
parameters: r3 radiobutton group r.

selection-screen begin of block a1 with frame title text-001.
parameters:p_vkbur like v_equi-vkbur modif id m1,
p_kunum like afih-kunum modif id m1,
p_month like usr01-bname obligatory modif id m1,
           p_kdgrp like knvv-kdgrp modif id m1.
selection-screen end of block a1.

selection-screen begin of block b1 with
 frame title text-002.
 select-options:s_refno for bseg-aufnr modif id m2.
 selection-screen end of block b1.

 selection-screen begin of block c1 with frame title text-003.
select-options:d_refno for bseg-aufnr modif id m3.
selection-screen end of block c1.

at selection-screen output.
LOOP AT SCREEN.
    IF r1 = 'X' AND
       screen-group1 = 'M2'.
      screen-active = '0'.
    ENDIF.
    IF r1 = 'X' AND
       screen-group1 = 'M3'.
      screen-active = '0'.
    ENDIF.
    IF r2 = 'X' AND
       screen-group1 = 'M1'.
      screen-active = '0'.
    ENDIF.
    IF r2 = 'X' AND
       screen-group1 = 'M3'.
      screen-active = '0'.
    ENDIF.
    IF r3 = 'X' AND
       screen-group1 = 'M1'.
      screen-active = '0'.
    ENDIF.
    IF r3 = 'X' AND
       screen-group1 = 'M2'.
      screen-active = '0'.
    ENDIF.
    MODIFY SCREEN.
 ENDLOOP.

This works. Reward points if helpful.

Re: disable selection screens

Former Member — Wed, 08 Feb 2006 03:54:36 GMT

Sample:

SELECTION-SCREEN BEGIN OF BLOCK b_1 WITH FRAME TITLE text-000.
SELECT-OPTIONS: s_sapobj FOR toa01-sap_object obligatory,
s_blart FOR bkpf-blart obligatory.
PARAMETERS: rb_img RADIOBUTTON GROUP rad1 user-command rad.
PARAMETERS: rb_invo RADIOBUTTON GROUP rad1.
SELECTION-SCREEN END OF BLOCK b_1.

So u can validate as

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'GR1'. "Name field
IF RB_INVO = SPACE.
SCREEN-ACTIVE = 0.
ELSE.
SCREEN-ACTIVE = 1.
ENDIF.
MODIFY SCREEN.
ELSEIF SCREEN-GROUP1 = 'GR2'.
IF RB_INVO = 'X'.
SCREEN-ACTIVE = 0.
ELSE.
SCREEN-ACTIVE = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.

START-OF-SELECTION.

* Two processing modes available based on radiobutton selection.
*Radiobutton 1 selected
IF NOT RB_IMG IS INITIAL.
PERFORM 
ENDIF.
*Radiobutton 2 selected
IF NOT RB_INVO IS INITIAL.
PERFORM .
ENDIF.

Similiarly u can do.

Kindly reward points and close the threas if ur problem got solved.

Thanks & Regards,

Judith.

Re: disable selection screens

Former Member — Wed, 08 Feb 2006 04:28:15 GMT

Just use screen-input...

This works

TABLES : bseg.

parameters: r1 radiobutton group r default 'X' USER-COMMAND flag.
parameters: r2 radiobutton group r.
parameters: r3 radiobutton group r.

selection-screen begin of block a1 with frame title text-001.
parameters:p_vkbur like v_equi-vkbur modif id m1,
p_kunum like afih-kunum modif id m1,
p_month like usr01-bname obligatory modif id m1,
p_kdgrp like knvv-kdgrp modif id m1.
selection-screen end of block a1.

selection-screen begin of block b1 with
frame title text-002.
select-options:s_refno for bseg-aufnr modif id m2.
selection-screen end of block b1.

selection-screen begin of block c1 with frame title text-003.
select-options:d_refno for bseg-aufnr modif id m3.
selection-screen end of block c1.

at selection-screen output.
LOOP AT SCREEN.
IF r1 = 'X' AND
screen-group1 = 'M2'.
screen-input = '0'.
ENDIF.
IF r1 = 'X' AND
screen-group1 = 'M3'.
screen-input = '0'.
ENDIF.
IF r2 = 'X' AND
screen-group1 = 'M1'.
screen-input = '0'.
ENDIF.
IF r2 = 'X' AND
screen-group1 = 'M3'.
screen-input = '0'.
ENDIF.
IF r3 = 'X' AND
screen-group1 = 'M1'.
screen-input = '0'.
ENDIF.
IF r3 = 'X' AND
screen-group1 = 'M2'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.

Re: disable selection screens

Former Member — Wed, 08 Feb 2006 04:33:57 GMT

Hi Wenceslaus G

Thanks a lot.

full points alloted

cheers

kaki