FORM FRM_CHECK. "增加工厂权限判断 AUTHORITY-CHECK OBJECT 'M_MATE_WRK' ID 'WERKS' FIELD p_werks. IF sy-subrc NE 0. MESSAGE '没有该工厂权限!' TYPE 'S' DISPLAY LIKE 'E'. ENDIF. ENDFORM.
FORM FRM_CHECK. "增加工厂权限判断 AUTHORITY-CHECK OBJECT 'M_MATE_WRK' ID 'WERKS' FIELD p_werks. IF sy-subrc NE 0. MESSAGE '没有该工厂权限!' TYPE 'S' DISPLAY LIKE 'E'. ENDIF. ENDFORM.