‘BAPI_PO_CHANGE’ 更改PO交货计划行/组件

最新推荐文章于 2025-06-30 11:04:09 发布

转载最新推荐文章于 2025-06-30 11:04:09 发布 · 8k 阅读

程序人生 ABAPer 同时被 2 个专栏收录

1331 篇文章

订阅专栏

SAP ABAP

358 篇文章

订阅专栏

本文介绍了一个使用ABAP编程语言实现的采购订单变更示例。通过调用BAPI_PO_GETDETAIL1获取订单详情，并利用BAPI_PO_CHANGE进行订单信息的修改。示例展示了如何更改交货计划和组件明细等操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

REPORT z_barry_test LINE-SIZE 140 NO STANDARD PAGE HEADING .

DATA :return TYPE bapiret2 OCCURS 0 WITH HEADER LINE,
      poschedule TYPE bapimeposchedule OCCURS 0 WITH HEADER LINE,
      poschedulex TYPE bapimeposchedulx OCCURS 0 WITH HEADER LINE,
      pocomponents LIKE bapimepocomponent OCCURS 0 WITH HEADER LINE,
      pocomponentsx LIKE bapimepocomponentx OCCURS 0 WITH HEADER LINE.

PARAMETERS p_ebeln LIKE ekko-ebeln.

START-OF-SELECTION.

CALL FUNCTION ‘BAPI_PO_GETDETAIL1′
    EXPORTING
      purchaseorder = p_ebeln
    TABLES
      return        = return
      pocomponents = pocomponents
      poschedule    = poschedule.

READ TABLE poschedule INDEX 1.
CLEAR poschedule[].

poschedule-quantity = poschedule-quantity - 1 .
APPEND poschedule.
poschedulex-po_item = poschedule-po_item.
poschedulex-sched_line = poschedule-sched_line .
poschedulex-quantity = ‘X’.
APPEND poschedulex TO poschedulex.

READ TABLE pocomponents WITH KEY po_item = poschedule-po_item
sched_line = poschedule-sched_line.
DELETE pocomponents WHERE po_item = poschedule-po_item AND
sched_line = poschedule-sched_line .
pocomponents-entry_quantity = pocomponents-entry_quantity - 1 .
pocomponents-change_id = ‘U’.
APPEND pocomponents .
pocomponentsx-po_item = pocomponents-po_item .
pocomponentsx-sched_line = pocomponents-sched_line .
pocomponentsx-item_no = pocomponents-item_no .
pocomponentsx-entry_quantity = ‘X’.
pocomponentsx-change_id = ‘X’.
APPEND pocomponentsx.

poschedule-sched_line = poschedule-sched_line + 1 .
poschedule-delivery_date = ‘2010.11.11′.
poschedule-quantity = 1.
APPEND poschedule.
poschedulex-po_item = poschedule-po_item.
poschedulex-sched_line = poschedule-sched_line .
poschedulex-quantity = ‘X’.
poschedulex-delivery_date = ‘X’.
APPEND poschedulex TO poschedulex.
READ TABLE pocomponents WITH KEY po_item = poschedule-po_item
sched_line = poschedule-sched_line.
DELETE pocomponents WHERE po_item = poschedule-po_item AND
sched_line = poschedule-sched_line .
pocomponents-entry_quantity = 1 .
pocomponents-sched_line = pocomponents-sched_line + 1 .
pocomponents-change_id = ‘I’.
APPEND pocomponents .
pocomponentsx-po_item = pocomponents-po_item .
pocomponentsx-sched_line = pocomponents-sched_line .
pocomponentsx-item_no = pocomponents-item_no .
pocomponentsx-entry_quantity = ‘X’.
pocomponentsx-material = ‘X’.
pocomponentsx-change_id = ‘X’.
APPEND pocomponentsx.

CALL FUNCTION ‘BAPI_PO_CHANGE’
    EXPORTING
      purchaseorder = p_ebeln
    TABLES
      return        = return
      poschedule    = poschedule
      poschedulex   = poschedulex
      pocomponents = pocomponents
      pocomponentsx = pocomponentsx.

CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’
EXPORTING
wait = ‘X’.

WRITE ‘OK’.