topic Re: table control in Application Development and Automation Discussions

table control

Former Member — Fri, 29 Jun 2007 08:11:50 GMT

i am using table control to display data. is it necessary that we have to send final internal table to the table control in module pool to display data.

Re: table control

Former Member — Fri, 29 Jun 2007 08:21:15 GMT

In the PBO you have a loop statement involving the table control.

In this loop you have to pass the internal table values to the screen variables in your table control. Then the values will be shown on the screen.

loop at itab with control xxxx.

...here pass itab values to your screen variables...

endloop.

Re: table control

Former Member — Fri, 29 Jun 2007 08:25:22 GMT

Hi Narasimha Kulkarni,

It is neccesary to move data from Internal table to TC to display ur records.

Plz go through the below mention Example :

PROCESS BEFORE OUTPUT.

MODULE STATUS_0001.

MODULE PB01.

LOOP AT ITAB WITH CONTROL TC .

MODULE MOVE-DATA-T0-SCREEN.

ENDLOOP .

MODULE PB01 OUTPUT.

IF STATUS1 = '0'.

SELECT * FROM ZSP_ACCOUNT INTO CORRESPONDING FIELDS OF TABLE ITAB.

STATUS1 = '5'.

ENDIF.

ENDMODULE. " PB01 OUTPUT

MODULE MOVE-DATA-T0-SCREEN OUTPUT.

DATA COUNT1 TYPE I.

MOVE ITAB TO ZSP_ACCOUNT.

ENDMODULE. " MOVE-DATA-T0-SCREEN OUTPUT

Regards

Raghavendra.D.S

Re: table control

seshatalpasai_madala — Fri, 29 Jun 2007 08:26:46 GMT

Hi,

YES, a table control is nothing but a collection of SCREEN FIELDS.

So have to loop through your internal table and update the screens fields of each row.

That is why we have to have LOOP AT itab with TABLE CONTROL.

Regards,

Sesh

Re: table control

Former Member — Fri, 29 Jun 2007 08:31:58 GMT

Hi,

Yes it is necessary that we have to send final internal table to the table control in module pool to display data.

This code will help you to send internal table data to table control and send table control data to internal table

PROCESS BEFORE OUTPUT.

MODULE STATUS_0100.

LOOP AT ITAB WITH CONTROL TABLE-ATT.

MODULE MOVE-DATA-TO-SCREEN.

ENDLOOP

PROCESS AFTER INPUT.

module leave_screen.

LOOP AT ITAB.

MODULE MOVE-DATA-FROM-SCREEN.

ENDLOOP.

----

Report ZPR_TEST02.

----

&----

*& Module MOVE-DATA-TO-SCREEN OUTPUT

&----

Text

----

MODULE MOVE-DATA-TO-SCREEN OUTPUT.

TABLES : zpr_table.

controls table_att type tableview using screen 100.

DATA: ITAB LIKE ZPR_TABLE OCCURS 0 WITH HEADER LINE.

data : itab1 like itab.

MOVE-CORRESPONDING ITAB TO ZPR_TABLE.

ENDMODULE. "MOVE-DATA-TO-SCREEN OUTPUT

----

Report ZPR_TEST02.

----

&----

*& Module MOVE-DATA-FROM-SCREEN INPUT

&----

Text

----

MODULE MOVE-DATA-FROM-SCREEN INPUT.

IF OK_CODE = 'ENTER'.

READ TABLE ITAB INDEX TABLE_ATT-CURRENT_LINE.

MOVE-CORRESPONDING ZITEM_RFQ TO ITAB_ITEM.

IF SY-SUBRC = 0.

MODIFY ITAB INDEX SY-TABIX.

ELSE.

APPEND ITAB.

ENDIF.

Re: table control

Former Member — Fri, 29 Jun 2007 09:31:36 GMT

hi narashiman

Yes internal is nessasary for table control. when you enter datas in table control it will go to internal table then it will move onto corresponding table.

if u have any doubts try this code,

PROCESS BEFORE OUTPUT.

MODULE STATUS_1002.

LOOP AT ITAB2 WITH CONTROL CARSEM.

MODULE MOVE-DATA-TO-SCREEN.

ENDLOOP.

PROCESS AFTER INPUT.

MODULE USER_COMMAND_1002.

LOOP AT ITAB2.

MODULE MOVE-DATA-FROM-SCREEN.

ENDLOOP.

<b>In Module inside do like this.</b>

IF OK_CODE = 'ENTER'.

READ TABLE ITAB2 INDEX CARSEM-CURRENT_LINE.

MOVE-CORRESPONDING ZSEN_ME41_01 TO ITAB2.

