topic Re: table controls in Application Development and Automation Discussions

table controls

Former Member — Wed, 28 Sep 2005 07:04:54 GMT

I had pushbuttons below the table controls. like select all, deselect all, add , delete, etc., i need to perform the same on table control. if u have any links plz forward

Rewards sure

Re: table controls

Former Member — Wed, 28 Sep 2005 07:10:22 GMT

See this link

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/documents/a1-8-4/table control in abap.pdf

Hope this helps.

Kindly reward points and close the thread if ur problem got slved or get back with queries.

Re: table controls

Former Member — Wed, 28 Sep 2005 07:11:48 GMT

hai,

see the following code below

Write the folowing code below PAI event.

case sy-ucomm

when <Selectall>.

LOOP at <Table Control>

module sel_all.

endloop.

when <del_all>.

LOOP at <Table Control>

module dsel_all.

endloop.

Double click on Module SEL_all, and write the following code with in it

module Sel_all.

<itab>-fieldname = 'X'.

modify <itab>

endmodule.

Double click on Module dSEL_all, and write the following code with in it

module dSel_all.

<itab>-fieldname = ' '.

modify <itab>

endmodule.

Re: table controls

Former Member — Wed, 28 Sep 2005 07:12:09 GMT

Hi,

For selecting all the rows of the table control

Loop at itab into wa.

wa-mark = 'X'.

modify itb from wa.

ENDLOOP.

Similarly for deselectingh you have to unckeck all the fields.

Loop at itab into wa.

wa-mark = ''.

modify itb from wa.

ENDLOOP

The corresponding code needs to be written in PAI of some events.

Similarly to add and delete a line add and delete a line to internal tables respectively.

Please reward points if you find this explanation useful.

Regards,

Siva

Re: table controls

Former Member — Wed, 28 Sep 2005 07:14:37 GMT

while creating the table control create it will select all, deselect all, add , delete, etc., option & after that assign the corresponding ok-code to puch-button & delte only the icon u have in table control and not the correcponding code.

regards

Re: table controls

Former Member — Wed, 28 Sep 2005 07:30:59 GMT

Hi Ateeq,

If you create a table control using wizerd (avaliable in the scereen painter) you can automatically get those button.

if somehow they are not coming,

then include the module in PAI of the screen->

MODULE colinfo_user_command.

double click on it and create the definition for this module as->

MODULE colinfo_user_command INPUT.

PERFORM user_ok_tc USING 'COLINFO'

'BASETABLE'

'SELECT_FLAG'

CHANGING ok_code.

ENDMODULE.

where definition for form user_ok_code is-->

FORM user_ok_tc USING p_tc_name TYPE dynfnam

p_table_name

p_mark_name

CHANGING p_ok LIKE sy-ucomm.

-BEGIN OF LOCAL DATA----

DATA: l_ok TYPE sy-ucomm,

l_offset TYPE i.

-END OF LOCAL DATA----

Table control specific operations *
evaluate TC name and operations *

SEARCH p_ok FOR p_tc_name.

IF sy-subrc <> 0.

EXIT.

ENDIF.

l_offset = strlen( p_tc_name ) + 1.

l_ok = p_ok+l_offset.

execute general and TC specific operations *

CASE l_ok.

WHEN 'INSR'. "insert row

PERFORM fcode_insert_row USING p_tc_name

p_table_name.

CLEAR p_ok.

WHEN 'DELE'. "delete row

PERFORM fcode_delete_row USING p_tc_name

p_table_name

p_mark_name.

CLEAR p_ok.

WHEN 'P--' OR "top of list

'P-' OR "previous page

'P+' OR "next page

'P++'. "bottom of list

PERFORM compute_scrolling_in_tc USING p_tc_name

l_ok.

CLEAR p_ok.

WHEN 'L--'. "total left
PERFORM FCODE_TOTAL_LEFT USING P_TC_NAME.

WHEN 'L-'. "column left
PERFORM FCODE_COLUMN_LEFT USING P_TC_NAME.

WHEN 'R+'. "column right
PERFORM FCODE_COLUMN_RIGHT USING P_TC_NAME.

WHEN 'R++'. "total right
PERFORM FCODE_TOTAL_RIGHT USING P_TC_NAME.

WHEN 'MARK'. "mark all filled lines

PERFORM fcode_tc_mark_lines USING p_tc_name

p_table_name

p_mark_name .

CLEAR p_ok.

WHEN 'DMRK'. "demark all filled lines

PERFORM fcode_tc_demark_lines USING p_tc_name

p_table_name

p_mark_name .

CLEAR p_ok.

WHEN 'SASCEND' OR
'SDESCEND'. "sort column
PERFORM FCODE_SORT_TC USING P_TC_NAME
l_ok.

ENDCASE.

now manully add those button on the screen , with the icons (or your own icon ) and attach a function code with each of it like..for delete fcode is 'DELE'..you can get all this from the when '** ' statement in the above code

