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

*&---------------------------------------------------------------------*
*& Include ZXV50U03 *
*&---------------------------------------------------------------------*
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(I_DOCUMENT) LIKE RL50E-K_FLAG DEFAULT '2'
*" VALUE(I_BATCH_NUMBER) LIKE LIPS-CHARG DEFAULT ' '
*" VALUE(I_MAT_MASTER_VIEW) LIKE MAEPV STRUCTURE MAEPV
*" DEFAULT ' '
*" VALUE(I_BATCHES) LIKE MCHA STRUCTURE MCHA
*" DEFAULT ' '
*" VALUE(I_SALES_ORG) LIKE LIKP-VKORG DEFAULT ' '
*" VALUE(I_DISTR_CHANNEL) LIKE VBRK-VTWEG DEFAULT ' '
*" VALUE(I_COUNTRY) LIKE T001W-LAND1 DEFAULT ' '
*" VALUE(I_DELIVERY_ITEM) LIKE LIPS STRUCTURE LIPS
*" DEFAULT ' '
*" VALUE(I_INVOICE_ITEM) LIKE VBRP STRUCTURE VBRP
*" DEFAULT ' '
*" CHANGING
*" VALUE(C_EXPORT_LINE_ITEM_DATA) LIKE EIPO
*" STRUCTURE EIPO DEFAULT ' '
*" VALUE(C_STAWN) LIKE EIPO-STAWN DEFAULT ' '
*" VALUE(C_EXPRF) LIKE EIPO-EXPRF DEFAULT ' '
*" VALUE(C_EXART) LIKE EIPO-EXART DEFAULT ' '
*" VALUE(C_HERKL) LIKE EIPO-HERKL DEFAULT ' '
*" VALUE(C_HERKR) LIKE EIPO-HERKR DEFAULT ' '
*"----------------------------------------------------------------------

C_EXART = 'A'.
C_EXPRF = '1'.
C_HERKL = 'ID'.
IF C_STAWN is initial.
C_STAWN = 'GENERAL'.
ENDIF.