BAPI_PO_CREATE......

[Former Member]

Hi experts,

This is my program. Please check it.

*********DECLARATIONS

DATA : T_PO_HEADER TYPE BAPIEKKOC OCCURS 0 WITH HEADER LINE,

T_PO_ITEMS TYPE BAPIEKPOC OCCURS 0 WITH HEADER LINE,

T_PO_ITEM_SCHEDULES TYPE BAPIEKET OCCURS 0 WITH HEADER LINE,

T_RETURN TYPE BAPIRETURN OCCURS 0 WITH HEADER LINE,

PURCHASEORDERNO TYPE BAPIEKKOC-PO_NUMBER.

T_PO_HEADER-DOC_TYPE = 'NB'.

T_PO_HEADER-DOC_DATE = '24.07.2006'.

T_PO_HEADER-PURCH_ORG = '1000'.

T_PO_HEADER-PUR_GROUP = '000'.

T_PO_HEADER-VENDOR = '0000001000'.

APPEND T_PO_HEADER.

T_PO_ITEMS-MATERIAL = '100-100'.

T_PO_ITEMS-PLANT = '1000'.

APPEND T_PO_ITEMS.

T_PO_ITEM_SCHEDULES-DELIV_DATE = '25.07.2006'.

T_PO_ITEM_SCHEDULES-QUANTITY = '0000000000010'.

APPEND T_PO_ITEM_SCHEDULES.

CALL FUNCTION 'BAPI_PO_CREATE'

EXPORTING

po_header = T_PO_HEADER

• PO_HEADER_ADD_DATA =

• HEADER_ADD_DATA_RELEVANT =

• PO_ADDRESS =

• SKIP_ITEMS_WITH_ERROR = 'X'

• ITEM_ADD_DATA_RELEVANT =

IMPORTING

PURCHASEORDER = PURCHASEORDERNO

tables

po_items = T_PO_ITEMS

• PO_ITEM_ADD_DATA =

po_item_schedules = T_PO_ITEM_SCHEDULES

• PO_ITEM_ACCOUNT_ASSIGNMENT =

• PO_ITEM_TEXT =

RETURN = T_RETURN

• PO_LIMITS =

• PO_CONTRACT_LIMITS =

• PO_SERVICES =

• PO_SRV_ACCASS_VALUES =

• PO_SERVICES_TEXT =

• PO_BUSINESS_PARTNER =

• EXTENSIONIN =

• POADDRDELIVERY =

.

WRITE : / PURCHASEORDERNO.

WRITE : / T_RETURN-MESSAGE, T_RETURN-TYPE.

And i am the error as type-e, and message-document contains no items.Do i need to add other fields.

Please solve my problem.

with Regards

Badri.

[Former Member]

Hello Badri,

<b>T_PO_ITEMS-PO_ITEM = '000010'</b>.

T_PO_ITEMS-MATERIAL = '100-100'.

T_PO_ITEMS-PLANT = '1000'.

APPEND T_PO_ITEMS.

GIve the PO Item.

The same bapi is used in the MMWE0F01.Have a look and do the same in ur report.

Reward if helps.

Vasanth

[Former Member]

Hi vasanth,

i have added the po_item,but it is giving the same error.Is this program MMWE0fo1 ?

with regards

Badri.

[Former Member]

Yes Badri,

The BAPI is used in the include MMWE0F01.

[Former Member]

http://www.sap-img.com/bapi.htm

check with program in the link

or below pasted code

