ABAP:CO11N报工选择屏幕增强

T-Code:SMOD-CONFPP07

AFRUD接口增强字段:

 返回组件赋值

*&---------------------------------------------------------------------*
*& 包含               ZXCOFU24
*&---------------------------------------------------------------------*
TABLES: afrud.
DATA: lv_msg TYPE char50.
*BREAK jt-wuw.

IF afrud-zz02502 IS NOT INITIAL.
  SELECT COUNT(*) FROM zhr025a WHERE zz02502 = afrud-zz02502.
  IF sy-subrc <> 0.
    lv_msg = afrud-zz02502 && '车间未维护'.
    CLEAR: afrud-zz02502.
    MESSAGE e001(zca) WITH lv_msg.
  ENDIF.
ENDIF.

IF afrud-zz02401 IS NOT INITIAL.
  SELECT COUNT(*) FROM zhr025a WHERE zz02401 = afrud-zz02401.
  IF sy-subrc <> 0.
    lv_msg = afrud-zz02401 && '线体未维护'.
    CLEAR: afrud-zz02401.
    MESSAGE e001(zca) WITH lv_msg .
  ENDIF.
ENDIF.

SELECT COUNT(*) FROM zhr025a  WHERE zz02502 = afrud-zz02502 AND zz02401 = afrud-zz02401.
IF sy-subrc <> 0.
  MESSAGE e003(zpp) WITH afrud-zz02502 afrud-zz02401.
ENDIF.

es_afrud-zz02502 = afrud-zz02502.
es_afrud-zz02401 = afrud-zz02401.