Copy more lines in the Table Control

Hi ,
I have created a table control in one of my mod pool programs,
I have to paste lines from Excel (for instance) to this table control, but it copies only to the lines in the table control which I see in the screen. if I have more lines to copy than the lines which I see in the screen, it doesn't copy it.
plz help me in this regard.......
Thanx
SHOAIB REHMAN

Hi, Shoaib
I think you have to Program for this in Special Button like in Select-Option's (EXTENSION) Button Window you have an Button Upload from Clipboard (Shift + F12) just left side of the Cancel button.
For Copy data from Clipboard Check the Bellow Sample Code. (Copy data and Run the Bellow Code)
TYPES: BEGIN OF ty_char256,
 line TYPE c LENGTH 256,
 END OF ty_char256.
DATA: it_data TYPE STANDARD TABLE OF ty_char256,
 wa_data LIKE LINE OF it_data,
 length TYPE i.
CALL METHOD cl_gui_frontend_services=>clipboard_import
IMPORTING
 data = it_data[]
 length = length
EXCEPTIONS
 cntl_error = 1
 error_no_gui = 2
 not_supported_by_gui = 3
 OTHERS = 4.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT it_data INTO wa_data.
write: wa_data-line.
ENDLOOP.
Please Reply if any Confusion.
Thanks and Regards,
Faisal

Similar Messages

Copy selected lines in the table control

Hi friends,
I Have a screen 200 in which i have a button COPY and table control.
In my table control i have 6 lines of data.
now my requirement is when i select any lines ie : let us say i ahve selected 1 , 3 , 5 lines of my table control and when i click on the button COPY of that screen. i need those 3 selected lines 1 , 3 , 5 to be copied again in the table control
example :
line 1         selected
line2
line3          selected
line4
line5          selected .
line6
now my table control should be
line1
line2
line3
line4
line5
line6
line1
line3
line5
How can i do that
Regards
Priyanka.

I have similar issue...i need help how to accomplish automatic addition on every line. example (see below)
this is how it looks right now
DATE    EMPLOYEE       DEPT JOB     LOT     OPER#     LX_HRS     OP_SETUP     LX_TYPE     COMPLETE
2/23/2009     M.Paquiao   NB         1960     001     10             1.50                14.00                     S                      NO
2/24/2009                                                      1.00             14.00                  S                        NO
2/25/2009                                                      4.50                14.00                  S                    NO
2/27/2009                                                      3.00             14.00                  S                        NO
2/28/2009                                                      1.50             14.00                  R                       YES
3/1/2009                                                      2.00             14.00                  R                  YES
this what I need it to do when I meant automatic addition of each line:
DATE   EMPLOYEE     DEPT     JOB     LOT     OPER#     LX_HRS     OP_SETUP     LX_TYPE     COMPLETE
2/23/2009     M.Paquiao      NB        1960     001     10             1.50        14.00               S         NO
2/24/2009                                                      2.50             14.00                  S             NO
2/25/2009                                                      7.00        14.00                  S             NO
2/27/2009                                                      10.00     14.00               S             NO
2/28/2009                                                      11.50     14.00               R             YES
3/1/2009                                                      13.50     14.00               R             YES
As you can see everything is the same but on column LX_HRS, the first example one is not doing anything addition but on the second example is now doing addition. This additions were done manually, how can I tell crystal to add each line, in the example above, the
first example                                              second example: (addition is involved)
date                lx_hrs                                  date                  lx_hrs
2/23/09           1.50                                     2/23/09              1.50
2/24/09           1.00                                     2/24/09              2.50 (sum of : 1.50 + 1.00 was added)
2/25/09           4.50                                     2/25/09              7.00 (sum of 2.50 (on date 2/24/09 & 4.50 from date 2/25/09 of the first example).

How to find the current line in the table control in module pool ?

How to find the current line in the table control in module pool ?
This is an urgent requirement? please do help me.

refer to this example
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.

How can we delete a line from the table control .

hi all
how can we delete a line from the table control .
situation is.
created table control in se51 which will display the data of a table.
how could i select a line from the table control ?
how could i delete the selected lines form the table.
thanks in advance

Change the Table Control attributes such that user can only select a single record(row).
Tip to delete a selected record
1) write a module 'Mark' in the PAI as below
PROCESS AFTER INPUT.
MODULE cancel AT EXIT-COMMAND.
LOOP WITH CONTROL table_view.
MODULE read_table_control.
FIELD flag MODULE mark ON INPUT.
ENDLOOP.
MODULE user_command_0100.
2) Module Mark is below.
MODULE mark INPUT.
CHECK flag = 'X'.
x = table_view-top_line + sy-stepl - 1.
Delete itab INDEX x.
ENDMODULE. " mark INPUT
Table_view is the TableControl Name.
'flag' is of type char(1) available in the Internal table which was assigned to the select option in the table control.
award if uesful
Regards,
Sudheer

