wanted a code for table controls in bdc

[Former Member]

hi,

i have written code for uploading data into FB60 transaction but i have a serious problem with that code.

after entering 10 line items and when i am entering 11th item it is saying that the screen doesnot contain 11th line.

so please modify my program or if you can please send me a program for handling table controls more line details.

thanks and i will surely provide ten points to it.

my code is

LOOP AT I_PREPARE INTO WA_PREPARE.

V_VALUE = WA_PREPARE-LINE+0(2).

CASE V_VALUE.

WHEN 'A'.

CLEAR:V_DCNT.

*UPLOAD THE COMPANY CODE TO FB60.

*PERFORM.......USING WA_PREPARE-LINE+2(4).

*? filling header data

*********to initialize the company code and to get the popup**********

PERFORM SET_BUKRS.

PERFORM BDC_DYNPRO USING 'SAPLACHD' '1000'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'BKPF-BUKRS'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=ENTR'.

BUKRS = WA_PREPARE-LINE+2(4).

PERFORM BDC_FIELD USING 'BKPF-BUKRS'

BUKRS.

PERFORM BDC_DYNPRO USING 'SAPMF05A' '1100'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD USING 'RF05A-BUSCS'

'R'.

*UPLOAD THE VENDOR NUMBER TO FB60

*PERFORM.......USING WA_PREPARE-LINE+45(10).

ACCNT = WA_PREPARE-LINE+45(10).

PERFORM BDC_FIELD USING 'INVFO-ACCNT'

ACCNT.

*UPLOAD THE DATE TO FB60

• WRITE WA_PREPARE-LINE+34(8) TO V_DATE USING EDIT MASK ' . . .'

*PERFORM.......USING V_DATE.

PERFORM BDC_FIELD USING 'INVFO-BLDAT'

'15.09.2004'.

PERFORM BDC_FIELD USING 'INVFO-BUDAT'

'15.09.2004'.

*UPLOAD THE AMOUNT TO FB60

*PERFORM.......USING WA_PREPARE-LINE+85(15).

WRBTR = WA_PREPARE-LINE+85(15).

PERFORM BDC_FIELD USING 'INVFO-WRBTR'

WRBTR.

*UPLOAD THE CURRENCY CODE TO FB60

*PERFORM.......USING WA_PREPARE-LINE+100(3).

WAERS = WA_PREPARE-LINE+100(3).

PERFORM BDC_FIELD USING 'INVFO-WAERS'

WAERS.

WHEN 'D'.

V_DCNT = V_DCNT + 1.

• IF V_DCNT GT 04.

*

• V_DCNT = 04.

*

• ENDIF.

*UPLOAD THE G/L ACC. TO FB60.

*PERFORM.......USING WA_PREPARE-LINE+51(20).

*? filling item data

CONCATENATE 'ACGL_ITEM-WRBTR(' V_DCNT ')' INTO FNAM.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

FNAM.

CONCATENATE 'ACGL_ITEM-HKONT(' V_DCNT ')' INTO FNAM.

HKONT = WA_PREPARE-LINE+51(20).

PERFORM BDC_FIELD USING FNAM

HKONT.

*UPLOAD THE AMOUNT TO FB60(ACGL_ITEM-WRBTR)

*PERFORM........USING WA_PREPARE-LINE+121(15).

CONCATENATE 'ACGL_ITEM-WRBTR(' V_DCNT ')' INTO FNAM.

WRBTR = WA_PREPARE-LINE+75(15).

PERFORM BDC_FIELD USING FNAM

WRBTR.

PERFORM BDC_DYNPRO USING 'SAPMF05A' '1100'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=0006'.

PERFORM BDC_FIELD USING 'RF05A-BUSCS'

'R'.

ENDCASE.

[Former Member]

hi,

check this example:

http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm

REPORT ZSR_BDC_TBCTRL

NO STANDARD PAGE HEADING LINE-SIZE 255.

TABLES : RF02K,LFA1,LFBK.

DATA : BEGIN OF IT_VEN OCCURS 0,

LIFNR LIKE RF02K-LIFNR,

KTOKK LIKE RF02K-KTOKK,

NAME1 LIKE LFA1-NAME1,

SORTL LIKE LFA1-SORTL,

LAND1 LIKE LFA1-LAND1,

SPRAS LIKE LFA1-SPRAS,

BANKS(6) TYPE C,

BANKL(17) TYPE C,

BANKN(19) TYPE C,

END OF IT_VEN.

DATA : BEGIN OF BANKS OCCURS 0,

BANKS LIKE LFBK-BANKS,

END OF BANKS,

BEGIN OF BANKL OCCURS 0,

BANKL LIKE LFBK-BANKL,

END OF BANKL,

BEGIN OF BANKN OCCURS 0,

BANKN LIKE LFBK-BANKN,

