Bapi Extension

[Former Member]

Hi All,

I am uploading the data for ME21N through BAPI_PO_CREATE1.

There is a screen exit over there.

Can anyone pls help me that How to extend the bapi.

Thanx in Advance.

Regards,

Shiv Kant

[Former Member]

Hi,

Just check out this code,this will give the creation of ME21.

&----

---

*DATA DECLARATION

CONSTANTS : C_X VALUE 'X'.

*Structures to hold PO header data

DATA : HEADER LIKE BAPIMEPOHEADER ,

HEADERX LIKE BAPIMEPOHEADERX .

*Internal Tables to hold PO ITEM DATA

DATA : ITEM LIKE BAPIMEPOITEM OCCURS 0 WITH HEADER LINE,

ITEMX LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE,

**Internal table to hold messages from BAPI call

RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.

data : w_header(40) value 'PO Header'.

data : ws_langu like sy-langu.

data: V_EXPPURCHASEORDER like BAPIMEPOHEADER-PO_NUMBER.

*text-001 = 'PO Header' - define as text element

selection-screen begin of block b1 with frame title text-001.

parameters : company like header-comp_code default '1000' ,

doctyp like HEADER-DOC_TYPE default 'NB' ,

cdate like HEADER-CREAT_DATE default sy-datum ,

vendor like HEADER-VENDOR default 'RAJ',

pur_org like HEADER-PURCH_ORG default '0001' ,

pur_grp like HEADER-PUR_GROUP default '001' .

selection-screen end of block b1.

selection-screen begin of block b2 with frame title text-002.

parameters : item_num like ITEM-PO_ITEM default '00020',

material like ITEM-MATERIAL default 'M-127' ,

plant like ITEM-PLANT default '0001' ,

quantity like ITEM-QUANTITY default 200.

selection-screen end of block b2.

*&----

---

**START-OF-SELECTION.

*&----

---

**DATA POPULATION

*&----

---

ws_langu = sy-langu. "Language variable

*POPULATE HEADER DATA FOR PO

HEADER-COMP_CODE = company .

HEADER-DOC_TYPE = doctyp .

HEADER-CREAT_DATE = cdate .

HEADER-VENDOR = vendor .

HEADER-LANGU = ws_langu .

HEADER-PURCH_ORG = pur_org .

HEADER-PUR_GROUP = pur_grp .

&----

---

*POPULATE HEADER FLAG.

&----

---

HEADERX-comp_code = c_x.

HEADERX-doc_type = c_x.

HEADERX-creat_date = c_x.

HEADERX-vendor = c_x.

HEADERX-langu = c_x.

HEADERX-purch_org = c_x.

HEADERX-pur_group = c_x.

*HEADERX-doc_date = c_x.

&----

---

*POPULATE ITEM DATA.

&----

---

ITEM-PO_ITEM = item_num.

ITEM-MATERIAL = material.

ITEM-PLANT = plant.

ITEM-QUANTITY = quantity.

APPEND ITEM.

&----

---

*POPULATE ITEM FLAG TABLE

&----

---

ITEMX-PO_ITEM = item_num.

ITEMX-MATERIAL = C_X.

ITEMX-PLANT = C_X .

*ITEMX-STGE_LOC = C_X .

ITEMX-QUANTITY = C_X .

*ITEMX-TAX_CODE = C_X .

*ITEMX-ITEM_CAT = C_X .

*ITEMX-ACCTASSCAT = C_X .

APPEND ITEMX.

&----

---

*BAPI CALL

&----

---

CALL FUNCTION 'BAPI_PO_CREATE1'

EXPORTING

POHEADER = HEADER

POHEADERX = HEADERX

POADDRVENDOR =

TESTRUN =

IMPORTING

EXPPURCHASEORDER = V_EXPPURCHASEORDER

EXPHEADER =

EXPPOEXPIMPHEADER =

TABLES

RETURN = RETURN

POITEM = ITEM

POITEMX = ITEMX.

&----

---

*Confirm the document creation by calling database COMMIT

&----

---

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'

IMPORTING

RETURN =

.

end-of-selection.

***&----

---

****Output the messages returned from BAPI call

***&----

---

*LOOP AT RETURN.

WRITE / v_EXPPURCHASEORDER.

*ENDLOOP.

Regards

Kiran

[Former Member]

Hi All,

I am uploading the data for ME21N through BAPI_PO_CREATE1.

There is a screen exit over there.

Can anyone pls help me about BAPI Extension.

Thanx in Advance.

Regards,

Shiv Kant

[Sm1tje]

Example from help.sap.com

[BAPI Extension|http://help.sap.com/saphelp_nw70/helpdata/EN/6b/3f6d2b6d0711d396a50004ac96334b/content.htm]