topic Re: Table control in Application Development and Automation Discussions

Table control

Former Member — Thu, 14 Dec 2006 21:54:02 GMT

Hi all,

I have 2 questions..

Iam developing custom transaction which has 3 screens.

1.Please send me the sample logic code for 'SELECT ALL' 'DESELECT ALL' and 'NEW ENTRIES' for the custom transaction ...for this iam using table control.

2.On the 3rd screen there is a user input of 3 fields which is again table control ...the logic should look like this..

when i hit 'SAVE' the user inputs should save to the custom table i created.

when i hit 'ENTER' the description for the material should appear in the other column of the table control.

Thanks,

Madhu

Re: Table control

Former Member — Thu, 14 Dec 2006 22:00:28 GMT

Something like:


*&---------------------------------------------------------------------*
*       Select all records
*----------------------------------------------------------------------*
form select_all.

  loop at zzerd_line_item_data_0100.
    zzerd_line_item_data_0100-mark = 'X'.
    modify zzerd_line_item_data_0100.
  endloop.

endform.                    " select_all

Rob

Re: Table control

Former Member — Thu, 14 Dec 2006 22:05:48 GMT

Hi,

1) SELECTALL / DESELECT ALL

When you create the table control you would have give a variable for column selection.

Selection col. name GV_LINESEL..I am assuming it to be GV_LINESEL.

Have a column called LINSEL in your internal table ITAB for the table control.

PROCESS AFTER INPUT.

LOOP AT ITAB.

MODULE CHECK.

ENDLOOP.

MODULE USER_COMMAND.

* MODULES CODE.

MODULE CHECK.

ITAB-LINESEL = GV_LINESEL.

MODIFY ITAB INDEX tc_crossover-current_line.

ENDMODULE.

MODULE USER_COMMAND.

CASE SY-UCOMM.

WHEN 'SELECTALL'.

ITAB = 'X'.

MODIFY ITAB TRANSPORTING LINESEL WHERE LINESEL IS INITIAL.

WHEN 'DESELECTALL'.

ITAB = ' '.

MODIFY ITAB TRANSPORTING LINESEL WHERE NOT LINESEL IS INITIAL.

ENDCASE.

ENDMODULE.

PROCESS BEFORE OUTPUT.

LOOP AT ITAB WITH CONTROL TC.

MODULE SET_CHECK.

ENDLOOP.

MODULE SET_CHECK.

GV_LINESEL = ITAB-LINESEL.

ENDMODULE.

Thanks,

Naren

Re: Table control

Former Member — Thu, 14 Dec 2006 22:09:04 GMT

Hi,

2) Hit enter material description should be displayed.

PROCESS BEFORE OUTPUT.

LOOP AT ITAB WITH CONTROL TC.

MODULE SET_DESCRIPTION.

ENDLOOP.

MODULE SET_DESCRIPTION.

SELECT SINGLE * FROM MAKT WHERE SPRAS = SY-LANGU

AND MATNR = ITAB-MATNR.

IF SY-SUBRC = 0.

THRID_COLUMN_NAME = MAKT-MAKTX.

ENDIF.

ENDMODULE.

Thanks,

Naren

Re: Table control

Former Member — Thu, 14 Dec 2006 22:12:58 GMT

Hi,

2) when i hit 'SAVE' the user inputs should save to the custom table i created.

PROCESS AFTER INPUT.

LOOP AT ITAB.

...

ENDLOOP.

MODULE USER_COMMAND.

IF SY-UCOMM = 'SAVE'.

LOOP AT ITAB.

MOVE-CORRESPONDING ITAB TO ZTABLE.

MODIFY ZTABLE.

ENDLOOP.

ENDIF.

ENDMODULE.

Thanks,

Naren

Re: Table control

Former Member — Tue, 19 Dec 2006 16:44:12 GMT

Hi Naren

Thanks for your reply...

for select/deselect all ..i still don't get logic which u have explained.

the table control has followiing fields in its deep structure.

FIXED_COLS

LINES

TOP_LINE

CURRENT_LINE

LEFT_COL

LINE_SEL_MODE

COL_SEL_MODE

LINE_SELECTOR

V_SCROLL

H_GRID

V_GRID

COLS

INVISIBLE

Here i need 2 clarifications..

ITAB-LINESEL = GV_LINESEL.

what is LINESEL?

and what is GV_LINESEL?

i mean where to declare it and how to use?

iam popluating the values in table control from the select statement

after giving the inputs in the first screen

lets say my table control name is TC and i have assigned

w/selColumn = ITAB-MARK in table control.

in this case how can i write the logic to select and deselect the rows

in table control.

if you have the time please give the code for NEW ENTRIES in the table

control aswell.

Thanks,

Madhu

Re: Table control

Former Member — Tue, 19 Dec 2006 16:49:17 GMT

Hi,

I have changed the code accordingly..If you have ITAB-MARK as your field...

Also assuming you have column MARK in your internal table ITAB..

1) SELECTALL / DESELECT ALL

PROCESS AFTER INPUT.

LOOP AT ITAB.

MODULE CHECK.

ENDLOOP.

MODULE USER_COMMAND.

MODULES CODE.

MODULE CHECK.

MODIFY ITAB INDEX tc_crossover-current_line.

ENDMODULE.

MODULE USER_COMMAND.

CASE SY-UCOMM.

WHEN 'SELECTALL'.

ITAB-MARK = 'X'.

MODIFY ITAB TRANSPORTING MARK WHERE MARK IS INITIAL.

WHEN 'DESELECTALL'.

ITAB-MARK = ' '.

MODIFY ITAB TRANSPORTING MARK WHERE NOT MARK IS INITIAL.

ENDCASE.

ENDMODULE.

Thanks,

Naren

Re: Table control

Former Member — Wed, 20 Dec 2006 20:47:13 GMT

Hi Naren,

Thank u very much i got the logic for selectall/deselect but

could u please send the logic for NEW ENTRIES if you have time?

Thanks,

Madhu