BAPI

[Former Member]

HI,

DO YOU HAVE PROGRAM FOR UPLOADING TCODE <b>ME21</b> USING STD BAPI .PLEASE SEND THE CODING

THANK YOU

ASHOK KUMAR

[Former Member]

Hi,

REPORT z_h_d_bapi_1 .

DATA : po_header LIKE bapiekkoc,

po_items LIKE bapiekpoc OCCURS 0 WITH HEADER LINE,

po_item_schedules like bapieket occurs 0 with header line,

wa_po_add_header TYPE bapiekkoa,

return LIKE bapireturn OCCURS 0 WITH HEADER LINE.

Data pno like bapiekko-po_number.

*POPULATE ITEM DATA.

CLEAR po_items.

REFRESH po_items.

po_items-po_item = '00010'.

po_items-material = '000000000100IMASMI'.

po_items-plant = '0001'.

*po_items-store_loc = ''.

po_items-ACCTASSCAT = 'X'.

*po_items-quantity = '10'.

po_items-unit = 'EA'.

*po_items-net_price = 'EA'.

*po_items-price_unit = 'EA'.

APPEND po_items.

*POPULATE SCHEDULES DATA

clear po_item_schedules.

refresh po_item_schedules.

po_item_schedules-po_item = '00010'.

po_item_schedules-deliv_date = sy-datum.

po_item_schedules-quantity = '100'.

append po_item_schedules.

po_header-DOC_DATE = SY-DATUM .

po_header-purch_org = '1000' .

po_header-pur_group = '001' .

po_header-vendor = 'VBA-BOM' .

po_header-doc_type = 'NB'.

po_header-co_code = '0001'.

po_header-doc_cat = 'F'.

po_header-created_by = sy-uname.

po_header-langu = 'E'.

po_header-langu_iso = 'EN'.

*po_header-sales_pers = 'Mr. rahul' .

CALL FUNCTION 'BAPI_PO_CREATE'

EXPORTING

po_header = po_header

PO_HEADER_ADD_DATA = wa_po_add_header

• HEADER_ADD_DATA_RELEVANT = '1'

• PO_ADDRESS =

SKIP_ITEMS_WITH_ERROR = 'X'

• ITEM_ADD_DATA_RELEVANT = '1'

• HEADER_TECH_FIELDS =

IMPORTING

PURCHASEORDER = pno

tables

po_items = po_items

• PO_ITEM_ADD_DATA =

po_item_schedules = po_item_schedules

• PO_ITEM_ACCOUNT_ASSIGNMENT =

• PO_ITEM_TEXT =

RETURN = return

• PO_LIMITS =

• PO_CONTRACT_LIMITS = "

• PO_SERVICES = ! !

• PO_SRV_ACCASS_VALUES =

• PO_SERVICES_TEXT =

• PO_BUSINESS_PARTNER =

• EXTENSIONIN =

• POADDRDELIVERY =

.

LOOP AT return.

WRITE:/ pno, 'sdasdas', return-message.

ENDLOOP.

<b>Reward points</b>

Regards