Code: Alles auswählen.
"Purchase Order Header
poheader-vendor = p_lifnr.
poheader-doc_type = p_bsart.
poheader-item_intvl = '0010'.
poheader-pur_group = p_ekgrp.
poheader-purch_org = p_ekorg.
poheaderx-vendor = 'X'.
poheaderx-doc_type = 'X'.
poheaderx-item_intvl = 'X'.
poheaderx-pur_group = 'X'.
poheaderx-purch_org = 'X'.
"Purchase Order Item
poitem-po_item = lv_ebelp.
poitem-material = ls_import-matnr.
poitem-plant = p_plant.
poitem-stge_loc = p_lgort.
poitem-quantity = ls_import-menge.
poitem-acctasscat = '6'.
poitem-orderpr_un = 'EUR'.
poitem-short_text = ls_import-txt50.
poitem-matl_group = p_matkl.
APPEND poitem TO lt_poitem.
poitemx-po_item = lv_ebelp.
poitemx-material = 'X'.
poitemx-plant = 'X'.
poitemx-stge_loc = 'X'.
poitemx-quantity = 'X'.
poitemx-acctasscat = 'X'.
poitemx-orderpr_un = 'X'.
poitemx-short_text = 'X'.
poitemx-matl_group = 'X'.
APPEND poitemx TO lt_poitemx.
"Purchase Order Schedule
poschedule-po_item = lv_ebelp.
poschedule-sched_line = '0001'.
poschedule-delivery_date = sy-datum + 20.
poschedule-quantity = ls_import-menge.
APPEND poschedule TO lt_poschedule.
poschedulex-po_item = lv_ebelp.
poschedulex-sched_line = 'X'.
poschedulex-delivery_date = 'X'.
poschedulex-quantity = 'X'.
APPEND poschedulex TO lt_poschedulex.
"Purchase Order Accounting
poaccount-po_item = lv_ebelp.
poaccount-quantity = ls_import-menge.
poaccount-asset_no = ls_import-ranl1.
poaccount-orderid = ls_import-eaufn.
APPEND poaccount TO lt_poaccount.
poaccountx-po_item = lv_ebelp.
poaccountx-quantity = 'X'.
poaccountx-asset_no = 'X'.
poaccountx-orderid = 'X'.
APPEND poaccountx TO lt_poaccountx.
"Purchase Order Conditions
pocond-itm_number = lv_ebelp.
pocond-cond_value = ls_import-netpr.
pocond-currency = 'EUR'.
pocond-cond_unit = 'PC'.
APPEND pocond TO lt_pocond.
pocondx-itm_number = lv_ebelp.
pocondx-cond_value = 'X'.
pocondx-currency = 'X'.
pocondx-cond_unit = 'X'.
APPEND pocondx TO lt_pocondx.
ADD 10 to lv_ebelp.
ENDLOOP.
CALL FUNCTION 'BAPI_PO_CREATE1'
EXPORTING
poheader = poheader
POHEADERX = poheaderx
* POADDRVENDOR =
* TESTRUN =
* MEMORY_UNCOMPLETE =
* MEMORY_COMPLETE =
* POEXPIMPHEADER =
* POEXPIMPHEADERX =
* VERSIONS =
* NO_MESSAGING =
* NO_MESSAGE_REQ =
* NO_AUTHORITY =
* NO_PRICE_FROM_PO =
* PARK_COMPLETE =
* PARK_UNCOMPLETE =
* IMPORTING
* EXPPURCHASEORDER =
* EXPHEADER =
* EXPPOEXPIMPHEADER =
TABLES
RETURN = lt_return
POITEM = lt_poitem
POITEMX = lt_poitemx
* POADDRDELIVERY =
POSCHEDULE = lt_poschedule
POSCHEDULEX = lt_poschedulex
POACCOUNT = lt_poaccount
* POACCOUNTPROFITSEGMENT =
POACCOUNTX = lt_poaccountx
* POCONDHEADER =
* POCONDHEADERX =
* POCOND =
* POCONDX =
* POLIMITS =
* POCONTRACTLIMITS =
* POSERVICES =
* POSRVACCESSVALUES =
* POSERVICESTEXT =
* EXTENSIONIN =
* EXTENSIONOUT =
* POEXPIMPITEM =
* POEXPIMPITEMX =
* POTEXTHEADER =
* POTEXTITEM =
* ALLVERSIONS =
* POPARTNER =
* POCOMPONENTS =
* POCOMPONENTSX =
* POSHIPPING =
* POSHIPPINGX =
* POSHIPPINGEXP =
* SERIALNUMBER =
* SERIALNUMBERX =
* INVPLANHEADER =
* INVPLANHEADERX =
* INVPLANITEM =
* INVPLANITEMX =
.Folgende Benutzer bedankten sich beim Autor Thanatos82 für den Beitrag:
Niels