<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools  > Enhancement > Customer Exits > Contoh Customer Exits > Project ZSDWS001 > Funtions Exits > EXIT_SAPLV54C_001 > ZXV54U09

*&---------------------------------------------------------------------*
*&  Include           ZXV54U09                                         *
*&---------------------------------------------------------------------*
SET PARAMETER ID 'TNR' FIELD I_VTTKF-TKNUM.
 
tables: ILOA,
       EQUZ.
 
 
If I_VTTKF-/BEV1/RPMOWA ne space.
 
*  C_POSTX = I_VTTKF-/BEV1/RPMOWA.    "Deskripsi = Kode mobil
 C_EXTI1 = I_VTTKF-/BEV1/RPFAR1.   "External ID 1 = Kode Sopir
 
select single * from EQUZ where EQUNR = C_POSTX.
select single * from ILOA where ILOAN = EQUZ-ILOAN.
if sy-subrc = 0.
   C_EXTI2 = ILOA-AUFNR.           "External ID 2 = Internal Order No.
endif.
 
endif.