<< 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_SAPLV54B_001 > ZXV54U02

*&---------------------------------------------------------------------*
*&  Include           ZXV54U02                                         *
*&---------------------------------------------------------------------*
 
SET PARAMETER ID 'TNR' FIELD I_REFOBJ-VTTKF-TKNUM.
 
* fill-in sequence number from shipment document.
 
C_KOMK-ZZSEQUENCENR = I_REFOBJ-VTTKF-/BEV1/RPFLGNR.
 
 
* fill-in shipping point from delivery document.
 
data : ZW_VTTP like line of I_REFOBJ-VTTP.
LOOP AT I_REFOBJ-VTTP INTO ZW_VTTP.
ENDLOOP.
C_KOMK-VSTEL = ZW_VTTP-VSTEL.
 
tables: likp, ihpa, equi, VTTK.
*data: li_ihpa like STANDARD TABLE OF ihpa WITH HEADER LINE.
data: lv_OBJNR like equi-OBJNR,
     lv_parvw like ihpa-PARvw.
select single * from likp where vbeln = ZW_VTTP-VBELN.
IF SY-SUBRC = 0.
 C_KOMK-VKORG = LIKP-VKORG.
 C_KOMK-KUNWE = LIKP-KUNNR.
 C_KOMK-KUNNR = LIKP-KUNAG.
ENDIF.
 
**fill-in driver & helper
*select single OBJNR into lv_OBJNR from Equi
*  WHERE EQUNR = I_REFOBJ-VTTKF-/BEV1/RPMOWA.
*
*select single PARvw into lv_parvw from ihpa
*  where OBJNR = lv_OBJNR
*        and kzloesch eq space.
*if sy-subrc = 0.
*  C_KOMK-ZZPARVW = lv_parVW.
*endif.