topic Re: checkbox in Application Development and Automation Discussions

checkbox

Former Member — Tue, 21 Nov 2006 15:49:48 GMT

Hi all this is my code i have 2 blocks in my selection screen . if i enable p_last check box s_date should be in disable mode is working fine . 2nd one if enable scr_out check box , P-file should be in disable mode this is not working . can any one help me in this issue ?

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

SELECT-OPTIONS: s_werks FOR estmj-werks NO INTERVALS ."OBLIGATORY.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: p_last AS CHECKBOX USER-COMMAND run.

SELECTION-SCREEN COMMENT 3(60) text-002 FOR FIELD p_last.

SELECTION-SCREEN END OF LINE.

SELECT-OPTIONS: s_date FOR sy-datum MODIF ID sc1.

SELECTION-SCREEN SKIP.

PARAMETERS: p_file TYPE rlgrap-filename Modif ID sc2.

SELECTION-SCREEN END OF BLOCK b1.

PARAMETERS : scr_out AS CHECKBOX.

----

INITIALIZATION *

----

INITIALIZATION.

*Get Filename With Last Run Date.

concatenate 'ex\user\ROHS' sy-datum '.TXT' into p_file.

----

AT SELECTION-SCREEN OUTPUT

----

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF p_last EQ c_x.

IF screen-group1 = 'SC1' .

screen-input = 0.

MODIFY SCREEN.

CONTINUE.

ENDIF .

ENDIF.

ENDLOOP.

Message was edited by:

priya katragadda

Re: checkbox

Former Member — Tue, 21 Nov 2006 15:53:40 GMT

Hi priya,

Do this way ..

LOOP AT SCREEN.
IF p_last EQ c_x.
IF screen-group1 = 'SC1' .
screen-input = 0.
MODIFY SCREEN.
CONTINUE.
ENDIF .
<b>if scr_out = 'X'.</b>     " donot put it in elseif statement
IF screen-group1 = 'SC2' .
screen-input = 0.
MODIFY SCREEN.
CONTINUE.
ENDIF
ENDIF.
<b>endif</b>
ENDLOOP.

Re: checkbox

RichHeilman — Tue, 21 Nov 2006 15:54:32 GMT

Here is the modified code.



report zrich_0001.

tables: estmj.

constants: c_x type c value 'X'.

selection-screen begin of block b1 with frame title text-001.
select-options: s_werks for estmj-werks no intervals ."OBLIGATORY.
selection-screen skip.
selection-screen begin of line.
parameters: p_last as checkbox user-command run.
selection-screen comment 3(60) text-002 for field p_last.
selection-screen end of line.
select-options: s_date for sy-datum modif id sc1.
selection-screen skip.
parameters: p_file type rlgrap-filename modif id sc2.

selection-screen end of block b1.
parameters : scr_out as checkbox user-command run.. "  <= See here  !!!



*----------------------------------------------------------------------*
* INITIALIZATION *
*----------------------------------------------------------------------*
initialization.



  concatenate 'exuserROHS' sy-datum '.TXT' into p_file.


*----------------------------------------------------------------------*
* AT SELECTION-SCREEN OUTPUT
*----------------------------------------------------------------------*
at selection-screen output.

  loop at screen.
    if p_last eq c_x.
      if screen-group1 = 'SC1' .
        screen-input = 0.
        modify screen.
        continue.
      endif .
    endif.
   if scr_out = 'X'.       "  <= See here  !!!
      if screen-group1 = 'SC2' .
        screen-input = 0.
        modify screen.
        continue.
      endif.
    endif.
  endloop.

Regards,

Rich Heilman

Re: checkbox

Former Member — Tue, 21 Nov 2006 15:55:00 GMT

Hi,

Changes are marked in bold..

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

SELECT-OPTIONS: s_werks FOR estmj-werks NO INTERVALS ."OBLIGATORY.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: p_last AS CHECKBOX USER-COMMAND run.

SELECTION-SCREEN COMMENT 3(60) text-002 FOR FIELD p_last.

SELECTION-SCREEN END OF LINE.

SELECT-OPTIONS: s_date FOR sy-datum MODIF ID sc1.

SELECTION-SCREEN SKIP.

PARAMETERS: p_file TYPE rlgrap-filename Modif ID sc2.

SELECTION-SCREEN END OF BLOCK b1.

PARAMETERS : scr_out AS CHECKBOX USER-COMMAND RUN1.

----

INITIALIZATION *

----

INITIALIZATION.

concatenate 'ex\user\ROHS' sy-datum '.TXT' into p_file.

<b>AT SELECTION-SCREEN OUTPUT.</b>

<b>LOOP AT SCREEN.

IF P_LAST = 'X'.

IF SCREEN-GROUP1 = 'SC1'.

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

ELSE.

IF SCREEN-GROUP1 = 'SC1'.

SCREEN-INPUT = '1'.

MODIFY SCREEN.

ENDIF.

IF SCR_OUT = 'X'.

IF SCREEN-GROUP1 = 'SC2'.

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

ELSE.

IF SCREEN-GROUP1 = 'SC2'.

SCREEN-INPUT = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.</b>

Thanks,

Naren

Re: checkbox

Former Member — Tue, 21 Nov 2006 15:55:16 GMT

Hi Priya,

Refer sample code: This is for Radio button... Should be similar for ur case.

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

PARAMETERS : rb_pc RADIOBUTTON GROUP r1 DEFAULT 'X'

USER-COMMAND ucomm, "For Presen

p_f1 LIKE rlgrap-filename

MODIF ID rb1, "Input File

rb_srv RADIOBUTTON GROUP r1,

"For Application

p_f2 LIKE rlgrap-filename

MODIF ID rb2,

"Input File

p_direct TYPE char128 MODIF ID abc DEFAULT c_path

"File Directory

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-020.

PARAMETERS : p_comp TYPE temksv-firma OBLIGATORY

MATCHCODE OBJECT emi_object," DM Company

p_obj LIKE temksv-object " For DM Object

MODIF ID abc DEFAULT 'PARTNER'.

SELECTION-SCREEN END OF BLOCK b.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF rb_pc = 'X' AND screen-group1 = 'RB2'.

screen-input = '0'.

MODIFY SCREEN.

ELSEIF rb_srv = 'X' AND screen-group1 = 'RB1'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

IF screen-group1 = 'ABC'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Hope this helps.

Manish

Re: checkbox

Former Member — Tue, 21 Nov 2006 15:55:59 GMT

instead of this...when first checkbox selected...

loop at screen.

get the properties of the field and make output as 1.

modify screen.

endloop.

similarly write code for other check box.