REPORT zTEST_PO .DATA DECLARATIONCONSTANTS : C_X VALUE 'X'.Structures to hold PO header dataDATA : HEADER LIKE BAPIMEPOHEADER ,HEADERX LIKE BAPIMEPOHEADERX .Structures to hold PO account dataDATA : ACCOUNT LIKE BAPIMEPOACCOUNT OCCURS 0 WITH HEADER LINE ,ACCOUNTX LIKE BAPIMEPOACCOUNTX OCCURS 0 WITH HEADER LINE .Internal Tables to hold PO ITEM DATADATA : ITEM LIKE BAPIMEPOITEM OCCURS 0 WITH HEADER LINE,ITEMX LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE,Internal table to hold messages from BAPI callRETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,Internal table to hold messages from BAPI callPOCONTRACTLIMITS LIKE BAPIESUCC OCCURS 0 WITH HEADER LINE.DATA : W_HEADER(40) VALUE 'PO Header',PURCHASEORDER LIKE BAPIMEPOHEADER-PO_NUMBER,DELIVERY_DATE LIKE BAPIMEPOSCHEDULE-DELIVERY_DATE.DATA : WS_LANGU LIKE SY-LANGU.text-001 = 'PO Header' - define as text elementSELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.PARAMETERS : COMPANY LIKE HEADER-COMP_CODE DEFAULT '122' ,DOCTYP LIKE HEADER-DOC_TYPE DEFAULT 'NB' ,CDATE LIKE HEADER-CREAT_DATE DEFAULT SY-DATUM ,VENDOR LIKE HEADER-VENDOR DEFAULT '2000000012' ,PUR_ORG LIKE HEADER-PURCH_ORG DEFAULT 'PU01' ,PUR_GRP LIKE HEADER-PUR_GROUP DEFAULT '005' .sociedad like HEADER-COMP_CODE default '122' ,vendedor like HEADER-SALES_PERS default 'sale person'.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 '00010',MATERIAL LIKE ITEM-MATERIAL DEFAULT '12000000' ,TIPO_IMP LIKE ITEM-ACCTASSCAT DEFAULT 'K' ,pos_doc like ITEM-ITEM_CAT default 'F' ,SHORTTXT LIKE ITEM-SHORT_TEXT DEFAULT 'PRUEBA BAPI' ,GRUP_ART LIKE ITEM-MATL_GROUP DEFAULT '817230000' ,PLANT LIKE ITEM-PLANT DEFAULT '3001' ,MPE LIKE ITEM-TRACKINGNO DEFAULT '9999' ,contrato like ITEM-AGREEMENT default '4904000003' ,quantity like ITEM-QUANTITY default 1 .PO_UNIT LIKE ITEM-PO_UNIT DEFAULT 'EA'.SELECTION-SCREEN END OF BLOCK B2.* Par?mnetros de imputaci?nSELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-004.PARAMETERS : CENTRO LIKE ACCOUNT-COSTCENTER DEFAULT '1220813150',CUENTA LIKE ACCOUNT-GL_ACCOUNT DEFAULT '6631400' ,NUM_POS LIKE ACCOUNT-PO_ITEM DEFAULT '10' ,SERIAL LIKE ACCOUNT-SERIAL_NO DEFAULT '01' ,IND_IMP LIKE ACCOUNT-TAX_CODE DEFAULT 'I2' .SELECTION-SCREEN END OF BLOCK B3.&----

---

START-OF-SELECTION.&----

---

DATA POPULATION&--

---

* WS_LANGU = SY-LANGU. "Language variablePOPULATE HEADER DATA FOR POHEADER-COMP_CODE = sociedad . HEADER-DOC_TYPE = DOCTYP . HEADER-VENDOR = VENDOR . HEADER-CREAT_DATE = CDATE . HEADER-CREATED_BY = 'TD17191' . HEADER-PURCH_ORG = PUR_ORG . HEADER-PUR_GROUP = PUR_GRP . HEADER-COMP_CODE = COMPANY . HEADER-LANGU = WS_LANGU .HEADER-SALES_PERS = vendedor .HEADER-CURRENCY = 'DOP' .HEADER-ITEM_INTVL = 10 .HEADER-PMNTTRMS = 'N30' .HEADER-EXCH_RATE = 1 .&

---

*POPULATE HEADER FLAG.&

---

* HEADERX-COMP_CODE = C_X. HEADERX-DOC_TYPE = C_X. HEADERX-VENDOR = C_X. HEADERX-CREAT_DATE = C_X. HEADERX-CREATED_BY = C_X. HEADERX-PURCH_ORG = C_X. HEADERX-PUR_GROUP = C_X. HEADERX-LANGU = C_X.HEADERX-sales_pers = c_x.HEADERX-CURRENCY = c_x.HEADER-ITEM_INTVL = c_x.HEADER-PMNTTRMS = c_x.HEADER-EXCH_RATE = c_x.HEADER-EXCH_RATE = c_x.*&

---

*POPULATE ITEM DATA.&

---

