内部领料移动平均价同步

FUNCTION zrfc_mm019.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(CALLNO) TYPE  ZCALLNO
*"  EXPORTING
*"     VALUE(FLAG) LIKE  BAPIRET2-TYPE
*"     VALUE(MESSAGE) LIKE  BAPIRET2-MESSAGE
*"  TABLES
*"      ZMMS_MBEW STRUCTURE  ZMMS_MBEW OPTIONAL
*"----------------------------------------------------------------------


SELECT matnr bwkey lbkum salk3 verpr INTO TABLE zmms_mbew
  FROM mbew
  WHERE bwkey = 'R301'.

  IF zmms_mbew[] IS NOT INITIAL.
  flag = 'S'.
  ELSE.
    flag = 'E'.
    message = '查询异常'.
  ENDIF.

ENDFUNCTION.