Handling line items in bdc

hi,please tell me how to handle the line items i.e the header data and item data in bdc?
provide me a clear vision?

go with this sample code
REPORT zsowja NO STANDARD PAGE HEADING LINE-SIZE 255.
DATA: bdcdat LIKE bdcdata OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF record OCCURS 0,
data element: ELIFN
 lifnr(010),
data element: EKORG
 ekorg(004),
data element: BKGRP
 ekgrp(003),
data element: EMATNR
 ematn(018),
data element: BSTMG
 menge(017),
data element: EWERK
 werks(004),
 END OF record.
DATA : BEGIN OF head_itab OCCURS 0,
data element: ELIFN
 lifnr(010),
data element: EKORG
 ekorg(004),
data element: BKGRP
 ekgrp(003),
 END OF head_itab.
DATA : BEGIN OF item_itab OCCURS 0,
data element: ELIFN
 lifnr(010),
data element: EMATNR
 ematn(018),
data element: BSTMG
 menge(017),
data element: EWERK
 werks(004),
 END OF item_itab.
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 CODEPAGE = ' '
 filename = 'c:/hello.txt'
 filetype = 'ASC'
 HEADLEN = ' '
 LINE_EXIT = ' '
 TRUNCLEN = ' '
 USER_FORM = ' '
 USER_PROG = ' '
 DAT_D_FORMAT = ' '
 IMPORTING
 FILELENGTH =
 TABLES
 data_tab = record
 EXCEPTIONS
 CONVERSION_ERROR = 1
 FILE_OPEN_ERROR = 2
 FILE_READ_ERROR = 3
 INVALID_TYPE = 4
 NO_BATCH = 5
 UNKNOWN_ERROR = 6
 INVALID_TABLE_WIDTH = 7
 GUI_REFUSE_FILETRANSFER = 8
 CUSTOMER_ERROR = 9
 OTHERS = 10
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 record.
ON CHANGE OF record-lifnr.
 head_itab-lifnr = record-lifnr.
 head_itab-ekorg = record-ekorg.
 head_itab-ekgrp = record-ekgrp.
 APPEND head_itab.
 CLEAR head_itab.
ENDON.
TO HAVE LINK BETWEEN HEADER AND ITEM TABLE USE LIFNR AS LINKER
item_itab-lifnr = record-lifnr.
item_itab-ematn = record-ematn.
item_itab-menge = record-menge.
item_itab-werks = record-werks.
APPEND item_itab.
CLEAR item_itab.
ENDLOOP.
*TO CHECH THE DATA IN HEADET ITAB AND DETAIL/ITEM ITAB
*loop at head_itab.
*write :/ head_itab.
*endloop.
*skip 2.
*loop at item_itab.
*write:/ item_itab.
*endloop.
SORT head_itab BY lifnr ekorg ekgrp.
SORT item_itab BY lifnr.
DATA linecount TYPE i.
START-OF-SELECTION.
LOOP AT head_itab.
 ON CHANGE OF head_itab-lifnr.
 REFRESH bdcdat.
 CLEAR bdcdat.
 PERFORM bdc_dynpro USING 'SAPMM06E' '0100'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'EKKO-LIFNR'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'EKKO-LIFNR'
 head_itab-lifnr.
 PERFORM bdc_field USING 'EKKO-EKORG'
 head_itab-ekorg.
 PERFORM bdc_field USING 'EKKO-EKGRP'
 head_itab-ekgrp.
 linecount = 0.

 LOOP AT item_itab WHERE lifnr = head_itab-lifnr.
 linecount = linecount + 1.
 IF linecount = 1.
 PERFORM bdc_dynpro USING 'SAPMM06E' '0120'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'EKPO-WERKS(01)'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'EKPO-EMATN(01)'
 item_itab-ematn.
 PERFORM bdc_field USING 'EKPO-MENGE(01)'
 item_itab-menge.
 PERFORM bdc_field USING 'EKPO-WERKS(01)'
 item_itab-werks.
 PERFORM bdc_dynpro USING 'SAPMM06E' '0120'.
 ELSE.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'EKPO-WERKS(02)'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=NP'.
 PERFORM bdc_field USING 'EKPO-EMATN(02)'
 item_itab-ematn.
 PERFORM bdc_field USING 'EKPO-MENGE(02)'
 item_itab-menge.
 PERFORM bdc_field USING 'EKPO-WERKS(02)'
 item_itab-werks.
 PERFORM bdc_dynpro USING 'SAPMM06E' '0120'.
 ENDIF.
 AT END OF lifnr.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=BU'.
 ENDAT.
 ENDLOOP.
 ENDON.
 CALL TRANSACTION 'ME21' USING bdcdat MODE 'A'.
 REFRESH bdcdat.
ENDLOOP.
FORM bdc_dynpro USING value(a) value(b).
bdcdat-program = a.
bdcdat-dynpro = b.
bdcdat-dynbegin = 'X'.
APPEND bdcdat.
CLEAR bdcdat.
ENDFORM.
FORM bdc_field USING value(c) value(d).
bdcdat-fnam = c.
bdcdat-fval = d.
APPEND bdcdat.
CLEAR bdcdat.
ENDFORM.

Similar Messages

How to upload a file which has more than 999 line item through BDC ?

Hello Techards
Hi to all
Can any body tell me how to upload a file which has more than 999 line item through BDC for traction F-02 ?
Thanks in advance.
Shovan

Hello Shovan,
You split it up to post two accounting documents with the help of a "suspense" a/c.
Say, you have to post the following line items below:
line 1 - dr. - GL a/c X - $1000
line 2 - cr. - GL a/c Y - $1
line 3 - cr. - GL a/c Y - $1
line 1001 - cr. - GL a/c Y - $1
You cannot post the above as a single doc in SAP (because of technical reasons), so you need to break it up into 2 documents as below:
Doc1
line 1 - dr - GL a/c X - $1000
line 2 - cr - GL a/c Y - $1
line 3 - cr - GL a/c Y - $1
line 998 - cr - GL a/c Y - $1
line 999 - cr - SUSPENSE a/c - $3
Doc2
line 1 - dr - SUSPENSE a/c - $3
line 2 - cr - GL a/c Y - $3
Note that there is no incorrect impact on accounting as first we credit suspense a/c by $3 and next we debit the same suspense a/c by $3 as a result the effect is nil. Similarly, we credit $997 to GL a/c Y (which is less by $3) in the first doc which is compensated by the second doc by crediting the shortfall of $3.
Hope this helps,
Cheers,
Sougata.

Multiple line items in BDC

Hi Friends
I'm doing a BDC .... in the recording I have found that I've to change different line items.. the part of recording in which I'm facing problem is as below:
BDC_CURSOR VBAP-ABGRU(06)
VBAP-ABGRU(01) 10
VBAP-ABGRU(02) 10
VBAP-ABGRU(03) 10
VBAP-ABGRU(04) 10
VBAP-ABGRU(05) 10
VBAP-ABGRU(06) 10
now I have counted the item nos in a variable v_count. While filling the internal table of BDCdata how will i approach to fill different line items here as shown above.. for 1 item I have no prob....but for n no of items what will be the code of filling bdctab... please let me know....
Thanks
Moumita

