topic Re: Populate Table from Table Control in Application Development and Automation Discussions

Populate Table from Table Control

Former Member — Sat, 19 Apr 2008 12:43:25 GMT

Hi gurus,

I need to populate my Table Control from keyboard and then populate my transparent table from this data that has been typed in the TC when 'SAVE'. The internal table I created for this purpose seems to clear of data when my program goes into the loop in the PBO.

The screen contains five fields (not in the TC) and 4 inside the TC. The 9 fields consist of the internal table.

Please help

Assistance will be rewarded.

Regards

Re: Populate Table from Table Control

Former Member — Sat, 19 Apr 2008 13:01:47 GMT

Hi,

Please check if you are populating the screen fields into your internal table in the PAI of the screen flow logic.

PBO transfers the values from your ABAP program to screen fields and PAI transfers values from the screen fields to your ABAP program. For this the screen and ABAP program should have the same field names. In case of table control this transfer happens the LOOP in the screen flow logic.

In PAI, write the following code.

PROCESS AFTER OUTPUT

LOOP AT IT_ITAB.

MODULE UPDATE_ITAB.

ENDLOOP.

MODULE USER_COMMAND.

IT_ITAB is the internal table which is having the data.

in UPDATE_ITAB move the values from screen fields to IT_ITAB and append your entries in the internal table. Then in PBO this data will reflect.

In MODULE USER_COMMAND, you have to check the OK_CODE and save the date in the transparent table.

Hope this will solve your problem.

Reward points if helpful.

Thanks and Regards,

Lakshmi.

Edited by: Santhanalakshmi V on Apr 19, 2008 6:49 PM

Re: Populate Table from Table Control

Former Member — Sat, 19 Apr 2008 15:31:23 GMT

Hi Santhanalakshmi V, thanx for the quick response.

My internal table is not being populated in the PAI module. In fact, it clears as soon as it gets into the loop in the PAI Module.

Any suggestion as to what I can put in the UPDATE_ITAB Module you suggested?

I have a check PAI Module that has the following code:

MODULE check INPUT.

MODIFY it_purch INDEX tc_purch-current_line.

ENDMODULE. " check INPUT

Should I put another PAI Module in the loop? or is the check module above enough?

Here is my PAI:

PROCESS AFTER INPUT.

LOOP AT it_purch.

MODULE check.

FIELD it_purch-certno MODULE insert_purch_lines.

ENDLOOP.

MODULE user_command_1100.

I have other fields not in the TC ,but which are part of the internal table it_purch. These get their values from the previous screen. They are cleared when I try to save, then, it loops with the values on screen (in the TC) and puts them one at a time in the internal table, instead of all the entrieI've run out of ideas

Re: Populate Table from Table Control

Former Member — Sun, 20 Apr 2008 11:36:34 GMT

Hi,

I will explain it with an example.

Assume that my screen has 3 fields and a table control with 5 fields.

Screen fields: FIELD1, FIELD2, FIELD3

Table control name: CTR_TAB

Fields in table control: WA_TAB-TAB1, WA_TAB-TAB2, WA_TAB-TAB3, WA_TAB-TAB4, WA_TAB-TAB5.

All fields are editable in the screen.

My ABAP program declarations:

TYPES: begin of tt_tab,

tab1(10) type c,

tab2(10) type c,

tab3(10) type c,

tab4(10) type c,

tab5(10) type c,

field1(10) type c,

field2(10) type c,

field3(10) type c,

end of tt_tab.

DATA: it_tab type standard table of tt_tab,

wa_tab type tt_tab.

Screen flow logic:

PROCESS BEFORE OUTPUT.

MODULE STATUS_1000.

LOOP AT IT_TAB INTO WA_TAB WITH CONTROL CTR_TAB.

ENDLOOP.

PROCESS AFTER INPUT.

LOOP AT IT_TAB.

MODULE UPDATE_TAB.

ENDLOOP.

MODULE USER_COMMAND_1000.

Include program for modules and subroutines:

MODULE UPDATE_TAB.

WA_TAB-FIELD1 = FIELD1.

WA_TAB-FIELD2 = FIELD2.

WA_TAB-FIELD3 = FIELD3.

Other fields will be automatically transferred to the workarea WA_TAB
since they have same name in screen and ABAP program

APPEND WA_TAB INTO IT_TAB.

ENDMODULE.

