Partner während BAPI_OUTB_DELIVERY_CREATENOREF ändern

Code: Alles auswählen.

DATA ls_partner           TYPE bapidlvpartnerchg.
      DATA ls_partner_addr TYPE bapidlvpartnaddrchg.
      DATA header_partner TYPE TABLE OF bapidlvpartnerchg.
      DATA header_partner_addr TYPE TABLE OF bapidlvpartnaddrchg.

      LOOP AT lt_pos_e INTO ls_pos_e.
        ls_partner-upd_mode_partn = 'U'.   " update partner
        ls_partner-deliv_numb           = ls_pos_e-deliv_numb.
        ls_partner-partn_role             = 'WE'.
        ls_partner-partner_no            = ls_kopfdaten-kunnr.
*   ls_partner-address_no          = address_number.


        ls_partner-manual_addr = 'X'.

        ls_partner_addr-upd_mode_adr = 'U'. " create or update address
*           ls_partner_addr-addr_no             = address_number.
        ls_partner_addr-name                  = ls_warenempfaenger-name1.
        ls_partner_addr-name_2              = ls_warenempfaenger-name2.
        ls_partner_addr-city                      = ls_warenempfaenger-ort01.
        ls_partner_addr-postl_cod1         = ls_warenempfaenger-pstlz.
        ls_partner_addr-street                  = ls_warenempfaenger-stras.
        ls_partner_addr-tel1_numbr         = ls_warenempfaenger-telf1.
        APPEND ls_partner_addr TO header_partner_addr.

        APPEND ls_partner TO header_partner.


        DATA ls_header         TYPE bapiobdlvhdrchg.
        DATA ls_header_control TYPE bapiobdlvhdrctrlchg.

        ls_header-deliv_numb         = ls_pos_e-deliv_numb.
        ls_header_control-deliv_numb = ls_pos_e-deliv_numb.


        CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
          EXPORTING
            header_data             = ls_header
            header_control          = ls_header_control
            delivery                = ls_pos_e-deliv_numb
*           TECHN_CONTROL           =
*           HEADER_DATA_SPL         =
*           HEADER_CONTROL_SPL      =
*           SENDER_SYSTEM           =
          TABLES
            header_partner          = header_partner
            header_partner_addr     = header_partner_addr
*           HEADER_DEADLINES        =
*           ITEM_DATA               =
*           ITEM_CONTROL            =
*           ITEM_SERIAL_NO          =
*           SUPPLIER_CONS_DATA      =
*           EXTENSION1              =
*           EXTENSION2              =
            return                  = lt_return
*           TOKENREFERENCE          =
*           ITEM_DATA_SPL           =
*           COLLECTIVE_CHANGE_ITEMS =
*           NEW_ITEM_DATA           =
*           NEW_ITEM_DATA_SPL       =
*           NEW_ITEM_ORG            =
*           ITEM_DATA_DOCU_BATCH    =
          .
        COMMIT WORK.