BDC FOR VA51

[Former Member]

Hi Friends..

I need to write a bdc for va51 t.code...

i tried to work on it but i am not able to fetch data to that tabstrip(line items),

does any1 have a sample bdc for it?

i've data for uploading as follow

ITEM PROPOSAL TYPE

SALES ORG

DISTRIBUTION

DIVISION

DESCRIPTION

MATERIAL

TARGET QUANTITY

upto DIVISION (and DESCRIPTION as well) my data is going to be same for one ITEM PROPOSAL TYPE but material and quantity will be more for one ITEM PROPOSAL..

hope u understand wat i need exactly...

if any1 doesnt understand then pls let me know...

[Former Member]

those tabstrips are different subscreens - run SHDB and record a session. You will find those screen numbers and what fcode to get to them.

Message was edited by:

robert phelan

[Former Member]

Hi snehal.

Here is the answer for ur question.

LOOP AT ITAB.

COUNTER = COUNTER + 1.

TCTR = TCTR + 1.

IF COUNTER > SY-LOOPC.

PAGES = PAGES + 10.

ENDIF.

PERFORM BDC_DYNPRO USING 'SAPMM06B' '0106'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD USING 'RM06B-BNFPO'

PAGES.

CONCATENATE 'EBAN-MATNR(' TCTR ')' INTO TEMPVAR.

CONDENSE TEMPVAR NO-GAPS.

PERFORM BDC_FIELD USING TEMPVAR ITAB-MATNR.

CONCATENATE 'EBAN-TXZ01(' TCTR ')' INTO TEMPVAR.

CONDENSE TEMPVAR NO-GAPS.

PERFORM BDC_FIELD USING TEMPVAR ITAB-TXZ01.

CONCATENATE 'EBAN-MENGE(' TCTR ')' INTO TEMPVAR.

CONDENSE TEMPVAR NO-GAPS.

MOVE ITAB-MENGE TO QUANTITY.

PERFORM BDC_FIELD USING TEMPVAR QUANTITY.

CONCATENATE 'EBAN-MEINS(' TCTR ')' INTO TEMPVAR.

CONDENSE TEMPVAR NO-GAPS.

PERFORM BDC_FIELD USING TEMPVAR ITAB-MEINS.

CALL TRANSACTION 'ME51' USING BDCDATA MODE 'N'.

ENDLOOP.

Hope this willhelp U.

Reward me if useful.