Hi moumita ....
Plz have a look......
How to deal with table control / step loop in BDC?
Steploop and table contol is inevitable in certain transactions. When we run BDC for such transactions, we will face the situation: how many visible lines of steploop/tablecontrol are on the screen? Although we can always find certain method to deal with it, such as function code 'NP', 'POPO', considering some extreme situation: there is only one line visible one the screen,
our BDC program should display an error message. (See transaction 'ME21', we you resize your screen to let only one row visible, you can not enter mutiple lines on this screen even you use 'NP')
Now, I find a method with which we can determine the number of visible lines on Transaction Screen from our Calling BDC program. Maybe it is useless to you, but I think it will give your some idea.
Demo ABAP code has two purposes:
1. how to determine number of visible lines and how to calculte page number; (the 'calpage' routine has been modify to meet general purpose usage)
2. using field symbol in BDC program, please pay special attention to the difference in Static
ASSIGN and Dynamic ASSIGN.
Now I begin to describe the step to implement my method:
(I use transaction 'ME21', screen 121 for sample, the method using is Call Transation Using..)
Step1: go to screen painter to display the screen 121, then we can count the fixed line on this screen, there is 7 lines above the steploop and 2 lines below the steploop, so there are total 9 fixed lines on this screen. This means except these 9 lines, all the other line is for step loop.
Then have a look at steploop itselp, one entry of it will occupy two lines.
(Be careful, for table control, the head and the bottom scroll bar will possess another two fixed lines, and there is a maximum number for table line)
Now we have : FixedLine = 9
LoopLine = 2(for table control, LoopLine is always equal to 1)
Step2: go to transaction itself(ME21) to see how it roll page, in ME21, the first line of new page is always occupied by the last line of last page, so it begin with index '02', but in some other case, fisrt line is empty and ready for input.
Now we have: FirstLine = 0
or FirstLine = 1 ( in our case, FirstLine is 1 because the first line of new page is fulfilled)
Step3: write a subroutine calcalculating number of pages
(here, the name of actual parameter is the same as formal parameter)
global data: FixedLine type i, " number of fixed line on a certain screen
LoopLine type i, " the number of lines occupied by one steploop item
FirstLine type i, " possbile value 0 or 1, 0 stand for the first line of new
" scrolling screen is empty, otherwise is 1
Dataline type i, " number of items you will use in BDC, using DESCRIBE to get
pageno type i, " you need to scroll screen how many times.
line type i, " number of lines appears on the screen.
index(2) type N, " the screen index for certain item
begin type i, " from parameter of loop
end type i. " to parameter of loop
*in code sample, the DataTable-linindex stands for the table index number of this line
form calpage using FixedLine type i (see step 1)
LoopLine type i (see step 1)
FirstLine type i (see step 2)
DataLine type i ( this is the item number you will enter in transaction)
changing pageno type i (return the number of page, depends on run-time visible line in table control/ Step Loop)
changing line type i.(visible lines one the screen)
data: midd type i,
vline type i, "visible lines
if DataLine eq 0.
Message eXXX.
endif.
vline = ( sy-srows - FixedLine ) div LoopLine.
*for table control, you should compare vline with maximum line of
*table control, then take the small one that is min(vline, maximum)
*here only illustrate step loop
if FirstLine eq 0.
pageno = DataLine div vline.
if pageno eq 0.
pageno = pageno + 1.
endif.
elseif FirstLine eq 1.
pageno = ( DataLine - 1 ) div ( vline - 1 ) + 1.
midd = ( DataLine - 1 ) mod ( vline - 1).
if midd = 0 and DataLine gt 1.
pageno = pageno - 1.
endif.
endif.
line = vline.
endform.
Step4 write a subroutine to calculate the line index for each item.
form calindex using Line type i (visible lines on the screen)
FirstLine type i(see step 2)
LineIndex type i(item index)
changing Index type n. (index on the screen)
if FirstLine = 0.
index = LineIndex mod Line.
if index = '00'.
index = Line.
endif.
elseif FirstLine = 1.
index = LineIndex mod ( Line - 1 ).
if ( index between 1 and 0 ) and LineIndex gt 1.
index = index + Line - 1.
endif.
if Line = 2.
index = index + Line - 1.
endif.
endif.
endform.
Step5 write a subroutine to calculate the loop range.
form calrange using Line type i ( visible lines on the screen)
DataLine type i
FirstLine type i
loopindex like sy-index
changing begin type i
end type i.
If FirstLine = 0.
if loopindex = 1.
begin = 1.
if DataLine <= Line.
end = DataLine.
else.
end = Line.
endif.
elseif loopindex gt 1.
begin = Line * ( loopindex - 1 ) + 1.
end = Line * loopindex.
if end gt DataLine.
end = DataLine.
endif.
endif.
elseif FirstLine = 1.
if loopindex = 1.
begin = 1.
if DataLine <= Line.
end = DataLine.
else.
end = Line.
endif.
elseif loop index gt 1.
begin = ( Line - 1 ) * ( loopindex - 1 ) + 2.
end = ( Line - 1 ) * ( loopindex - 1 ) + Line.
if end gt DataLine.
end = DataLine.
endif.
endif.
endif.
endform.
Step6 using field sysbol in your BDC, for example: in ME21, but you should calculate each item will correponding to which index
form creat_bdc.
field-symbols: <material>, <quan>, <indicator>.
data: name1(14) value 'EKPO-EMATN(XX)',
name2(14) value 'EKPO-MENGE(XX)',
name3(15) value 'RM06E-SELKZ(XX)'.
assign: name1 to <material>,
name2 to <quan>,
name3 to <indicator>.
do pageno times.
if sy-index gt 1
*insert scroll page ok_code"
endif.
perform calrange using Line DataLine FirstLine sy-index
changing begin end.
loop at DataTable from begin to end.
perform calindex using Line FirstLine DataTable-LineIndex changing Index.
name1+11(2) = Index.
name2+11(2) = Index.
name3+12(2) = Index.
perform bdcfield using <material> DataTable-matnr.
perform bdcfield using <quan> DataTable-menge.
perform bdcfield using <indicator> DataTable-indicator.
endloop.
enddo.
Sample code
Following is a sample code of handling table control in BDC.
REPORT Y730_BDC5 .
*HANDLING TABLE CONTROL IN BDC
DATA : BEGIN OF IT_DUMMY OCCURS 0,
DUMMY(100) TYPE C,
END OF IT_DUMMY.
DATA : BEGIN OF IT_XK01 OCCURS 0,
LIFNR(10) TYPE C,
BUKRS(4) TYPE C,
EKORG(4) TYPE C,
KTOKK(4) TYPE C,
NAME1(30) TYPE C,
SORTL(10) TYPE C,
LAND1(3) TYPE C,
SPRAS(2) TYPE C,
AKONT(6) TYPE C,
FDGRV(2) TYPE C,
WAERS(3) TYPE C,
END OF IT_XK01,
BEGIN OF IT_BANK OCCURS 0,
BANKS(3) TYPE C,
BANKL(10) TYPE C,
BANKN(10) TYPE C,
KOINH(30) TYPE C,
LIFNR(10) TYPE C,
END OF IT_BANK.
DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
IT_BDCMSGCOLL LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = 'C:\VENDOR.TXT'
FILETYPE = 'ASC'
TABLES
DATA_TAB = IT_DUMMY.
LOOP AT IT_DUMMY.
IF IT_DUMMY-DUMMY+0(2) = '11'.
IT_XK01-LIFNR = IT_DUMMY-DUMMY+2(10).
IT_XK01-BUKRS = IT_DUMMY-DUMMY+12(4).
IT_XK01-EKORG = IT_DUMMY-DUMMY+16(4).
IT_XK01-KTOKK = IT_DUMMY-DUMMY+20(4).
IT_XK01-NAME1 = IT_DUMMY-DUMMY+24(30).
IT_XK01-SORTL = IT_DUMMY-DUMMY+54(10).
IT_XK01-LAND1 = IT_DUMMY-DUMMY+64(3).
IT_XK01-SPRAS = IT_DUMMY-DUMMY+67(2).
IT_XK01-AKONT = IT_DUMMY-DUMMY+69(6).
IT_XK01-FDGRV = IT_DUMMY-DUMMY+75(2).
IT_XK01-WAERS = IT_DUMMY-DUMMY+77(3).
APPEND IT_XK01.
ELSE.
IT_BANK-BANKS = IT_DUMMY-DUMMY+2(3).
IT_BANK-BANKL = IT_DUMMY-DUMMY+5(10).
IT_BANK-BANKN = IT_DUMMY-DUMMY+15(10).
IT_BANK-KOINH = IT_DUMMY-DUMMY+25(30).
IT_BANK-LIFNR = IT_DUMMY-DUMMY+55(10).
APPEND IT_BANK.
ENDIF.
ENDLOOP.
LOOP AT IT_XK01.
REFRESH IT_BDCDATA.
perform bdc_dynpro using 'SAPMF02K' '0100'.
perform bdc_field using 'BDC_CURSOR'
'RF02K-REF_LIFNR'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'RF02K-LIFNR'
IT_XK01-LIFNR.
perform bdc_field using 'RF02K-BUKRS'
IT_XK01-BUKRS.
perform bdc_field using 'RF02K-EKORG'
IT_XK01-EKORG.
perform bdc_field using 'RF02K-KTOKK'
IT_XK01-KTOKK.
perform bdc_dynpro using 'SAPMF02K' '0110'.
perform bdc_field using 'BDC_CURSOR'
'LFA1-TELX1'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'LFA1-NAME1'
IT_XK01-NAME1.
perform bdc_field using 'LFA1-SORTL'
IT_XK01-SORTL.
perform bdc_field using 'LFA1-LAND1'
IT_XK01-LAND1.
perform bdc_field using 'LFA1-SPRAS'
IT_XK01-SPRAS.
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-KOINH(02)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
DATA : FNAM(20) TYPE C,
IDX TYPE C.
MOVE 1 TO IDX.
LOOP AT IT_BANK WHERE LIFNR = IT_XK01-LIFNR.
CONCATENATE 'LFBK-BANKS(' IDX ')' INTO FNAM.
perform bdc_field using FNAM
IT_BANK-BANKS.
CONCATENATE 'LFBK-BANKL(' IDX ')' INTO FNAM.
perform bdc_field using FNAM
IT_BANK-BANKL.
CONCATENATE 'LFBK-BANKN(' IDX ')' INTO FNAM.
perform bdc_field using FNAM
IT_BANK-BANKN.
CONCATENATE 'LFBK-KOINH(' IDX ')' INTO FNAM.
perform bdc_field using FNAM
IT_BANK-KOINH.
IDX = IDX + 1.
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'
IT_XK01-AKONT.
perform bdc_field using 'LFB1-FDGRV'
IT_XK01-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'
IT_XK01-WAERS.
perform bdc_dynpro using 'SAPMF02K' '0320'.
perform bdc_field using 'BDC_CURSOR'
'WYT3-PARVW(01)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_dynpro using 'SAPLSPO1' '0300'.
perform bdc_field using 'BDC_OKCODE'
'=YES'.
CALL TRANSACTION 'XK01' USING IT_BDCDATA
MODE 'A'
UPDATE 'S'
MESSAGES INTO IT_BDCMSGCOLL.
ENDLOOP.
FORM BDC_DYNPRO USING PROG SCR.
CLEAR IT_BDCDATA.
IT_BDCDATA-PROGRAM = PROG.
IT_BDCDATA-DYNPRO = SCR.
IT_BDCDATA-DYNBEGIN = 'X'.
APPEND IT_BDCDATA.
ENDFORM.
FORM BDC_FIELD USING FNAM FVAL.
CLEAR IT_BDCDATA.
IT_BDCDATA-FNAM = FNAM.
IT_BDCDATA-FVAL = FVAL.
APPEND IT_BDCDATA.
ENDFORM.
Regards Kaushik Datta