END OF BANKN.

DATA : FLD(20) TYPE C,

CNT(2) TYPE N.

DATA : BDCTAB LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

INCLUDE BDCRECX1.

START-OF-SELECTION.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = 'Z:\sr.TXT'

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

• HEADER_LENGTH = 0

• READ_BY_LINE = 'X'

• DAT_MODE = ' '

• CODEPAGE = ' '

• IGNORE_CERR = ABAP_TRUE

• REPLACEMENT = '#'

• CHECK_BOM = ' '

• IMPORTING

• FILELENGTH =

• HEADER =

TABLES

DATA_TAB = IT_VEN

• EXCEPTIONS

• FILE_OPEN_ERROR = 1

• FILE_READ_ERROR = 2

• NO_BATCH = 3

• GUI_REFUSE_FILETRANSFER = 4

• INVALID_TYPE = 5

• NO_AUTHORITY = 6

• UNKNOWN_ERROR = 7

• BAD_DATA_FORMAT = 8

• HEADER_NOT_ALLOWED = 9

• SEPARATOR_NOT_ALLOWED = 10

• HEADER_TOO_LONG = 11

• UNKNOWN_DP_ERROR = 12

• ACCESS_DENIED = 13

• DP_OUT_OF_MEMORY = 14

• DISK_FULL = 15

• DP_TIMEOUT = 16

• OTHERS = 17

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

PERFORM OPEN_GROUP.

LOOP AT IT_VEN.

REFRESH BDCDATA.

REFRESH : BANKS,BANKL,BANKN..

SPLIT IT_VEN-BANKS AT ',' INTO TABLE BANKS.

SPLIT IT_VEN-BANKL AT ',' INTO TABLE BANKL.

SPLIT IT_VEN-BANKN AT ',' INTO TABLE BANKN.

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'

IT_VEN-LIFNR.

PERFORM BDC_FIELD USING 'RF02K-KTOKK'

IT_VEN-KTOKK.

PERFORM BDC_DYNPRO USING 'SAPMF02K' '0110'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'LFA1-SPRAS'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD USING 'LFA1-NAME1'

IT_VEN-NAME1.

PERFORM BDC_FIELD USING 'LFA1-SORTL'

IT_VEN-SORTL.

PERFORM BDC_FIELD USING 'LFA1-LAND1'

IT_VEN-LAND1.

PERFORM BDC_FIELD USING 'LFA1-SPRAS'

IT_VEN-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-BANKN(02)'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=ENTR'.

*perform bdc_field using 'LFBK-BANKS(01)'

• 'DE'.

*perform bdc_field using 'LFBK-BANKS(02)'

• 'DE'.

*perform bdc_field using 'LFBK-BANKL(01)'

• '10020030'.

*perform bdc_field using 'LFBK-BANKL(02)'

• '67270003'.

*perform bdc_field using 'LFBK-BANKN(01)'

• '12345'.

*perform bdc_field using 'LFBK-BANKN(02)'

• '66666'.

MOVE 1 TO CNT.

LOOP AT BANKS.

CONCATENATE 'LFBK-BANKS(' CNT ') ' INTO FLD.

PERFORM BDC_FIELD USING FLD BANKS-BANKS.

CNT = CNT + 1.

ENDLOOP.

MOVE 1 TO CNT.

LOOP AT BANKL.

CONCATENATE 'LFBK-BANKL(' CNT ') ' INTO FLD.

PERFORM BDC_FIELD USING FLD BANKL-BANKL.

CNT = CNT + 1.

ENDLOOP.

MOVE 1 TO CNT.

LOOP AT BANKN.

CONCATENATE 'LFBK-BANKN(' CNT ') ' INTO FLD.

PERFORM BDC_FIELD USING FLD BANKN-BANKN.

CNT = CNT + 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 'SAPLSPO1' '0300'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=YES'.

PERFORM BDC_TRANSACTION USING 'XK01'.

ENDLOOP.

PERFORM CLOSE_GROUP.

[Former Member]

Hi sudha rani,

if you can please send me the flat file to the program that you have sent to me so that i could run that program and see..

thanks for your kind reply.

[former_member186741]

Once the maximum number of line items has been filled up the transaction FB60 automatically rolls the display up 1 line and opens the last line for input. So in your program you need to keep track of how many items you haveprocessed. Once you have got to 11 you need to hit enter and from then on issue a new screen for each extra item with the item data going into line 10.

change the code immediately after the 'when 'D' as follows....

WHEN 'D'.

V_DCNT = V_DCNT + 1.

• if limit reached....

IF V_DCNT GT 10.

• set count to point to 10th line on screen

V_DCNT = 10.

• issue new screen

PERFORM BDC_DYNPRO USING 'SAPMF05A' '1100'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

ENDIF.