Bapi delting pos

now i am creating BAPI for deleting purchase orders using bapi_po_change. help me in this.tell me how to start this.which bisiness object i have to use.its urgent.plz.

Hello,
You can check if there is an error returning from backend.
Follow the steps below:
- Breakpoint at FM B46B_DPO_TRANSFER;
- SE37 BBP_PD_PO_TRANSFER_EXEC, enter PO header GUID and execute;
- Program will stop at FM where the BP was set.
- Look for statement CALL FUNCTION 'BBP_PO_INBOUND' DESTINATION lv_destination;
- F6 or F5 to debug into ERP (2nd session will start). Here you can check the table lt_bapi_return in order to check the result.
If you have a RFC with dialog user, you can debug through the ECC system and check why and when the error message is generated.
Regards,
Ricardo

Similar Messages

I need a BAPI or function that can create a PO without the purchase req.

I need a BAPI or function that can create a PO without the reference to a purchase requisition. We are creating "direct POs" (with no reference to PR) manually. And we have a large amount of documents to create. I can't figure out if BAPI_PO_CREATE and BAPI_PO_CREATE1 can help us by doing this, because I've understood this BAPIs creates POs only with the reference to a purchase requisition.
Thanks in advance!!
Sebastian

Sorry I'm late guys, I couldn't replay your posts because I was busy.
Charlie,
...just because we have the data already in the SAP system.
My client doesn't want purchase requisitions to be created from the PM orders. Instead he asked us to create the purchase workflow by generating direct purchase orders from the PM orders, basically taking the information from the purchase agreement within the order's tasks. Maybe you don't understand a bit what I'm saying, but let me get this straight: we can't use LSMW because data doesn't come from a legacy.
Ian,
...after all, and like you've said, we're gonna use BAPI_PO_CREATE1 for creating the POs. Today I finally realized that, purchase requisitions aren't mandatory for the bapi to perform the process. If something goes wrong, I'll let you know.
Thanks anyway for your attention.
Sebastian

Credit Mgmt at POS

Hi,
I want to perform credit check of customer at POS . Sales will happen at POS , and if the credit limit exceeds the Limit Assigned an error message to be shown.
I know how it can be done in normal Order to Cash process , but how do i assign it in POS level.
REgards

the solution depends on your POS system landscape. is it SAP POS or 3rd party POS?
if it's 3rd party POS and,
if your POS is offline, then you must send the data related to credit limit to POS. if it's online, then you can check the credit limit by calling a BAPI from POS.
finally, it's necessary to have your POS vendor develop the popup message.

BAPI/FM to get    pending puchase orders(POs) for vendor

Hi Gurus,
could u tel me any BAPI/FM to get pending POs
that means   not yet created GRs and partially created GRs(some
quantity) and   invoices.what are the tables and fields which we need
to use to get pending purchase orders.
Any status fields are ?
very thankful to ur help
Sivakumar

hi,
BAPI - Business process adds-in....
By its name we can understand that it provides the added functionality in the SAP system, which are not provided in the raw sap system....
But for you requirement, there is already a report existing in the std SAP system...ie. ME2N etc....where you can get it by using the selection parameter as WE101....
Hope your idea abt BAPI's are clear....
Regards
Priyanka.P

Fetching data for multiple POs one by one using BAPI..

Hi,
We have created a custom BAPI which gives all the details regading a
given PO in multiple tables.
Now in a report I have to give a range of PO numbers which should be passed to BAPI one by one and then the data that will is fetched in BAPI tables should be transferred to flat file one by one for each PO.
How can I do this ?
Thanks.
Regards,
Rajesh.

Hi,
1.Get all the PO Numbers into an internal Table.
2.Loop at the Internal Table.
3.Within the Loop,call the BAPI
4.Pass the Value into an Internal Table got thru BAPi
5.Call the Function Module GUI_DOWNLOAD and Pass the internal Table to that fiunctiona module.
Reward Points if it is helpful.
Regards,
Sangeetha.A

BAPI used to replicate POs in R/3

