topic Re: how ti disable screen fields in Module pool in Application Development and Automation Discussions

how ti disable screen fields in Module pool

former_member192432 — Tue, 29 Jul 2008 11:04:19 GMT

How to change screen fields to DISPLAY MODE aftr clicking on a particular pushbutton in Module pool prg .

regards

chetan

Edited by: chetan teli on Jul 29, 2008 1:04 PM

Re: how ti disable screen fields in Module pool

GauthamV — Tue, 29 Jul 2008 11:06:12 GMT

hi,

CHECK THIS SAMPLE CODE.

LOOP AT SCREEN.

IF screen-name = 'DISP'.

IF p_pspnr = 'X'.

screen-input = 1.

ELSE.

screen-input = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Re: how ti disable screen fields in Module pool

Former Member — Tue, 29 Jul 2008 11:06:46 GMT

Hi,

loop at screen.

if pushbutton name.

screen name-active = ' 0'

modify screen.

endif.

endloop.

Re: how ti disable screen fields in Module pool

Former Member — Tue, 29 Jul 2008 11:07:42 GMT

hiiii

use following code for disabling field

IF p_rad2 IS INITIAL .
    LOOP AT SCREEN.
      IF screen-name CS 'p_docno'.
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.                           " IF screen-name CS 'p_docno'.
    ENDLOOP.                           " LOOP AT SCREEN.

  ELSE.
    LOOP AT SCREEN .
      IF screen-name CS 'p_docno'.
        screen-active = 1.
        screen-input = 1.
        MODIFY SCREEN.
      ENDIF.                           " IF screen-name CS 'p_docno'.
    ENDLOOP.                           " LOOP AT SCREEN .
  ENDIF.                               " IF p_rad2 IS INITIAL .

regards

twinkal

Re: how ti disable screen fields in Module pool

Former Member — Tue, 29 Jul 2008 11:09:02 GMT

Chetan,

In the PAI of that screen.
If sy-ucomm = 'Fcode of that push bbutton'.
loop at screen.
if screen-name = 'xyz'.(give all the screen names which u want to activate)
screen-active = ' 0'.
modify screen.
endif.
endloop.
endif.

Re: how ti disable screen fields in Module pool

Former Member — Tue, 29 Jul 2008 11:09:29 GMT


case ok_code.

  when 'PBT'.                                 " Fcode for pushbutton
    Loop at screen.
      If screen-name = {Name of Sel. Screen field}.
        Screen-active = 1.
        Screen-input = 0.
        Modify screen.         
      Endif.
    Endloop.

endcase.