*&---------------------------------------------------------------------*
*&  Include           ZXV56U25                                         *
*&---------------------------------------------------------------------*
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"       IMPORTING
*"             VALUE(I_LANGU) LIKE  SY-LANGU DEFAULT SY-LANGU
*"             VALUE(I_PARTNER_ROLE) LIKE  VBPA-PARVW DEFAULT SPACE
*"             VALUE(OPT_MINIMIZED_DELIVERY_VIEW) LIKE  RV56A-SELKZ
*"                             DEFAULT SPACE
*"             VALUE(OPT_ITEMS) LIKE  RV56A-SELKZ DEFAULT 'X'
*"             VALUE(OPT_PARTNERS) LIKE  RV56A-SELKZ DEFAULT 'X'
*"             VALUE(OPT_CUSTOMER_DATA) LIKE  RV56A-SELKZ DEFAULT 'X'
*"             VALUE(OPT_CUSTOMIZING_DATA) LIKE  RV56A-SELKZ
*"                             DEFAULT 'X'
*"             VALUE(OPT_ORDER_DATA) LIKE  RV56A-SELKZ DEFAULT SPACE
*"             VALUE(OPT_EXPORT_DATA) LIKE  RV56A-SELKZ DEFAULT SPACE
*"       TABLES
*"              C_VTRLK STRUCTURE  VTRLK
*"              C_VTRLP STRUCTURE  VTRLP
*"       EXCEPTIONS
*"              ERROR
*"----------------------------------------------------------------------
tables: vbss, vbsk.
data: xtabix like sy-tabix,
     xsammg like vbss-sammg.
 
if sy-tcode ca 'VT*'.
 
loop at C_VTRLK.
   move sy-tabix to xtabix.
   clear xsammg.
   select * from vbss where vbeln = c_vtrlk-vbeln.
      select single * from vbsk where sammg = vbss-sammg
                                and   smart = 'W'.
      if sy-subrc = 0.
         move vbsk-sammg to xsammg.
      endif.
   endselect.
   c_vtrlk-zzsammg = xsammg.
   modify c_vtrlk index xtabix.
endloop.
 
endif.