...
    data: lt_partners like bapiparnr occurs 1 with header line.
    ...
    clear lt_partners.
    lt_partners-partn_role = <РольПартнера>.
    lt_partners-partn_numb = <НомерПартнера>.
    append lt_partners.

  data: header like bapisdhd1.

  data: lt_item     like bapisditm occurs 10 with header line,
        lt_schedule like bapischdl occurs 10 with header line,
        lt_partners like bapiparnr occurs 1 with header line.

  . . .
  data: lt_vbadr like sadrvb occurs 0 with header line,
        lt_vbpa  like vbpavb occurs 0 with header line.

  . . .
  define create_partner.
    clear i_partners.
    i_partners-partn_role = &1.
    i_partners-partn_numb = &2.
    append i_partners.
  end-of-definition.
 
  . . .
* Есть ссылка на контракт / Обработка заголовка
  if not <НомерКонтракта> is initial.

    move: 'G'              to header-refdoc_cat,
          <НомерКонтракта> to header-ref_doc.

* Копируем коммерч.данные из контракта в заказ
    select single kdgrp zterm inco1 inco2
           into (header-cust_group,
                 header-pmnttrms,
                 header-incoterms1,
                 header-incoterms2)
           from vbkd where vbeln = is_ccrqk-vbeln_ag
                       and posnr = '000000'.

* Копируем партнеров из контракта в заказ
    call function 'SD_PARTNER_READ'
      exporting
        f_vbeln  = <НомерКонтракта>
      tables
        i_xvbadr = lt_vbadr
        i_xvbpa  = lt_vbpa.

    if not lt_vbpa[] is initial.
      loop at lt_vbpa.
        create_partner lt_vbpa-parvw lt_vbpa-kunnr.
      endloop.
    endif.

* При обработке позиций также ссылаемся на контракт
* и тянем из него нужные данные:

  . . .
        move: <НомерКонтракта>  to lt_item-ref_doc,
              <ПозицКонтракта>  to lt_item-ref_doc_it,
              'G'               to lt_item-ref_doc_ca.

        select single zterm inco1 inco2 into (lt_item-pmnttrms,
                                              lt_item-incoterms1,
                                              lt_item-incoterms2)
                              from vbkd
                             where vbeln = <НомерКонтракта> 
                               and posnr = <ПозицКонтракта>.
  . . .

  Endif.