How To delete the Chosen line from the Table Control

Hi Friends,
i am new to Module Pool Programming , i developed a Table Control in input mode and i am getting data also into that table control. my requirement is that i want to delete the current chosen line from that table control. please help me out.

HI
GOOD
GO THROUGH THIS REPORT
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.
CHANGE THE CODE AS PER THIS LIGIC.
THANKS
MRUTYUN

How to find out the selected line in the table control

Hi Guys,
i have a requirement like this. i have table control and the internal table for that table control as IT_CASE. this internal table i declared as CHECKBX, MATNR, QUANTITY. but when i am enter the values in the table control i am getting the values in MATNR and QUANTITY in the that internal table IT_CASE. but when iam selecting that that line iam not getting CHECKBOX as 'X' in that internal table IT_CASE. i declared the table control as CAS_CONTROL and in that i have given the "w/selcolum" property as IT_CASE-CHECKBOX. now i want to fill that CHECKBOX as 'X' inthat internal table IT_CASE whatever the lines we are selecting only for those lines i want to fill up as 'X' in that internal table.
Can you please suggest any one reg this.
Thanks in advance
Rahul

Hello body,
You can give a name such as 'SEL' in w/selcol and declare SEL as char1. Then follow the coading.
in TOP.
data: sel type c.
PROCESS AFTER INPUT.
user_command_0011.
loop at <Your internal table>.
module get_data.
endloop.
Inside Module get_data.
 if sy-ucomm = <Your Fcode>
 if sel = 'X'.
 <Your internal table>-<Field for checkbox> = 'X'.
 append <Your internal table>.
 endif.
endif.
I think your issue is resolved.
Regards.
S Mahanta.

Adding an extra line in the table control

Hi All,
How can we add an extra record in the table control after the user hits ADD button?We tried doing it by incrementing the lines field in the table control,but it is executing the PBO part again after hitting the ADD button.Any SAP standard program will be helpful.
Thanks,
Rakesh.

Hi,
I think you can do that by inerting new line to Internal table that used in your Table Control. Here the sample:
TC_DATA = Your Table Control
IT_DATA = Your Internal Table used for Table Control.
In your MODULE USER_COMMAND INPUT, add this code:
IF OK_CODE = 'ADD'.
CLEAR: IT_DATA.
APPEND IT_DATA.
ENDIF.
Regards,

Dynamically picking the line item of table control

Hi all,
Can u suggest me a way to dynamically picking the no of line item in the table control displayed.
Regards,
Ashutosh Kumar

Hi Ashutosh,
In BDC case, what you can do is use the "position button" instead of finding the number of lines on the table control.
Or else you can use call transaction with 'Options addition'
eg:
Call transaction parameters
 clear gs_options.
 gs_options-defsize = 'X'. "Default size
 gs_options-dismode = 'N'.
 gs_options-updmode = 'S'.
 call transaction 'VI02' using t_bdcdata
 "mode 'N'
 "update 'S'
 options from gs_options
 messages into t_messages.
Please let us know why do you want to know the number of lines on the Table control.If the above answer doesn't satisfy you.
Regards,
Ravi

How to handle the single line selection in table control

Hi All,
 I am facing a problem in the table control of modulepool program.
 I have line selection as "Single" in the table control attributes. But when i am selecting a line in the table control as long as it is in the same page,the line selection is single but when i am selecting the line in the next page,the previous selection is not deselected. So I am seeing two selection for "Single line selector" attribute.
 Could any one help me solve this problem?
Thanks & Regards,
S.Lakshmi

Hi Lakshmi,
Just Go to Table control , click on it , you can see the attributes screen , there you can see option for
Line selection
none
multiple selection
single selection
check the radio button single selection.
that will solve your problem..
regards
vijay

How to fill listbox for some lines in a table control