Creation of po with mutiple line items using BDC

Hi Gurus,
 Can any body hav notes for creating po's using BDC with multiple line items in transaction ME21. I hav created po for single line item but if i tried to create multiple line items, it ll create multiple po's...
thanks in advance
arun

See the Below Logic for me22 and it is also same for me21
report zpochange.
data : i_error like bdcmsgcoll occurs 0 with header line.
data : i_bdcdata like bdcdata occurs 0 with header line.
tables : ekko, ekpo.
data :c1(10) value 'ME22',
 c2(1) value ',',c3(10).
data : var1(20). " LIKE EKKO-EBELN.
data : var2 like ekko-ebeln.
data : begin of i_ekko occurs 0,
 header(2),
 ebeln like ekko-ebeln,
 end of i_ekko.
data : begin of i_ekpo occurs 0,
item(2),
 ebeln like ekpo-ebeln,
 ebelp like ekpo-ebelp,
 menge(10), " LIKE EKPO-MENGE,
 end of i_ekpo.
data : v like ekpo-ebelp.
data: begin of itab occurs 0,
 text(300),
 end of itab.
parameters: p_file like ibipparms-path.
*PARAMETERS: PONUMBER LIKE EKPO-EBELN.
at selection-screen on value-request for p_file.
call function 'F4_FILENAME'
exporting
 program_name = syst-cprog
 dynpro_number = syst-dynnr
 FIELD_NAME = ' '
importing
 file_name = p_file
start-of-selection.
*SELECT EBELN FROM EKKO INTO TABLE I_EKKO WHERE EBELN = PONUMBER.
 SELECT EBELN EBELP MENGE FROM EKPO INTO TABLE I_EKPO WHERE EBELN
*= PONUMBER.
perform get_data.
*LOOP AT ITAB.
WRITE :/ ITAB.
ENDLOOP.
loop at itab.
var1 = itab-text+0(1).
if var1 = 'H'.
*I_EKKO-EBELN = ITAB-TEXT.
split itab at c2 into i_ekko-header
 i_ekko-ebeln.
SPLIT ITAB AT ',' INTO I_EKKO-EBELN.
 " I_EKPO-EBELP
 " I_EKPO-MENGE
 " var1.
append i_ekko.
else.
split itab at c2 into i_ekpo-item
 i_ekpo-ebeln
 i_ekpo-ebelp
 i_ekpo-menge.
append i_ekpo.
endif.
*var2 = i_ekpo-ebeln.
MOVE VAR1 TO I_EKPO-EBELN.
MOVE VAR1 TO I_EKKO-EBELN.
APPEND: I_EKPO.
*if not var1 is initial.
 split var1 at ',' into i_ekpo-ebelp
 i_ekpo-menge.
i_ekpo-ebeln = var2.
append i_ekpo.
*endif.
endloop.
loop at i_ekpo.
write :/ i_ekpo.
endloop.
loop at i_ekko.
perform fill_data. " TABLES I_EKPO.
endloop.
LOOP AT I_EKPO.
WRITE :/ I_EKPO.
ENDLOOP.
*& Form GET_DATA
 text
--> p1 text
<-- p2 text
*LOOP AT I_ERROR.
WRITE :/ I_ERROR.
ENDLOOP.
form get_data.
call function 'WS_UPLOAD'
exporting
 codepage = ' '
 filename = p_file
 filetype = 'ASC'
 headlen = ' '
 line_exit = ' '
 trunclen = ' '
 user_form = ' '
 user_prog = ' '
 dat_d_format = ' '
IMPORTING
FILELENGTH =
tables
 data_tab = itab
exceptions
 conversion_error = 1
 file_open_error = 2
 file_read_error = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 others = 10
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " GET_DATA
*& Form FILL_DATA
 text
 -->P_I_EKPO text
form fill_data. " tables i_ekpo .
perform bdcscreen using 'SAPMM06E' '0105'.
perform bdcfield using 'RM06E-BSTNR' i_ekko-ebeln.
perform bdcfield using 'BDC_OKCODE' '/00'.
loop at i_ekpo where ebeln = i_ekko-ebeln.
V = I_EKPO-EBELP.
perform bdcscreen using 'SAPMM06E' 0120.
perform bdcfield using 'BDC_CURSOR' 'RM06E-EBELP'.
perform bdcfield using 'RM06E-EBELP' i_ekpo-ebelp.
perform bdcfield using 'BDC_OKCODE' '/00'.
perform bdcscreen using 'SAPMM06E' 0120.
perform bdcfield using 'BDC_CURSOR' 'EKPO-MENGE(01)'.
perform bdcfield using 'RM06E-EBELP' i_ekpo-ebelp.
perform bdcfield using 'EKPO-MENGE(01)' i_ekpo-menge.
perform bdcfield using 'BDC_OKCODE' '/00'.
*PERFORM BDCSCREEN USING 'SAPMM06E' 0120.
*PERFORM BDCFIELD USING 'BDC_CURSOR' 'RMO6E-EBELP'.
*CLEAR V.
endloop.
perform bdcfield using 'BDC_OKCODE' '=BU'.
call transaction c1 using i_bdcdata mode 'A'
 messages into i_error.
refresh i_bdcdata.
endform. " FILL_DATA
*& Form BDCSCREEN
 text
 -->P_0140 text
 -->P_0120 text
form bdcscreen using p_program p_screen.
i_bdcdata-program = p_program.
i_bdcdata-dynpro = p_screen.
i_bdcdata-dynbegin = 'X'.
append i_bdcdata.
clear i_bdcdata.
endform. " BDCSCREEN
*& Form BDCFIELD
 text
 -->P_0145 text
 -->P_I_EKPO_EBELN text
form bdcfield using fnam fval.
i_bdcdata-fnam = fnam.
i_bdcdata-fval = fval.
append i_bdcdata.
clear i_bdcdata.
endform. " BDCFIELD
Reward Points if it is helpful
Thanks
Seshu

More than 1 line items in bdc using table controls for BOM

Hi....
how do u update more than one line item for BOM using BDC table control.......
is there any specific command for doing that.......
hav tried d following code bt it takes the flatfile i/p FOR 2 LINE ITEMS as 2 different BOM'S.....
would appreciate ur help....plz provide code.............
REPORT zbdc4_cs01
       NO STANDARD PAGE HEADING LINE-SIZE 255.
INCLUDE bdcrecx1.
DATA : a TYPE i,
       b type i,
       c type i.
DATA : BEGIN OF it_rec OCCURS 0,
       rec(200) TYPE c,
       END OF it_rec.
DATA : BEGIN OF ctab OCCURS 0,
       matnr(18),
       werks(4),
       stlan(1),
       END OF ctab.
DATA : BEGIN OF xtab OCCURS 0,
       idnrk(18),
       menge(13),
       postp(1),
       END OF xtab.
