All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Customer Exits > Contoh Customer Exits > Project ZMMWS001 > Funtions Exits > EXIT_SAPLKONT

*&---------------------------------------------------------------------*
*& Include ZXM08U18 *
*&---------------------------------------------------------------------*
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(I_WRXMOD) LIKE WRXMOD STRUCTURE WRXMOD
*" EXPORTING
*" VALUE(E_KONTO_MODIF) LIKE T030-KOMOK
*"----------------------------------------------------------------------
*" User Exit modification by S. Syarien
*" IMC Consulting Alliance
************************************************************************

tables: ekko, ekpo.

clear E_KONTO_MODIF.

select single * from ekko where ebeln = I_WRXMOD-EBELN.

select single * from ekpo where ebeln = I_WRXMOD-EBELN
and ebelp = I_WRXMOD-EBELP.

***> Service items.
IF EKPO-PSTYP = '9' and EKPO-KNTTP ne 'U' .
E_KONTO_MODIF = 'SRV'.
ENDIF.

***> Transporter Internal
IF EKKO-LIFNR = 'A002' .
E_KONTO_MODIF = 'TRP'.
ELSE.
***> Transporter External
IF EKKO-EKGRP = 'L1' .
E_KONTO_MODIF = 'SRV'.
ENDIF.
ENDIF.

IF EKPO-PSTYP = '0' and EKPO-KNTTP is initial.
E_KONTO_MODIF = 'MAT'.
ENDIF.

IF E_KONTO_MODIF is initial.
E_KONTO_MODIF = 'MAT'.
ENDIF.