配置TCODE:OPKP
SMOD:SAPLV01Z EXIT_SAPLV01Z_002
*添加新逻辑。
DATA:lv_caufvd TYPE string VALUE ' (SAPLCOKO1)CAUFVD'.
FIELD-SYMBOLS:<fs_com> TYPE caufvd .
DATA:lv_new TYPE char12 .
IF sy-tcode = 'CO02'.
ASSIGN (lv_caufvd) TO <fs_com> .
IF sy-subrc = 0 .
lv_new = <fs_com>-aufnr .
SHIFT lv_new LEFT DELETING LEADING '0'.
IF new_charg IS INITIAL OR new_charg NE lv_new.
new_charg = lv_new.
ENDIF .
. ENDIF .
ENDIF .
*工单批量下达
if sy-tcode eq 'COHV' .
lv_new = x_bncom-aufnr .
SHIFT lv_new LEFT DELETING LEADING '0'.
IF new_charg IS INITIAL OR new_charg NE lv_new.
new_charg = lv_new.
ENDIF .
ENDIF .