修改包装单元(handling unit)用户状态[HU_STATUS_UPDATE]详解编程语言

REPORT ztest_change_hu_status. 
TYPES:BEGIN OF ty_objnr, 
objnr TYPE hustobj-objnr, 
END OF ty_objnr. 
DATA: lit_vekp        TYPE TABLE OF vekp, 
lwa_vekp        LIKE LINE OF lit_vekp, 
lit_hustatus_db TYPE vses_t_hustatus, 
lwa_hustatus_db LIKE LINE OF lit_hustatus_db, 
lit_objnr       TYPE STANDARD TABLE OF ty_objnr, 
lwa_objnr       LIKE LINE OF lit_objnr, 
lit_hustatus    TYPE vses_t_hustatus, 
lwa_hustatus    LIKE LINE OF lit_hustatus, 
lit_hustobj     TYPE vses_t_hustobj, 
lwa_hustobj     LIKE LINE OF lit_hustobj, 
lit_vepo        TYPE TABLE OF vepo, 
lwa_vepo        LIKE LINE OF lit_vepo, 
l_objnr         TYPE hustobj-objnr. 
CONSTANTS:lco_hu TYPE char2 VALUE 'HU',      " HU 
lco_15 TYPE char5 VALUE 'E0006',   " user status 15 HOLD 
lco_16 TYPE char5 VALUE 'E0007'.   " user status 16 UNHOLD 
PARAMETERS:p_vbeln TYPE likp-vbeln. 
" get data from VEKP 
SELECT * INTO TABLE lit_vekp 
FROM vekp 
WHERE vpobjkey = p_vbeln. 
IF sy-subrc = 0. 
SORT lit_vekp BY exidv. 
ENDIF. 
" get data from VEPO 
IF lit_vekp IS NOT INITIAL. 
SELECT * INTO TABLE lit_vepo 
FROM vepo 
FOR ALL ENTRIES IN lit_vekp 
WHERE venum = lit_vekp-venum. 
ENDIF. 
* get user status 
* get HU object 
LOOP AT lit_vepo INTO lwa_vepo. 
lwa_objnr-objnr = lco_hu.  "HU 
lwa_objnr+2(10) = lwa_vepo-venum. 
COLLECT lwa_objnr INTO lit_objnr. 
ENDLOOP. 
IF lit_objnr[] IS NOT INITIAL. 
* 查找HU的状态 
SELECT * 
FROM husstat 
INTO TABLE lit_hustatus_db 
FOR ALL ENTRIES IN lit_objnr 
WHERE objnr = lit_objnr-objnr 
AND stat  = lco_15  "Hold 
AND inact <> 'X'. 
IF sy-subrc = 0. 
REFRESH:lit_hustatus. 
* 
    LOOP AT lit_hustatus_db INTO lwa_hustatus_db . 
*     将E0006状态设置成无效 
lwa_hustatus-objnr = lwa_hustatus_db-objnr. 
lwa_hustatus-stat  = lco_15. 
lwa_hustatus-inact = abap_true. 
lwa_hustatus-mod   = 'U'. 
APPEND lwa_hustatus TO lit_hustatus. 
READ TABLE lit_hustatus_db INTO lwa_hustatus_db WITH KEY objnr = l_objnr 
stat  = lco_16. 
IF sy-subrc = 0. 
lwa_hustatus-mod   = 'U'. 
ELSE. 
lwa_hustatus-mod   = 'I'. 
ENDIF. 
*     插入或修改新状态 
lwa_hustatus-objnr = lwa_hustatus_db-objnr. 
lwa_hustatus-stat  = lco_16. 
lwa_hustatus-inact = abap_false. 
APPEND lwa_hustatus TO lit_hustatus. 
ENDLOOP. 
IF lit_hustatus[] IS NOT INITIAL. 
CALL FUNCTION 'HU_STATUS_UPDATE' 
EXPORTING 
it_hustatus = lit_hustatus 
it_hustobj  = lit_hustobj. 
ENDIF. 
ENDIF. 
ENDIF.