BAPI errors in Purchase Order

i'm getting following errors plz help to eradicate then
|No instance of object type PurchaseOrder <
PO header data still faulty <
Document number 1000222 not within define<
Please only use plants with local currenc<
|Can delivery date be met?
my peice of code is
loop at it_final into wa_final.
IT_PO_ITEM-PO_ITEM = WA_FINAL-POSNR.
IT_PO_ITEM-MATERIAL = WA_FINAL-idnrk.
IT_PO_ITEM-PLANT = WA_FINAL-WERKS.
IT_PO_ITEM-QUANTITY = WA_FINAL-menge.
IT_PO_ITEM-stge_loc = WA_FINAL-LGORT.
IT_PO_ITEM-PO_UNIT = WA_FINAL-meINS.
IT_PO_ITEM-NET_PRICE = WA_FINAL-PREIS * IT_PO_ITEM-QUANTITY.
IT_PO_ITEM-PRICE_UNIT = WA_FINAL-PEINH.
APPEND IT_PO_ITEM.
IT_PO_ITEMX-PO_ITEM = WA_FINAL-POSNR.
IT_PO_ITEMX-MATERIAL = 'X'.
IT_PO_ITEMX-PLANT = 'X'.
IT_PO_ITEMX-QUANTITY = 'X'.
IT_PO_ITEM-stge_loc = 'X'.
IT_PO_ITEMX-PO_UNIT = 'X'.
IT_PO_ITEMX-NET_PRICE = 'X'.
IT_PO_ITEMX-PRICE_UNIT = 'X'.
APPEND IT_PO_ITEMX.
endloop.
 wa_po_header-po_number = d_ebeln.
 wa_po_header-comp_code = d_bukrs.
 wa_po_header-doc_type = d_esart.
 wa_po_header-VENDOR = d_lifnr.
 wa_po_header-pur_group = '001'.
 wa_po_header-creat_date = SY-DATUM.
 wa_po_header-created_by = 'VIVEK'.
 wa_po_headerX-po_number = 'X'.
 wa_po_headerX-comp_code = 'X'.
 wa_po_headerX-doc_type = 'X'.
 wa_po_headerX-VENDOR = 'X'.
 wa_po_header-pur_group = 'X'.
 wa_po_header-creat_date = 'X'.
 wa_po_header-created_by = 'X'.
 CLEAR D_BUKRS.
 CLEAR D_ESART.
 CLEAR D_EBELN.
 CLEAR D_lifnr.
call function 'BAPI_PO_CREATE1'
exporting
 poheader = wa_po_header
 poheaderx = wa_po_headerX
* POADDRVENDOR =
* TESTRUN =
* MEMORY_UNCOMPLETE =
* MEMORY_COMPLETE =
* POEXPIMPHEADER =
* POEXPIMPHEADERX =
* VERSIONS =
* NO_MESSAGING =
* NO_MESSAGE_REQ =
* NO_AUTHORITY =
* NO_PRICE_FROM_PO =
IMPORTING
 EXPPURCHASEORDER = wa_ebeln
* EXPHEADER =
* EXPPOEXPIMPHEADER =
tables
 return = it_return
 poitem = IT_PO_ITEM
 poitemx = IT_PO_ITEMX.
* POADDRDELIVERY =
* POSCHEDULE =
* POSCHEDULEX =
* POACCOUNT =
* POACCOUNTPROFITSEGMENT =
* POACCOUNTX =
* POCONDHEADER =
* POCONDHEADERX =
* POCOND =
* POCONDX =
* POLIMITS =
* POCONTRACTLIMITS =
* POSERVICES =
* POSRVACCESSVALUES =
* POSERVICESTEXT =
* EXTENSIONIN =
* EXTENSIONOUT =
* POEXPIMPITEM =
* POEXPIMPITEMX =
* POTEXTHEADER =
* POTEXTITEM =
* ALLVERSIONS =
* POPARTNER =
if sy-subrc = 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
MESSAGE I001 WITH 'Purchase Order ' wa_ebeln ' Created'.
ENDIF.
CALL SCREEN 1001.
ENDCASE.
plz help if u can can.
<REMOVED BY MODERATOR>
Edited by: Alvaro Tejada Galindo on Feb 19, 2008 12:29 PM

Hi Vivek,
Looks like BAPI requires some more fields to be populated. All the mandatory parameters do not have data.
Y dont you do a test to the BAPI in SE37 by giving some sample data and execute it. When it's processed with out any error then you can consider that all those parameters you populated in SE37 should be populated in your program too.
That way you wont any errors.
Plz get back for any further clarification.
I hope it helps.
thanks.

Similar Messages

Error in : Purchase order Creation using BAPI_PO_CREATE1

Hell guys,
I am trying to create a PO using a BAPI - BAPI_PO_CREATE1
I want the new PO to have all the characteristics of an existing PO. whose PO # is stored in wa_order_split_create-docnr and for the new PO, i want the quantity from wa_order_split_create-qty_acptd and the delivery data to be wa_order_split_create-dly_date. But this process and code below gives a short dump in the std FM - MEPO_DOC_ITEM_GET . It raises an exception of failure. I am trying to create many new PO's in the loop below. If there is just one row, sometimes, it creates the PO even with the exception failure ( which is pretty weird).
Am i making any mistake while filling the header or item or schedule lines for the BAPI_PO_CREATE1 ? Any tips or clues why I am getting a dump ?
DATA: i_insert,
 i_create_order,
 i_cycle TYPE cycle,
 i_qty_acpt TYPE dzmeng,
 i_dly_date TYPE vbak-vdatu,
 i_item TYPE roijnomiio .
DATA: i_order TYPE symsgv,
 i_return TYPE swd_return .
DATA: i_vbak TYPE vbak,
 i_vbap TYPE vbap,
 i_ekko TYPE ekko,
 i_ekpo TYPE ekpo,
 i_bsoh TYPE bapisdhd1,
 i_bsohx TYPE bapisdhd1x,
 i_bpoh TYPE bapimepoheader,
 i_bpohx TYPE bapimepoheaderx,
 i_vbeln TYPE vbeln_va,
 i_posnr TYPE posnr_va,
 i_contr TYPE vbeln_va,
 i_conit TYPE posnr_va,
 i_ebeln TYPE ebeln,
 i_ebelp TYPE ebelp,
 i_pargr TYPE pargr,
 i_thead TYPE thead,
 i_line TYPE tline,
 i_note TYPE txw_note,
 i_new_vbeln TYPE vbeln_va,
 i_new_ebeln TYPE ebeln,
 i_wa_bsoi TYPE bapisditm,
 i_wa_bsoix TYPE bapisditmx,
 i_wa_bsop TYPE bapiparnr,
 i_wa_bsos TYPE bapischdl,
 i_wa_bsosx TYPE bapischdlx,
 i_wa_vbpa TYPE vbpa,
 i_wa_vbkd TYPE vbkd,
 i_wa_bpoi TYPE bapimepoitem,
 i_wa_bpoix TYPE bapimepoitemx,
 i_wa_bpos TYPE bapimeposchedule,
 i_wa_bposx TYPE bapimeposchedulx,
 i_wa_bpop TYPE bapiekkop,
 i_wa_ekpa TYPE ekpa,
 i_message TYPE char72,
 i_bapiretn TYPE bapiret2,
 i_bapiret2 TYPE TABLE OF bapiret2 INITIAL SIZE 1,
 i_vbpa TYPE TABLE OF vbpa INITIAL SIZE 1,
 i_vbkd TYPE TABLE OF vbkd INITIAL SIZE 1,
 i_ekpa TYPE TABLE OF ekpa INITIAL SIZE 1,
 i_bsoi TYPE TABLE OF bapisditm INITIAL SIZE 1,
 i_bsoix TYPE TABLE OF bapisditmx INITIAL SIZE 1,
 i_bsos TYPE TABLE OF bapischdl INITIAL SIZE 1,
 i_bsosx TYPE TABLE OF bapischdlx INITIAL SIZE 1,
 i_bsop TYPE TABLE OF bapiparnr INITIAL SIZE 1,
 i_bpoi TYPE TABLE OF bapimepoitem INITIAL SIZE 1,
 i_bpoix TYPE TABLE OF bapimepoitemx INITIAL SIZE 1,
 i_bpos TYPE TABLE OF bapimeposchedule INITIAL SIZE 1,
 i_bposx TYPE TABLE OF bapimeposchedulx INITIAL SIZE 1,
 i_bpop TYPE TABLE OF bapiekkop INITIAL SIZE 1,
 i_text_tab TYPE TABLE OF tline INITIAL SIZE 1,
 i_line_tab TYPE TABLE OF tline INITIAL SIZE 1,
 i_txw_note TYPE TABLE OF txw_note INITIAL SIZE 1,
 i_oij_el_doc_mot TYPE oij_el_doc_mot .
