交货单过账

*&---------------------------------------------------------------------*
*& Report YBO_NOTE09
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT YBO_NOTE09.

DATA:
  HEADER_DATA    TYPE BAPIOBDLVHDRCON,
  HEADER_CONTROL TYPE BAPIOBDLVHDRCTRLCON,
  DELIVERY       TYPE BAPIOBDLVHDRCON-DELIV_NUMB,
  LT_RETURN      TYPE TABLE OF BAPIRET2 WITH HEADER LINE.

DELIVERY = '8000000627'.
HEADER_DATA-DELIV_NUMB = DELIVERY.
HEADER_CONTROL-DELIV_NUMB = DELIVERY.
HEADER_CONTROL-POST_GI_FLG = ABAP_TRUE.
HEADER_CONTROL-VOLUME_FLG = ABAP_TRUE.


CALL FUNCTION 'BAPI_OUTB_DELIVERY_CONFIRM_DEC'
  EXPORTING
    HEADER_DATA    = HEADER_DATA
    HEADER_CONTROL = HEADER_CONTROL
    DELIVERY       = DELIVERY
*   TECHN_CONTROL  =
*   HEADER_DATA_SPL                  =
*   HEADER_CONTROL_SPL               =
  TABLES
*   HEADER_PARTNER =
*   HEADER_PARTNER_ADDR              =
*   HEADER_DEADLINES                 =
*   ITEM_DATA      =
*   ITEM_CONTROL   =
*   ITEM_CODING_BLOCK                =
*   ITEM_SERIAL_NO =
*   SUPPLIER_CONS_DATA               =
*   HANDLING_UNIT_HEADER             =
*   HANDLING_UNIT_ITEM               =
*   HANDLING_UNIT_HEADER_EPC         =
*   HANDLING_UNIT_ITEMS_EPC          =
*   HANDLING_UNIT_SERNO              =
*   EXTENSION1     =
*   EXTENSION2     =
    RETURN         = LT_RETURN
*   TOKENREFERENCE =
*   HANDLING_UNIT_HEADER_CROSS       =
*   ITEM_DATA_SPL  =
*   HANDLING_UNIT_IDENTIFIERS        =
*   HANDLING_UNIT_ITEM_SPL           =
*   ITEM_DATA_DOCU_BATCH             =
*   NEW_ITEM_DATA  =
*   NEW_ITEM_DATA_SPL                =
*   NEW_ITEM_ORG   =
*   TEXT_HEADER    =
*   TEXT_LINES     =
*   NEW_ITEM_DATA_SKU                =
*   CWM_ITEM_DATA  =
*   CWM_HU_ITEM    =
  .

LOOP AT LT_RETURN .
  WRITE: /,LT_RETURN-TYPE, LT_RETURN-ID, LT_RETURN-NUMBER, LT_RETURN-MESSAGE .
ENDLOOP.

COMMIT WORK AND WAIT .