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

method IF_EX_LE_SHP_DELIVERY_PROC~READ_DELIVERY .
 
*** Move POD status to memory ID ZPDSTK
 
data: LW_XVBUK like line of IT_XVBUK.
data: LV_PDSTK type PDSTK.
 
loop at IT_XVBUK into LW_XVBUK where vbtyp = 'J' .
   LV_PDSTK = LW_XVBUK-PDSTK.
  EXPORT LV_PDSTK from LV_PDSTK to memory ID 'ZPDSTK'.
endloop.
 
*** Check Authorization Objects
data: LW_XLIPS like line of CT_XLIPS..
data: lv_actvt(2).
 
loop at CT_XLIPS into LW_XLIPS.
endloop.
 
 
if sy-tcode cp 'VL02*'.
   lv_actvt = '02'.
endif.
if lv_actvt is initial.
   lv_actvt = '03'.
endif.
 
if lw_xlips-vkbur is initial.
   lw_xlips-vkbur = 'AB01'.
endif.
 
IF CS_LIKP-VBTYP ne '7'.
   AUTHORITY-CHECK OBJECT 'Z_VKBUR'
            ID 'VKBUR' FIELD lw_xlips-vkbur
            ID 'ACTVT' FIELD lv_actvt .
 
 
  if sy-subrc ne 0.
    MESSAGE E903(VL) WITH lw_xlips-vkbur cs_likp-lfart.
  endif.
 
 
   AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'
            ID 'VKORG' FIELD cs_likp-vkorg
            ID 'VTWEG' FIELD lw_xlips-vtweg
            ID 'SPART' FIELD lw_xlips-spart
            ID 'ACTVT' FIELD lv_actvt .
 
  if sy-subrc ne 0.
    MESSAGE E905(VL) WITH cs_likp-vkorg lw_xlips-vtweg.
  endif.
ENDIF.
 
endmethod.