*  Delete information
    CLEAR: c_bapiparnrc.
    c_bapiparnrc-document   = i_vbpa_t-vbeln.
    c_bapiparnrc-itm_number = i_vbpa_t-posnr.
    c_bapiparnrc-updateflag = k_d.
    c_bapiparnrc-partn_role = i_vbpa_t-parvw.

ls_head_x-updateflag = 'U'.

  lwa_bapi_view-item       = 'X'.
  lwa_bapi_view-header     = 'X'.
  lwa_bapi_view-PARTNER  = 'X'.

  lwa_sales_doc-vbeln = vbeln.
  append lwa_sales_doc to lt_sales_doc.

    call function 'BAPISDORDER_GETDETAILEDLIST'
    exporting
      i_bapi_view                   = lwa_bapi_view
*   I_MEMORY_READ                 =
    tables
      sales_documents               = lt_sales_doc
      ORDER_PARTNERS_OUT         = ORDER_PARTNERS_OUT.

loop at ORDER_PARTNERS_OUT  into WA_ORDER_PARTNERS_OUT
      where parvw = 'SN'.

*заполнить  PARTNERS

append PARTNERS.
.........................
*заполнить  PARTNERCHANGES

      PARTNERCHANGES-updateflag = 'D' .
      append PARTNERCHANGES.

..............
endloop.

    call function 'BAPI_SALESORDER_CHANGE'
    exporting
      salesdocument     = vbeln
      order_header_inx   = ls_head_x
    tables
      return            = i_ret
      order_item_inx    = lt_order_item_x
      PARTNERCHANGES    = PARTNERCHANGES
      PARTNERS    = PARTNERS.