关于mm01物料号占用读取被锁人信息函数
CALL FUNCTION 'READ_MAT_ANKER'
EXPORTING
aktyp = t130m-aktyp "V
sperrmodus = sperrmodus "E
IMPORTING
flgnumint = flgnumint
neuflag = neuflag
wmara = mara
rmmg2_manbr = rmmg2-manbr
CHANGING "mk/4.0A
material = rmmg1-matnr "mk/4.0A
dline = rmmg1-dline
aedat = rmmg1-aedat
EXCEPTIONS
not_found = 01 "note 633016
no_authority = 01. "ch zu 3.0F
IF sy-subrc = 01. "-> H: 53680
CALL FUNCTION 'MATERIAL_DEQUEUE'. "
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno "
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. "
ENDIF.
功能组的测试 MG02
功能模块名 READ_MAT_ANKER
较高/较低情况
运行时间: 537 >
例外 LOCK_ON_MATERIAL
消息标识 : M3 消息编号: 022
消息 :
物料4000000016的组数据被xxxI锁定
HR操作被锁定人的读取
CALL FUNCTION 'ENQUEUE_EPPRELE'
EXPORTING
mode_prel = 'E'
mandt = sy-mandt
pernr = 00000011
_scope = '2'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
MESSAGE ID sy-msgid "MC
TYPE sy-msgty "E
NUMBER sy-msgno "601
WITH sy-msgv1 "xxxx
sy-msgv2 "EPPRELE
sy-msgv3 "
sy-msgv4. "