All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Customer Exits > Contoh Customer Exits > Project ZSDWS001 > Funtions Exits > EXIT_SAPLV56L

*&---------------------------------------------------------------------*
*& 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.