topic Re: Table control in Application Development and Automation Discussions

Table control

abapdeveloper20 — Sat, 29 Dec 2007 08:49:49 GMT

Dear Gurus,

How to make one table control as editable and non-editable (simple display) via push button...?

i.e initally the data in table control should be non-editable(grey color) if i press a button called change.... then the data which is displaying as grey will change into editable mode...

Any inputs on this will be highly rewarded.

Regards,

Lakshmiraj

Re: Table control

Former Member — Sat, 29 Dec 2007 11:00:22 GMT

Hi,

What you can do is assign a modif ID to every column in your table control. When you double click on the column, in the attributes, there are four GROUP fields for entry. In the first one (SCREEN-GROUP1) enter e.g. 'HID'. This becomes modif id for the field/column.

Now, say the pushbutton generates code 'PUSH', then in PBO module wihtin LOOP and ENDLOOP of table control put following code:

IF OKCODE EQ 'PUSH'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 EQ 'HID' AND V_EDIT EQ 'X'.

SCREEN-INPUT = '1'.

CLEAR V_EDIT. "This tells system columns are non-editable

ELSEIF SCREEN-GROUP1 EQ 'HID' AND V_EDIT EQ 'X'.

SCREEN-INPUT = '0'.

V_EDIT = 'X'. "This tells systems the columns are editable

ENDIF.

SCREEN-ACTIVE = '1'.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

Hope this helps.

Note: Declare V_EDIT as single character field.

Regards,

Aditya

Re: Table control

Former Member — Mon, 31 Dec 2007 06:52:30 GMT

Hi,

i think this may help you-

First assign screen group1 to ‘GP1’ to all fields of screen painter’s table control.

At se38 program declare a variable v_flag type c.

And wa_tablecontrolcols type <tablecontrol-cols>.

Here table control have 3 attributes 1. screen, 2. selected, 3. index.

Then at PAI:-

Module user-command input.

Case sy-ucom.

When ‘CHAN’.

V_flag = ‘X’.

Endcase.

At screen flow logic:-

Loop at itab with control <tablecontrol_name> into wa_itab.

Module assign_valuesto_tablecontrol.

Endloop.

Module modify_screen.

At se38:-

Module assign_valuesto_tablecontrol output.

Move-corresponding wa_itab to <screen fields ie tablecontrol fields>.

Endmodule.

Module modify_screen output.

If v_flag = ‘X’.

Loop at screen.

If screen-group1 = ‘GP1’.

screen-input = ‘1’.

Endif.

Modify screen.

Endloop.

Else.

Loop at screen.

If screen-group1 = ‘GP1’.

screen-input = ‘1’.

Endif.

Modify screen.

Endloop.

Endmodule.

Module modify_screen output.

If v_flag = ‘X’.

Loop at tablecontrol-cols into wa_tablecontrolcols.

If wa_tablecontrolcols-screen-group1 = ‘GP1’.

wa_tablecontrolcols-screen-input = ‘1’.

Endif.

Modify tablecontrol-cols from wa_tablecontrolcols index sy-loopc.

Endloop.

Else.

Loop at tablecontrol-cols into wa_tablecontrolcols.

If wa_tablecontrolcols-screen-group1 = ‘GP1’.

wa_tablecontrolcols-screen-input = ‘0’.

Endif.

Modify tablecontrol-cols from wa_tablecontrolcols index sy-loopc.

Endloop.

Endmodule.