CONSTANTS: c_char_c VALUE 'C',
 c_char_e VALUE 'E',
 c_char_p VALUE 'P',
 c_char_g VALUE 'G',
 c_char_i VALUE 'I',
 c_char_s VALUE 'S',
 c_char_x VALUE 'X',
 c_zsw(3) VALUE 'ZSW',
 c_nomit_stat(4) VALUE 'ZDNY' .
DATA : lv_nomtk_split TYPE oij_nomtk.
DATA : i_order_split_create TYPE TABLE OF zsws_order_split.
DATA : wa_order_split_create TYPE zsws_order_split.
LOOP AT i_order_split_create INTO wa_order_split_create.
 IF NOT i_create_order IS INITIAL .
 CLEAR: i_create_order .
 MOVE: wa_order_split_create-docnr TO i_ebeln,
 wa_order_split_create-docitm TO i_ebelp .
 CALL FUNCTION 'ME_EKKO_SINGLE_READ'
 EXPORTING
 pi_ebeln = i_ebeln
 IMPORTING
 po_ekko = i_ekko
 EXCEPTIONS
 no_records_found = 1
 OTHERS = 2.
 IF sy-subrc <> 0 .
 ENDIF .
* Fill PO Header
 i_bpoh-comp_code = i_ekko-bukrs .
 i_bpoh-doc_type = i_ekko-bsart .
 i_bpoh-vendor = i_ekko-lifnr .
 i_bpoh-langu = i_ekko-spras .
 i_bpoh-pmnttrms = i_ekko-zterm .
 i_bpoh-purch_org = i_ekko-ekorg .
 i_bpoh-pur_group = i_ekko-ekgrp .
 i_bpoh-currency = i_ekko-waers .
 i_bpoh-agreement = i_ekko-konnr .
 i_bpoh-incoterms1 = i_ekko-inco1 .
 i_bpoh-incoterms2 = i_ekko-inco2 .
* Fill PO update indicator 'X'
 i_bpohx-comp_code = c_char_x .
 i_bpohx-doc_type = c_char_x .
 i_bpohx-vendor = c_char_x .
 i_bpohx-langu = c_char_x .
 i_bpohx-pmnttrms = c_char_x .
 i_bpohx-purch_org = c_char_x .
 i_bpohx-pur_group = c_char_x .
 i_bpohx-currency = c_char_x .
 i_bpohx-agreement = c_char_x .
 i_bpohx-incoterms1 = c_char_x .
 i_bpohx-incoterms2 = c_char_x .
 CALL FUNCTION 'ME_EKPO_SINGLE_READ'
 EXPORTING
 pi_ebeln = i_ebeln
 pi_ebelp = i_ebelp
 IMPORTING
 po_ekpo = i_ekpo
 EXCEPTIONS
 no_records_found = 1
 OTHERS = 2.
 IF sy-subrc <> 0 .
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF .
* Fill PO Item
 i_wa_bpoi-po_item = i_ekpo-ebelp .
 i_wa_bpoi-material = i_ekpo-matnr .
 i_wa_bpoi-plant = i_ekpo-werks .
 i_wa_bpoi-stge_loc = i_ekpo-lgort .
 i_wa_bpoi-quantity = wa_order_split_create-qty_acptd .
 i_wa_bpoi-po_unit = i_ekpo-meins .
 i_wa_bpoi-tax_code = i_ekpo-mwskz .
 i_wa_bpoi-val_type = i_ekpo-bwtar .
 i_wa_bpoi-item_cat = i_ekpo-pstyp .
 i_wa_bpoi-acctasscat = i_ekpo-knttp .
 i_wa_bpoi-agreement = i_ekpo-konnr .
 i_wa_bpoi-agmt_item = i_ekpo-ktpnr .
 APPEND i_wa_bpoi TO i_bpoi .
* Fill PO Item update indicator 'X'
 i_wa_bpoix-po_item = i_ekpo-ebelp .
 i_wa_bpoix-po_itemx = c_char_x .
 i_wa_bpoix-material = c_char_x .
 i_wa_bpoix-plant = c_char_x .
 i_wa_bpoix-stge_loc = c_char_x .
 i_wa_bpoix-quantity = c_char_x .
 i_wa_bpoix-po_unit = c_char_x .
 i_wa_bpoix-tax_code = c_char_x .
 i_wa_bpoix-val_type = c_char_x .
 i_wa_bpoix-item_cat = c_char_x .
 i_wa_bpoix-acctasscat = c_char_x .
 i_wa_bpoix-agreement = c_char_x .
 i_wa_bpoix-agmt_item = c_char_x .
 APPEND i_wa_bpoix TO i_bpoix .
* Fill PO Item Schedule
 i_wa_bpos-po_item = i_ekpo-ebelp .
 i_wa_bpos-sched_line = '0001' .
 i_wa_bpos-delivery_date = wa_order_split_create-dly_date .
 i_wa_bpos-quantity = wa_order_split_create-qty_acptd .
 APPEND i_wa_bpos TO i_bpos .
* Fill PO Item schedule update indicator 'X'
 i_wa_bposx-po_item = i_ekpo-ebelp .
 i_wa_bposx-sched_line = '0001' .
 i_wa_bposx-delivery_date = c_char_x .
 i_wa_bposx-quantity = c_char_x .
 APPEND i_wa_bposx TO i_bposx .
 CLEAR: i_pargr .
 SELECT SINGLE pargr
 INTO i_pargr
 FROM t161
 WHERE bstyp = i_ekko-bstyp
 AND bsart = i_ekko-bsart .
 CLEAR i_ekpa[].
 CALL FUNCTION 'MM_READ_PARTNERS'
 EXPORTING
 application = c_char_p
 ebeln = i_ebeln
 bstyp = i_ekko-bstyp
 pargr = i_pargr
 TABLES
 x_ekpa = i_ekpa[].
 LOOP AT i_ekpa INTO i_wa_ekpa .
 i_wa_bpop-partnerdesc = i_wa_ekpa-parvw .
 i_wa_bpop-langu = sy-langu .
 IF NOT i_wa_ekpa-lifn2 IS INITIAL .
 i_wa_bpop-buspartno = i_wa_ekpa-lifn2 .
 ELSE .
 i_wa_bpop-buspartno = i_wa_ekpa-parnr .
 ENDIF .
 APPEND i_wa_bpop TO i_bpop .
 CLEAR: i_wa_ekpa, i_wa_bpop .
 ENDLOOP .
 CALL FUNCTION 'DIALOG_SET_NO_DIALOG'.
 CALL FUNCTION 'BAPI_PO_CREATE1'
 EXPORTING
 poheader = i_bpoh
 poheaderx = i_bpohx
 IMPORTING
 exppurchaseorder = i_new_ebeln
 TABLES
 return = i_bapiret2
 poitem = i_bpoi[]
 poitemx = i_bpoix[]
 poschedule = i_bpos[]
 poschedulex = i_bposx[].
 i_order = i_new_ebeln .
 SHIFT i_order LEFT DELETING LEADING '0' .
 i_return-errortype = c_char_i .
 i_return-workarea = c_zsw .
 i_return-message = '064' .
 i_return-variable1 = i_order .
 loop at i_bapiret2 into i_bapiretn where type ca 'EAX' .
 append i_bapiretn to t_bapi_return .
 endloop .
 if t_bapi_return[] is initial .
 i_create_order = c_char_x .
 CALL FUNCTION 'SWD_POPUP_MESSAGE_SEND'
 EXPORTING
 act_return = i_return. "Popup with new PO no.
 ENDCASE . " Docind
 ENDIF .
ENDLOOP.

Hi Shareen,
I think in the following parts of the code,
 CALL FUNCTION 'MM_READ_PARTNERS'
 EXPORTING
 application = c_char_p
 ebeln = i_ebeln
 bstyp = i_ekko-bstyp
 pargr = i_pargr
 TABLES
 x_ekpa = i_ekpa[].