I have a table control associated to a database table. I would like to enable several lines in the table control for the user to input data. I have a field defined as a listbox with key. In PBO -> I fill the listbox based on the value of field u201CAu201D. I execute a select using value of field u201CAu201D.
If I maintain module tc_zmovi_wm_change_tc_attr OUTPUT as the wizard created it:
MODULE tc_zmovi_wm_change_tc_attr OUTPUT.
    DESCRIBE TABLE i_zmov_wm LINES tc_zmovi_wm-lines.
ENDMODULE.
I have no problem with the listbox ( it is filled normaly) but user has a unique line enabled in the table control to input data.
If I change the module in this way:
MODULE tc_zmovi_wm_change_tc_attr OUTPUT.
DATA: v_lineas type i.
tc_zmovi_wm-lines = v_lineas + 10.
ENDMODULE.
There are 10 lines enabled to input data for the user but the list is not filled whenever user filles field u201CAu201D.
How could I solve this problem?
Thanks.

With this Eventcase the mouse down of the specified cell will be ignored
Attachments:
Table.png ‏28 KB

How to set cursor at the first line in a table control?

Hi,
I have a customized infotype screen where a table control is being used to input new values.The tab control has 30 lines.Now, the problem is that when the screen is displayed, the cursor always starts at 8th or 4th line.The behaviour is not very consistent.I tried the following statement in the PBO, but no effect.
SET CURSOR FIELD P9417-ZCOUNTRY LINE 1. ( P9417-ZCOUNTRY is the name of the tab control field where i want to set the cursor ).This is the last statement in the PBO.
Can someone please tell me why still I am not able to set the cursor at the first line? I have infact noticed that , in the debugging mode , sometimes the cursor starts at the first line.Please help. Thanks

I have got a new requirement on this now. If the table control does not have any records , then the cursor position should be on the first row.Otherwise, if it already has some records, then the cursor should be at the first empty row.I wrote the code like below.
if sy-ucomm = 'INSERT'.
set cursor 'P9714-ZCOUNTRY' line 1.
else if sy-ucomm eq 'CHANGE'.
describe table itab lines fill.
fill = fill + 1.
set cursor 'P9714-ZCOUNTRY' line fill.
endif.
I am facing a strange problem now.The table control has some 10 rows when you see the screen for the first time.If the number of records already present is less than 10, I am able to position the cursor on the first empty row.But if the number is say 15, then the cursor position goes to eighth or fourth line or sometimes the first line.
Is there any way to display the last few records , ie, if there are 15 records , is there any way to display the last five rows when I see the screen for the first time, rather than showing the first 10 records?How can I position the cursor at the first empty row, when there are more records?
Thanks in advance..good answers will be rewarded.
Mahesh

How to get the Number of lines displayed in table control in bdc

Hi,
when we write a bdc for a standard transaction, if we encounter a table control, we fill the values for each record like field(01), and the second record field(02) .......and so on..
if only 3 records are displayed in the screen and if we have 5 records to be filled in the table control, how to write the logic for that?
how to track of how many lines are getting displayed in the table control .. again it depends on the screen resolution i think..
useful answers will be rewarded
shekhar