DATA : BEGIN OF itab OCCURS 0,
       matnr(18),
       werks(4),
       stlan(1),
       idnrk(18),
       menge(13),
       postp(1),
       END OF itab.
START-OF-SELECTION.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename            = 'C:/TEST4.TXT'
      filetype            = 'ASC'
      has_field_separator = 'X'
    TABLES
      data_tab            = it_rec.
LOOP AT it_rec.
    a = strlen( it_rec-rec ).
    if a = 55.
    itab-matnr = it_rec-rec+0(18).
    itab-werks = it_rec-rec+18(4).
    itab-stlan = it_rec-rec+22(1).
    itab-idnrk = it_rec-rec+23(18).
    itab-menge = it_rec-rec+41(13).
    itab-postp = it_rec-rec+54(1).
    APPEND itab.
    elseif a > 55.
    itab-matnr = it_rec-rec+0(18).
    itab-werks = it_rec-rec+18(4).
    itab-stlan = it_rec-rec+22(1).
    itab-idnrk = it_rec-rec+23(18).
    itab-menge = it_rec-rec+41(13).
    itab-postp = it_rec-rec+54(1).
    APPEND itab.
    itab-idnrk = it_rec-rec+55(18).
    itab-menge = it_rec-rec+73(13).
    itab-postp = it_rec-rec+86(1).
    APPEND itab.
    endif.
ENDLOOP.
PERFORM open_group.
LOOP AT itab.
    PERFORM bdc_dynpro      USING 'SAPLCSDI' '0100'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RC29N-STLAN'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'RC29N-MATNR'
                                   itab-matnr.           "'3000000107'.
    PERFORM bdc_field       USING 'RC29N-WERKS'
                                   itab-werks.              "'UN02'.
    PERFORM bdc_field       USING 'RC29N-STLAN'
                                   itab-stlan.              "'1'.
    PERFORM bdc_field       USING 'RC29N-STLAL'
    PERFORM bdc_field       USING 'RC29N-DATUV'
                                  '11.08.2008'.
    PERFORM bdc_dynpro      USING 'SAPLCSDI' '0110'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'RC29K-BMENG'
                                  '1'.
    PERFORM bdc_field       USING 'RC29K-STLST'
                                  '1'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RC29K-EXSTL'.
    PERFORM bdc_dynpro      USING 'SAPLCSDI' '0111'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RC29K-LABOR'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_dynpro      USING 'SAPLCSDI' '0140'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RC29P-POSTP(01)'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'RC29P-IDNRK(01)'
                                   itab-idnrk.             "'1000000232'.
    PERFORM bdc_field       USING 'RC29P-MENGE(01)'
                                   itab-menge.              "'100'.
    PERFORM bdc_field       USING 'RC29P-POSTP(01)'
                                   itab-postp.             "'L'.
    PERFORM bdc_dynpro      USING 'SAPLCSDI' '0130'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RC29P-POSNR'.
    PERFORM bdc_field       USING 'RC29P-POSNR'
                                  '0010'.
    PERFORM bdc_field       USING 'RC29P-IDNRK'
                                  '1000000232'.
    PERFORM bdc_field       USING 'RC29P-MENGE'
                                  '100'.
    PERFORM bdc_field       USING 'RC29P-MEINS'
                                  'KG'.
    PERFORM bdc_dynpro      USING 'SAPLCSDI' '0131'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RC29P-POTX1'.
    PERFORM bdc_field       USING 'RC29P-SANKA'
                                  'X'.
    PERFORM bdc_dynpro      USING 'SAPLCSDI' '0140'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RC29P-POSNR(01)'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_dynpro      USING 'SAPLCSDI' '0140'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RC29P-POSNR(01)'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=FCBU'.
    PERFORM bdc_transaction USING 'CS01'.
ENDLOOP.
PERFORM close_group.

Hi
Check this sample code for the Table Control in BDC:
data: fnam(20) type c.
move 1 to id.
    loop at TI_STAGING WHERE VENDOR = IT_STAGING-VENDOR AND DOCDATE = IT_STAGING-DOCDATE.
      concatenate 'RM06E-EPSTP(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-itmcategory.
      concatenate 'EKPO-KNTTP(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-accassignment.
      concatenate 'EKPO-EMATN(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-material.
      concatenate 'EKPO-TXZ01(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-shortxt.
      quan = ti_staging-poqty.
      concatenate 'EKPO-MENGE(0' id ')' into fnam.
      perform bdc_field       using fnam quan.
      concatenate 'RM06E-EEIND(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-deliverydate.
      netpr = ti_staging-netpr.
      concatenate 'EKPO-NETPR(0' id ')' into fnam.
      perform bdc_field       using fnam netpr.
      concatenate 'EKPO-MATKL(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-mategroup.
      concatenate 'EKPO-WERKS(0' id ')' into fnam.
      perform bdc_field       using fnam TI_STAGING-plant.
      ID = ID + 1.
    ENDLOOP.
Regards,
Vishwa.

Po line items in bdc

requirment: to load a file filed with ean no and populate line item of me23n with the respective eans number and their quan and it shuld populate the line items and not save them so user can check a few things and then save it manually while creating the sto (return). iam running a bdc in error mode so that it popultes the sto line item s wtih matnr and quantity and stop at the po screen so it can be saved manually.
but iam unable to populate all the line item. they only populate till number 13 how can i populate further on . i even tried recording a page down.
any ideas?

Hi,
The number of displayed items depends on the screen resolution.
In fact a solution consist in filling the field "position" (RM06E-EBELP) at the bottom of the screen for each item.
* Code to position on the right line :
PERFORM FIELD_BDC TABLES WT_BDCDATA USING
'RM06E-EBELP' WT_POSITION .
PERFORM FIELD_BDC TABLES WT_BDCDATA USING
'BDC_OKCODE' '/00' '0'.
Hope it helps,
Ps : ME22 for BDC, not ME22N.
Erwan.
Message was edited by: Erwan LE BRUN

Standard text entry for Service line items using BDC

Hi,
I want to enter standard texts for service line items of RFQ created using BDC, if it is a line item i can pass RFQ_number+line_item number as TDNAME in SAVE_TEXT function module, but for Service line item what value we need to pass in TDNAME.
Is there anyway we can capture the package number in BDC of ME41?
Regards
Bala Krishna

.

LSMW- line items thru bdc recording

I m creating a lsmw thru bdc recodring for me21.
the prob is ...how to upload the line items ? if i do in general it will only upload one line item for order....help me in solving this.

Hi
When you do the recording in LSMW then if the options for multiple line items are available in ME21 then you can do the same with the LSMW recording also.
All you have to do is map the line items fields of the SAP structure to the line items of your upload source structure.
The Source Structure has to be defined as HEADER structure and the LINE item strucuture at the next level.
Then in the HEADER structure in the Source Field steps ,Name the first field as Record Identiifer and for the properties of the field give the value for Identifying Field Content as 'HEADER'.
Similarily for the LINE structure in the Source Field steps ,Name the first field as Record Identiifer and for the properties of the field give the value for Identifying Field Content as 'LINE'.
This would allow you to identify the HEADER and LINE for the files to be uploaded.
Please check this link also
Conversion - Doc with multiple line items - LSMW
Hope this is clear and is helpful.

Regarding line item in bdc

Hi,
     I tried bdc for transaction mfbf.
     After entering all values and entering into post   with correction the line item exists.
     Here using counter in bdc the batches are entered.
      say,
           (01),
           (02),
           (15).
     But after pressing page down.
     The line item changes to (02). and values are get
     stored in (02) of first page.
    Here i am facing some difficulty.
   Is there any possibility to rectify these.
   If there please send me...

Hello Shiba,
Try to do the recording again, but if you need to insert a new record in the table click the botton to add a new row, it will be always adding the data in the firts row, and the others will scrool down automatacally,
Hope this helps,
Gabriel. P

How to handle line item for posting a document

Hello,
I am using a function module to post a document, so far I have hard coded all the values in the test program. I am passing two internal tables to the function module, one which has header data and the other which has line item data. So far I have written the following code to get the line item details:
it_bseg-BUKRS = '001'.
it_bseg-GJAHR = u20182010u2019.
it_bseg-BUZEI = '001'.
it_bseg-BSCHL = '31'.
it_bseg-WRBTR = '900'.
it_bseg-PSWSl = 'USD'.
it_bseg-SAKNR = u20180000123456u2019.
it_bseg-HKONT = u20180000123456u2019.
it_bseg-LIFNR = u2018001234567u2019.
append it_bseg to lt_temp_bseg.
clear it_bseg.
it_bseg-BUKRS = '001'.
it_bseg-GJAHR = '2010'.
it_bseg-BUZEI = '002'.
it_bseg-BSCHL = '40'.
it_bseg-WRBTR = '900''.
it_bseg-PSWSL = 'USD'.
it_bseg-KOSTL = '1111871234'.
it_bseg-XKRES = 'X'.
it_bseg-HKONT = '0000564738'.
it_bseg-FISTL = '1234556000'.
it_bseg-GEBER = '0000001'.
it_bseg-fkber = '0'.
append it_bseg to lt_temp_bseg.
clear it_bseg.
Now I want to get rid of the way I am handling the line item and want to handle it based on what user enters. For example right now only line item is being considered but if user enters two line items then what should be the approach.
Thank you,
Rajeev Gupta