Error in : Purchase order Creation using BAPI_PO_CREATE1
Posted: Mar 20, 2006 7:39 PM Reply E-mail this post
Hell guys,
I am trying to create a PO using a BAPI - BAPI_PO_CREATE1
I want the new PO to have all the characteristics of an existing PO. whose PO # is stored in wa_order_split_create-docnr and for the new PO, i want the quantity from wa_order_split_create-qty_acptd and the delivery data to be wa_order_split_create-dly_date. But this process and code below gives a short dump in the std FM - MEPO_DOC_ITEM_GET . It raises an exception of failure. I am trying to create many new PO's in the loop below. If there is just one row, sometimes, it creates the PO even with the exception failure ( which is pretty weird).
Am i making any mistake while filling the header or item or schedule lines for the BAPI_PO_CREATE1 ? Any tips or clues why I am getting a dump ?
DATA: i_insert,
 i_create_order,
 i_cycle TYPE cycle,
 i_qty_acpt TYPE dzmeng,
 i_dly_date TYPE vbak-vdatu,
 i_item TYPE roijnomiio .
DATA: i_order TYPE symsgv,
 i_return TYPE swd_return .
DATA: i_vbak TYPE vbak,
 i_vbap TYPE vbap,
 i_ekko TYPE ekko,
 i_ekpo TYPE ekpo,
 i_bsoh TYPE bapisdhd1,
 i_bsohx TYPE bapisdhd1x,
 i_bpoh TYPE bapimepoheader,
 i_bpohx TYPE bapimepoheaderx,
 i_vbeln TYPE vbeln_va,
 i_posnr TYPE posnr_va,
 i_contr TYPE vbeln_va,
 i_conit TYPE posnr_va,
 i_ebeln TYPE ebeln,
 i_ebelp TYPE ebelp,
 i_pargr TYPE pargr,
 i_thead TYPE thead,
 i_line TYPE tline,
 i_note TYPE txw_note,
 i_new_vbeln TYPE vbeln_va,
 i_new_ebeln TYPE ebeln,
 i_wa_bsoi TYPE bapisditm,
 i_wa_bsoix TYPE bapisditmx,
 i_wa_bsop TYPE bapiparnr,
 i_wa_bsos TYPE bapischdl,
 i_wa_bsosx TYPE bapischdlx,
 i_wa_vbpa TYPE vbpa,
 i_wa_vbkd TYPE vbkd,
 i_wa_bpoi TYPE bapimepoitem,
 i_wa_bpoix TYPE bapimepoitemx,
 i_wa_bpos TYPE bapimeposchedule,
 i_wa_bposx TYPE bapimeposchedulx,
 i_wa_bpop TYPE bapiekkop,
 i_wa_ekpa TYPE ekpa,
 i_message TYPE char72,
 i_bapiretn TYPE bapiret2,
 i_bapiret2 TYPE TABLE OF bapiret2 INITIAL SIZE 1,
 i_vbpa TYPE TABLE OF vbpa INITIAL SIZE 1,
 i_vbkd TYPE TABLE OF vbkd INITIAL SIZE 1,
 i_ekpa TYPE TABLE OF ekpa INITIAL SIZE 1,
 i_bsoi TYPE TABLE OF bapisditm INITIAL SIZE 1,
 i_bsoix TYPE TABLE OF bapisditmx INITIAL SIZE 1,
 i_bsos TYPE TABLE OF bapischdl INITIAL SIZE 1,
 i_bsosx TYPE TABLE OF bapischdlx INITIAL SIZE 1,
 i_bsop TYPE TABLE OF bapiparnr INITIAL SIZE 1,
 i_bpoi TYPE TABLE OF bapimepoitem INITIAL SIZE 1,
 i_bpoix TYPE TABLE OF bapimepoitemx INITIAL SIZE 1,
 i_bpos TYPE TABLE OF bapimeposchedule INITIAL SIZE 1,
 i_bposx TYPE TABLE OF bapimeposchedulx INITIAL SIZE 1,
 i_bpop TYPE TABLE OF bapiekkop INITIAL SIZE 1,
 i_text_tab TYPE TABLE OF tline INITIAL SIZE 1,
 i_line_tab TYPE TABLE OF tline INITIAL SIZE 1,
 i_txw_note TYPE TABLE OF txw_note INITIAL SIZE 1,
 i_oij_el_doc_mot TYPE oij_el_doc_mot .
CONSTANTS: c_char_c VALUE 'C',
 c_char_e VALUE 'E',
 c_char_p VALUE 'P',
 c_char_g VALUE 'G',
 c_char_i VALUE 'I',
 c_char_s VALUE 'S',
 c_char_x VALUE 'X',
 c_zsw(3) VALUE 'ZSW',
 c_nomit_stat(4) VALUE 'ZDNY' .
DATA : lv_nomtk_split TYPE oij_nomtk.
DATA : i_order_split_create TYPE TABLE OF zsws_order_split.
DATA : wa_order_split_create TYPE zsws_order_split.
LOOP AT i_order_split_create INTO wa_order_split_create.
 IF NOT i_create_order IS INITIAL .
 CLEAR: i_create_order .
 MOVE: wa_order_split_create-docnr TO i_ebeln,
 wa_order_split_create-docitm TO i_ebelp .
 CALL FUNCTION 'ME_EKKO_SINGLE_READ'
 EXPORTING
 pi_ebeln = i_ebeln
 IMPORTING
 po_ekko = i_ekko
 EXCEPTIONS
 no_records_found = 1
 OTHERS = 2.
 IF sy-subrc <> 0 .
 ENDIF .
Fill PO Header
 i_bpoh-comp_code = i_ekko-bukrs .
 i_bpoh-doc_type = i_ekko-bsart .
 i_bpoh-vendor = i_ekko-lifnr .
 i_bpoh-langu = i_ekko-spras .
 i_bpoh-pmnttrms = i_ekko-zterm .
 i_bpoh-purch_org = i_ekko-ekorg .
 i_bpoh-pur_group = i_ekko-ekgrp .
 i_bpoh-currency = i_ekko-waers .
 i_bpoh-agreement = i_ekko-konnr .
 i_bpoh-incoterms1 = i_ekko-inco1 .
 i_bpoh-incoterms2 = i_ekko-inco2 .
Fill PO update indicator 'X'
 i_bpohx-comp_code = c_char_x .
 i_bpohx-doc_type = c_char_x .
 i_bpohx-vendor = c_char_x .
 i_bpohx-langu = c_char_x .
 i_bpohx-pmnttrms = c_char_x .
 i_bpohx-purch_org = c_char_x .
 i_bpohx-pur_group = c_char_x .
 i_bpohx-currency = c_char_x .
 i_bpohx-agreement = c_char_x .
 i_bpohx-incoterms1 = c_char_x .
 i_bpohx-incoterms2 = c_char_x .
 CALL FUNCTION 'ME_EKPO_SINGLE_READ'
 EXPORTING
 pi_ebeln = i_ebeln
 pi_ebelp = i_ebelp
 IMPORTING
 po_ekpo = i_ekpo
 EXCEPTIONS
 no_records_found = 1
 OTHERS = 2.
 IF sy-subrc <> 0 .
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF .
Fill PO Item
 i_wa_bpoi-po_item = i_ekpo-ebelp .
 i_wa_bpoi-material = i_ekpo-matnr .
 i_wa_bpoi-plant = i_ekpo-werks .
 i_wa_bpoi-stge_loc = i_ekpo-lgort .
 i_wa_bpoi-quantity = wa_order_split_create-qty_acptd .
 i_wa_bpoi-po_unit = i_ekpo-meins .
 i_wa_bpoi-tax_code = i_ekpo-mwskz .
 i_wa_bpoi-val_type = i_ekpo-bwtar .
 i_wa_bpoi-item_cat = i_ekpo-pstyp .
 i_wa_bpoi-acctasscat = i_ekpo-knttp .
 i_wa_bpoi-agreement = i_ekpo-konnr .
 i_wa_bpoi-agmt_item = i_ekpo-ktpnr .
 APPEND i_wa_bpoi TO i_bpoi .
Fill PO Item update indicator 'X'
 i_wa_bpoix-po_item = i_ekpo-ebelp .
 i_wa_bpoix-po_itemx = c_char_x .
 i_wa_bpoix-material = c_char_x .
 i_wa_bpoix-plant = c_char_x .
 i_wa_bpoix-stge_loc = c_char_x .
 i_wa_bpoix-quantity = c_char_x .
 i_wa_bpoix-po_unit = c_char_x .
 i_wa_bpoix-tax_code = c_char_x .
 i_wa_bpoix-val_type = c_char_x .
 i_wa_bpoix-item_cat = c_char_x .
 i_wa_bpoix-acctasscat = c_char_x .
 i_wa_bpoix-agreement = c_char_x .
 i_wa_bpoix-agmt_item = c_char_x .
 APPEND i_wa_bpoix TO i_bpoix .