* ITEM-PO_ITEM = ITEM_NUM. ITEM-QUANTITY = '1'.ITEM-MATERIAL = material . ITEM-SHORT_TEXT = 'prueba bapi_po_create1'.ITEM-TAX_CODE = ''. ITEM-ACCTASSCAT = 'K' .ITEM-ITEM_CAT = 'D' . ITEM-MATL_GROUP = '817230000' . ITEM-PLANT = '3001' . ITEM-TRACKINGNO = '99999'. ITEM-PREQ_NAME = 'test'.ITEM-AGREEMENT = '' .ITEM-AGMT_ITEM = ''. ITEM-QUANTITY = '1' . ITEM-PO_UNIT = 'EA'.ITEM-ORDERPR_UN = 'EA'. ITEM-CONV_NUM1 = '1'. ITEM-CONV_DEN1 = '1'. ITEM-NET_PRICE = '1000000' . ITEM-PRICE_UNIT = '1'. ITEM-GR_PR_TIME = '0'. ITEM-PRNT_PRICE = 'X'. ITEM-UNLIMITED_DLV = 'X'. ITEM-GR_IND = 'X' . ITEM-IR_IND = 'X' . ITEM-GR_BASEDIV = 'X'.ITEM-PCKG_NO = '' . APPEND ITEM. CLEAR ITEM.&

---

*POPULATE ITEM FLAG TABLE&

---

* ITEMX-PO_ITEM = ITEM_NUM. ITEMX-PO_ITEMX = C_X.ITEMX-MATERIAL = C_X. ITEMX-SHORT_TEXT = C_X. ITEMX-QUANTITY = C_X.ITEMX-TAX_CODE = C_X. ITEMX-ACCTASSCAT = C_X.ITEMX-ITEM_CAT = c_x. ITEMX-MATL_GROUP = C_X. ITEMX-PLANT = C_X. ITEMX-TRACKINGNO = C_X. ITEMX-PREQ_NAME = C_X.ITEMX-AGREEMENT = C_X.ITEMX-AGMT_ITEM = c_x. ITEMX-STGE_LOC = C_X. ITEMX-QUANTITY = C_X. ITEMX-PO_UNIT = C_X.ITEMX-ORDERPR_UN = C_X. ITEMX-CONV_NUM1 = C_X. ITEMX-CONV_DEN1 = C_X. ITEMX-NET_PRICE = C_X. ITEMX-PRICE_UNIT = C_X. ITEMX-GR_PR_TIME = C_X. ITEMX-PRNT_PRICE = C_X. ITEMX-UNLIMITED_DLV = C_X. ITEMX-GR_IND = C_X . ITEMX-IR_IND = C_X . ITEMX-GR_BASEDIV = C_X . APPEND ITEMX. CLEAR ITEMX.*&

---

*POPULATE ACCOUNT DATA.&

---

* ACCOUNT-PO_ITEM = ITEM_NUM. ACCOUNT-SERIAL_NO = SERIAL . ACCOUNT-CREAT_DATE = SY-DATUM . ACCOUNT-COSTCENTER = CENTRO . ACCOUNT-GL_ACCOUNT = CUENTA . ACCOUNT-GR_RCPT = 'tester'. APPEND ACCOUNT. CLEAR ACCOUNT.*&

---

*POPULATE ACCOUNT FLAG TABLE.&

---

* ACCOUNTX-PO_ITEM = ITEM_NUM . ACCOUNTX-PO_ITEMX = C_X . ACCOUNTX-SERIAL_NO = SERIAL . ACCOUNTX-SERIAL_NOX = C_X . ACCOUNTX-CREAT_DATE = C_X . ACCOUNTX-COSTCENTER = C_X . ACCOUNTX-GL_ACCOUNT = C_X . ACCOUNT-GR_RCPT = C_X. APPEND ACCOUNTX. CLEAR ACCOUNTX.*&

---

*BAPI CALL&

---

* CALL FUNCTION 'DIALOG_SET_NO_DIALOG'. CALL FUNCTION 'BAPI_PO_CREATE1' EXPORTING POHEADER = HEADER POHEADERX = HEADERX IMPORTING EXPPURCHASEORDER = PURCHASEORDER TABLES RETURN = RETURN POITEM = ITEM POITEMX = ITEMX POACCOUNT = ACCOUNT POACCOUNTX = ACCOUNTX.*&

---

*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 / RETURN-MESSAGE. ENDLOOP.

with regards,

Pravin M.

[Former Member]

Hi Badri,

U need to populate the corresponding X structures also.

Sreedhar

[Former Member]

Hi experts,

i am new to bapi's.The solutions u gave i did not understand.Please guide me.

Thanks in advance.

Badri