Any Suggestion.

999 Line items for bdc f-02

Hi experts,
I have one validation its like suppose if u have 999 line items then that record should b closed and the both +ve, -ve values should be equal to 0 n new record should start again.
if any body can help me in this regard then i will b thankful to them.
Regards
Bohra

Because there may be automatic entries created, you shouldn't go to 999 entries. It should be OK to use 950.
Let's say you have 1100 entries. the first 950 total 10,000 credit. You create the first transaction with 950 entries and then an entry to a control account for 10,000 debit. Then another transaction with the remaining 150 entries and an entry to the same control account for 10,000 credit.
Rob

Handle Line item in LSMW

I have to create BDC for MB1C.
for specific plant, storage location , movement type, I have 4 material details. How should I record and program this using LSMW (not with SHDB).
Sayantan

Hai Das
Go to Tcode "LSMW"
give Project Name
 Subproject Name
 object Name
Press Enter -
Press Execute Button
It gives 20 radio-Button Options
do the following 15 steps as follows
1) select radio-Button 1 and execute
 Maintain Object Attributes
select the Radio Button : Batch Input Recording
then go to the main menu and click on GOTO Tab there you will click
Recordings Overview
Select the recordings and click on Create Button(Press F5)
you just pass Recording Name : ZMB1C
and give Description for the Recording : XXXXXXXXXXXXXX
press enter
give Transaction Code is : MB1C
here the system will take you at SHDB Tcode
here you will record your fields and save the Tcode
then you will come back
you will give the Recording Name as ZMB1C and save and come back
you will proceed for the next 14 steps
Regards
Sreeni

Error Handling in table control for line item.

Hi,
Please how to do error handling in table control for line item in bdc,i have used format_message for header but i don't no fill decamps internal tabled and how to do background processing in call transaction.
Thanks

Background processing is not possible using call transaction method.
You can create an executable program which can have CALL TRANSACTION BDC code. And this can be run in background.
What do you exactly mean by Error handling for Items in table control. Can you give some more details.

ME21n Multiple line items

Hi all,
I wana pass multiple line items thru bdc me21n....can any1 please help me .if u guys have some code can mail me at [email protected] will be rewarded.
my code below is not working for passing multiple items.
report y1_po_test
 no standard page heading line-size 255.
tables: mara,
 lfa1,
 eina,
 eine,
 eban,
 zdrgsah, zdrgsap,
 zdrgsup,
 t100,
 ekko,
 a004, zprice_grpsal, mvke.
*Internal Table to get the input Data
data: begin of i_input occurs 0,
 matnr like ekpo-matnr,
 asqty like ekpo-menge,
 ebeln like ekpo-ebeln,
 posnr(5),
 posnr like zdrgsap-posnr,
 invno like zdrgsap-invno,
 invdt like zdrgsah-invdt,
 netpr like zdrgsap-netpr,
 cntno like zdrgsap-cntno,
 shcnm like zdrgsah-shcnm,
 apcno like zdrgsap-apcno,
 spcno like zdrgsap-spcno,
 werks like ekpo-werks,
 lgort like ekpo-lgort,
 matkl like ekpo-matkl,
 pack(10),
 mvgr2 like mvke-mvgr2,
 dpric type p decimals 6 ,
 gpric type p decimals 6,
 end of i_input.
data: begin of i_inputxt occurs 0,
 matnr(18) ,
 asqty(13) ,
 ebeln(10) ,
 posnr(6) ,
 invno(10) ,
 invdt(8) ,
 netpr(11) ,
 cntno(11) ,
 shcnm(10) ,
 werks(4) ,
 lgort(4) ,
 matkl(9) ,
 pack(10),
 end of i_inputxt.
data: begin of i_error occurs 0,
 prnum like eban-banfn,
 pritm like eban-bnfpo,
 inmat like mara-matnr,
 prmat like mara-matnr,
 asqty like zdrgsap-asqty,
 prqty like eban-menge,
 remak(100),
 remark(255) type c,
 end of i_error.
data : begin of i_error1 occurs 0,
 prnum like eban-banfn,
 pritm like eban-bnfpo,
 asqty like zdrgsap-asqty,
 prqty like eban-menge,
 remak(100),
 end of i_error1.
data : begin of i_zsap occurs 0,
 ebeln like zdrgsap-ebeln,
 posnr(5),
 menge like zdrgsap-menge,
 asqty like zdrgsap-asqty,
 end of i_zsap.
data : v_ebeln like eket-ebeln.
data : begin of i_a004 occurs 0,
 matnr like a004-matnr,
 knumh like a004-knumh,
 kbetr like konp-kbetr,
 end of i_a004,
 i_a0041 like i_a004 occurs 0 with header line.
data : begin of i_konp occurs 0,
 knumh like konp-knumh,
 kbetr like konp-kbetr,
 konwa like konp-konwa,
 end of i_konp.
data : begin of i_konp1 occurs 0,
 knumh like konp-knumh,
 kbetr like konp-kbetr,
 konwa like konp-konwa,
 end of i_konp1.
data : begin of i_netpr occurs 0,
 ebeln like eket-ebeln,
 ebelp like eket-ebelp,
 matnr like ekpo-matnr,
 menge like ekpo-menge,
 netpr like ekpo-netpr,
 kbetr like konp-kbetr,
 end of i_netpr.
data : begin of i_grpsal occurs 0,
 pcode like zprice_grpsal-pcode,
 fact like zprice_grpsal-fact,
 wfact like zprice_grpsal-wfact,
 end of i_grpsal.
data : begin of i_domsal occurs 0,
 pcode like zprice_grpsal-pcode,
 fact like zprice_grpsal-fact,
 wfact like zprice_grpsal-wfact,
 end of i_domsal.
data : begin of i_zsap1 occurs 0,
 ebeln like zdrgsap-ebeln,
 posnr(5),
 asqty like zdrgsap-asqty,
 end of i_zsap1.
data: begin of bdcdata occurs 0.
 include structure bdcdata. " Batch input: New table field
data: end of bdcdata.
 messages of call transaction
data: messtab like bdcmsgcoll occurs 0 with header line.
data: i_mara type mara occurs 0 with header line,
 i_eina like eina occurs 0 with header line,
 i_eine like eine occurs 0 with header line.
data : begin of i_inferr occurs 0,
 matnr like eina-matnr,
 infnr like eina-infnr,
 werks like eine-werks,
 end of i_inferr.
data : begin of i_inferrc occurs 0,
 matnr like eina-matnr,
 end of i_inferrc.
*Data declaration.
data: v_file type string, " Variable for uploading file
 v_item(5) type c, " Line item number
 v_itno(2) type n,
 p_wkurs like zdrgkurs-wkurs,
 v_matnr(20) type c,
 v_menge(20) type c,
 v_banfn(20) type c,
 v_bnfpo(20) type c,
 v_bednr(20) type c,
 v_werks(20),
 p_lifnr(10) ,
 v_flag,
 p_lifnrtxt(10),
 p_wkurstxt(9),
 p_bsartxt(4),
 v_posnr(5), n type i,
 v_quant(13),
 v_asqty(13),
 v_prqty(13),
 v_apcno(6),
 v_spcno(4),
 v_itm(11),
 v_cnt type i,
 v_cntno(4),
 v_pack(10),
 v_order(15),
 v_lifnr(10),
 v_invdt like sy-datum,
 v_waers like ekko-waers,
 v_podat like ekko-bedat,
 v_docdt1 like sy-datum,
 v_docdt(10),
 v_fnam(132).
data : begin of i_test occurs 0,
 bnfpo like eban-bnfpo,
 matnr like eban-matnr,
 menge like eban-menge,
 bsmng like eban-bsmng,
 end of i_test.
data : begin of i_mvke occurs 0,
 matnr like mvke-matnr,
 mvgr2 like mvke-mvgr2,
 end of i_mvke.
data : begin of i_invno,
 ebeln like ekko-ebeln,
 angnr like ekko-angnr,
 end of i_invno.