Fill PO Item Schedule
 i_wa_bpos-po_item = i_ekpo-ebelp .
 i_wa_bpos-sched_line = '0001' .
 i_wa_bpos-delivery_date = wa_order_split_create-dly_date .
 i_wa_bpos-quantity = wa_order_split_create-qty_acptd .
 APPEND i_wa_bpos TO i_bpos .
Fill PO Item schedule update indicator 'X'
 i_wa_bposx-po_item = i_ekpo-ebelp .
 i_wa_bposx-sched_line = '0001' .
 i_wa_bposx-delivery_date = c_char_x .
 i_wa_bposx-quantity = c_char_x .
 APPEND i_wa_bposx TO i_bposx .
 CLEAR: i_pargr .
 SELECT SINGLE pargr
 INTO i_pargr
 FROM t161
 WHERE bstyp = i_ekko-bstyp
 AND bsart = i_ekko-bsart .
 CLEAR i_ekpa[].
 CALL FUNCTION 'MM_READ_PARTNERS'
 EXPORTING
 application = c_char_p
 ebeln = i_ebeln
 bstyp = i_ekko-bstyp
 pargr = i_pargr
 TABLES
 x_ekpa = i_ekpa[].
 LOOP AT i_ekpa INTO i_wa_ekpa .
 i_wa_bpop-partnerdesc = i_wa_ekpa-parvw .
 i_wa_bpop-langu = sy-langu .
 IF NOT i_wa_ekpa-lifn2 IS INITIAL .
 i_wa_bpop-buspartno = i_wa_ekpa-lifn2 .
 ELSE .
 i_wa_bpop-buspartno = i_wa_ekpa-parnr .
 ENDIF .
 APPEND i_wa_bpop TO i_bpop .
 CLEAR: i_wa_ekpa, i_wa_bpop .
 ENDLOOP .
 CALL FUNCTION 'DIALOG_SET_NO_DIALOG'.
 CALL FUNCTION 'BAPI_PO_CREATE1'
 EXPORTING
 poheader = i_bpoh
 poheaderx = i_bpohx
 IMPORTING
 exppurchaseorder = i_new_ebeln
 TABLES
 return = i_bapiret2
 poitem = i_bpoi[]
 poitemx = i_bpoix[]
 poschedule = i_bpos[]
 poschedulex = i_bposx[].
it should be only i_bpoi, i_bpoix, i_bpos, i_bposx but not i_bpoi[], i_bpoix[], i_bpos[], i_bposx[].
CHange the code as follows:
DATA: i_insert,
 i_create_order,
 i_cycle TYPE cycle,
 i_qty_acpt TYPE dzmeng,
 i_dly_date TYPE vbak-vdatu,
 i_item TYPE roijnomiio .
DATA: i_order TYPE symsgv,
 i_return TYPE swd_return .
DATA: i_vbak TYPE vbak,
 i_vbap TYPE vbap,
 i_ekko TYPE ekko,
 i_ekpo TYPE ekpo,
 i_bsoh TYPE bapisdhd1,
 i_bsohx TYPE bapisdhd1x,
 i_bpoh TYPE bapimepoheader,
 i_bpohx TYPE bapimepoheaderx,
 i_vbeln TYPE vbeln_va,
 i_posnr TYPE posnr_va,
 i_contr TYPE vbeln_va,
 i_conit TYPE posnr_va,
 i_ebeln TYPE ebeln,
 i_ebelp TYPE ebelp,
 i_pargr TYPE pargr,
 i_thead TYPE thead,
 i_line TYPE tline,
 i_note TYPE txw_note,
 i_new_vbeln TYPE vbeln_va,
 i_new_ebeln TYPE ebeln,
 i_wa_bsoi TYPE bapisditm,
 i_wa_bsoix TYPE bapisditmx,
 i_wa_bsop TYPE bapiparnr,
 i_wa_bsos TYPE bapischdl,
 i_wa_bsosx TYPE bapischdlx,
 i_wa_vbpa TYPE vbpa,
 i_wa_vbkd TYPE vbkd,
 i_wa_bpoi TYPE bapimepoitem,
 i_wa_bpoix TYPE bapimepoitemx,
 i_wa_bpos TYPE bapimeposchedule,
 i_wa_bposx TYPE bapimeposchedulx,
 i_wa_bpop TYPE bapiekkop,
 i_wa_ekpa TYPE ekpa,
 i_message TYPE char72,
 i_bapiretn TYPE bapiret2,
 i_bapiret2 TYPE TABLE OF bapiret2 INITIAL SIZE 1,
 i_vbpa TYPE TABLE OF vbpa INITIAL SIZE 1,
 i_vbkd TYPE TABLE OF vbkd INITIAL SIZE 1,
 i_ekpa TYPE TABLE OF ekpa INITIAL SIZE 1,
 i_bsoi TYPE TABLE OF bapisditm INITIAL SIZE 1,
 i_bsoix TYPE TABLE OF bapisditmx INITIAL SIZE 1,
 i_bsos TYPE TABLE OF bapischdl INITIAL SIZE 1,
 i_bsosx TYPE TABLE OF bapischdlx INITIAL SIZE 1,
 i_bsop TYPE TABLE OF bapiparnr INITIAL SIZE 1,
 i_bpoi TYPE TABLE OF bapimepoitem INITIAL SIZE 1,
 i_bpoix TYPE TABLE OF bapimepoitemx INITIAL SIZE 1,
 i_bpos TYPE TABLE OF bapimeposchedule INITIAL SIZE 1,
 i_bposx TYPE TABLE OF bapimeposchedulx INITIAL SIZE 1,
 i_bpop TYPE TABLE OF bapiekkop INITIAL SIZE 1,
 i_text_tab TYPE TABLE OF tline INITIAL SIZE 1,
 i_line_tab TYPE TABLE OF tline INITIAL SIZE 1,
 i_txw_note TYPE TABLE OF txw_note INITIAL SIZE 1,
 i_oij_el_doc_mot TYPE oij_el_doc_mot .
CONSTANTS: c_char_c VALUE 'C',
 c_char_e VALUE 'E',
 c_char_p VALUE 'P',
 c_char_g VALUE 'G',
 c_char_i VALUE 'I',
 c_char_s VALUE 'S',
 c_char_x VALUE 'X',
 c_zsw(3) VALUE 'ZSW',
 c_nomit_stat(4) VALUE 'ZDNY' .
DATA : lv_nomtk_split TYPE oij_nomtk.
DATA : i_order_split_create TYPE TABLE OF zsws_order_split.
DATA : wa_order_split_create TYPE zsws_order_split.
LOOP AT i_order_split_create INTO wa_order_split_create.
 IF NOT i_create_order IS INITIAL .
 CLEAR: i_create_order .
 MOVE: wa_order_split_create-docnr TO i_ebeln,
 wa_order_split_create-docitm TO i_ebelp .
 CALL FUNCTION 'ME_EKKO_SINGLE_READ'
 EXPORTING
 pi_ebeln = i_ebeln
 IMPORTING
 po_ekko = i_ekko
 EXCEPTIONS
 no_records_found = 1
 OTHERS = 2.
 IF sy-subrc <> 0 .
 ENDIF .
Fill PO Header
 i_bpoh-comp_code = i_ekko-bukrs .
 i_bpoh-doc_type = i_ekko-bsart .
 i_bpoh-vendor = i_ekko-lifnr .
 i_bpoh-langu = i_ekko-spras .
 i_bpoh-pmnttrms = i_ekko-zterm .
 i_bpoh-purch_org = i_ekko-ekorg .
 i_bpoh-pur_group = i_ekko-ekgrp .
 i_bpoh-currency = i_ekko-waers .
 i_bpoh-agreement = i_ekko-konnr .
 i_bpoh-incoterms1 = i_ekko-inco1 .
 i_bpoh-incoterms2 = i_ekko-inco2 .
