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