<< 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 > FILL_DELIVERY_ITEM

method IF_EX_LE_SHP_DELIVERY_PROC~FILL_DELIVERY_ITEM .
 
*** Check Authorization Objects for Sales Office
if CS_LIPS-vkbur is initial.
   CS_LIPS-vkbur = 'AB01'.
endif.
 
IF IS_LIKP-VBTYP ne '7'.           "not for inbound delivery
   AUTHORITY-CHECK OBJECT 'Z_VKBUR'
            ID 'VKBUR' FIELD CS_LIPS-vkbur
            ID 'ACTVT' FIELD '01'.
  if sy-subrc ne 0.
    MESSAGE E903(VL) WITH CS_LIPS-vkbur is_likp-lfart.
  endif.
 
   AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'
            ID 'VKORG' FIELD is_likp-vkorg
            ID 'VTWEG' FIELD CS_LIPS-vtweg
            ID 'SPART' FIELD CS_LIPS-spart
            ID 'ACTVT' FIELD '01' .
 
  if sy-subrc ne 0.
    MESSAGE E905(VL) WITH is_likp-vkorg CS_LIPS-vtweg.
  endif.
ENDIF.
 
 
endmethod.