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.