data : i_final like zinvdiff occurs 0 with header line.
Constants
constants : c_pd01 like eine-werks value 'PD01'.
*Selection Screen Declarations
selection-screen begin of block b1 with frame title text-010.
parameters: p_invno like zdrgsah-invno obligatory,
 p_bsart like ekko-bsart obligatory.
selection-screen end of block b1.
start-of-selection.
To Upload the data into Internal table.
perform f_upload_data.
To Validate the input data.
perform f_check_data.
if i_error[] is not initial or i_error1[] is not initial.
To display the error message
 perform f_display_errors.
else.
To create PO
perform f_process_session.
endif.
perform f_check_calc_price.
perform f_display_data.
perform f_update_zinvdiff.
*& Form f_get_filename
 text
form f_get_filename.
endform. " F_get_filename
*& Form f_upload_data
form f_upload_data .
select matwa as matnr asqty ebeln posnr b~invno invdt netpr cntno
 shcnm apcno spcno into table i_input
 from zdrgsah as a join zdrgsap as b on
 a~invno = b~invno
 where b~invno eq p_invno.
select ebeln
 posnr
 menge
 asqty
 from zdrgsap into table i_zsap
 where invno = p_invno.
loop at i_zsap.
 concatenate i_zsap-posnr(4) '0' into v_posnr.
 i_zsap1-ebeln = i_zsap-ebeln.
 i_zsap1-posnr = v_posnr.
 i_zsap1-asqty = i_zsap-asqty.
 collect i_zsap1.
 clear i_zsap1.
endloop.
delete adjacent duplicates from i_zsap comparing posnr menge .
delete adjacent duplicates from i_input comparing ebeln posnr.
loop at i_input.
 p_werks = i_input-werks.
 v_invdt = i_input-invdt.
 call function 'CONVERT_DATE_FORMAT'
 exporting
 i_date = v_invdt
 importing
 e_calc_date = v_invdt.
 if i_input-apcno is initial.
 v_apcno = '0000'.
 else.
 v_apcno = i_input-apcno.
 endif.
 if i_input-spcno is initial.
 v_spcno = '0000'.
 else.
 v_spcno = i_input-spcno.
 endif.
 if i_input-cntno is initial.
 i_input-cntno = '0000'.
 endif.
 concatenate v_apcno v_spcno into i_input-pack.
 concatenate v_pack v_cntno into v_order separated by '-'.
 i_input-order = v_order.
 clear : v_itm, v_cnt, v_cntno, v_pack, v_apcno, v_spcno, v_order.
 concatenate i_input-posnr(4) '0' into v_posnr.
 select single lifnr into p_lifnr from zdrgsup
 where shcnm = i_input-shcnm.
 v_lifnr = p_lifnr.
 if sy-subrc <> 0.
 message e000(zcnc) with text-002.
 endif.
 select single * from eban
 where banfn eq i_input-ebeln
 and bnfpo eq v_posnr.
 if sy-subrc eq 0.
 move eban-werks to i_input-werks.
 move eban-lgort to i_input-lgort.
 move eban-matkl to i_input-matkl.
 move eban-bnfpo to i_test-bnfpo.
 move eban-matnr to i_test-matnr.
 move eban-menge to i_test-menge.
 move eban-bsmng to i_test-bsmng.
 modify i_input.
 if not i_input-matnr eq i_test-matnr.
 move i_input-ebeln to i_error-prnum.
 move v_posnr to i_error-pritm.
 move i_input-matnr to i_error-inmat.
 move eban-matnr to i_error-prmat.
 i_error-remak = 'Material does not match'.
 append i_error.
 clear i_error.
 endif.
 v_quant = i_test-menge - i_test-bsmng.
 read table i_zsap1 with key ebeln = i_input-ebeln posnr = v_posnr.
 if not i_zsap1-asqty <= v_quant.
 move i_input-ebeln to i_error1-prnum.
 move i_zsap1-posnr to i_error1-pritm.
 move i_zsap1-asqty to i_error1-asqty.
 move eban-menge to i_error1-prqty.
 move v_quant to i_error1-prqty.
 i_error1-remak = 'Material Quantity does not match'.
 append i_error1.
 clear i_error1.
 endif.
 select single matnr infnr from eina
 into corresponding fields of i_eina
 where matnr eq i_input-matnr
 and lifnr eq p_lifnr.
 if sy-subrc = 0.
 append i_eina.
 check not i_eina[] is initial.
 select single * from eine
 into i_eine
 where infnr eq i_eina-infnr
 and werks eq eban-werks.
 if sy-subrc <> 0.
 move i_input-matnr to i_inferr-matnr.
 move i_eina-infnr to i_inferr-infnr.
 move eban-werks to i_inferr-werks.
 append i_inferr.
 clear i_inferr.
 endif.
 else.
 move i_input-matnr to i_inferrc-matnr.
 append i_inferrc.
 clear i_inferrc.
 endif.
 clear : i_eina, i_eine.
 clear : i_zsap, i_zsap1, i_input, v_posnr,
 v_quant, i_test.
 endif.
endloop.
delete adjacent duplicates from i_error1 comparing prnum pritm.
perform chk_info_rec.
endform. " f_upload_data
*& Form f_check_data
form f_check_data .
if not i_input[] is initial.
 select * from mara
 into table i_mara
 for all entries in i_input
 where matnr eq i_input-matnr.
endif.
loop at i_mara.
 read table i_input with key matnr = i_mara-matnr.
 if sy-subrc <> 0.
 write : 'Following Part Numbers are not found in MARA'.
 write : / i_input-matnr.
 endif.
endloop.
if i_mara[] is initial.
 loop at i_input.
 format color col_heading intensified off.
 write : 'Following Part Numbers are not found in MARA'.
 format color col_normal intensified off.
 write : / i_input-matnr.
 endloop.
endif.
select single wkurs into p_wkurs from zdrgkurs
 where invno = p_invno.
if sy-subrc ne 0.
 message e000(zcnc) with text-s11.
endif.
call function 'CONVERSION_EXIT_ALPHA_OUTPUT'
 exporting
 input = p_lifnr
 importing
 output = p_lifnr.
p_lifnrtxt = p_lifnr.
p_wkurstxt = p_wkurs.
p_bsartxt = p_bsart.
loop at i_input.
 move-corresponding i_input to i_inputxt.
 append i_inputxt.
endloop.
select single ebeln
 angnr from ekko
 into i_invno
 where angnr = p_invno.
if sy-subrc = 0.
 perform display_err.
endif.
endform. " f_check_data
*& Form f_process_session
 text
form f_process_session.
v_docdt1 = sy-datum.
write v_docdt1 to v_docdt using edit mask '__.__.____'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '=MEDOCTYPE'.
perform bdc_field using 'BDC_CURSOR'
 'MEPO_TOPLINE-BSART'.
perform bdc_field using 'MEPO_TOPLINE-BSART'
 p_bsartxt.
perform bdc_field using 'DYN_6000-LIST'
 ' 1'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_field using 'MEPO_TOPLINE-SUPERFIELD'
 p_lifnrtxt.
perform bdc_field using 'BDC_CURSOR'
 'MEPO1222-BUKRS'.
perform bdc_field using 'MEPO1222-EKORG'
 'SBAP'.
perform bdc_field using 'MEPO1222-EKGRP'
 'PG1'.
perform bdc_field using 'MEPO1222-BUKRS'
 'SBA'.
perform bdc_field using 'DYN_6000-LIST'
 ' 1'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '=TABHDT2'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_field using 'MEPO_TOPLINE-BSART'
 p_bsartxt.
perform bdc_field using 'MEPO_TOPLINE-SUPERFIELD'
 p_lifnrtxt.
********************conditions***************************************
perform bdc_field using 'BDC_CURSOR'
 'KOMV-KSCHL(08)'.
perform bdc_field using 'KOMV-KSCHL(07)'
 'zot1'.
perform bdc_field using 'KOMV-KSCHL(08)'
 'zinc'.
perform bdc_field using 'KOMV-KSCHL(09)'
 'ziv1'.
perform bdc_field using 'DYN_6000-LIST'
 ' 1'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '=V69A_KOAN'.
perform bdc_field using 'BDC_CURSOR'
 'KOMV-KSCHL(01)'.
perform bdc_field using 'DYN_6000-LIST'
 ' 1'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_field using 'KOMV-KSCHL(02)'
 'zca1'.
perform bdc_field using 'KOMV-KSCHL(03)'
 'zfa1'.
perform bdc_field using 'DYN_6000-LIST'
 ' 1'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '=TABHDT7'.
