Listbox displaying dynamic values in table control
Hi Experts,
The requirement that I have is that there are two columns in an internal table out of which second one is a listbox.
There is a need of displaying dynamic values in a row in a listbox according to value entered in first column of the same row, not affecting the listbox values in other rows.
I am using VRM_SET_VALUES for populating listbox, but it results in populating the listbox in all other rows also.
Please help.
Thanks,
Garima
Hi Thanks for the link..
But my problem is something else.
I want the same listbox of a column in a table control to show me different values in different rows on the basis of value in another column .
Regards,
Garima
Similar Messages
-
How to insert values in table control & how to place listbox in table ctrl
Dear all,
I have created table control in Module pool program. My requirement is first
1)How to place list box in table control
2)Based on listbox selection i have to enter values in table control row..
With Regards,
BaskaranHi Baskaran,
For displaing list box, use FM: VRM_SET_VALUES.
Code like that:
TYPE-POOLS: vrm.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
PARAMETERS: ps_parm(10) AS LISTBOX VISIBLE LENGTH 15.
Instead of parameter for module pool , you declare data:
AT SELECTION-SCREEN OUTPUT.
name = 'PS_PARM'.
value-key = '3500000002'.
value-text = '3500000002'.
APPEND value TO list.
value-key = '3500000003'.
value-text = '3500000003'.
APPEND value TO list.
name = 'PS_PARM'.
value-key = '3500000004'.
value-text = '3500000004'.
APPEND value TO list.
name = 'PS_PARM'.
value-key = '3000000007'.
value-text = '3000000007'.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.
make the necesary change for module pool.
Hope this can solve your problems.
Regards,
Tutun -
Dynamically changing the value in table control
Hello Every one,
In MD61 transaction table control am trying to change value dynamicaly i.e am trying to change value in table control automaticaly tht value to be captured and i need to show in status bar...
Ex table control field is number: am giving 10,20,30 tht should show in status bar by adding if u enter 10 at status bar it show 10 then when u enter 20 it should add with 10 and give 30 ..
in this way when ever u enter value in filed it should add with the status bar value.Hi!
For conversion you can use the function module
data : w_amt TYPE cms_dte_original_amt,
" Amount
w_conv_amt TYPE cms_dte_conv_amt,
" Converted amount
w_kmein TYPE cms_dte_original_curr,
CALL FUNCTION 'CMS_API_CURR_CONV'
EXPORTING
i_original_curr = w_kmein
i_original_amt = w_amt
i_result_curr = 'INR'
i_rate_type = 'M'
i_conv_date = sy-datum
IMPORTING
e_conv_amt = w_conv_amt.
now accordingly you can move the currency and amount that is changed....
here as you were saying that on f4 after selecting you want the other field to get the value on that currency.....
this work can be done as here....
in this the next field gets populated as the first field gets the value......
refer to it.....
https://wiki.sdn.sap.com/wiki/display/ABAP/GettingainputfieldpopulatedonenteringthevalueinoneInputfield
Regards. -
How to display dynamic values in poplist at row level in advanced table
I want to display dynamic values in poplist at row level based on a row value in advanced table, with lov i can achieve it, is there any way to achieve this in poplist
Thanks
BbauBabu,
You have been long enough in forum and still come out with these one liners. Problem statement is not clear.
--Shiv -
Dynamic extending of table control in bdc
hi frnds
I want an example of dynamic extension of table control i.e
for example:In xk01 there is table control with bank details.
i have to upload upto 10 bank details of a record. I have searched in forum.I got the hint of 'p+' but i cant understand that.so please send me sample code
Thanks
RaghavHai,
Chech this sample code.
Check the below link.
http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm
THis is example to upload the Bank details of the Vendor which has the TC.
REPORT zprataptable2
NO STANDARD PAGE HEADING LINE-SIZE 255.
DATA : BEGIN OF itab OCCURS 0,
i1 TYPE i,
lifnr LIKE rf02k-lifnr,
bukrs LIKE rf02k-bukrs,
ekorg LIKE rf02k-ekorg,
ktokk LIKE rf02k-ktokk,
anred LIKE lfa1-anred,
name1 LIKE lfa1-name1,
sortl LIKE lfa1-sortl,
land1 LIKE lfa1-land1,
akont LIKE lfb1-akont,
fdgrv LIKE lfb1-fdgrv,
waers LIKE lfm1-waers,
END OF itab.
DATA : BEGIN OF jtab OCCURS 0,
j1 TYPE i,
banks LIKE lfbk-banks,
bankl LIKE lfbk-bankl,
bankn LIKE lfbk-bankn,
END OF jtab.
DATA : cnt(4) TYPE n.
DATA : fdt(20) TYPE c.
DATA : c TYPE i.
INCLUDE bdcrecx1.
START-OF-SELECTION.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
filename = 'C:\first1.txt'
filetype = 'DAT'
TABLES
data_tab = itab.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
filename = 'C:\second.txt'
filetype = 'DAT'
TABLES
data_tab = jtab.
LOOP AT itab.
PERFORM bdc_dynpro USING 'SAPMF02K' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RF02K-KTOKK'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'RF02K-LIFNR'
itab-lifnr.
PERFORM bdc_field USING 'RF02K-BUKRS'
itab-bukrs.
PERFORM bdc_field USING 'RF02K-EKORG'
itab-ekorg.
PERFORM bdc_field USING 'RF02K-KTOKK'
itab-ktokk.
PERFORM bdc_dynpro USING 'SAPMF02K' '0110'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFA1-LAND1'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'LFA1-ANRED'
itab-anred.
PERFORM bdc_field USING 'LFA1-NAME1'
itab-name1.
PERFORM bdc_field USING 'LFA1-SORTL'
itab-sortl.
PERFORM bdc_field USING 'LFA1-LAND1'
itab-land1.
PERFORM bdc_dynpro USING 'SAPMF02K' '0120'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFA1-KUNNR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0130'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFBK-BANKN(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
cnt = 0.
LOOP AT jtab WHERE j1 = itab-i1.
cnt = cnt + 1.
CONCATENATE 'LFBK-BANKS(' cnt ')' INTO fdt.
PERFORM bdc_field USING fdt jtab-banks.
CONCATENATE 'LFBK-BANKL(' cnt ')' INTO fdt.
PERFORM bdc_field USING fdt jtab-bankl.
CONCATENATE 'LFBK-BANKN(' cnt ')' INTO fdt.
PERFORM bdc_field USING fdt jtab-bankn.
IF cnt = 5.
cnt = 0.
PERFORM bdc_dynpro USING 'SAPMF02K' '0130'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFBK-BANKS(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=P+'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0130'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFBK-BANKN(02)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
ENDIF.
ENDLOOP.
PERFORM bdc_dynpro USING 'SAPMF02K' '0130'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFBK-BANKS(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0210'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFB1-FDGRV'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'LFB1-AKONT'
itab-akont.
PERFORM bdc_field USING 'LFB1-FDGRV'
itab-fdgrv.
PERFORM bdc_dynpro USING 'SAPMF02K' '0215'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFB1-ZTERM'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0220'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFB5-MAHNA'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_dynpro USING 'SAPMF02K' '0310'.
PERFORM bdc_field USING 'BDC_CURSOR'
'LFM1-WAERS'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'LFM1-WAERS'
itab-waers.
PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RF02K-LIFNR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_dynpro USING 'SAPLSPO1' '0300'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=YES'.
PERFORM bdc_transaction USING 'XK01'.
ENDLOOP.
PERFORM close_group.
Header file:
1 63190 0001 0001 0001 mr bal188 b in 31000 a1 inr
2 63191 0001 0001 0001 mr bal189 b in 31000 a1 inr
TC file:
1 in sb 11000
1 in sb 12000
1 in sb 13000
1 in sb 14000
1 in sb 15000
1 in sb 16000
1 in sb 17000
1 in sb 18000
1 in sb 19000
1 in sb 20000
1 in sb 21000
1 in sb 22000
2 in sb 21000
2 in sb 22000
REPORT zmm_pr_upload_mat
NO STANDARD PAGE HEADING
LINE-SIZE 255.
Standard Include for Selection Screen
INCLUDE bdcrecx1.
Internal Table for Upload Data
DATA: BEGIN OF i_pr OCCURS 0,
Header Screen
sno(3), " SNo
bsart(004), " PR Type
epstp(001), " Item Category
knttp(001), " Account Assignment
eeind(010), " Delivery Date
lpein(001), " Category of Del Date
werks(004), " Plant
lgort(004), " Storage Location
ekgrp(003), " Purchasing Group
matkl(009), " Material Group
bednr(010), " Tracking No
afnam(012), " Requisitioner
Item Details
matnr(018), " Material No
menge(017), " Quantity
badat(010),
frgdt(010),
preis(014), " Valuation Price
waers(005), " Currency
peinh(005),
wepos(001),
repos(001),
sakto(010), " GL Account
kostl(010), " Cost Center
bnfpo(005),
END OF i_pr.
Internal Table for header Data
DATA: BEGIN OF it_header OCCURS 0,
sno(3), " SNo
bsart(004), " PR Type
epstp(001), " Item Category
knttp(001), " Account Assignment
eeind(010), " Delivery Date
werks(004), " Plant
lgort(004), " Storage Location
ekgrp(003), " Purchasing Group
matkl(009), " Material Group
bednr(010), " Tracking No
afnam(012), " Requisitioner
END OF it_header.
Internal Table for Item Data
DATA: BEGIN OF it_item OCCURS 0,
sno(3), " SNo
matnr(018), " Material No
menge(017), " Quantity
preis(014), " Valuation Price
sakto(010), " GL Account
kostl(010), " Cost Center
END OF it_item.
Data Variables & Constants
CONSTANTS : c_x VALUE 'X'. " Flag
DATA : v_l(2), " Counter
v_rowno(5), " Row No
v_2(2), " Counter
v_rows LIKE sy-srows, " Rows in TC
v_field(45). " String
Parameters
PARAMETERS: p_file LIKE ibipparms-path. " Filename
At selection-screen on Value Request for file Name
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
Get the F4 Values for the File
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = syst-cprog
dynpro_number = syst-dynnr
IMPORTING
file_name = p_file.
Start of Selection
START-OF-SELECTION.
Open the BDC Session
PERFORM open_group.
Upload the File into internal Table
CALL FUNCTION 'UPLOAD'
EXPORTING
filename = p_file
filetype = 'DAT'
TABLES
data_tab = i_pr
EXCEPTIONS
conversion_error = 1
invalid_table_width = 2
invalid_type = 3
no_batch = 4
unknown_error = 5
gui_refuse_filetransfer = 6
OTHERS = 7.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
SORT i_pr BY sno.
LOOP AT i_pr.
MOVE-CORRESPONDING i_pr TO it_item.
APPEND it_item.
CLEAR it_item.
AT END OF sno.
READ TABLE i_pr INDEX sy-tabix.
MOVE-CORRESPONDING i_pr TO it_header.
APPEND it_header.
CLEAR it_header.
ENDAT.
ENDLOOP.
SORT it_header BY sno.
SORT it_item BY sno.
v_rows = sy-srows - 6.
Upload the Data from Internal Table
LOOP AT it_header.
Header Data
PERFORM bdc_dynpro USING 'SAPMM06B' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR'
'EBAN-BEDNR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'EBAN-BSART'
it_header-bsart.
PERFORM bdc_field USING 'RM06B-EPSTP'
it_header-epstp.
PERFORM bdc_field USING 'EBAN-KNTTP'
it_header-knttp.
PERFORM bdc_field USING 'RM06B-EEIND'
it_header-eeind.
PERFORM bdc_field USING 'RM06B-LPEIN'
it_header-lpein.
PERFORM bdc_field USING 'EBAN-WERKS'
it_header-werks.
PERFORM bdc_field USING 'EBAN-LGORT'
it_header-lgort.
PERFORM bdc_field USING 'EBAN-EKGRP'
it_header-ekgrp.
PERFORM bdc_field USING 'EBAN-MATKL'
it_header-matkl.
PERFORM bdc_field USING 'EBAN-BEDNR'
it_header-bednr.
PERFORM bdc_field USING 'EBAN-AFNAM'
it_header-afnam.
Item Details
v_l = 0.
To add no. of rows
v_2 = 0 .
As the screen is showing 13 rows defaulted to 130
v_rowno = 130 .
LOOP AT it_item WHERE sno = it_header-sno.
v_l = v_l + 1.
IF v_l = 14 .
IF v_2 = 12 .
v_2 = 12 .
v_l = 2 .
From second time onwards it is displaying 12 rows only
v_rowno = v_rowno + 120 .
PERFORM bdc_dynpro USING 'SAPMM06B' '0106'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RM06B-BNFPO'.
PERFORM bdc_field USING 'RM06B-BNFPO'
v_rowno.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
ELSE.
V_2 initialized to 12 for second screen purpose
v_2 = 12 .
v_l = 2 .
PERFORM bdc_dynpro USING 'SAPMM06B' '0106'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RM06B-BNFPO'.
PERFORM bdc_field USING 'RM06B-BNFPO'
v_rowno .
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
ENDIF.
ENDIF.
PERFORM bdc_dynpro USING 'SAPMM06B' '0106'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
CLEAR v_field.
CONCATENATE 'EBAN-MATNR(' v_l ')' INTO v_field.
PERFORM bdc_field USING v_field it_item-matnr.
CLEAR v_field.
CONCATENATE 'EBAN-MENGE(' v_l ')' INTO v_field.
PERFORM bdc_field USING v_field it_item-menge.
PERFORM bdc_dynpro USING 'SAPMM06B' '0102'.
PERFORM bdc_field USING 'BDC_CURSOR'
'EBAN-PREIS'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'EBAN-PREIS'
it_item-preis.
PERFORM bdc_dynpro USING 'SAPMM06B' '0505'.
PERFORM bdc_field USING 'BDC_CURSOR'
'EBKN-SAKTO'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTE'.
PERFORM bdc_field USING 'EBKN-SAKTO'
it_item-sakto.
Cost Center
PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.
PERFORM bdc_field USING 'BDC_CURSOR'
'COBL-KOSTL'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTE'.
PERFORM bdc_field USING 'COBL-KOSTL'
it_item-kostl.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTE'.
ENDLOOP.
PERFORM bdc_dynpro USING 'SAPMM06B' '0106'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RM06B-BNFPO'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=BU'.
Call The Transaction
PERFORM bdc_transaction USING 'ME51'.
ENDLOOP.
Close the BDC Session
PERFORM close_group.
with regards.
sowjanya.b. -
Retrieving values from table control using DYNP_VALUES_READ
Hi all,
I am trying to retrieve the values from the table control using the FM DYNP_VALUES_READ. I have a situation where user enter values in table control in T.code FB60 in Withholding tab for validation purpose. There i'll have to check based on some entries maintained in SET.
I am unable to get the values when i scroll to the next page in the table control. FM raising an exception invalid_dynprofield.
Expecting reply...You have to populate the dynpfields internal table before calling the function,
data: repid like sy-repid.
dynpfields-fieldname = 'PNAME'.
append dynpfields.
repid = sy-repid.
call function 'DYNP_VALUES_READ'
exporting
dyname = repid
dynumb = sy-dynnr
tables
dynpfields = dynpfields
exceptions
others.
read table dynpfields index 1.
pname = dynpfields-fieldvalue.
Now you will have the field value in pname
Hope this helps
Vinodh Balakrishnan -
Deleting the values from table control
HI,
I need to remove the selected line from the Table control on my screen.
The point is that the Internal table does not have any records,.
for example in the Customer Create screen,
while entering the bank details we will enter it in a tbale contraol.
but the records doesnt exist in the database. but the record gets deleted from the table control only if we press delete button.
please guide me.
please note : I want to delete the record from Table Control on the screen and I dont have any corresponding database records..
regardsHi..
The solution to your problem - deleting values from table control.
Here: it_wizard is the internal table which is holding the value of table control.
wa_wizard is the work are of the internal table it_wizard.
it_delete is the internal table which holds the deleted record of table control.
wa_delete is the work area of the internal table it_delete
Also here the field ZSEL is the character field which is used to select the entire record in the table control.
LOOP AT it_wizard into wa_wizard WHERE zsel = 'X'.
MOVE-CORRESPONDING wa_wizard TO wa_delete.
APPEND wa_delete TO it_delete.
delete table it_wizard from wa_wizard.
DELETE FROM zfin_goods WHERE ZFG = WA_delete-ZFG.
ENDLOOP
if sy-subrc eq 0.
Message 'Delete Successful' type 'S'.
endif.
The above code will delete the record from both the table control.internal table and the database table.
I think this will help you to great extent.
Ward regards,
Bhuvaneswari
Edited by: BHUVANESWARI THIRUNAVUKKARASU on Jan 7, 2009 10:39 AM -
Dynamic headers in table control
Hi,
How to create dynamic headers in table control headers?
I have to replace the header labels with internally computed headers.
I have created input fields for headers..
Regards,
KrutikaHi Krutika,
Try this out,
Populate an internal tabel with all the dates and day in it and also populate the column position in it.
say you have populated all this in an internal table it_date----fields in the internal table
1. date
2. day
3. spot1 -
column name of the table control(spot1 represents the column position)
then do this ,
LOOP AT it_date INTO wa_date.
LOOP AT SCREEN .
*WHERE screen-name = wa_date-spot.
CASE wa_date-spot.
WHEN 'SPOTS1'.
spots1 = wa_date-dd.
WHEN 'SPOTS2'.
spots2 = wa_date-dd.
WHEN 'SPOTS3'.
spots3 = wa_date-dd.
WHEN 'SPOTS4'.
spots4 = wa_date-dd.
WHEN 'SPOTS5'.
spots5 = wa_date-dd.
WHEN 'SPOTS6'.
spots6 = wa_date-dd.
WHEN 'SPOTS7'.
spots7 = wa_date-dd.
WHEN 'SPOTS8'.
spots8 = wa_date-dd.
WHEN 'SPOTS9'.
spots9 = wa_date-dd.
WHEN 'SPOTS10'.
spots10 = wa_date-dd.
WHEN 'SPOTS11'.
spots11 = wa_date-dd.
WHEN 'SPOTS12'.
spots12 = wa_date-dd.
WHEN 'SPOTS13'.
spots13 = wa_date-dd.
WHEN 'SPOTS14'.
spots14 = wa_date-dd.
WHEN 'SPOTS15'.
spots15 = wa_date-dd.
WHEN 'SPOTS16'.
spots16 = wa_date-dd.
WHEN 'SPOTS17'.
spots17 = wa_date-dd.
WHEN 'SPOTS18'.
spots18 = wa_date-dd.
WHEN 'SPOTS19'.
spots19 = wa_date-dd.
WHEN 'SPOTS20'.
spots20 = wa_date-dd.
WHEN 'SPOTS21'.
spots21 = wa_date-dd.
WHEN 'SPOTS22'.
spots22 = wa_date-dd.
WHEN 'SPOTS23'.
spots23 = wa_date-dd.
WHEN 'SPOTS24'.
spots24 = wa_date-dd.
WHEN 'SPOTS25'.
spots25 = wa_date-dd.
WHEN 'SPOTS26'.
spots26 = wa_date-dd.
WHEN 'SPOTS27'.
spots27 = wa_date-dd.
WHEN 'SPOTS28'.
spots28 = wa_date-dd.
WHEN 'SPOTS29'.
spots29 = wa_date-dd.
WHEN 'SPOTS30'.
spots30 = wa_date-dd.
WHEN 'SPOTS31'.
spots31 = wa_date-dd.
ENDCASE.
Hope this helps you,
Regards,
Abhijit G. Borkar -
Problem in displaying o/p in Table Control
Hi ,
while displaying in table control.
its is displaying line twice.
I have some contains in iti itab.
which i am displaying itf itab through table control..
i have coded like this...
PROCESS BEFORE OUTPUT.
MODULE STATUS_0112.
LOOP at itf WITH CONTROL TC CURSOR tc-current_line.
MODULE FILL_TABLE_CONTROL.
ENDLOOP.
PROCESS AFTER INPUT.
MODULE CANCEL AT EXIT-COMMAND.
LOOP at itf.
module read_table_INPUT.
ENDLOOP.
MODULE USER_COMMAND_0112.
*& Module STATUS_0112 OUTPUT
text
MODULE STATUS_0112 OUTPUT.
SET PF-STATUS 'ZTC'.
SET TITLEBAR 'xxx'.
DESCRIBE TABLE iti LINES tc-lines.
ENDMODULE. " STATUS_0112 OUTPUT
MODULE fill_table_control OUTPUT
MODULE fill_table_control OUTPUT.
loop at iti .
READ TABLE itf with key ingr_code = iti-ingr_code
ingr_desc = iti-ingr_desc.
MOVE iti-INGR_CODE TO ITF-INGR_CODE.
MOVE iti-INGR_DESC TO ITF-INGR_DESC.
MOVE iti-CONC TO ITF-CONC.
MOVE iti-QUANTITY TO ITF-QUANTITY.
MOVE iti-UOM TO ITF-UOM.
append ITF ."index tc-current_line.
endloop.
ENDMODULE. "fill_table_control OUTPUT
can any one help meloop at iti .
READ TABLE itf with key ingr_code = iti-ingr_code
ingr_desc = iti-ingr_desc.
MOVE iti-INGR_CODE TO ITF-INGR_CODE.
MOVE iti-INGR_DESC TO ITF-INGR_DESC.
MOVE iti-CONC TO ITF-CONC.
MOVE iti-QUANTITY TO ITF-QUANTITY.
MOVE iti-UOM TO ITF-UOM.
append ITF ."index tc-current_line.
endloop
You dont need to append the data , you have to Modify the data.
Problem is with the above code.
Correct to this...
MODULE fill_table_control OUTPUT.
READ TABLE itf index tc-current_line.
MOVE iti-INGR_CODE TO ITF-INGR_CODE.
MOVE iti-INGR_DESC TO ITF-INGR_DESC.
MOVE iti-CONC TO ITF-CONC.
MOVE iti-QUANTITY TO ITF-QUANTITY.
MOVE iti-UOM TO ITF-UOM.
endloop.
ENDMODULE. "fill_table_control OUTPUT
Regards
Vijay Babu Dudla -
How to display icon status in table control
hi, i trying to display icon in table control its not displaying
i given below statment.
DATA: BEGIN OF WA_MARA,
ICON1(4) TYPE C,
END OF WA_MARA.
INCLUDE <list>.
MOVE ICON_GREEN_LIGHT TO IT_MARA-ICON1.
APPEND IT_MARA..
when i debugging it display green icon but after run the program its display ' @08@ ' in table control.
how to display green icon in table control help me.Hi,
check the link:
Table control in custom infotypes -
Problem in displaying dynamic values in dropdown list for each row
I want to display dynamic values in a drop down list for each row, and these values depends on the column value in each row(ptaid), based on each ptaid i need to fetch values for drop down list. so how can i achieve this..
Thanks
BabuBabu,
This has been discussed in many old threads, try to find them. Also u can refer to article "Dependent Dynamic message choicelists ", at my blog
http://www.mukx.blogspot.com/
--Mukul -
How to find dynamic value(screen value) in table control for current row .
hi to all,
i used table control in my screen. for column no 2 field i was used serrch help. and for column number 3 i used a dynamic help.
in change mode you can change any row for table control.
when i was using search help for a row which was already entered in column no 3 i cannot get any value.
how i can get value of row no 3 and column no 2 value.
thanksTry using like index for the serarch the TC-current_line
-
Initial value in table control is displayed as space for currency field
Hi Experts,
I have a problem with table control in module pool. Below is the code for populating the table control:
loop at GT_NEW_ABAN
into GT_NEW_ABAN_WA
with control TAB_FAC_ABAND
cursor TAB_FAC_ABAND-current_line.
module TAB_FAC_ABAND_get_lines.
*&spwizard: module TAB_FAC_ABAND_change_field_attr
endloop.
The internal table GT_NEW_ABAN and the work area GT_NEW_ABAN_WA are declared as below:
DATA: GT_NEW_ABAN LIKE ZTABANDON OCCURS 0 WITH HEADER LINE,
GT_NEW_ABAN_WA LIKE ZTABANDON ,
while debugging the value of a field in GT_NEW_ABAN_WA is coming as 0.00, but in the screen display it is coming as space.
In the structure ZTABANDON the data type of the particular field is CURR, and in the layout it is DEC.
How can I fetch the same value 0.00 as coming in the work area to the screen display? How to change the space to 0.00?
Regards,
Soumya.Hi,
In the screen painter double click on the fieldname. It will show the properties. There make the type of the field as Currency(CURR I think).
Regards,
Renjith Michael.
Edited by: Renjith Michael on Jan 12, 2008 4:18 PM -
How to compare values in table control
Hi Experts,
How to compare two values of a field in table control. Like the frist row of feld1 with the second row of field1.
because when ever two values are same i need to display error message that we are entring duplicate entry.
i have been tring for a very log time but not getting any solution for this.
Thanks and Regards,
Ashwin.you need to write in code for this..
A possible solution is given below..
Suppose your internal table fields are col1 and col2.
in the loop .....endloop of yout internal table in your PAI..there will be following(if your table control is made using wizard. otherwise you might have to add it..
loop at itab.
chain.
field col1.
field col2.
"some module
endchain.
endloop.
now make changes as shown to the above code..
loop at itab.
chain.
field wa-col1.
field wa-col2.
module table_modify on chain-request.
endchain.
now in your program add module table modify.
module table_modify input.
read table itab with key col1(which shud be unique) = wa-col1 transporting no-fields.
if sy-subrc = 0. " there exists another record with the same value
message e001(your message class).
endif.
endmodule.
i guess that shud work. get back if it dosnt.
regards
Suzie -
How to populate a listbox with key in a table control
I have the following code:
MODULE carga_huecos INPUT.
DATA: BEGIN OF li_huecos OCCURS 0,
key(40) TYPE c,
text(80) TYPE c,
END OF li_huecos.
DATA: BEGIN OF estru_hueco OCCURS 0,
hueco LIKE zmov_wm-hueco,
END OF estru_hueco.
CLEAR: li_huecos, estru_hueco.
REFRESH: li_huecos, estru_hueco.
SELECT lgpla
FROM lagp
INTO TABLE estru_hueco
WHERE lgnum = 'WWM' AND
lgtyp = i_zmov_wm-almacen.
LOOP AT estru_hueco.
li_huecos-key = estru_hueco-hueco.
li_huecos-text = estru_hueco-hueco.
APPEND li_huecos.
CLEAR li_huecos.
ENDLOOP.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'I_ZMOV_WM-HUECO'
values = li_huecos[]
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
I see that internal table li_huecos has the values I need. But vrm_set_values function is not working. I need this values to be seen in a table control field which I have defined as "listbox with key". The name of the internal table associated to the table control is "I_zmov_wm" and the field is HUECO.
After function is executed sy-subrc = 0 but no value is seen in the list.
Thanks.hi ,
instead of this
LOOP AT estru_hueco.
li_huecos-key = estru_hueco-hueco.
li_huecos-text = estru_hueco-hueco.
APPEND li_huecos.
CLEAR li_huecos.
ENDLOOP.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'I_ZMOV_WM-HUECO'
values = li_huecos[]
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
add this
data : name type vrm_id .
LOOP AT estru_hueco.
li_huecos-key = estru_hueco-hueco.
li_huecos-text = estru_hueco-hueco.
APPEND li_huecos.
CLEAR li_huecos.
ENDLOOP.
name = 'I_ZMOV_WM-HUECO' .
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = li_huecos[]
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
regards
Deepak.
Maybe you are looking for
-
Broken Camera? Pics get taken, but do not show up in Photos
I have an ongoing problem with my iPhone 3G camera: - I take a bunch of pictures (more than 100 or 200) - I also take screen captures amongst the pictures - I look at the camera roll and it says all the pics are there (151, 217, etc..) - but when I o
-
Looks like I bought a narcoleptic PowerBook..
It's been about 8 years since these babies were manufactured. Since then has anyone actually come across a solution? Maybe on some random persons blog? I've found a lot of things out about these old computers (How to natively and smoothly play 720p a
-
Dears,, If i have running database and i need to make check health for it for performance , tuning , . . . , etc Is there any steps or advisors or documentations to go ahead with them enable me to check the database health. Thanks & Regards,,
-
JS ScriptUI window too busy to accept a click
I have a script that shows a Script UI 'window' (resizable, with minimize/maximize buttons etc). The users can keep this interface minimized or put it beside the document, and still work with the active document (which is good). (A previous interface
-
Need to change outlook email account name using " \ "
A new requirment from my company is to add a \ to the mailbox name(user id) to access our system. This is not an option on the symbol pad in the email setup screen.