Fill PO update indicator 'X'
 i_bpohx-comp_code = c_char_x .
 i_bpohx-doc_type = c_char_x .
 i_bpohx-vendor = c_char_x .
 i_bpohx-langu = c_char_x .
 i_bpohx-pmnttrms = c_char_x .
 i_bpohx-purch_org = c_char_x .
 i_bpohx-pur_group = c_char_x .
 i_bpohx-currency = c_char_x .
 i_bpohx-agreement = c_char_x .
 i_bpohx-incoterms1 = c_char_x .
 i_bpohx-incoterms2 = c_char_x .
 CALL FUNCTION 'ME_EKPO_SINGLE_READ'
 EXPORTING
 pi_ebeln = i_ebeln
 pi_ebelp = i_ebelp
 IMPORTING
 po_ekpo = i_ekpo
 EXCEPTIONS
 no_records_found = 1
 OTHERS = 2.
 IF sy-subrc <> 0 .
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF .
Fill PO Item
 i_wa_bpoi-po_item = i_ekpo-ebelp .
 i_wa_bpoi-material = i_ekpo-matnr .
 i_wa_bpoi-plant = i_ekpo-werks .
 i_wa_bpoi-stge_loc = i_ekpo-lgort .
 i_wa_bpoi-quantity = wa_order_split_create-qty_acptd .
 i_wa_bpoi-po_unit = i_ekpo-meins .
 i_wa_bpoi-tax_code = i_ekpo-mwskz .
 i_wa_bpoi-val_type = i_ekpo-bwtar .
 i_wa_bpoi-item_cat = i_ekpo-pstyp .
 i_wa_bpoi-acctasscat = i_ekpo-knttp .
 i_wa_bpoi-agreement = i_ekpo-konnr .
 i_wa_bpoi-agmt_item = i_ekpo-ktpnr .
 APPEND i_wa_bpoi TO i_bpoi .
Fill PO Item update indicator 'X'
 i_wa_bpoix-po_item = i_ekpo-ebelp .
 i_wa_bpoix-po_itemx = c_char_x .
 i_wa_bpoix-material = c_char_x .
 i_wa_bpoix-plant = c_char_x .
 i_wa_bpoix-stge_loc = c_char_x .
 i_wa_bpoix-quantity = c_char_x .
 i_wa_bpoix-po_unit = c_char_x .
 i_wa_bpoix-tax_code = c_char_x .
 i_wa_bpoix-val_type = c_char_x .
 i_wa_bpoix-item_cat = c_char_x .
 i_wa_bpoix-acctasscat = c_char_x .
 i_wa_bpoix-agreement = c_char_x .
 i_wa_bpoix-agmt_item = c_char_x .
 APPEND i_wa_bpoix TO i_bpoix .
Fill PO Item Schedule
 i_wa_bpos-po_item = i_ekpo-ebelp .
 i_wa_bpos-sched_line = '0001' .
 i_wa_bpos-delivery_date = wa_order_split_create-dly_date .
 i_wa_bpos-quantity = wa_order_split_create-qty_acptd .
 APPEND i_wa_bpos TO i_bpos .
Fill PO Item schedule update indicator 'X'
 i_wa_bposx-po_item = i_ekpo-ebelp .
 i_wa_bposx-sched_line = '0001' .
 i_wa_bposx-delivery_date = c_char_x .
 i_wa_bposx-quantity = c_char_x .
 APPEND i_wa_bposx TO i_bposx .
 CLEAR: i_pargr .
 SELECT SINGLE pargr
 INTO i_pargr
 FROM t161
 WHERE bstyp = i_ekko-bstyp
 AND bsart = i_ekko-bsart .
 CLEAR i_ekpa[].
 CALL FUNCTION 'MM_READ_PARTNERS'
 EXPORTING
 application = c_char_p
 ebeln = i_ebeln
 bstyp = i_ekko-bstyp
 pargr = i_pargr
 TABLES
 x_ekpa = i_ekpa.
 LOOP AT i_ekpa INTO i_wa_ekpa .
 i_wa_bpop-partnerdesc = i_wa_ekpa-parvw .
 i_wa_bpop-langu = sy-langu .
 IF NOT i_wa_ekpa-lifn2 IS INITIAL .
 i_wa_bpop-buspartno = i_wa_ekpa-lifn2 .
 ELSE .
 i_wa_bpop-buspartno = i_wa_ekpa-parnr .
 ENDIF .
 APPEND i_wa_bpop TO i_bpop .
 CLEAR: i_wa_ekpa, i_wa_bpop .
 ENDLOOP .
 CALL FUNCTION 'DIALOG_SET_NO_DIALOG'.
 CALL FUNCTION 'BAPI_PO_CREATE1'
 EXPORTING
 poheader = i_bpoh
 poheaderx = i_bpohx
 IMPORTING
 exppurchaseorder = i_new_ebeln
 TABLES
 return = i_bapiret2
 poitem = i_bpoi
 poitemx = i_bpoix
 poschedule = i_bpos
 poschedulex = i_bposx.
 i_order = i_new_ebeln .
 SHIFT i_order LEFT DELETING LEADING '0' .
 i_return-errortype = c_char_i .
 i_return-workarea = c_zsw .
 i_return-message = '064' .
 i_return-variable1 = i_order .
 loop at i_bapiret2 into i_bapiretn where type ca 'EAX' .
 append i_bapiretn to t_bapi_return .
 endloop .
 if t_bapi_return[] is initial .
 i_create_order = c_char_x .
 CALL FUNCTION 'SWD_POPUP_MESSAGE_SEND'
 EXPORTING
 act_return = i_return. "Popup with new PO no.
 ENDCASE . " Docind
 ENDIF .
ENDLOOP.

BAPI to Reject purchase order

Hi All
Kindly let us know if there is any BAPI to Reject purchase order (ME29N)
Thanks

Hi,
Try this,
BAPI_PO_RELEASE
see the below link for more help.
Re: BAPI to reject PO (like ME29N functionality to reject PO)
Regards,
Vijay

Bapi to create purchase order

Hi Experts,
I need to find a bapi to put purchase orders using co08.Please let me know if some bapi or function module exists there for the same.
Thanks in advance

See th Business object BUS2012
u can see all bapis for Purchase order.
BAPI_PO_CREATE
BAPI_PO_CREATE1 to create purchase order.
<REMOVED BY MODERATOR>
Regards,
Vimal
Message was edited by:
Alvaro Tejada Galindo

BAPI for Mass Purchase Order Confirmation

Dear All,
In standard SAP,it is possible to confirm for single line item only by using confirmation tab.
We want to confirm Mass PO Confirmation.
Is there any BAPI for Mass Purchase Order Confirmation?
Regards,
Ramesh

Hi Sumant,
I have tried with TC:MASS.
By using this TC we can update quantity but not delivery date & Confirmation Control (Fields available in the confirmation tab of ME22n for Vendor Confirmation).
Is there any way to updates all these fields which are available in the Confirmation Tab?
Is there any BAPI which is tranferring confirmation tab details into EKES table?
Expecting your valuable inputs in this regard.
Regards,
Ramesh

Output error in purchase order 3000000002 for output medium PRN

Hello,
I got this error message:
'Output error in purchase order 3000000002 for output medium PRN'
Regards,
Lina

Hi
Please go through this ->
To set Output type,check the foll path:
SPRO->supplier relationship management-> SRM Server->Cross application basic setting->set output action and output format
See the foll link for more details:
http://help.sap.com/saphelp_srm50/helpdata/en/91/41faf2c220e84c9002a4ae4cc1906a/frameset.htm
Look for BADI "BBP_SEND_MEDIUM_MODE ".
Related notes:
Note 1028388 - User settings for output medium is not saved.
Note 885593 - SRM 5.0 SP02: Incorrect output medium and change impossible
Do let me know.
Regards
- Atul

When creating entry sheet,the error raise:purchase order incomplete(parked)

dear all:
When I create entry sheet of one po with tcode ml81n,the error raise:purchase order incomplete(parked)message id:se215.
How to solve this?Thank you!
maojian

hi Jian,
Go into the PO using ME22N, check whether there is any warning message in it.Complete the PO and then only save it.
Also check whether the PO is to be released,if it is yes then Release it and then create Entry Sheet using ML81N.wrt PO.
Also check whether you are referencing a park or hold PO.
Hope it will help you.
Cheers
Manoj K Singh

Error release purchase order using transaction code me29n

i have warning error this purchasing document number cannot be released.
while i enter me29n t code.why?
then how to release purchase order using me29n t code?
can anyone answer this two questions.

hi
i have warning error this purchasing document number cannot be released. while i enter me29n t code.why?
is the release strategy is triggred for the po ?? check thisin P order in me23n ,in header level check release strategy tab ,
then how to release purchase order using me29n t code? can anyone answer this two questions.
just go to me29n >release strategy tab here just click on the release button in front of the release code

Unit of Measure Error in Purchase order