perform bdc_field using 'BDC_CURSOR'
 'KOMV-KSCHL(09)'.
perform bdc_field using 'DYN_6000-LIST'
 ' 1'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_field using 'BDC_CURSOR'
 'MEPO1229-IHRAN'.
perform bdc_field using 'MEPO1229-ANGNR'
 p_invno.
perform bdc_field using 'MEPO1229-IHRAN'
 v_invdt.
perform bdc_field using 'DYN_6000-LIST'
 ' 1'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '=MEV4001BUTTON'.
perform bdc_field using 'BDC_CURSOR'
 'MEPO1229-IHRAN'.
perform bdc_field using 'DYN_6000-LIST'
 ' 1'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '=MEV4000BUTTON'.
perform bdc_field using 'BDC_CURSOR'
 'MEPO1229-IHRAN'.
perform bdc_field using 'DYN_6000-LIST'
 ' 1'.
loop at i_inputxt.
 concatenate i_inputxt-posnr(4) '0' into v_posnr.
 concatenate 'MEPO1211-EMATN(' v_itno ')' into v_matnr.
 concatenate 'MEPO1211-MENGE(' v_itno ')' into v_menge.
 concatenate 'MEPO1211-BANFN(' v_itno ')' into v_banfn.
 concatenate 'MEPO1211-BNFPO(' v_itno ')' into v_bnfpo.
 concatenate 'MEPO1211-BEDNR(' v_itno ')' into v_bednr.
 concatenate 'MEPO1211-WERKS(' v_itno ')' into v_werks.
 v_item = v_item + 10.
 endif.
 v_itno = v_itno + 1.
 perform bdc_dynpro using 'SAPLMEGUI' '0014'.
 perform bdc_field using 'BDC_OKCODE'
 '/00'.
 perform bdc_field using 'BDC_CURSOR'
 v_matnr.
 perform bdc_field using v_matnr "'MEPO1211-EMATN(01)'
 i_inputxt-matnr.
 perform bdc_field using v_menge "'MEPO1211-MENGE(01)'
 i_inputxt-asqty.
 perform bdc_field using v_banfn "'MEPO1211-BANFN(01)'
 i_inputxt-ebeln.
 perform bdc_field using v_bnfpo "'MEPO1211-BNFPO(01)'
 i_inputxt-posnr.
 perform bdc_field using 'DYN_6000-LIST'
 v_itno.
loop at i_inputxt .
 v_itno = sy-tabix.
 clear v_fnam.
 concatenate 'MEPO1211-EMATN(' v_itno ')' into v_fnam.
 perform bdc_field using v_fnam
 i_inputxt-matnr.
 clear v_fnam.
 concatenate 'MEPO1211-MENGE(' v_itno ')' into v_fnam.
 perform bdc_field using v_fnam
 i_inputxt-asqty.
 clear v_fnam.
 concatenate 'MEPO1211-BANFN(' v_itno ')' into v_fnam.
 perform bdc_field using v_fnam
 i_inputxt-ebeln.
 clear v_fnam.
 concatenate 'MEPO1211-BNFPO(' v_itno ')' into v_fnam.
 perform bdc_field using v_fnam
 i_inputxt-posnr.
 perform bdc_dynpro using 'SAPLMEGUI' '0014'.
 perform bdc_field using 'BDC_OKCODE'
 '/00'.
endloop.
loop at i_inputxt from 6.
 v_itno = sy-tabix.
 clear v_fnam.
 concatenate 'MEPO1211-EMATN(' v_itno ')' into v_fnam.
 perform bdc_field using v_fnam
 i_inputxt-matnr.
 clear v_fnam.
 concatenate 'MEPO1211-MENGE(' v_itno ')' into v_fnam.
 perform bdc_field using v_fnam
 i_inputxt-asqty.
 clear v_fnam.
 concatenate 'MEPO1211-BANFN(' v_itno ')' into v_fnam.
 perform bdc_field using v_fnam
 i_inputxt-ebeln.
 clear v_fnam.
 concatenate 'MEPO1211-BNFPO(' v_itno ')' into v_fnam.
 perform bdc_field using v_fnam
 i_inputxt-posnr.
 perform bdc_dynpro using 'SAPLMEGUI' '0014'.
 perform bdc_field using 'BDC_OKCODE'
 '/00'.
endloop.
perform bdc_field using 'BDC_CURSOR'
 'MEPO1320-SLFDT(01)'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '=TABHDT2'.
perform bdc_field using 'DYN_6000-LIST'
 ' 2'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '=V69A_KOAK'.
perform bdc_field using 'BDC_CURSOR'
 'KOMV-KBETR(05)'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '=MECHECKDOC'.
perform bdc_field using 'BDC_CURSOR'
 'KOMV-KSCHL(01)'.
perform bdc_dynpro using 'SAPMSSY0' '0120'.
perform bdc_field using 'BDC_CURSOR'
 '04/03'.
perform bdc_field using 'BDC_OKCODE'
 '=&ONT'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '=MEV4000BUTTON'.
perform bdc_field using 'BDC_CURSOR'
 'MEPO_TOPLINE-BSART'.
perform bdc_field using 'DYN_6000-LIST'
 ' 2'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_field using 'BDC_CURSOR'
 'KOMV-KBETR(08)'.
perform bdc_field using 'KOMV-KBETR(03)'
 ' .54'.
perform bdc_field using 'KOMV-KBETR(08)'
 ' .54'.
perform bdc_dynpro using 'SAPLMEGUI' '0014'.
perform bdc_field using 'BDC_OKCODE'
 '=MESAVE'.
perform bdc_field using 'BDC_CURSOR'
 'MEPO1211-NETPR(01)'.
perform bdc_transaction using 'ME21N'.
endform. "f_process_session
*& Form bdc_transaction
 text
 -->P_0464 text
form bdc_transaction using tcode.
data: l_mstring(480).
data: l_subrc like sy-subrc.
data: v_mode type c.
v_mode = 'A'.
refresh messtab.
call transaction tcode using bdcdata
 mode v_mode
 update 'S'
 messages into messtab.
l_subrc = sy-subrc.
 WRITE: / 'CALL_TRANSACTION',
 TCODE,
 'returncode:'(I05),
 L_SUBRC,
 'RECORD:',
 SY-INDEX.
loop at messtab.
 select single * from t100 where sprsl = messtab-msgspra
 and arbgb = messtab-msgid
 and msgnr = messtab-msgnr.
 if sy-subrc = 0.
 l_mstring = t100-text.
 if l_mstring cs '&1'.
 replace '&1' with messtab-msgv1 into l_mstring.
 replace '&2' with messtab-msgv2 into l_mstring.
 replace '&3' with messtab-msgv3 into l_mstring.
 replace '&4' with messtab-msgv4 into l_mstring.
 else.
 replace '&' with messtab-msgv1 into l_mstring.
 replace '&' with messtab-msgv2 into l_mstring.
 replace '&' with messtab-msgv3 into l_mstring.
 replace '&' with messtab-msgv4 into l_mstring.
 endif.
 condense l_mstring.
 if messtab-msgtyp eq 'E' or messtab-msgtyp eq 'W'.
 write: / messtab-msgtyp, l_mstring(250).
 endif.
 search l_mstring for 'SEA'.
 if sy-subrc = 0.
 write: / messtab-msgtyp, l_mstring(250).
 endif.
 else.
 write: / messtab.
 endif.
endloop.
endform. " bdc_transaction
 Start new screen *
form bdc_dynpro using program dynpro.
clear bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
append bdcdata.
endform. "BDC_DYNPRO
 Insert field *
form bdc_field using fnam fval.
if fval <> space.
 clear bdcdata.
 bdcdata-fnam = fnam.
 bdcdata-fval = fval.
 append bdcdata.
endif.
endform. "BDC_FIELD
*& Form f_display_errors
form f_display_errors .
if i_error[] is not initial.
 format color col_heading intensified off.
 uline .
 write :/ 'PR No ',
 (10) 'Item No',
 (20) 'PR Part No',
 (30) 'Invoiced Part No',
 (60) 'Remark'.
 uline .
 loop at i_error.
 perform f_display_color.
 write :/ i_error-prnum,
 (10) i_error-pritm ,
 (20) i_error-prmat,
 (30) i_error-inmat,
 (60) i_error-remak.
 clear i_error.
 endloop.
endif.
if i_error1[] is not initial.
 format color col_heading intensified off.
 uline .
 write :/ 'PR No ',
 (10) 'Item No',
 (20) 'PR Quantity',
 (30) 'Invoiced Quantity',
 (60) 'Remark'.
 uline .
 loop at i_error1.
 perform f_display_color.
 if not i_error1-asqty is initial.
 v_asqty = i_error1-asqty .
 v_prqty = i_error1-prqty.
 write :/ i_error1-prnum,
 (10) i_error1-pritm ,
 (20) v_prqty,
 (30) v_asqty,
 (60) i_error1-remak.
 clear : v_asqty, v_prqty.
 endif.
 clear i_error1.
 endloop.