Hi,
Here is the solution code for this :-
data for controlling paging on screen 0102
DATA: W_MAXLINES(2) TYPE N,
W_NEXT_LINE(3) TYPE N,
W_PAGE(1), "y = page forward, n otherwise
W_SCRLEN(2) TYPE I,
W_SCRLINE(2) TYPE I.
DATA: BEGIN OF W_HDR.
INCLUDE STRUCTURE D020S.
DATA: END OF W_HDR.
DATA: BEGIN OF W_FLD OCCURS 100.
INCLUDE STRUCTURE D021S.
DATA: END OF W_FLD.
DATA: BEGIN OF W_LOG OCCURS 20.
INCLUDE STRUCTURE D022S.
DATA: END OF W_LOG.
DATA: BEGIN OF W_MC OCCURS 20.
INCLUDE STRUCTURE D023S.
DATA: END OF W_MC.
DATA: BEGIN OF W_DYNPRONAME,
PROGRAM(8) VALUE 'SAPMM60X',
DYNPRO(4) VALUE '0102',
END OF W_DYNPRONAME.
FORM GET_MAX_LINES.
set w_maxlines to the number of var-loop occurrences on the screen so
that we know when to page forward on screen 0102
also initialise w_next_line to zero for GET_NEXT_LINE
this subroutine caters for all cases - including screens without loops
CLEAR: W_MAXLINES,
W_NEXT_LINE.
IMPORT DYNPRO W_HDR
W_FLD
W_LOG
W_MC
ID W_DYNPRONAME.
LOOP AT W_FLD WHERE LTYP EQ 'L'.
MOVE W_FLD-LINE TO W_SCRLINE. "first var-loop line
MOVE W_FLD-LBLK TO W_SCRLEN. "depth of loop block
EXIT.
ENDLOOP.
IF SY-SUBRC EQ 0
AND W_SCRLEN NE 0.
sy-srows = total no of lines on screen
w_scrline = actual first line of loop so that
w_scrline - 1 = number of heading lines (before loop)
4 = no of lines at top of screen - command line, pushbuttons, 2 ulines
3 = no of lines after loop - uline & Page count
w_scrlen = no of lines in loop block
w_maxlines = sy-srows - ( wscrline - 1 ) - 4 - 3
and then 1 less but not sure why!
W_MAXLINES = SY-SROWS - W_SCRLINE - 1 - 4 - 3.
W_MAXLINES = W_MAXLINES - 1.
W_MAXLINES = W_MAXLINES DIV W_SCRLEN.
ELSE.
MOVE 99 TO W_MAXLINES. "this required if no screen loop
ENDIF.
ENDFORM.
FORM GET_NEXT_LINE.
set w_page if page forward is required
W_NEXT_LINE = W_NEXT_LINE + 1.
IF W_NEXT_LINE GT W_MAXLINES.
W_NEXT_LINE = 1.
W_PAGE = 'Y'.
ELSE.
W_PAGE = 'N'.
ENDIF.
ENDFORM.
Hope it helps.
reward if helpful.
Regards,
Sipra

After a PAI, I am not able to slect line items in the table control.

Dear All,
In GR55 Report;after a PAI triggered (by Enter button or vertical scroll bar), I am not able to select any line-items in the table control. If no PAI triggered, the I am able to select as much as line item..
Can anybody help me..
-Ullas U

before display, while debugging , after pai, it will go in pbo modules,
so there u need to check the structure screen for the variable select. u might have declare one variable like sel(1) type c,
these variable u have written in table control attributes in select variable as itab-sel.
so check in debugging first.

How to transfer the contents of a line of a table control to second screen?

Hi,
I have a table control and I have entered some contents in one line of a table control .
When i click on this line and then click on the detail button on the screen , it should take me to another screen and whatever I have entered in the table control should be transferred to the second screen .
Please could anyone help me out with this .
Regards,
Sushanth H.S.

Hi
U need to get the index of the line of table control by command GET CURSOR:
PROCESS PAI.
LOOP AT ITAB.
 MODULE GET_CURSOR.
 MODULE MODIFY_ITAB.
ENDLOOP.
MODULE USER_COMMAND.
Module to pick up the selected line:
MODULE GET_CURSOR.
GET CURSOR LINE VN_LINE.
ENDMODULE.
Module to transfer the data from table control to internal table:
MODULE MODIFY_ITAB.
ITAB-FIELD1 = <FIELD OF TABLE CONTROL>.
MODIFY ITAB INDEX <TABLE CONTROL>-CURRENT_LINE.
ENDMODULE.
U should considere the variable line has the value of the index of the line of table control, so u need to calculate the number of the corresponding line of internal table:
MODULE USER_COMMAND.
CASE OK_CODE.
 WHEN 'DETAIL'.
* Calculate the line of internal table:
 VN_LINE = <TABLE CONTROL>-TOP_LINE + VN_LINE - 1.
* Read the data
 READ TABLE ITAB INDEX VN_LINE.
* Transfer the data to the output structure of the new screen
 <STRUCTURE>-FIELD1 = ITAB-FIELD1.
* Call the new screen
 SET SCREEN <NEW SCREEN>.
 LEAVE SCREEN.
Max

How to pick the value of the line item in table control

My screen.
I have designed table control by referring internal table without using wizard.
I have placed button inside of that table control.
my requirement is by clicking the button it ll show the value of the line inside of the table control.
I have used "get cursor...".
But the problem is "it ll show only the cursor value of the front screen, if suppose i scroll the value of table control at the time also, it ll show the cursor value of the screen, it ll not show the exact value of the cursor inside of the table control.

Wrong Forum Anand......!

Copy more lines in the Table Control

Similar Messages

Maybe you are looking for