Hi Gurus,
While saving the Purchase order i am getting the Error message
"Unit of measure KG not defined for language GB."
We are trying to place this PO outside the US .PR already created and released.But when i am converting the PO and saving it gives me this error .
Thanks a lot in Advance
Edited by: Metroid01 on Jul 23, 2009 12:55 AM

How do i create the UOM in CUNI for the specific language? I can see the below
Int meas unit---->KG
Display
Commercial--->KG
Technical----> Kg(in Po it is taking g is lower case)
in ALE/EDI--->ISO Code is EA.
Can you check this if it is the right set up in config.
Thanks a lot for the help.

Error in Purchase Order Workflow

Hi,
I am facing an problem in Purchase Order Workflow. We are working on ECC6.0 Version. I activated the PO workflow WS20000075 (BUS2012) for the PO release strategy. I assigned an user for the task "Release Purchase Order effected" that is step 000107 and after that I deassigned that user from that step.
Now I am facing a problem, that the workflow is getting deactivated and unable to go further because it is getting an error in resolving the agent at that release effected step even after I deassigned the user. Every time I need to go to type event linkages to activate type event for the workflow.
The error it is raising is SWF_RUN 544.
So can anyone suggest me some solution for this and highly appreciated for the quick response.
Thanks & Regards,
Ramesh S

Hi Krishna,
Thanks for the reply. But here I donot want the agent to be assigned to that step. I already deassigned the agent from there but still it is giving me the error saying that unable to resolve the agent.
Thanks & Regards,
Ramesh S

Error in purchase order creation

Hi,
While doing me21n systyem throwing error message.
"purchase order unit "TO" allows fewer decimal places only"
i want to enter purchase order quantity as 100.200 Tonnes
but system is not allow this quantity how to rectify this error.
regards,
mehboob

Hi Mehboob,
This is in configuration.
Go to CUNI transaction code.
Select TO unit of measure and change its decimal places.
Please let me know if this works for you.
Regards,
Abhay Kapase

Error on Purchase Order - Document number 45* not within defined interval

Hi All,
PLEASE HELP ME or guide me in the right direction.
I am faced with a somewhat unique case in our enviroment. Some background first.
Back in 2000 when we upgraded from Walker to SAP, a number of Purchase orders had to be migrated, one of them is the order i am struggling with. Back then very little validations were built in, resulting in a Local Order being incorrectly created as a International Order but against a local currency.
Now this ordered is still being reflected as open in our system. When attempting to change the order by activating the 'Delivery Complete indicator", we get an error "use only foreign currency" This is due to the fact that validations against Document Type and Currency was created in 2003 and are in full operation now. It is hard coded thus i can not remove this easily.
Now when attempting to get around this by changing the Document Type to a Local Purchase order or trying to delete a line, we get the error below.
"Document number 45* not within defined interval"
Number ranges do come to mind based on the error description, however, Local Orders have a number range of 45, International Orders have a number range of 47. In this case, the order is created as a International Order BUT the number range is 45*, again, due to a lack of validations/incorrect config back in 2000
Do any of you know a possible solution to such a problem.
Regards,
Jody Ponnusami.

The validation of document type and currency is not standard, and if this validation cannot be deactivated, then you will have to resort to making changes in debug mode. Put a breakpoint at the relevant check and force it to accept the current combination.
The second option is to update EKPO table manually using SE16N. Set the delivery completed indicator to X.

Memory Error in Purchase Order

Hi All,
In the Purchase Order, after selecting the BP Code and select the Item Code window, it will display a new window with List of Items, there it displays the items and with in some time it pops up the message "Insufficent memory error". "SAP Business One applications has run out of memory; it will shut down automatically in order to prevent data inconsistencies".
once i click on OK Button the application exits.
the configuration on the server is 1GB RAM, with 1.5 GB of free space.
the masters in the Database are:
COA: - 5000 Master
BP : 8000 (7000 --> Vendors, 1000 --> Customers)
Items : 27800
No. of Transactions : NIL
Please help me out
Regards
Shanker

Hi Jeyakanthan,
Thanks for the reply,
I already have both the documents (Size estimator XL File and Hardware Estimator PDF File).
The configuration we have is more than the specified one by SAP.
Currently the database size is around 640 MB, and that without any transactions.
The database size was around 50 MB, which is after importing the COA, BP, and added 50 UDF's, 10 warehouses, document numbering for all transactions except CRM, HR.
After importing the Item Masters which is around 28000, the size of the database has been increased to 640 MB.
Please help me out.
Regards
Shanker

BAPI to change purchase order to put deletion flag

Hello Guru's,
 We are about to archive data & for that we need that according to date range all open purchase order ,open purchase requsitions & open RFQ should be marked for deletion.
Is there some BAPI to do so.Please guide.

*DELETING FLAG *
REPORT ZMMR_DELETEPO NO STANDARD PAGE HEADING MESSAGE-ID zisb.
tables : zvtls_sap.
*C-- Types Declarations
TYPES : BEGIN OF tp_flatfile_vtls,
 ebeln(10),
 ebelp type ekpo-ebelp,
 END OF tp_flatfile_vtls.
*=====================================================================
 INTERNAL TABLES DECLARATION
*=====================================================================
DATA: t_flatfile_vtls TYPE tp_flatfile_vtls OCCURS 0 WITH HEADER LINE.
data : begin of t_sapdata occurs 0,
 po like zvtls_sap-posap,
 item like zvtls_sap-itemsap,
 end of t_sapdata.
data : begin of t_flatfile_vtls1 occurs 0,
 po(10),
 item like zvtls_sap-itemsap,
 end of t_flatfile_vtls1.
data : begin of t_update occurs 0,
 mandt like zvtls_sap-mandt,
 povtls like zvtls_sap-povtls,
 itemvtls like zvtls_sap-itemvtls,
 posap like zvtls_sap-posap,
 itemsap like zvtls_sap-itemsap,
 aedat like zvtls_sap-aedat,
 paedt like zvtls_sap-paedt,
 loekz like zvtls_sap-loekz,
 end of t_update.
data : begin of t_poheader occurs 0,
 po like zvtls_sap-posap,
 end of t_poheader.
data : begin of t_poitem occurs 0,
 po like zvtls_sap-posap,
 item like zvtls_sap-itemsap,
 end of t_poitem.
DATA : BEGIN OF T_MESSAGE OCCURS 0,
 MSGTY,
 MSGID(2),
 MSGNO(3),
 MSGTX(100),
 PO like zvtls_sap-povtls,
 item like zvtls_sap-itemvtls,
 END OF T_MESSAGE.
DATA : BEGIN OF t_bapi_poheader OCCURS 0.
 INCLUDE STRUCTURE bapimepoheader.
DATA : END OF t_bapi_poheader.
DATA : BEGIN OF t_bapi_poheaderx OCCURS 0.
 INCLUDE STRUCTURE bapimepoheaderx.
DATA : END OF t_bapi_poheaderx.
DATA : BEGIN OF t_bapi_poitem OCCURS 0.
 INCLUDE STRUCTURE bapimepoitem.
DATA : END OF t_bapi_poitem.
DATA : BEGIN OF t_bapi_poitemx OCCURS 0.
 INCLUDE STRUCTURE bapimepoitemx.
DATA : END OF t_bapi_poitemx.
DATA : BEGIN OF t_bapireturn OCCURS 0.
 INCLUDE STRUCTURE bapiret2.
DATA : END OF t_bapireturn.
*=====================================================================
 V A R I A B L E S
*=====================================================================
DATA: w_success(6) TYPE n,
 w_bklas like t023-bklas,
 w_curryear(4),
 w_begda like sy-datum,
 w_endda like sy-datum,
 w_begyr(4),
 w_endyr(4),
 w_currmon(2),
 w_assetclass like ankt-anlkl,
 w_price type p,
 w_recordsap type i,
 w_povtls(10),
 w_count type i.
DATA: w_filepath TYPE rlgrap-filename,
 w_rc TYPE sy-subrc,
 w_sscrfields_ucomm1 TYPE sscrfields-ucomm,
 w_file1 TYPE string,
 w_file2 TYPE FILENAME-FILEINTERN.
*=====================================================================
 C O N S T A N T S
*=====================================================================
CONSTANTS: c_x TYPE c VALUE 'X',
 c_hyp TYPE c VALUE '-',
 c_err TYPE bdc_mart VALUE 'E'.