Hi, we're having issues with some PO's that are not being transferred to R/3 despite of the fact that they're in Ordered Status.
What we could analyze is that in the Tracking tab from the SRM Portal, the PO's show Net Value "0,00", which we think is wrong and the cause of the problem. Considering this value, the system makes some validation and due that this value is zero the PO's are not being copied to R/3
I wanted to ask if you know the program name (BAPI, I don't know) that is used by the system for the replication of the PO's into R/3 in order to debug it with our ABAP Team and see if the validation we think exists.
If we're correct.. then what remains is to investigate why this PO's have been updated with zero value in that field.
Thank you!

Hello,
You can check if there is an error returning from backend.
Follow the steps below:
- Breakpoint at FM B46B_DPO_TRANSFER;
- SE37 BBP_PD_PO_TRANSFER_EXEC, enter PO header GUID and execute;
- Program will stop at FM where the BP was set.
- Look for statement CALL FUNCTION 'BBP_PO_INBOUND' DESTINATION lv_destination;
- F6 or F5 to debug into ERP (2nd session will start). Here you can check the table lt_bapi_return in order to check the result.
If you have a RFC with dialog user, you can debug through the ECC system and check why and when the error message is generated.
Regards,
Ricardo

Create output messages NEU on BAPI POs

To all:
I need help, I am a functional person, and I am working with an ABAP developer on a workbench. We are doing changes to Purchase Orders through a BAPI - ME22 / ME22N. SAP standard will create an output message after a change is made on the PO if the configuration is properly setup. I am having problems creating this NEU output message with a BAPI, the programmer told me it can be done, but he doesn't know how to do it.
I need help please, does anybody knows how to do this? It is very critical for my project.
Thanks for the help!
Claudia

hi check this..
this is the simple step by step procedure to create the bapis ..this is done by the develoupers(abapers) no need to do anything by the functional people ...
if you had interest you can see the screen shots for creation of bapi..
http://www.****************/Tutorials/BAPI/CustomBAPICreation/page1.htm

Bapi for Customer delta exists in BW

Hi Experts,
Is it possible to install BW compnent in SAP4.6c

Chandra
Welcome to BW World
BW server is separate and it is independent of SAP 4.6C but we have to install BW related plugins in R/3 side in order to extract data from R/3 to BW.
Hope this helps
Thnaks
Sat

Open Purchase Order UPload Using the BAPI 's

i need to upload the open Purchase Order using the BAPI function BAPI_PO_CREATE1., below is the given fileds blod are for Header, header will Repeat for the line items,can any one help me out using the BAIP's for upload the PO, i need sample code for this ........
Thanks & Regards
Raghu
Field Name Field Description Type Length
EBELN Purchasing Document Number CHAR 010 X
BUKRS Company Code CHAR 004 MN10 C
EKORG Purchasing Organization CHAR 004 MN00 C
EKGRP Purchasing group CHAR 003 X
BSART Order type (Purchasing) CHAR 004 X
LIFNR Account Number of Vendor or Creditor CHAR 010 X
BEDAT Purchase Order Date DATS 010 X
ZTERM Terms of payment key CHAR 004 X
WAERS Currency Key CUKY 005 X
INCO1 Incoterms (part 1) CHAR 003 X
INCO2 Incoterms (part 2) CHAR 028 X
EBELP Item Number of Purchasing Document NUMC 005 X
EMATN Material number CHAR 018 X
WERKS Plant CHAR 004 X
LGORT Storage location CHAR 004 X
EPSTP Item category in purchasing document CHAR 001 X
KNTTP Account assignment category CHAR 001 X
EINDT Item delivery date DATS 010 X
MENGE "Purchase order quantity (direct input, transfer of POs)" CHAR 013 X
MEINS Order unit UNIT 003 X
NETPR "Net price: Document currency (direct input, transfer of" CHAR 011 X
PEINH "Price unit (direct input, transfer of POs)" CHAR 005 X
BPRME Order Price Unit (Purchasing) UNIT 003 X
BPUMZ Numerator: Conversion OPUn into OUn (direct input of POs CHAR 005 X
BPUMN Denominator: Conversion OPUn into OUn (direct input of P CHAR 005 X
SAKTO Cost element CHAR 010 X
KOSTL Cost Center CHAR 010 X
VBELN Sales and Distribution Document Number CHAR 010 X
VBELP Sales document item NUMC 006 X
WEMPF Goods recipient CHAR 012 X
WEBTH "Amount in local currency (direct input, transfer of POs)" CHAR 013 X
WEBTF "Amount in document currency (direct input, transfer of P" CHAR 013 X
WEREF Flag for treatment of GR/IR (direct input of POs) CHAR 001 X
SPINF Indicator: Update info record CHAR 001 X
WEPOS Goods Receipt Indicator CHAR 001 X
REPOS Invoice receipt indicator CHAR 001 X

i need to upload the open Purchase Order using the BAPI function BAPI_PO_CREATE1., below is the given fileds blod are for Header, header will Repeat for the line items,can any one help me out using the BAIP's for upload the PO, i need sample code for this ........
Thanks & Regards
Raghu
Field Name Field Description Type Length
EBELN Purchasing Document Number CHAR 010 X
BUKRS Company Code CHAR 004 MN10 C
EKORG Purchasing Organization CHAR 004 MN00 C
EKGRP Purchasing group CHAR 003 X
BSART Order type (Purchasing) CHAR 004 X
LIFNR Account Number of Vendor or Creditor CHAR 010 X
BEDAT Purchase Order Date DATS 010 X
ZTERM Terms of payment key CHAR 004 X
WAERS Currency Key CUKY 005 X
INCO1 Incoterms (part 1) CHAR 003 X
INCO2 Incoterms (part 2) CHAR 028 X
EBELP Item Number of Purchasing Document NUMC 005 X
EMATN Material number CHAR 018 X
WERKS Plant CHAR 004 X
LGORT Storage location CHAR 004 X
EPSTP Item category in purchasing document CHAR 001 X
KNTTP Account assignment category CHAR 001 X
EINDT Item delivery date DATS 010 X
MENGE "Purchase order quantity (direct input, transfer of POs)" CHAR 013 X
MEINS Order unit UNIT 003 X
NETPR "Net price: Document currency (direct input, transfer of" CHAR 011 X
PEINH "Price unit (direct input, transfer of POs)" CHAR 005 X
BPRME Order Price Unit (Purchasing) UNIT 003 X
BPUMZ Numerator: Conversion OPUn into OUn (direct input of POs CHAR 005 X
BPUMN Denominator: Conversion OPUn into OUn (direct input of P CHAR 005 X
SAKTO Cost element CHAR 010 X
KOSTL Cost Center CHAR 010 X
VBELN Sales and Distribution Document Number CHAR 010 X
VBELP Sales document item NUMC 006 X
WEMPF Goods recipient CHAR 012 X
WEBTH "Amount in local currency (direct input, transfer of POs)" CHAR 013 X
WEBTF "Amount in document currency (direct input, transfer of P" CHAR 013 X
WEREF Flag for treatment of GR/IR (direct input of POs) CHAR 001 X
SPINF Indicator: Update info record CHAR 001 X
WEPOS Goods Receipt Indicator CHAR 001 X
REPOS Invoice receipt indicator CHAR 001 X

PO created though BAPI 'BAPI_PO_CREATE1' not visible in WPOHF4D

Hi Experts,
As per the client requirement, I am using BAPI 'BAPI_PO_CREATE1' to create PO. My client is using retail transactions majorly and wants to see the created PO in tcode WPOHF4D. The PO created using this BAPI are visbible in Me22n, but not in WPOHF4D.
Can you please let me know what has to be done to see the generated POs in WPOHF4D?
Below is the part of code where I am filling the stuctures to be passed to BAPI:
*Filling header
 lwa_poheader-SALES_PERS = lwa_datatab-ihrez.
 lwa_poheader-doc_type = lwa_datatab-bsart.
 lwa_poheader-doc_date = lwa_datatab-bedat.
 lwa_poheader-comp_code = lwa_datatab-bukrs.
 lwa_poheader-purch_org = lwa_datatab-ekorg.
 lwa_poheader-pur_group = lwa_datatab-ekgrp.
 lwa_poheader-vendor = lwa_datatab-lifnr.
 lwa_poheader-currency = lwa_datatab-waers.
 lwa_poheader-pmnttrms = lwa_datatab-zterm.
 lwa_poheader-exch_rate = lwa_datatab-wkurs.
 lwa_poheader-ex_rate_fx = lwa_datatab-kufix.
 lwa_poheader-incoterms1 = lwa_datatab-inco1.
 lwa_poheader-incoterms2 = lwa_datatab-inco2.
*Filling Purchase Order Header Data (Change Parameter)
 lwa_poheaderx-SALES_PERS = v_true.
 lwa_poheaderx-doc_type = v_true.
 lwa_poheaderx-doc_date = v_true.
 lwa_poheaderx-comp_code = v_true.
 lwa_poheaderx-purch_org = v_true.
 lwa_poheaderx-pur_group = v_true.
 lwa_poheaderx-vendor = v_true.
 lwa_poheaderx-currency = v_true.
 lwa_poheaderx-pmnttrms = v_true.
 lwa_poheaderx-exch_rate = v_true.
 lwa_poheaderx-ex_rate_fx = v_true.
 lwa_poheaderx-incoterms1 = v_true.
 lwa_poheaderx-incoterms2 = v_true.
*Filling Item
 lwa_poitem-po_item = lv_po_index.
 lwa_poitem-material = lwa_datatab-matnr.
 lwa_poitem-quantity = lwa_datatab-menge.
 lwa_poitem-po_unit = lwa_datatab-meins.
 lwa_poitem-net_price = lwa_datatab-netpr.
 lwa_poitem-trackingno = lwa_datatab-bednr.
 lwa_poitem-preq_name = lwa_datatab-afnam.
 lwa_poitem-plant = lwa_datatab-werks.
 lwa_poitem-tax_code = lwa_datatab-mwskz.
 lwa_poitem-ret_item = lwa_datatab-ret_item.
 lwa_poitem-po_price = '2'.
 APPEND lwa_poitem TO lt_poitem.
*Filling Item Data (Change Parameter)
 lwa_poitemx-po_item = lv_po_index.
 lwa_poitemx-material = v_true.
 lwa_poitemx-quantity = v_true.
 lwa_poitemx-po_unit = v_true.
 lwa_poitemx-net_price = v_true.
 lwa_poitemx-trackingno = v_true.
 lwa_poitemx-preq_name = v_true.
 lwa_poitemx-plant = v_true.
 lwa_poitemx-tax_code = v_true.
 lwa_poitemx-ret_item = v_true.
 lwa_poitemx-po_price = v_true.
 APPEND lwa_poitemx TO lt_poitemx.
*Filling schedule line
 lwa_poschedule-po_item = lv_po_index.
 lwa_poschedule-delivery_date = lwa_datatab-eindt.
 APPEND lwa_poschedule TO lt_poschedule.
*Filling Delivery Schedule (Change Parameter)
 lwa_poschedulex-po_item = lv_po_index.
 lwa_poschedulex-delivery_date = v_true.
 APPEND lwa_poschedulex TO lt_poschedulex.
Filling Partner
 IF lwa_datatab-lifn2 IS NOT INITIAL.
 lwa_popartner-partnerdesc = v_partner_desc.
 lwa_popartner-langu = 'EN'.
 lwa_popartner-buspartno = lwa_datatab-lifn2.
 APPEND lwa_popartner TO lt_popartner.
 ENDIF.
Filling Conditions in Purchase Order
 IF lwa_datatab-kbetr1 IS NOT INITIAL.
 lwa_pocond-itm_number = lv_po_index.
 lwa_pocond-cond_type = v_cond1_zvol.
 lwa_pocond-cond_value = lwa_datatab-kbetr1.
 lwa_pocond-currency = lwa_datatab-waers.
 lwa_pocond-change_id = c_insert_flg.
 APPEND lwa_pocond TO lt_pocond.
 ENDIF.
 IF lwa_datatab-kbetr2 IS NOT INITIAL.
 lwa_pocond-itm_number = lv_po_index.
 lwa_pocond-cond_type = v_cond2_zcdq.
 lwa_pocond-cond_value = lwa_datatab-kbetr2.
 lwa_pocond-currency = lwa_datatab-waers.
 lwa_pocond-change_id = c_insert_flg.
 APPEND lwa_pocond TO lt_pocond.
 ENDIF.
Filling Conditions (Items, Change Parameter)
 IF lwa_datatab-kbetr1 IS NOT INITIAL.
 lwa_pocondx-itm_number = lv_po_index.
 lwa_pocondx-cond_type = v_true.
 lwa_pocondx-cond_value = v_true.
 lwa_pocondx-currency = v_true.
 lwa_pocondx-change_id = v_true.
 APPEND lwa_pocondx TO lt_pocondx.
 ENDIF.
 IF lwa_datatab-kbetr2 IS NOT INITIAL.
 lwa_pocondx-itm_number = lv_po_index.
 lwa_pocondx-cond_type = v_true.
 lwa_pocondx-cond_value = v_true.
 lwa_pocondx-currency = v_true.
 lwa_pocondx-change_id = v_true.
 APPEND lwa_pocondx TO lt_pocondx.
 ENDIF.
<removed by moderator>. Would really appreciate if someone helps.
Thanks,
Priyanka
Edited by: Thomas Zloch on Apr 1, 2011 2:16 PM - standard priority

hi Priyanka,
In the T-code WPOHF4D
the select query
SELECT ekkolifnr ekkoekorg ekgrp ekko~ebeln pohf_type
 ekko~fixpo waers frgrl frgsx submi
 ekkobsart ekkobstyp ekkobedat ekpowerks ekko~otb_status
 netwr stapo menge ekpo~loekz "959448
 APPENDING CORRESPONDING FIELDS OF TABLE lt_worklist_loop
 FROM ekpo INNER JOIN ekko
 ON ekkoebeln = ekpoebeln
 WHERE ekko~ebeln IN it_ran_ebeln
 AND ekgrp IN it_ran_ekgrp
 AND ekko~ekorg IN it_ran_ekorg
 AND ekko~bukrs IN it_ran_bukrs
 AND matnr IN it_ran_matnr
 AND ekpo~werks IN lt_ran_werks
 AND ekko~lifnr IN it_ran_lifnr
 AND bedat IN it_ran_bedat
 AND ekko~fixpo IN it_ran_fixpo
 AND pohf_type IN it_ran_pohf_type
 AND bsart IN it_ran_bsart
 AND submi IN it_ran_submi
 AND ernam IN it_ran_uname
 AND source_id IN it_ran_source_id
 AND ekko~bstyp = c_po
 AND ekko~bsakz <> c_bsakz_transfer.
is responsible for data fetching.
If u r not getting data and this query failing check it while debugging.
Thanks,
Gaurav.

BAPI: Create Sales order with reference to Quotation

Hi ...
I am using bapi BAPI_SALESOREDER_CREATEFROMDATA2 and
i want to create sales order with reference Quotation... All quotation data like Materials prices and conditions must be copied from reference quotaion which is allready created .....
..Thanks..
..Ashish

Hello,
nice to see that this has already been solved.
But it actually doesnt work in my scenario. Do you have an example coding which will explain your solution.
Mine looks like this:
* Update Flag
ls_header_inx-updateflag = 'I'.
* Angebotskopf einlesen
SELECT SINGLE * FROM vbak INTO ls_vbak
 WHERE vbeln = iv_vbeln
 AND vbtyp = lc_vbtyp.
IF sy-subrc <> 0.
 EXIT.
ENDIF.
* Auftragskopf setzen
ls_header_in-doc_type = ls_vbak-auart.
ls_header_in-sales_org = ls_vbak-vkorg.
ls_header_in-distr_chan = ls_vbak-vtweg.
ls_header_in-division = ls_vbak-spart.
ls_header_in-req_date_h = ls_vbak-VDATU.
ls_header_in-ref_doc = ls_vbak-vbeln.
ls_header_in-refdoc_cat = 'B'.
* Angebots-Partner einlesen (Nur AG und WE)
* Auftrag anlegen
CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
 EXPORTING
* SALESDOCUMENTIN =
 order_header_in = ls_header_in
* order_header_inx = ls_header_inx
* SENDER =
* BINARY_RELATIONSHIPTYPE =
* INT_NUMBER_ASSIGNMENT =
* BEHAVE_WHEN_ERROR =
* LOGIC_SWITCH =
* testrun = 'X'
* CONVERT = ' '
 IMPORTING
 salesdocument = ev_vbeln
 TABLES
 return = et_return
* order_items_in = lt_items_in
* order_items_inx = lt_items_inx
 order_partners = lt_partners
* ORDER_SCHEDULES_IN =
* ORDER_SCHEDULES_INX =
* ORDER_CONDITIONS_IN =
* ORDER_CONDITIONS_INX =
* ORDER_CFGS_REF =
* ORDER_CFGS_INST =
* ORDER_CFGS_PART_OF =
* ORDER_CFGS_VALUE =
* ORDER_CFGS_BLOB =
* ORDER_CFGS_VK =
* ORDER_CFGS_REFINST =
* ORDER_CCARD =
* ORDER_TEXT =
* ORDER_KEYS =
* EXTENSIONIN =
* PARTNERADDRESSES = .
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
 EXPORTING
 wait = 'X'.
Unfortunatly this just makes the reference to the quotation but does not takeover ALL data from header and pos level.
Thanks and regards
Markus Armbruster

Creation of Service POs using BAPI_PO_CREATE1

Hi Friends,
I am trying to create service POs through BAPI (BAPI_PO_CREATE1). I am facing different errors like Please maintain service or limits eve though I am providing the details in POSERVICES. Can any one suggest me the fields which we have to provide for creating the service POs.
I am using this BAPI in LSMW.
Thanks,
Gagan Chodhry

Check this it may help u.
DATA: BEGIN OF po_header OCCURS 0.
INCLUDE STRUCTURE BAPIEKKOC.
DATA: END OF po_header.
DATA: BEGIN OF po_iteam OCCURS 10.
INCLUDE STRUCTURE BAPIEKPOC.
DATA: END OF po-items.
DATA: BEGIN OF PO_ITEM_SCHEDULES OCCURS 0.
INCLUDE STRUCTURE BAPIEKET.
DATA: END OF PO_ITEM_SCHEDULES.
DATA: BEGIN OF I_BAPIRETURN OCCURS 0.
INCLUDE STRUCTURE BAPIRETURN.
DATA: END OF I_BAPIRETURN.
CALL FUNCTION 'BAPI_PO_CREATE'
EXPORTING
PO_HEADER = PO_HEADER
SKIP_ITEMS_WITH_ERROR = 'X'
TABLES
PO_ITEMS = PO_ITEMS
PO_ITEM_SCHEDULES = PO_ITEM_SCHEDULES
RETURN = I_BAPIRETURN
EXCEPTIONS
OTHERS = 1.
Regards

BAPI thorwing 3 different message when GR's being more than PO Qty

I am using BAPI(Goods_movement_create)
This BAPI throws 3 different error messages when the scenario is the same.
I could see all the 3 messages below are the result of GRu2019s being more than the PO qty.
10128844     30     4     E     No goods receipt possible for purchase order 10128844 00030
4500121287     10     12     E     PU Ordered quantity exceeded by 12 EA : 17650 0081 0018
4500104731     10     1     E     Material document data and PO data do not match (Material)
thanks
Senthil

you have referenced 3 different POs, hence you have to get 3 different messages, even they would have the same error reason. but the message has variables, like PO number and item number and even more.
Do you just want a summary message like: 3 error occured?
and what does the user then do? posting in SCN forum what the problem is?
you will get the same messages if you use MIGO to post it online.

Confirmation Quantity issue while creating Sales order using BAPI

Hi SDN,
Can anyone of you help mein the below issue:
I have a program to create a sales order using upload file. for this i use "BAPI_SALESORDER_CREATEFROMDAT2" & for changing existing "BAPI_SALESORDER_CHANGE".
Now If the upload file contains the Same Material, Based on other conditions, it needs to create Multiple sales order.
When the first Salesorder is created, the Quantity is getting confirmed (Confirmed quantity VBEP-BMENG). But during actual run, since the confirmation is getting done for the same material in the above Sales order, the confirmation is not being done in the subsequent Sales order".
This poses a problem for business, user need to manual refresh the u201Cconfirmed quantity for each line item in the particular SO where it failed during program upload.
Also while uploading using the BAPI, if we wait forsometime after creating the first sales order in Debug, then the above material is unlocked & the confirmation quantity is done for the subsequent sales order also.
But in the actual run, this is creating a problem. Some Refresh or Unlocking problem.
Can you please suggest a suitable solution for this issue.
Thanks & regrads,
Chaitanya LBK

Have you tried backorder processing?
V_V1
V_V2
V_RA
V_R1
V_R2

How to create service PO while using BAPI

Dear Experts
I am getting error while creating Service PO using BAPI
E 518
No account assignment exists for service line 0000000010
E 518
No account assignment exists for service line 0000000010
TYPES : BEGIN OF ty_header,
 po_no(10) TYPE n,
 purch_org TYPE bapimepoheader-purch_org,
 pur_group TYPE bapimepoheader-pur_group,
 doc_type TYPE bapimepoheader-doc_type,
 vendor TYPE bapimepoheader-vendor,
 doc_date TYPE bapimepoheader-doc_date,
 currency TYPE bapimepoheader-currency,
 comp_code TYPE bapimepoheader-comp_code,
 END OF ty_header,
 BEGIN OF ty_item,
 po_no(10) TYPE n, " Internal Use
 po_item TYPE bapimepoitem-po_item,
 acctasscat TYPE bapimepoitem-acctasscat,
 short_text TYPE bapimepoitem-short_text,
 plant TYPE bapimepoitem-plant,
 pckg_no TYPE bapimepoitem-pckg_no,
 stge_loc TYPE bapimepoitem-stge_loc,
 quantity TYPE bapimepoitem-quantity,
 po_unit TYPE bapimepoitem-po_unit,
 po_price TYPE bapimepoitem-po_price,
 net_price TYPE bapimepoitem-net_price,
 price_unit TYPE bapimepoitem-price_unit,
 orderpr_un TYPE bapimepoitem-orderpr_un,
 delivery_date TYPE bapimeposchedule-delivery_date, " bapimeposchedule
 matl_group TYPE bapimepoitem-matl_group,
 tax_code TYPE bapimepoitem-tax_code,
 END OF ty_item,
 BEGIN OF ty_service,
 po_no(10) TYPE n, " Internal Use
 po_item TYPE bapimepoitem-po_item, " Internal Use
 pckg_no TYPE bapiesllc-pckg_no,
 line_no TYPE bapiesllc-line_no,
 ext_line TYPE bapiesllc-ext_line,
 outl_ind TYPE bapiesllc-outl_ind,
 subpckg_no TYPE bapiesllc-subpckg_no,
 serial_no TYPE bapiesklc-serial_no, " bapiesklc
 short_text TYPE bapiesllc-short_text,
 quantity TYPE bapiesllc-quantity,
 base_uom TYPE bapiesllc-base_uom,
 gr_price TYPE bapiesllc-gr_price,
 matl_group TYPE bapiesllc-matl_group,
 END OF ty_service,
 BEGIN OF ty_poaccount,
 po_no(10) TYPE n, " Internal Use
 po_item TYPE bapimepoaccount-po_item,
 serial_no TYPE bapimepoaccount-serial_no,
 gl_account TYPE bapimepoaccount-gl_account,
 costcenter TYPE bapimepoaccount-costcenter,
 asset_no TYPE bapimepoaccount-asset_no,
 orderid TYPE bapimepoaccount-orderid,
 END OF ty_poaccount.
DATA : it_header TYPE TABLE OF ty_header,
 wa_header TYPE ty_header,
 it_item TYPE TABLE OF ty_item,
 wa_item TYPE ty_item,
 it_service TYPE TABLE OF ty_service,
 wa_service TYPE ty_service,
 it_account TYPE TABLE OF ty_poaccount,
 wa_account TYPE ty_poaccount.
DATA : it_excel1 TYPE TABLE OF alsmex_tabline,
 wa_excel1 TYPE alsmex_tabline,
 it_excel2 TYPE TABLE OF alsmex_tabline,
 wa_excel2 TYPE alsmex_tabline,
 it_excel3 TYPE TABLE OF alsmex_tabline,
 wa_excel3 TYPE alsmex_tabline,
 it_excel4 TYPE TABLE OF alsmex_tabline,
 wa_excel4 TYPE alsmex_tabline.
DATA : number TYPE string,
 number1 TYPE string.
********** BAPI**************
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.
*Structures to hold PO schedule data
DATA : itemschedule LIKE bapimeposchedule OCCURS 0 WITH HEADER LINE ,
 itemschedulex LIKE bapimeposchedulx OCCURS 0 WITH HEADER LINE .
*Structures to hold PO services data
DATA : services LIKE bapiesllc OCCURS 0 WITH HEADER LINE .
*Structures to hold PO (distrib.imputac.lín.servicios) data
DATA : posrvaccessvalues LIKE bapiesklc OCCURS 0 WITH HEADER LINE .
*Structures to hold PO account data
DATA : account LIKE bapimepoaccount OCCURS 0 WITH HEADER LINE ,
 accountx LIKE bapimepoaccountx OCCURS 0 WITH HEADER LINE .
*Internal table to hold messages from BAPI call
DATA : return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
 purchaseorder LIKE bapimepoheader-po_number.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : p_file1 TYPE rlgrap-filename OBLIGATORY,
 p_brow1 TYPE i,
 p_erow1 TYPE i.
SELECTION-SCREEN : END OF BLOCK b1.
SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS : p_file2 TYPE rlgrap-filename OBLIGATORY,
 p_brow2 TYPE i,
 p_erow2 TYPE i.
SELECTION-SCREEN : END OF BLOCK b2.
SELECTION-SCREEN : BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS : p_file3 TYPE rlgrap-filename OBLIGATORY,
 p_brow3 TYPE i,
 p_erow3 TYPE i.
SELECTION-SCREEN : END OF BLOCK b3.
SELECTION-SCREEN : BEGIN OF BLOCK b4 WITH FRAME TITLE text-004.
PARAMETERS : p_file4 TYPE rlgrap-filename OBLIGATORY,
 p_brow4 TYPE i,
 p_erow4 TYPE i.
SELECTION-SCREEN : END OF BLOCK b4.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file1.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = syst-cprog
 dynpro_number = syst-dynnr
 field_name = ' '
 IMPORTING
 file_name = p_file1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file2.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = syst-cprog
 dynpro_number = syst-dynnr
 field_name = ' '
 IMPORTING
 file_name = p_file2.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file3.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = syst-cprog
 dynpro_number = syst-dynnr
 field_name = ' '
 IMPORTING
 file_name = p_file3.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file4.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = syst-cprog
 dynpro_number = syst-dynnr
 field_name = ' '
 IMPORTING
 file_name = p_file4.
START-OF-SELECTION.
PERFORM excel_to_itab.
PERFORM get_final.
*& Form excel_to_itab
* text
* --> p1 text
* <-- p2 text
FORM excel_to_itab .
************** Excel 1
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = p_file1
 i_begin_col = '1'
 i_begin_row = p_brow1
 i_end_col = '08'
 i_end_row = p_erow1
 TABLES
 intern = it_excel1
* EXCEPTIONS
* INCONSISTENT_PARAMETERS = 1
* UPLOAD_OLE = 2
* OTHERS = 3
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT it_excel1 INTO wa_excel1.
 CASE wa_excel1-col.
 WHEN '0001'.
 wa_header-po_no = wa_excel1-value.
 WHEN '0002'.
 wa_header-purch_org = wa_excel1-value.
 WHEN '0003'.
 wa_header-pur_group = wa_excel1-value.
 WHEN '0004'.
 wa_header-doc_type = wa_excel1-value.
 WHEN '0005'.
 wa_header-vendor = wa_excel1-value.
 WHEN '0006'.
 wa_header-doc_date = wa_excel1-value.
 WHEN '0007'.
 wa_header-currency = wa_excel1-value.
 WHEN '0008'.
 wa_header-comp_code = wa_excel1-value.
 ENDCASE.
 AT END OF row.
 APPEND wa_header TO it_header.
 CLEAR wa_header.
 ENDAT.
ENDLOOP.
************** Excel 2
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = p_file2
 i_begin_col = '1'
 i_begin_row = p_brow2
 i_end_col = '16'
 i_end_row = p_erow2
 TABLES
 intern = it_excel2
* EXCEPTIONS
* INCONSISTENT_PARAMETERS = 1
* UPLOAD_OLE = 2
* OTHERS = 3
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT it_excel2 INTO wa_excel2.
 CASE wa_excel2-col.
 WHEN '0001'.
 wa_item-po_no = wa_excel2-value.
 WHEN '0002'.
 wa_item-po_item = wa_excel2-value.
 WHEN '0003'.
 wa_item-acctasscat = wa_excel2-value.
 WHEN '0004'.
 wa_item-short_text = wa_excel2-value.
 WHEN '0005'.
 wa_item-plant = wa_excel2-value.
 WHEN '0006'.
 wa_item-pckg_no = wa_excel2-value.
 WHEN '0007'.
 wa_item-stge_loc = wa_excel2-value.
 WHEN '0008'.
 wa_item-quantity = wa_excel2-value.
 WHEN '0009'.
 wa_item-po_unit = wa_excel2-value.
 WHEN '0010'.
 wa_item-po_price = wa_excel2-value.
 WHEN '0011'.
 wa_item-net_price = wa_excel2-value.
 WHEN '0012'.
 wa_item-price_unit = wa_excel2-value.
 WHEN '0013'.
 wa_item-orderpr_un = wa_excel2-value.
 WHEN '0014'.
 wa_item-delivery_date = wa_excel2-value.
 WHEN '0015'.
 wa_item-matl_group = wa_excel2-value.
 WHEN '0016'.
 wa_item-tax_code = wa_excel2-value.
 ENDCASE.
 AT END OF row.
 APPEND wa_item TO it_item.
 CLEAR wa_item.
 ENDAT.
ENDLOOP.
************** Excel 3
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = p_file3
 i_begin_col = '1'
 i_begin_row = p_brow3
 i_end_col = '13'
 i_end_row = p_erow3
 TABLES
 intern = it_excel3
* EXCEPTIONS
* INCONSISTENT_PARAMETERS = 1
* UPLOAD_OLE = 2
* OTHERS = 3
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT it_excel3 INTO wa_excel3.
 CASE wa_excel3-col.
 WHEN '0001'.
 wa_service-po_no = wa_excel3-value.
 WHEN '0002'.
 wa_service-po_item = wa_excel3-value.
 WHEN '0003'.
 wa_service-pckg_no = wa_excel3-value.
 WHEN '0004'.
 wa_service-line_no = wa_excel3-value.
 WHEN '0005'.
 wa_service-ext_line = wa_excel3-value.
 WHEN '0006'.
 wa_service-outl_ind = wa_excel3-value.
 WHEN '0007'.
 wa_service-subpckg_no = wa_excel3-value.
 WHEN '0008'.
 wa_service-serial_no = wa_excel3-value.
 WHEN '0009'.
 wa_service-short_text = wa_excel3-value.
 WHEN '0010'.
 wa_service-quantity = wa_excel3-value.
 WHEN '0011'.
 wa_service-base_uom = wa_excel3-value.
 WHEN '0012'.
 wa_service-gr_price = wa_excel3-value.
 WHEN '0013'.
 wa_service-matl_group = wa_excel3-value.
 ENDCASE.
 AT END OF row.
 APPEND wa_service TO it_service.
 CLEAR wa_service.
 ENDAT.
ENDLOOP.
************** Excel 3
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = p_file4
 i_begin_col = '1'
 i_begin_row = p_brow4
 i_end_col = '07'
 i_end_row = p_erow4
 TABLES
 intern = it_excel4
* EXCEPTIONS
* INCONSISTENT_PARAMETERS = 1
* UPLOAD_OLE = 2
* OTHERS = 3
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT it_excel4 INTO wa_excel4.
 CASE wa_excel4-col.
 WHEN '0001'.
 wa_account-po_no = wa_excel4-value.
 WHEN '0002'.
 wa_account-po_item = wa_excel4-value.
 WHEN '0003'.
 wa_account-serial_no = wa_excel4-value.
 WHEN '0004'.
 wa_account-gl_account = wa_excel4-value.
 WHEN '0005'.
 wa_account-costcenter = wa_excel4-value.
 WHEN '0006'.
 wa_account-asset_no = wa_excel4-value.
 WHEN '0007'.
 wa_account-orderid = wa_excel4-value.
 ENDCASE.
 AT END OF row.
 APPEND wa_account TO it_account.
 CLEAR wa_account.
 ENDAT.
ENDLOOP.
ENDFORM. " excel_to_itab
*& Form GET_FINAL
* text
* --> p1 text
* <-- p2 text
FORM get_final .
LOOP AT it_header INTO wa_header.
* BAPI HEADER
 header-purch_org = wa_header-purch_org.
 header-pur_group = wa_header-pur_group.
 header-doc_type = wa_header-doc_type.
 header-vendor = wa_header-vendor.
 header-doc_date = wa_header-doc_date.
 header-currency = wa_header-currency.
 header-comp_code = wa_header-comp_code.
* BAPI HEADERX
 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.
 headerx-doc_date = c_x. " Added
 LOOP AT it_item INTO wa_item WHERE po_no = wa_header-po_no.
 CALL FUNCTION 'NUMBER_GET_NEXT'
 EXPORTING
 nr_range_nr = '01'
 object = 'SERVICE'
* quantity = '1'
* SUBOBJECT = ' '
* TOYEAR = '0000'
* IGNORE_BUFFER = ' '
 IMPORTING
 number = number
* QUANTITY =
* RETURNCODE =
* EXCEPTIONS
* INTERVAL_NOT_FOUND = 1
* NUMBER_RANGE_NOT_INTERN = 2
* OBJECT_NOT_FOUND = 3
* QUANTITY_IS_0 = 4
* QUANTITY_IS_NOT_1 = 5
* INTERVAL_OVERFLOW = 6
* BUFFER_OVERFLOW = 7
* OTHERS = 8
 IF sy-subrc <> 0.
* Implement suitable error handling here
 ENDIF.
 item-po_item = wa_item-po_item.
 item-acctasscat = wa_item-acctasscat.
 item-item_cat = '9'.
 item-short_text = wa_item-short_text.
 item-plant = wa_item-plant.
 item-pckg_no = number.
 item-stge_loc = wa_item-stge_loc.
 item-quantity = wa_item-quantity.
 item-po_unit = wa_item-po_unit.
 item-po_price = wa_item-po_price.
 item-net_price = wa_item-net_price.
 item-price_unit = wa_item-price_unit.
 item-orderpr_un = wa_item-orderpr_un.
 item-matl_group = wa_item-matl_group.
 item-tax_code = wa_item-tax_code.
 APPEND item.
 CLEAR item.
 itemx-po_item = wa_item-po_item.
 itemx-item_cat = c_x.
 itemx-po_itemx = 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-agreement = c_x.
 itemx-agmt_item = c_x.
 itemx-stge_loc = c_x.
 itemx-quantity = c_x.
 itemx-po_unit = 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 .
 itemx-pckg_no = c_x.
 itemx-po_price = c_x. " Added
 itemx-orderpr_un = c_x. " Added
 APPEND itemx.
 CLEAR itemx.
 itemschedule-po_item = wa_item-po_item.
 itemschedule-del_datcat_ext = 'D'.
 itemschedule-delivery_date = wa_item-delivery_date.
 APPEND itemschedule.
 CLEAR itemschedule.
 itemschedulex-po_item = wa_item-po_item.
 itemschedulex-po_itemx = c_x .
 itemschedulex-del_datcat_ext = c_x.
 itemschedulex-delivery_date = c_x .
 APPEND itemschedulex.
 CLEAR itemschedulex.
 LOOP AT it_service INTO wa_service WHERE po_no = wa_item-po_no AND po_item = wa_item-po_item.
 IF wa_service-outl_ind IS INITIAL.
IF number1 IS INITIAL.
 CALL FUNCTION 'NUMBER_GET_NEXT'
 EXPORTING
 nr_range_nr = '01'
 object = 'SERVICE'
* quantity = '1'
* SUBOBJECT = ' '
* TOYEAR = '0000'
* IGNORE_BUFFER = ' '
 IMPORTING
 number = number1
* QUANTITY =
* RETURNCODE =
* EXCEPTIONS
* INTERVAL_NOT_FOUND = 1
* NUMBER_RANGE_NOT_INTERN = 2
* OBJECT_NOT_FOUND = 3
* QUANTITY_IS_0 = 4
* QUANTITY_IS_NOT_1 = 5
* INTERVAL_OVERFLOW = 6
* BUFFER_OVERFLOW = 7
* OTHERS = 8
 IF sy-subrc <> 0.
* Implement suitable error handling here
 ENDIF.
 services-pckg_no = number.
 services-line_no = '1'.
 services-ext_line = '0'.
 services-outl_ind = 'X'.
 services-subpckg_no = number1.
* services-short_text = wa_service-short_text.
* services-quantity = wa_service-quantity.
* services-base_uom = wa_service-base_uom.
* services-gr_price = wa_service-gr_price.
* services-matl_group = wa_service-matl_group.
 APPEND services.
 CLEAR services.
ENDIF.
* ELSE.
 services-pckg_no = number1.
 services-line_no = wa_service-line_no.
 services-ext_line = wa_service-ext_line.
* services-outl_ind = wa_service-outl_ind.
 services-subpckg_no = '0'.
 services-short_text = wa_service-short_text.
 services-quantity = wa_service-quantity.
 services-base_uom = wa_service-base_uom.
 services-gr_price = wa_service-gr_price.
 services-matl_group = wa_service-matl_group.
 APPEND services.
 CLEAR services.
 ENDIF.
 IF wa_service-outl_ind IS INITIAL.
 posrvaccessvalues-pckg_no = number1.
 posrvaccessvalues-line_no = wa_service-line_no.
 posrvaccessvalues-serno_line = '01'.
 posrvaccessvalues-serial_no = wa_service-serial_no.
* posrvaccessvalues-percentage = '100'.
 APPEND posrvaccessvalues . CLEAR posrvaccessvalues.
 ENDIF.
 ENDLOOP.
 LOOP AT it_account INTO wa_account WHERE po_no = wa_item-po_no AND po_item = wa_item-po_item.
 account-po_item = wa_account-po_item.
 account-serial_no = wa_account-serial_no.
 account-gl_account = wa_account-gl_account.
 account-costcenter = wa_account-costcenter.
 account-asset_no = wa_account-asset_no.
 account-orderid = wa_account-orderid.
 APPEND account.
 CLEAR account.
 accountx-po_item = wa_account-po_item.
 accountx-po_itemx = c_x .
 accountx-serial_no = wa_account-serial_no.
 accountx-serial_nox = c_x .
* accountx-creat_date = c_x .
 accountx-costcenter = c_x .
 accountx-gl_account = c_x .
* accountx-co_area = c_x .
* accountx-tax_code = c_x .
* accountx-asset_no = c_x . " Added
* accountx-orderid = c_x . " Added
 APPEND accountx. CLEAR accountx.
 ENDLOOP.
 ENDLOOP.
 CALL FUNCTION 'BAPI_PO_CREATE1'
 EXPORTING
 poheader = header
 poheaderx = headerx
* POADDRVENDOR =
* TESTRUN =
 IMPORTING
 exppurchaseorder = purchaseorder
* EXPHEADER =
* EXPPOEXPIMPHEADER =
 TABLES
 return = return
 poitem = item
 poitemx = itemx
 poschedule = itemschedule
 poschedulex = itemschedulex
 poaccount = account
 poaccountx = accountx
 poservices = services.
 posrvaccessvalues = posrvaccessvalues.
 IF purchaseorder IS NOT INITIAL.
 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
 EXPORTING
 wait = 'X'.
 ENDIF.
 LOOP AT return.
 WRITE : / return-type, return-number, return-message.
 ENDLOOP.
ENDLOOP.
ENDFORM. " GET_FINAL

Hi ganesh,
Please look at the SAP note 376424 - BAPI_PO_CREATE1: Error messages for parked POs.
Sap recommends to install the support service pack. Take a look at the note for detailed understanding.
Also take a look at SAP NOte
767284 - SE518 occurs although account assignment is supplied to BAPI (this requires Note 552114 must be applied as a prerequisite)
Consider contacting basis team after your analysis about the issue.
Regards,
Sivaganesh

Bapi delting pos

Similar Messages

Maybe you are looking for