endif.
endform. " f_display_errors
*& Form f_display_color
form f_display_color .
if v_flag = 0.
 format color col_normal intensified on.
 v_flag = 1.
elseif v_flag = 1.
 format color col_normal intensified off.
 v_flag = 0.
endif.
endform. " f_display_color
*& Form display_err
 text
--> p1 text
<-- p2 text
form display_err .
format color col_heading intensified off.
write (120) text-006.
uline .
write : 'PR No ',
 (15) 'Invoice No',
 (30) 'Remark'.
uline.
format color col_negative intensified off.
write :/ i_invno-ebeln,
 (15) p_invno ,
 (30) 'Invoice Already Exists'.
endform. " display_err
*& Form f_check_calc_price
 text
--> p1 text
<-- p2 text
form f_check_calc_price .
data : d_pric type p decimals 6 ,
 g_pric type p decimals 6,
 v_exch type p decimals 4 value '0.1049'.
select single ebeln
 waers
 bedat
 from ekko into (v_ebeln , v_waers , v_podat)
 where angnr eq p_invno.
loop at i_input.
 concatenate i_input-posnr(4) '0' into v_posnr.
 select single p~ebeln
 p~ebelp
 matnr
 p~menge
 netpr
 into i_netpr
 from eket as t inner join ekpo as p
 on t~ebeln eq p~ebeln
 and t~ebelp eq p~ebelp
 where t~ebeln eq v_ebeln
 and t~banfn eq i_input-ebeln
 and t~bnfpo eq v_posnr.
 if v_waers eq 'JPY'.
 i_netpr-netpr = i_netpr-netpr * 100.
 endif.
 if not i_input-netpr eq i_netpr-netpr.
 append i_netpr.
 clear : i_input, i_netpr, v_posnr.
 else.
 clear : i_input, i_netpr, v_posnr.
 endif.
endloop.
delete adjacent duplicates from i_netpr comparing ebeln ebelp matnr.
 modify zinvdiff from table i_final.
if i_netpr[] is not initial.
 select matnr
 knumh
 from a004
 into table i_a004
 for all entries in i_netpr
 where matnr = i_netpr-matnr
 and kschl = 'ZPR0'
 and vkorg = 'SBAP'
 and vtweg = 'DD'
 and ( datab <= sy-datum and datbi => sy-datum ).
 select matnr
 knumh
 from a004
 into table i_a0041
 for all entries in i_netpr
 where matnr = i_netpr-matnr
 and kschl = 'ZPR0'
 and vkorg = 'EXPT'
 and vtweg = 'BR'
 and ( datab <= sy-datum and datbi => sy-datum ).
 select matnr mvgr2 from mvke
 into corresponding fields of table i_mvke
 for all entries in i_netpr
 where matnr = i_netpr-matnr
 and vkorg = 'SBAP'
 and vtweg = 'DD'.
 if i_a004[] is not initial.
 select knumh
 kbetr
 from konp
 into table i_konp
 for all entries in i_a004
 where knumh = i_a004-knumh.
 loop at i_a004.
 read table i_konp with key knumh = i_a004-knumh.
 i_konp-kbetr = i_konp-kbetr / 10.
 move i_konp-kbetr to i_a004-kbetr.
 modify i_a004.
 clear : i_konp, i_a004.
 endloop.
 endif.
 if i_a0041[] is not initial.
 select knumh
 kbetr
 from konp
 into table i_konp1
 for all entries in i_a0041
 where knumh = i_a0041-knumh.
 loop at i_a0041.
 read table i_konp1 with key knumh = i_a0041-knumh.
 move i_konp1-kbetr to i_a0041-kbetr.
 modify i_a0041.
 clear : i_konp1, i_a0041.
 endloop.
 endif.
 if i_mvke[] is not initial.
 select pcode
 fact
 wfact
 into table i_domsal
 from zprice_grpsal
 for all entries in i_mvke
 where pcode = i_mvke-mvgr2
 and vkorg = 'SBAP'
 and vtweg = 'DD'
 and lifnr = v_lifnr.
 select pcode
 fact
 wfact
 into table i_grpsal
 from zprice_grpsal
 for all entries in i_mvke
 where pcode = i_mvke-mvgr2
 and vkorg = 'EXPT'
 and vtweg = 'BR'
 and lifnr = v_lifnr.
 endif.
 loop at i_input .
 read table i_mvke with key matnr = i_input-matnr.
 if sy-subrc = 0.
 move i_mvke-mvgr2 to i_input-mvgr2.
 endif.
 read table i_domsal with key pcode = i_input-mvgr2.
 if sy-subrc = 0.
 d_pric = i_domsal-fact / i_domsal-wfact.
 i_input-dpric = i_input-netpr * d_pric * ( 112 / 100 ).
 endif.
 read table i_grpsal with key pcode = i_input-mvgr2.
 if sy-subrc = 0.
 g_pric = i_grpsal-fact * i_grpsal-wfact.
 i_input-gpric = ( i_input-netpr * ( 112 / 100 ) ) / g_pric .
 endif.
 modify i_input.
 clear i_input.
 clear d_pric.
 clear g_pric.
 endloop.
endif.
endform. " f_check_price
*& Form f_display_data
 text
--> p1 text
<-- p2 text
form f_display_data .
loop at i_netpr.
 move i_netpr-ebeln to i_final-ebeln.
 move i_netpr-ebelp to i_final-ebelp.
 move i_netpr-matnr to i_final-matnr.
 move i_netpr-netpr to i_final-poprc.
 move i_netpr-menge to i_final-asqty.
 move p_invno to i_final-invoice.
 append i_final.
 clear i_final.
endloop.
loop at i_final.
 move v_podat to i_final-podat.
 read table i_input with key matnr = i_final-matnr.
 move i_input-netpr to i_final-invpr.
 move i_input-dpric to i_final-dcalclp.

Dear Santosh,
I haven't gone through your piece of code.
But I can suggest a way out, while handling multiple line-items.
The following code sample elucidate the use of multiple line-items. This is just an example for your understanding.
FORM BDC_OPERATION .
DATA: LV_ARBPL(15) TYPE C,
 LV_ROWNO(2) TYPE N.
LOOP AT IT_TABDATA INTO WA_TABDATA.
 CLEAR: LV_ARBPL
 LV_ROWNO = SY-TABIX.
 CONCATENATE 'PLPOD-ARBPL' '(' LV_ROWNO ')' INTO LV_ARBPL.
 PERFORM BDC_DYNPRO USING 'SAPLCPDI' '1400'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR' LV_ARBPL.
 PERFORM BDC_FIELD USING 'BDC_OKCODE' '=PICK'.
 PERFORM BDC_FIELD USING LV_ARBPL WA_TABDATA-ARBPL.
ENDLOOP.
ENDFORM. " BDC_OPERATION
Regards,
Abir
Please don't forget to award points *

How to increment counter for line items.

Hi,
Please see the code below:
LOOP AT T_MAT INTO W_MAT.
          perform bdc_dynpro      using 'SAPMM07M' '0421'.
          perform bdc_field       using 'BDC_CURSOR'
                                        'MSEG-ERFMG(i)'.
          perform bdc_field       using 'BDC_OKCODE'
                                        '/00'.
          perform bdc_field       using 'MSEG-MATNR(i)'
                                        W_MAT-MATNR.
          perform bdc_field       using 'MSEG-ERFMG(i)'
                                        W_MAT-ERFMG.
          i = i+1.
      ENDLOOP.
In the above code I'm updating the line items thru BDC. Here I'm having a counter ' i '. I'm incrementing it for every loop cycle. When I run the BDC I get the error "Field MSEG-ERFMG does not exist in the screen"
Please help.
regards,
Sriram

Hi Sriram,
you code as to be changed slightly:
DATA l_counter(2) TYPE n.
DATA l_fieldname TYPE string.
loop at t_mat into w_mat.
MOVE i TO counter.
CONCATENATE 'MSEG-ERFMG(' counter ')' INTO l_fieldname.
PERFORM bdc_field USING 'BDC_CURSOR'
                          l_fieldname.
i = i+1.
ENDLOOP.data l_counter(2) type n.
Regards
REA
Edited by: Ramy EL-ARNAOUTY on Jul 28, 2009 10:29 AM

Handling line items in bdc

Similar Messages

Maybe you are looking for