CONSTANTS: c_slash(1) TYPE c VALUE '/',
 c_hash(1) TYPE c VALUE '#',
 c_pipe TYPE c VALUE '|',
 c_1 TYPE i VALUE 1,
 c_zero TYPE n VALUE '0',
 c_rg1(3) TYPE c VALUE 'rg1',
 c_gr3(3) TYPE c VALUE 'GR3',
 c_gr2(3) TYPE c VALUE 'GR2',
 c_e(1) TYPE c VALUE 'E',
 c_filepath(8) TYPE c VALUE '/interf/',
 c_filetype(10) TYPE c VALUE 'ASC'.
CONSTANTS : c_bapimepoheaderx TYPE x030l-tabname
 VALUE 'bapimepoheaderx',
 c_bapimepoitem TYPE x030l-tabname
 VALUE 'bapimepoitem',
 c_bapimepoaccount TYPE x030l-tabname
 VALUE 'bapimepoaccount',
 c_t_bapi_poheader(15) TYPE c
 VALUE 't_bapi_poheader',
 c_t_bapi_poitem(13) TYPE c
 VALUE 't_bapi_poitem',
 c_t_bapi_poitemx(14) TYPE c
 VALUE 't_bapi_poitemx',
 c_t_bapi_poheaderx(16) TYPE c
 VALUE 't_bapi_poheaderx'.
CLASS cl_abap_char_utilities DEFINITION LOAD.
CONSTANTS:con_tab TYPE c VALUE cl_abap_char_utilities=>horizontal_tab.
*======================================================================
 SELECTION SCREEN
*======================================================================
SELECTION-SCREEN BEGIN OF BLOCK inputpath WITH FRAME TITLE text-001.
SELECTION-SCREEN : BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
PARAMETERS : p_fore RADIOBUTTON GROUP rg1
 USER-COMMAND pc,
 p_back RADIOBUTTON GROUP rg1 DEFAULT 'X'.
SELECTION-SCREEN : END OF BLOCK blk2.
SELECTION-SCREEN : BEGIN OF BLOCK blk1 WITH FRAME TITLE text-003.
PARAMETERS : p_file1 LIKE rlgrap-filename OBLIGATORY MODIF ID gr2.
PARAMETERS : p_afile1 LIKE rlgrap-filename OBLIGATORY MODIF ID gr3.
SELECTION-SCREEN : END OF BLOCK blk1.
SELECTION-SCREEN END OF BLOCK inputpath.
*C-- Initialization Event
INITIALIZATION.
CLEAR w_filepath.
CONCATENATE c_filepath sy-sysid c_slash sy-mandt c_slash INTO
w_filepath.
CONDENSE w_filepath NO-GAPS.
p_file1 = text-008.
p_afile1 = text-009.
*======================================================================
 SELECTION SCREEN EVENTS
*======================================================================
*C-- Selection Screen Output
AT SELECTION-SCREEN OUTPUT.
IF p_fore = c_x.
 w_sscrfields_ucomm1 = space.
ELSE.
 w_sscrfields_ucomm1 = c_rg1.
ENDIF.
LOOP AT SCREEN.
*C--Modify selection screen if presentation
*C--or application server radio button is chosen
 IF w_sscrfields_ucomm1 = space.
 IF screen-group1 = c_gr3.
 screen-active = c_zero.
 ENDIF.
 ELSE.
 IF screen-group1 = c_gr2.
 screen-active = c_zero.
 ENDIF.
 ENDIF.
 if screen-name = 'P_AFILE1'.
 screen-input = 0.
 ENDIF.
 MODIFY SCREEN.
ENDLOOP.
*C-- Selection Screen VALUE-REQUEST FOR File path
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file1.
IF p_fore EQ c_x.
 CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = syst-cprog
 dynpro_number = syst-dynnr
 IMPORTING
 file_name = p_file1.
ENDIF.
*C-- At Start of the Selection Process
START-OF-SELECTION.
IF p_fore EQ c_x.
 w_file1 = p_file1.
ELSE.
 w_file2 = p_afile1.
ENDIF.
IF p_fore EQ c_x. " Presentaion Server
*C--Validations for the input files
 PERFORM validate_pre_file USING p_file1.
*C-- Load the contents of the input file into the internal table
 PERFORM upload_file TABLES t_flatfile_vtls
 USING w_file1
 CHANGING w_rc.
 IF w_rc <> 0.
 MESSAGE s006 DISPLAY LIKE c_e.
 ENDIF.
ELSE. " Application Server
*C--Validations for the input files
 PERFORM validate_app_file USING w_file2.
*C-- Load the contents of the input file into the internal table
 PERFORM upload_file_app TABLES t_flatfile_vtls
 USING w_file2
 CHANGING w_rc.
ENDIF.
loop at t_flatfile_vtls.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = t_flatfile_vtls-ebeln
 IMPORTING
 output = t_flatfile_vtls1-po.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 input = t_flatfile_vtls-ebelp
 IMPORTING
 output = t_flatfile_vtls1-item.
 append t_flatfile_vtls1.
 clear t_flatfile_vtls1.
endloop.
perform get_podata.
loop at t_poheader.
 perform move_to_bapi.
 perform call_bapi.
endloop.
PERFORM STORE_MESSAGES TABLES T_MESSAGE.
*& Form validate_pre_file
 Routine to validate presentation server file path.
 -->fp_name text
FORM validate_pre_file USING fp_name TYPE rlgrap-filename.
DATA : l_result,
 l_filename TYPE string.
l_filename = fp_name.
CLEAR l_result.
CALL METHOD cl_gui_frontend_services=>file_exist
 EXPORTING
 file = l_filename
 RECEIVING
 result = l_result
 EXCEPTIONS
 cntl_error = 1
 error_no_gui = 2
 wrong_parameter = 3
 not_supported_by_gui = 4
 OTHERS = 5.
IF sy-subrc <> 0.
 MESSAGE s007 DISPLAY LIKE c_e.
 LEAVE LIST-PROCESSING.
ELSEIF l_result IS INITIAL.
 MESSAGE s008 DISPLAY LIKE c_e.
 LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM. " validate_pre_file_hdr
*& Form validate_app_file
 text - Checks if the path entered and filename is correct
FORM validate_app_file USING fp_file TYPE FILENAME-FILEINTERN.
data : l_fname(60).
CALL FUNCTION 'FILE_GET_NAME'
 EXPORTING
 LOGICAL_FILENAME = FP_FILE
 OPERATING_SYSTEM = SY-OPSYS
 IMPORTING
 FILE_NAME = L_FNAME
 EXCEPTIONS
 FILE_NOT_FOUND = 1
 OTHERS = 2.
IF SY-SUBRC = '0'.
 OPEN DATASET L_FNAME FOR INPUT IN TEXT MODE ENCODING DEFAULT.
 IF sy-subrc NE 0.
 MESSAGE s007 DISPLAY LIKE c_e.
 ELSE.
 CLOSE DATASET l_fname.
 ENDIF.
ENDIF.
ENDFORM. " validate_app_file
*& Form upload_file
 Routine to upload data from file to tables.
 -->P_fp_flatfile
 -->P_fp_file
 <--P_fp_rc
FORM upload_file TABLES fp_flatfile
 USING fp_file TYPE string
 CHANGING fp_rc TYPE sy-subrc.
IF fp_flatfile[] IS INITIAL.
 CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 filename = fp_file
 filetype = c_filetype
 has_field_separator = c_x
 TABLES
 data_tab = fp_flatfile
 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.
 MOVE sy-subrc TO fp_rc.
ENDIF.
ENDFORM. " upload_file
*& Form upload_file_app
 text
 -->FP_FLATFILEtext
 -->FP_FILE text
 -->FP_RC text
FORM upload_file_app TABLES fp_flatfile
 USING fp_file TYPE FILENAME-FILEINTERN
CHANGING fp_rc TYPE sy-subrc.
DATA: l_string TYPE tedata-data.
DATA: wa_data_file TYPE tp_flatfile_vtls,
 l_wllength TYPE i,
 FNAME(60).
CALL FUNCTION 'FILE_GET_NAME'
 EXPORTING
 LOGICAL_FILENAME = FP_FILE
 OPERATING_SYSTEM = SY-OPSYS
 IMPORTING
 FILE_NAME = FNAME
 EXCEPTIONS
 FILE_NOT_FOUND = 1
 OTHERS = 2.
IF SY-SUBRC = 0.
 OPEN DATASET FNAME FOR INPUT IN TEXT MODE ENCODING DEFAULT.
 IF sy-subrc NE 0.
