Condtion type Z123 is mandatory!

user exit: MV45AFZZ—>userexit_save_document_prepare

ZI_EXIT_SD_CNEMS_SAVE_PREPARE

***Start of insert for S20180927143604 by crystal 20181130
CLEAR:ls_xkomv,l_const_ems_01.
CONCATENATE 'Z123_' vbak-vkorg '_' vbak-auart INTO l_const_ems_01.
SELECT SINGLE const FROM zsd_con_val INTO l_const_ems_01
WHERE repid = 'ZI_EXIT_SD_CNEMS_SAVE_PREPARE'
AND const = l_const_ems_01
AND value = 'X'.
IF sy-subrc = 0.
LOOP AT xvbap WHERE posnr <> '000000'.
READ TABLE xkomv WITH KEY kschl = 'Z123' kposn = xvbap-posnr INTO ls_xkomv.
IF sy-subrc NE 0 OR ( sy-subrc = 0 AND ls_xkomv-kwert IS INITIAL ).
CONCATENATE 'Condition type Z123 is mandatory on item' xvbap-posnr '!' INTO l_msg SEPARATED BY space.
MESSAGE l_msg TYPE 'E' .
ENDIF.
ENDLOOP.
ENDIF.
***End of insert for S20180927143604 by crystal 20181130

转载于:https://www.cnblogs.com/chrisrockdl/p/10147422.html