REPORT zchangeqty.
* DO update
DATA gw_do_header  TYPE bapiobdlvhdrchg.
DATA gw_do_ctrl    TYPE bapiobdlvhdrctrlchg.
DATA gv_delivery   TYPE vbeln_vl.
DATA gt_doitem     TYPE STANDARD TABLE OF bapiobdlvitemchg.
DATA gt_doitemctrl TYPE STANDARD TABLE OF bapiobdlvitemctrlchg.
DATA gt_doretn     TYPE STANDARD TABLE OF bapiret2.
DATA lw_doitem     TYPE bapiobdlvitemchg.
DATA lw_doitemctrl TYPE bapiobdlvitemctrlchg.
DATA lw_doretn     TYPE bapiret2.
DATA lw_lips       TYPE lips.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    input  '80000349'
  IMPORTING
    output gv_delivery.

"header
gw_do_header-deliv_numb gv_delivery.

"header control
gw_do_ctrl-deliv_numb gv_delivery.

"items
CLEAR lw_doitem.
lw_doitem-deliv_numb gv_delivery.
lw_doitem-dlv_qty    '9'.      "<----new qty from 10 to 9
SELECT SINGLE FROM lips INTO lw_lips
  WHERE vbeln lw_doitem-deliv_numb.
IF sy-subrc 0.
  lw_doitem-fact_unit_nom   lw_lips-umvkz.
  lw_doitem-fact_unit_denom lw_lips-umvkn.
  lw_doitem-conv_fact       lw_lips-umrev.
  lw_doitem-deliv_item      lw_lips-posnr.
  lw_doitem-sales_unit      lw_lips-vrkme.
ENDIF.
APPEND lw_doitem TO gt_doitem.

"item control
lw_doitemctrl-deliv_numb gv_delivery.
lw_doitemctrl-deliv_item lw_doitem-deliv_item.
lw_doitemctrl-chg_delqty 'X'.
APPEND lw_doitemctrl TO gt_doitemctrl.

CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
  EXPORTING
    header_data    gw_do_header
    header_control gw_do_ctrl
    delivery       gv_delivery
  TABLES
    item_data      gt_doitem
    item_control   gt_doitemctrl
    return         gt_doretn.

READ TABLE gt_doretn INTO lw_doretn WITH KEY type 'E'.
IF sy-subrc 0.
  "Error handling
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait 'X'.
ENDIF.


Serkan AKKAVAK
Computer Engineer
ABAP Developer & SAP MM SD Consultant
Contact : serkurumsal@yandex.com