**DEFINITIONS OF FORMS

&----

*& Form FCODE_INSERT_ROW *

&----

FORM fcode_insert_row

USING p_tc_name TYPE dynfnam

p_table_name .

-BEGIN OF LOCAL DATA----

DATA l_lines_name LIKE feld-name.

DATA l_selline LIKE sy-stepl.

DATA l_lastline TYPE i.

DATA l_line TYPE i.

DATA l_table_name LIKE feld-name.

FIELD-SYMBOLS <tc> TYPE cxtab_control.

FIELD-SYMBOLS <table> TYPE STANDARD TABLE.

FIELD-SYMBOLS <lines> TYPE i.

-END OF LOCAL DATA----

ASSIGN (p_tc_name) TO <tc>.

get the table, which belongs to the tc *

CONCATENATE p_table_name '[]' INTO l_table_name. "table body

ASSIGN (l_table_name) TO <table>. "not headerline

get looplines of TableControl

CONCATENATE 'G_' p_tc_name '_LINES' INTO l_lines_name.

ASSIGN (l_lines_name) TO <lines>.

get current line

GET CURSOR LINE l_selline.

IF sy-subrc <> 0. " append line to table

l_selline = <tc>-lines + 1.

set top line and new cursor line *

IF l_selline > <lines>.

<tc>-top_line = l_selline - <lines> + 1 .

l_line = 1.

ELSE.

<tc>-top_line = 1.

l_line = l_selline.

ENDIF.

ELSE. " insert line into table

l_selline = <tc>-top_line + l_selline - 1.

set top line and new cursor line *

l_lastline = l_selline + <lines> - 1.

IF l_lastline <= <tc>-lines.

<tc>-top_line = l_selline.

l_line = 1.

ELSEIF <lines> > <tc>-lines.

<tc>-top_line = 1.

l_line = l_selline.

ELSE.

<tc>-top_line = <tc>-lines - <lines> + 2 .

l_line = l_selline - <tc>-top_line + 1.

ENDIF.

insert initial line

INSERT INITIAL LINE INTO <table> INDEX l_selline.

<tc>-lines = <tc>-lines + 1.

set cursor

SET CURSOR LINE l_line.

ENDFORM. " FCODE_INSERT_ROW

&----

*& Form FCODE_DELETE_ROW *

&----

FORM fcode_delete_row

USING p_tc_name TYPE dynfnam

p_table_name

p_mark_name .

-BEGIN OF LOCAL DATA----

DATA l_table_name LIKE feld-name.

FIELD-SYMBOLS <tc> TYPE cxtab_control.

FIELD-SYMBOLS <table> TYPE STANDARD TABLE.

FIELD-SYMBOLS <wa>.

FIELD-SYMBOLS <mark_field>.

-END OF LOCAL DATA----

ASSIGN (p_tc_name) TO <tc>.

get the table, which belongs to the tc *

CONCATENATE p_table_name '[]' INTO l_table_name. "table body

ASSIGN (l_table_name) TO <table>. "not headerline

delete marked lines *

DESCRIBE TABLE <table> LINES <tc>-lines.

LOOP AT <table> ASSIGNING <wa>.

access to the component 'FLAG' of the table header *

ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.

IF <mark_field> = 'X'.

DELETE <table> INDEX syst-tabix.

IF sy-subrc = 0.

<tc>-lines = <tc>-lines - 1.

ENDIF.

ENDLOOP.

ENDFORM. " FCODE_DELETE_ROW

&----

*& Form COMPUTE_SCROLLING_IN_TC

&----

text

----

-->P_TC_NAME name of tablecontrol
-->P_OK ok code

----

FORM compute_scrolling_in_tc USING p_tc_name

p_ok.

-BEGIN OF LOCAL DATA----

DATA l_tc_new_top_line TYPE i.

DATA l_tc_name LIKE feld-name.

DATA l_tc_lines_name LIKE feld-name.

DATA l_tc_field_name LIKE feld-name.

FIELD-SYMBOLS <tc> TYPE cxtab_control.

FIELD-SYMBOLS <lines> TYPE i.

-END OF LOCAL DATA----

ASSIGN (p_tc_name) TO <tc>.

get looplines of TableControl

CONCATENATE 'G_' p_tc_name '_LINES' INTO l_tc_lines_name.

ASSIGN (l_tc_lines_name) TO <lines>.

is no line filled? *

IF <tc>-lines = 0.

yes, ... *

l_tc_new_top_line = 1.

ELSE.

no, ... *

CALL FUNCTION 'SCROLLING_IN_TABLE'

EXPORTING

entry_act = <tc>-top_line

entry_from = 1

entry_to = <tc>-lines

last_page_full = 'X'

loops = <lines>

ok_code = p_ok

overlapping = 'X'

IMPORTING

entry_new = l_tc_new_top_line

EXCEPTIONS

no_entry_or_page_act = 01

no_entry_to = 02

no_ok_code_or_page_go = 03

