<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > English > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Business Add-Ins (BADI) > Business Add-Ins (BADI) Examples > ZSHP_DELIVERY_PROC > CHANGE_DELIVERY_ITEM

method IF_EX_LE_SHP_DELIVERY_PROC~CHANGE_DELIVERY_ITEM .
 
***>>> KALAU WAVEPICK SUDAH ADA,SLOC TIDAK BOLEH DIUBAH <<***
data: LW_XLIPS like line of IT_XLIPS..
data: lv_sammg type vbss-sammg.
 
free lw_xlips.
 
loop at IT_XLIPS into LW_XLIPS
                  where vbeln = cs_lips-vbeln and posnr = cs_lips-posnr.
endloop.
 
if lw_xlips-lgort ne cs_lips-lgort .
** Periksa apakah sudah ada wavepick number
    SELECT SINGLE SAMMG INTO LV_SAMMG FROM VBSS
                WHERE vbeln = lw_xlips-vbeln and sammg > 9000000000 .
    if lv_sammg is not initial.
      MESSAGE E908(VL) WITH lv_sammg.
    endif.
endif.
***>>>  END  <<<****
 
endmethod.