IF SY-SUBRC = 0.

MODIFY ITAB2 INDEX SY-TABIX.

ELSE.

APPEND ITAB2.

ENDIF.

IF OK_CODE = 'SAVE'.

LOOP AT ITAB2.

MOVE-CORRESPONDING ITAB2 TO ZSEN_ME41_01.

INSERT ZSEN_ME41_01.

ENDLOOP.

ENDIF.

if your problem solves, reward points.

Thanks

senthil

Re: table control

Former Member — Fri, 29 Jun 2007 11:14:52 GMT

hi narasimha

table control is just to view the datas.the syntax is

<b>CONTROLS contrl TYPE TABLEVIEW USING SCREEN dynnr.</b> where dynnr - screen number

in TOP INCLUDE you need to create,two modules

1)MODULE data_retrieval OUTPUT.//where you write the select query

select single * from table into corresponding fields of itab.

ENDMODULE. " data_retrieval OUTPUT

2)MODULE populate_screen OUTPUT.//where you populate datas like

if sy-stepl = 1.

tc100-lines = tc100-top_line + sy-loopc - 1.

endif.

move-corresponding wa to structure.

ENDMODULE. " populate_screen OUTPUT

REWARD IF USEFUL............

Re: table control

Former Member — Fri, 29 Jun 2007 11:19:08 GMT

HI.

It is necessary that we have to send final internal table to the table control in module pool to display data.

Refer this link:http://sts1.sts.tu-harburg.de/teaching/sap_r3/ABAP4/contro02.htm

The following example processes a table control with LOOP with parallel loop using an internal table. By using function codes you can sort columns and delete rows from the internal table. The ready for input status of the table control fields is controlled using a function code.

REPORT demo_dynpro_tabcont_loop_at.

CONTROLS flights TYPE TABLEVIEW USING SCREEN 100.

DATA: cols LIKE LINE OF flights-cols,

lines TYPE i.

DATA: ok_code TYPE sy-ucomm,

save_ok TYPE sy-ucomm.

DATA: itab TYPE TABLE OF demo_conn.

TABLES demo_conn.

SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE itab.

LOOP AT flights-cols INTO cols WHERE index GT 2.

cols-screen-input = '0'.

MODIFY flights-cols FROM cols INDEX sy-tabix.

ENDLOOP.

CALL SCREEN 100.

MODULE status_0100 OUTPUT.

SET PF-STATUS 'SCREEN_100'.

DESCRIBE TABLE itab LINES lines.

flights-lines = lines.

ENDMODULE.

MODULE cancel INPUT.

LEAVE PROGRAM.

ENDMODULE.

MODULE read_table_control INPUT.

MODIFY itab FROM demo_conn INDEX flights-current_line.

ENDMODULE.

MODULE user_command_0100 INPUT.

save_ok = ok_code.

CLEAR ok_code.

CASE save_ok.

WHEN 'TOGGLE'.

LOOP AT flights-cols INTO cols WHERE index GT 2.

IF cols-screen-input = '0'.

cols-screen-input = '1'.

ELSEIF cols-screen-input = '1'.

cols-screen-input = '0'.

ENDIF.

MODIFY flights-cols FROM cols INDEX sy-tabix.

ENDLOOP.

WHEN 'SORT_UP'.

READ TABLE flights-cols INTO cols WITH KEY selected = 'X'.

IF sy-subrc = 0.

SORT itab STABLE BY (cols-screen-name+10) ASCENDING.

cols-selected = ' '.

MODIFY flights-cols FROM cols INDEX sy-tabix.

ENDIF.

WHEN 'SORT_DOWN'.

READ TABLE flights-cols INTO cols WITH KEY selected = 'X'.

IF sy-subrc = 0.

SORT itab STABLE BY (cols-screen-name+10) DESCENDING.

cols-selected = ' '.

MODIFY flights-cols FROM cols INDEX sy-tabix.

ENDIF.

WHEN 'DELETE'.

READ TABLE flights-cols INTO cols

WITH KEY screen-input = '1'.

IF sy-subrc = 0.

LOOP AT itab INTO demo_conn WHERE mark = 'X'.

DELETE itab.

ENDLOOP.

ENDIF.

ENDCASE.

ENDMODULE.

The layout of screen 100 is:

A resizable table control called FLIGHTS is defined. The fields of the table control are transferred from the structure DEMO_CONN in the ABAP Dictionary. The first two columns are lead columns. The corresponding fields are output fields. A title bar, columns headers, and a selection column are created. The component MARK of type character with length 1 from structure DEMO_CONN is assigned to the selection column. You can select one column and several lines.