OTHERS = 99.

ENDIF.

get actual tc and column *

GET CURSOR FIELD l_tc_field_name

AREA l_tc_name.

IF syst-subrc = 0.

IF l_tc_name = p_tc_name.

set actual column *

SET CURSOR FIELD l_tc_field_name LINE 1.

ENDIF.

set the new top line *

<tc>-top_line = l_tc_new_top_line.

ENDFORM. " COMPUTE_SCROLLING_IN_TC

&----

*& Form FCODE_TC_MARK_LINES

&----

marks all TableControl lines

----

-->P_TC_NAME name of tablecontrol

----

FORM fcode_tc_mark_lines USING p_tc_name

p_table_name

p_mark_name.

-BEGIN OF LOCAL DATA----

DATA l_table_name LIKE feld-name.

FIELD-SYMBOLS <tc> TYPE cxtab_control.

FIELD-SYMBOLS <table> TYPE STANDARD TABLE.

FIELD-SYMBOLS <wa>.

FIELD-SYMBOLS <mark_field>.

-END OF LOCAL DATA----

ASSIGN (p_tc_name) TO <tc>.

get the table, which belongs to the tc *

CONCATENATE p_table_name '[]' INTO l_table_name. "table body

ASSIGN (l_table_name) TO <table>. "not headerline

mark all filled lines *

LOOP AT <table> ASSIGNING <wa>.

access to the component 'FLAG' of the table header *

ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.

<mark_field> = 'X'.

ENDLOOP.

ENDFORM. "fcode_tc_mark_lines

&----

*& Form FCODE_TC_DEMARK_LINES

&----

demarks all TableControl lines

----

-->P_TC_NAME name of tablecontrol

----

FORM fcode_tc_demark_lines USING p_tc_name

p_table_name

p_mark_name .

-BEGIN OF LOCAL DATA----

DATA l_table_name LIKE feld-name.

FIELD-SYMBOLS <tc> TYPE cxtab_control.

FIELD-SYMBOLS <table> TYPE STANDARD TABLE.

FIELD-SYMBOLS <wa>.

FIELD-SYMBOLS <mark_field>.

-END OF LOCAL DATA----

ASSIGN (p_tc_name) TO <tc>.

get the table, which belongs to the tc *

CONCATENATE p_table_name '[]' INTO l_table_name. "table body

ASSIGN (l_table_name) TO <table>. "not headerline

demark all filled lines *

LOOP AT <table> ASSIGNING <wa>.

access to the component 'FLAG' of the table header *

ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.

<mark_field> = space.

ENDLOOP.

ENDFORM. "fcode_tc_mark_lines

ENDFORM. " USER_OK_TC

YOU BETTER CREATE A NEW INCLUD AND ALL THIS DEFINITIONS OF FROMS TOGETHER AS IT IS..CTRLC..CTRLV, JUST CHECK IF SOME * GET DISPLACD AND CREATE SYNTAX ERROR..

Re: table controls

Former Member — Wed, 28 Sep 2005 07:35:22 GMT

Just a small correction..

in the definition of module where you are calling the form user_ok_code..make the following change

MODULE colinfo_user_command INPUT.

PERFORM user_ok_tc USING 'COLINFO'

'<your table name>'

'<the field name you set for mark>'

CHANGING ok_code.

ENDMODULE.

Re: table controls

Former Member — Wed, 10 Jan 2007 21:59:14 GMT

Hi Anid,

Thanks for the correction. But still I have some questions..

what is 'COLINFO' hw shoudl I declare it....

I have declared my table control as ztablectrl and I hve an Internal table field called

itab-mark.

what should I declare for the fields of local data.

Can you tell me the remaining corrections..

waiting for your reply,

regards,

chaithanya.

Re: table controls

Former Member — Wed, 10 Jan 2007 22:05:15 GMT

Hi hasmath,

my suggestion and would be easiest for you is to use wizard . that when you can get all those things and you can delete if you don't want anyof those.

you don't even have to write any code.

main purpose of wizard is to reduce the complexion of table control . make use of it when SAP itself provided.

you get the following features with wizard,

scrolling **** very imp

select all,

deselect all,

insert , delete and many more.

let me know if you want any help regarding the wizard.

Thanks

Re: table controls

Former Member — Wed, 10 Jan 2007 22:28:01 GMT

Hi venki,

I have questions regarding the table control. I have posted a question on the same forum. I have used table control wizard but I am unable to use the scroll, select all, deselect all, delete buttons.

I have the buttons but when I click on it. there is no action performed.

After seeing this forum I have made some changes

My table control name is ztablectrl and internal table name is itab and the field is itab-mark.

can u see my question in the above message.

waiting for your reply,

chaithanya

Re: table controls

Former Member — Wed, 10 Jan 2007 23:46:50 GMT

Hi Venki...

Can you post your code if you have done any table control using wizard . I need mainly for the selectall, deselect all, insert row, delete row.

regards,

chaithanya.