*C-- commented by Bikash
 MESSAGE s107(yaero_ps) DISPLAY LIKE c_e.
 message e008.
 ELSE.
 DO.
 CLEAR: l_string.
 READ DATASET FNAME INTO l_string LENGTH l_wllength.
 IF sy-subrc NE 0.
 EXIT.
 ELSE.
 SPLIT l_string AT con_tab INTO wa_data_file-ebeln
 wa_data_file-ebelp.
 APPEND wa_data_file TO fp_flatfile.
 ENDIF.
 ENDDO.
 CLOSE DATASET FNAME.
 ENDIF.
ENDIF.
ENDFORM. " upload_file_app
*& Form get_podata
 text
form get_podata.
select *
into table t_update
from zvtls_sap
for all entries in t_flatfile_vtls1
 where itemvtls = t_flatfile_vtls1-item
and povtls = t_flatfile_vtls1-po.
sort t_update by posap itemsap.
loop at t_update.
 at new posap.
 t_poheader-po = t_update-posap.
 append t_poheader.
 clear t_poheader.
 endat.
 t_poitem-po = t_update-posap.
 t_poitem-item = t_update-itemsap.
 append t_poitem.
 clear t_poitem.
 t_update-paedt = sy-datum.
 t_update-loekz = 'X'.
 modify t_update.
endloop.
modify zvtls_sap from table t_update.
endform. "get_podata
*& Form move_to_bapi
 text
form move_to_bapi.
t_bapi_poheader-po_number = t_poheader-po.
CLEAR t_bapi_poheaderx.
PERFORM fill_check_structure USING c_bapimepoheaderx
 c_t_bapi_poheader
 c_t_bapi_poheaderx
 c_x.
refresh : t_bapi_poitem,t_bapi_poitemx.
loop at t_poitem where po = t_poheader-po.
 clear t_bapi_poitem.
 t_bapi_poitem-po_item = t_poitem-item.
 t_bapi_poitem-delete_ind = 'X'.
 CLEAR t_bapi_poitemx.
 PERFORM fill_check_structure USING c_bapimepoitem
 c_t_bapi_poitem
 c_t_bapi_poitemx
 c_x.
 t_bapi_poitemx-po_item = t_poitem-item.
 t_bapi_poitemx-po_itemx = c_x.
 APPEND t_bapi_poitem.
 APPEND t_bapi_poitemx.
 clear t_bapi_poitem.
 clear t_bapi_poitemx.
endloop.
endform. "move_to_bapi
*& Form call_bapi
 This form Routine is used to commit the data records
FORM call_bapi .
DATA : l_msgty TYPE c,
 l_msgid(2) TYPE c,
 l_msgno(3) TYPE c,
 l_msgtx(100) TYPE c,
 l_errflag TYPE c.
CLEAR: t_bapireturn.
REFRESH: t_bapireturn.
*CALL FUNCTION 'BAPI_PO_CHANGE'*
 EXPORTING
 PURCHASEORDER = T_POHEADER-PO
 POHEADER = T_BAPI_POHEADER
 POHEADERX = T_BAPI_POHEADERX
 TABLES
 RETURN = T_BAPIRETURN
 POITEM = T_BAPI_POITEM
 POITEMX = T_BAPI_POITEMX.
READ TABLE t_bapireturn WITH KEY type = c_err TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
 EXPORTING
 wait = c_x.
ENDIF.
*C-- Write messages
WRITE: / 'PO Number', t_poheader-po.
clear : t_update,w_povtls.
read table t_update with key posap = t_poheader-po.
w_povtls = t_update-povtls.
CLEAR l_errflag.
LOOP AT t_bapireturn.
 CLEAR: l_msgty, l_msgid, l_msgno, l_msgtx.
 l_msgty = t_bapireturn-type.
 l_msgid = t_bapireturn-id.
 l_msgno = t_bapireturn-number.
 l_msgtx = t_bapireturn-message.
 WRITE: / l_msgty, l_msgid, l_msgno, l_msgtx.
 if l_msgtx cs t_poheader-po.
 w_count = w_count + 1.
 loop at t_update.
 if sy-tabix = w_count.
 t_message-item = t_update-itemvtls.
 endif.
 endloop.
 endif.
 t_message-msgty = l_msgty.
 t_message-msgid = l_msgid.
 t_message-msgno = l_msgno.
 t_message-msgtx = l_msgtx.
 t_message-po = w_povtls.
 append t_message.
 clear t_message.
 IF l_msgty EQ c_err.
 l_errflag = c_x.
 ENDIF. " l_msgty EQ 'E'
ENDLOOP.
ULINE.
IF l_errflag NE c_x.
 w_success = w_success + 1.
ENDIF. " l_errflag NE C_X
endform. "call_bapi
*& Form fill_check_structure
 This form Routine will check whether the specified structure
 exist/active
FORM fill_check_structure USING fp_tabname TYPE any
 fp_orgtabname TYPE any
 fp_chktabname TYPE any
 fp_check TYPE c.
FIELD-SYMBOLS : <fs_chk>, <fs_org>.
DATA: l_char1(61) TYPE c,
 l_char2(61) TYPE c.
DATA: BEGIN OF tl_nametab OCCURS 60.
 INCLUDE STRUCTURE x031l.
DATA: END OF tl_nametab.
REFRESH tl_nametab.
CALL FUNCTION 'RFC_GET_NAMETAB'
 EXPORTING
 tabname = fp_tabname
 TABLES
 nametab = tl_nametab
 EXCEPTIONS
 table_not_active = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 CLEAR tl_nametab.
ENDIF.
LOOP AT tl_nametab.
 CLEAR: l_char1, l_char2.
 CONCATENATE fp_chktabname c_hyp tl_nametab-fieldname INTO l_char1.
 ASSIGN (l_char1) TO <fs_chk>.
 CONCATENATE fp_orgtabname c_hyp tl_nametab-fieldname INTO l_char2.
 ASSIGN (l_char2) TO <fs_org>.
 IF <fs_org> IS NOT INITIAL.
 <fs_chk> = fp_check.
 ENDIF.
ENDLOOP.
ENDFORM. " fill_check_structure
*& Form STORE_MESSAGES
 text
 -->FP_MESSAGEStext
FORM STORE_MESSAGES TABLES FP_MESSAGES STRUCTURE T_MESSAGE.
DATA: wl_output_data LIKE t_MESSAGE.
DATA: l_catstr TYPE string.
DATA: l_fieldvalue TYPE string.
DATA: l_index TYPE i VALUE 1.
DATA: L_FNAME(60).
FIELD-SYMBOLS <fs>.
CLEAR l_catstr.
CALL FUNCTION 'FILE_GET_NAME'
 EXPORTING
 LOGICAL_FILENAME = '/USR/SAP/VTLS/POCHANGE/LOG'
 OPERATING_SYSTEM = SY-OPSYS
 IMPORTING
 FILE_NAME = L_FNAME
 EXCEPTIONS
 FILE_NOT_FOUND = 1
 OTHERS = 2.
IF SY-SUBRC = '0'.
 IF fp_messages[] IS NOT INITIAL.
 OPEN DATASET L_FNAME FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
 IF sy-subrc NE 0.
 LEAVE LIST-PROCESSING.
 ELSE.
 LOOP AT fp_messages INTO wl_output_data.
 DO.
 ASSIGN COMPONENT l_index OF STRUCTURE wl_output_data TO <fs>.
 IF sy-subrc <> 0.
 EXIT.
 ENDIF.
 MOVE <fs> TO l_fieldvalue.
 IF l_catstr IS NOT INITIAL.
 CONCATENATE l_catstr l_fieldvalue INTO l_catstr SEPARATED
 BY con_tab.
 ELSE.
 MOVE l_fieldvalue TO l_catstr.
 ENDIF.
 l_index = l_index + c_1.
 CLEAR l_fieldvalue.
 CLEAR <fs>.
 ENDDO.
 l_index = c_1.
 TRANSFER l_catstr TO L_FNAME .
 CLEAR wl_output_data.
 CLEAR l_catstr.
 ENDLOOP.
 CLOSE DATASET L_FNAME.
 ENDIF.
 ENDIF.
ENDIF.
ENDFORM. "STORE_MESSAGES

Bapi for subcontracting purchase order

Hi,
is there a BAPI allowing to create a subcontracting purchase order?
Best regards.

Hello,
BAPI_PO_CREATE and BO: BUS2012.
BAPIEKPOC = ITEM_CAT (3 - Subcontracting)
Regds, Murugesh AS

BAPI errors in Purchase Order

Similar Messages

Maybe you are looking for