It has the following flow logic:

PROCESS BEFORE OUTPUT.

MODULE status_0100.

LOOP AT itab INTO demo_conn WITH CONTROL flights.

ENDLOOP.

PROCESS AFTER INPUT.

MODULE cancel AT EXIT-COMMAND.

LOOP AT itab.

MODULE read_table_control.

ENDLOOP.

MODULE user_command_0100.

A loop is executed at PBO and PAI using the table control FLIGHTS and is also executed using the internal table ITAB of the ABAP program. During the PBO loop, no module is called to fill the table control from table ITAB of the ABAP program. However, during the PAI loop, a module is called to modify table ITAB.

At PBO the component LINES of control structure FLIGHTS is filled explicitly with the current number of rows of the internal table before the PBO loop to install the scroll bar of the table control.

During the PBO loop, in the module FILL_TABLE_CONTROL the work area DEMO_CONN is filled with values from the internal table, where the row index corresponds to the current row of the table control.

During the PAI loop, the rows of the internal table, whose row index corresponds to the current row of the table control, are overwritten with the contents of the work area DEMO_CONN. User input is transferred from the input fields of the control to the internal table. In particular, the internal table also contains a flag in the column MARK to indicate whether the row of the table control is selected or not.

After the PAI loop, user input is processed in the module USER_COMMAND. The GUI status SCREEN_100 provides the appropriate function codes.

When the program is called not all of the fields in the table control are ready for input. The static specifications of the table control in the Screen Painter are modified before CALL SCREEN in the program. The system uses the table COLS in control structure FLIGHTS. All columns with a column position larger than two are set to not ready for input status in a loop using the table FLIGHT-COLS. By choosing the function code TOGGLE, you can change the ready for input status of the columns.

The function codes SORT_UP and SORT_DOWN allow you to sort selected columns of the internal table ITAB ascending or descending. The static settings of the table control allow you to select only a single column. The selected column is derived from the internal table FLIGHT-COLS. The name of the sort criteria in the SORT statement is determined dynamically from the component COLS-SCREEN-NAME. The prefix DEMO_CONN- must be removed using an offset specification. After sort the selection is undone, and the component SELECTED in table FLIGHT-COLS is assigned a blank character.

You can delete selected rows from the internal table ITAB using the function code DELETE. First the system checks whether the fields of the table control are ready for input. Then all selected rows are deleted in a loop using the internal table ITAB. Since the table control is read again from the internal table in the PBO loop, the rows on the screen are deleted.

Reward all helpfull answers.

Regards.

Jay

Re: table control

Former Member — Fri, 29 Jun 2007 11:26:49 GMT

Check the following code.

REPORT ztest_tc_test.

CONTROLS: tc TYPE TABLEVIEW USING SCREEN '100'.

DATA: BEGIN OF it_data OCCURS 0,

mark type c,

sel TYPE c,

aufnr TYPE aufnr,

lead TYPE aufnr,

END OF it_data.

DATA: BEGIN OF it_data1 OCCURS 0,

mark type c,

sel TYPE c,

aufnr TYPE aufnr,

lead TYPE aufnr,

END OF it_data1.

DATA: v_lead TYPE aufnr .

DATA: fname(14) TYPE c.

DATA: ind(2).

DATA: col TYPE cxtab_column. "column of table control

START-OF-SELECTION.

it_data-aufnr = 100.

it_data-lead = 100.

APPEND it_data.

CLEAR it_data.

it_data-aufnr = 200.

it_data-lead = 100.

APPEND it_data.

CLEAR it_data.

it_data-aufnr = 300.

it_data-lead = 100.

APPEND it_data.

CLEAR it_data.

it_data1[] = it_data[].

DELETE it_data1 WHERE aufnr = v_lead.

v_lead = 100.

CALL SCREEN 100.

&----

*& Module modify_screen OUTPUT

&----

text

----

MODULE modify_screen OUTPUT.

LOOP AT SCREEN.

IF it_data-aufnr <> v_lead AND it_data-lead = v_lead.

IF screen-name = 'IT_DATA-SEL'.

screen-input = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDMODULE. " modify_screen OUTPUT

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE status_0100 OUTPUT.

SET PF-STATUS 'STATUS'.

ENDMODULE. " STATUS_0100 OUTPUT

in Flow logic....

PROCESS BEFORE OUTPUT.

MODULE status_0100.

LOOP AT it_data WITH CONTROL tc.

MODULE modify_screen.

ENDLOOP.

PROCESS AFTER INPUT.

LOOP AT it_data.

ENDLOOP.

Regards

Vijay