topic Re: Module Pool Programming - noninput screen in Application Development and Automation Discussions

Module Pool Programming - noninput screen

Former Member — Tue, 04 Nov 2008 08:25:55 GMT

Hi Folks,

I have a requirement where i need to have check box.When check box is checked screen fields should be enabled else it should be disabled. Please suggest me.

If the checkbox is checked fields should become mandatory.

Please suggest

Re: Module Pool Programming - noninput screen

h_senden2 — Tue, 04 Nov 2008 08:32:07 GMT

this is possible by in PBO add a module with the LOOP at screen loop.

Loop over all the screen objects and depending on checkbox you can hide the fields, make them obligatory. What ever you want.

regards,

Hans

Re: Module Pool Programming - noninput screen

Former Member — Tue, 04 Nov 2008 08:32:24 GMT

NO check box will not be mandatory(but it shd be in the Screen) as when user wants to change some data then only he will click the check box to(make all fields in editable form).

Hope you understand.

Amresh Panda.

Re: Module Pool Programming - noninput screen

satsrockford — Tue, 04 Nov 2008 08:40:07 GMT

check this sample code

PARAMETERS : p_check AS CHECKBOX USER-COMMAND uc01.

PARAMETERS : p_bukrs TYPE bkpf-bukrs.

AT SELECTION-SCREEN OUTPUT.

IF p_check EQ 'X'.

SET CURSOR FIELD 'P_BUKRS'.

ELSE.

SET CURSOR FIELD 'P_CHECK'.

ENDIF.

regards

Satish

Re: Module Pool Programming - noninput screen

Former Member — Tue, 04 Nov 2008 08:46:04 GMT

Hi,

In the PBO , write these code.


module <module name>
Loop at screen
  if screen-name ne 'CHKBOX'.
    if chkbox = 'X'.
      screen-input = 0.
    else.
      screen-input = 1.
    endif.
  endif.
  modify screen.
endloop.
endmodule.

Re: Module Pool Programming - noninput screen

Former Member — Tue, 04 Nov 2008 09:17:37 GMT

Thanks for the replies.

But iam not able to default the checkbox in module pool programming

Re: Module Pool Programming - noninput screen

Former Member — Tue, 04 Nov 2008 09:53:00 GMT

Hi,

I dont understand what u meant for 'Default'.

Re: Module Pool Programming - noninput screen

Former Member — Tue, 04 Nov 2008 10:03:18 GMT

Hi Nishanth,

Understand the below logic and sort your issue.

You need when checkbox is selected then you want the fields to be enabled and when not checked disable.

give name of the checkbox in the screen as checkbox.

PBO

IF checkbox EQ 'X'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'ZFORMA-qwert'. "screen name of field

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

In PAI

IF checkbox NE 'X'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'ZFORMA-qwert'. "screen name of field

SCREEN-INPUT = 1.

SCREEN-ACTIVE = 1.

SCREEN-OUTPUT = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

For making your field mandatory double click on out field opens a window in attributes of tha window select program and in the dropdown box of input field select Required that makes the field mandatory.

Cheers!!

VEnk@

Edited by: Venkat Reddy on Nov 4, 2008 3:34 PM

Re: Module Pool Programming - noninput screen

Former Member — Tue, 04 Nov 2008 10:16:03 GMT

PROGRAM ZSRK_025 .

DATA : F1 LIKE VBAP-VBELN,

F2 LIKE VBAP-POSNR,

F3 LIKE VBAP-NETWR.

DATA : CH1,

CH2,

CH3.

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE STATUS_0100 OUTPUT.

IF CH1 EQ 'X'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'F1'.

SCREEN-INPUT = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF SCREEN-NAME = 'F1'.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

IF CH2 EQ 'X'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'F2'.

SCREEN-INPUT = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF SCREEN-NAME = 'F2'.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

IF CH3 EQ 'X'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'F3'.

SCREEN-INPUT = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF SCREEN-NAME = 'F3'.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

ENDMODULE. " STATUS_0100 OUTPUT

PROCESS BEFORE OUTPUT.

MODULE STATUS_0100.

PROCESS AFTER INPUT.

MODULE USER_COMMAND_0100.