MODULE USER_COMMAND_1000.

CASE OK_CODE.

WHEN 'SAVE'.

INSERT INTO <TABLENAME> VALUES FROM IT_TAB.

ENDCASE.

ENDMODULE.

Thanks and Regards,

Lakshmi.

Re: Populate Table from Table Control

Former Member — Sun, 20 Apr 2008 11:55:34 GMT

Hello,

This is a typical problem for the scenario

Why it happens:

We have an internal table which we project on the screen as a table control...In the PBO the screen is displayed from values in the internal table....In the PAI,once you input the data..the screen does not automatically feed the values to your internal table and it remains empty..so when u press enter..it goes to PAI..then to PBO and shows data from table in PBO..so in PAI if there is no code written to accept values from user to internal table it gets erased

How to solve it:

Write a module in PAI to modify the internal table with values from table control in the screen...Please see the sample code below written in PAI...

in PAI we are looping at the table from screen

loop at int_screentable.

module f_set_data.

endloop.

module f_set_data.

*pass data from screen to work area

wa_screentable = int_screentable.

*update the current line in the internal table from screen

modify internaltable from wa_screentable index sy-tabix.

endmodule.

In PBO..you are already displaying the internal table..so need to change there

Note that in most of the cases the name of the internal table and screentable will be the same

which means internaltable = int_screentable.

in such case do the code

module f_set_data.

*pass data from screen to work area

wa_screentable = int_screentable.

*update the current line in the internal table from screen

modify int_screentable from wa_screentable index sy-tabix.

endmodule.

and yes..even if it the same table on screen and code you need to modify the currentline(sy-tabix) then only it will get reflected

Once tha values are coming in the internal table you can check the sy-ucomm for 'SAVE' and update the required table using ABAP statements like modify/insert/update(modify preferred for insertion or changing a record)

Pls check , revert and reward if helpful

Regards

Byju

Re: Populate Table from Table Control

Former Member — Thu, 08 May 2008 10:06:02 GMT

Hi gurus,

I have deciced to reopen this discussion because I have 1 problem. Everything else is fine and thank you very much for your contributions. Let me continue from the last entry.

Re: Populate Table from Table Control

Former Member — Thu, 08 May 2008 10:32:58 GMT

I have followed your advice Lakshmi and Byju and I thank you for it. Everything is fine but now on SAVE (and any other command like ENTER and even when I scroll on the Table Control) it modifies the transp. table and repeats the same records in the table control.

E.g. if you add three lines into the TC, it repeats those same records whenever you do a command.

Can you please explain what causes this?

Please refer to the SAVE command in MODULE USER_COMMAND_1000 above. I inserted a message after the insert and it pops up whenever I do any command.

Thank you in advance.

Re: Populate Table from Table Control

anub — Thu, 08 May 2008 10:59:01 GMT

hi,

Can you send the code you wrote in PAI of your screen? it would be more helpful.

Regards,

Anu.

Re: Populate Table from Table Control

Former Member — Thu, 08 May 2008 14:32:52 GMT

Hi,

Thanks for your reply.

Here are my PAI modules:

MODULE user_command_1100 INPUT.

ok_code = sy-ucomm.

save_ok = ok_code.

CLEAR ok_code.

CASE save_ok.

WHEN 'DELETE'.

Updating the database table from the internal table

UPDATE zpurch FROM TABLE it_purch.

Deleting the selected row from the internal table

DELETE it_purch WHERE mark = 'X'.

Deleting the selected row from the database table

DELETE FROM zpurch WHERE mark = 'X'.

MESSAGE s006.

WHEN 'SAVE'.

MODIFY zpurch FROM TABLE it_purch.

MESSAGE i001.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN OTHERS.

ENDCASE.

ENDMODULE. " USER_COMMAND_1100 INPUT

MODULE set_purch_data INPUT.

wa_purch-bukrs = bukrs.

wa_purch-dealid = dealid.

wa_purch-dealdate = dealdate.

wa_purch-counter = counter.

wa_purch-broker = broker.

wa_purch-trans_sec = zpurch-trans_sec.

wa_purch-rec_date = zpurch-rec_date.

wa_purch-tshares = tshares.

wa_purch-username1 = username1.

wa_purch-sdate = sdate.

APPEND wa_purch TO it_purch.

ENDMODULE. " set_purch_data INPUT