ZPPFM008 获取物料基础数

FUNCTION ZPPFM008.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  EXPORTING
*"     VALUE(O_MSG) TYPE  TEXT200
*"  TABLES
*"      O_MATCODE STRUCTURE  ZSPP011
*"----------------------------------------------------------------------


*  TABLES: makt.
*  TABLES: marc.
*  TABLES: mara.

  SELECT
  DISTINCT
  MARA~MATNR
  MARA~MTART
  MARA~MATKL
  MARA~MEINS
  MARC~BESKZ
  MAKT~MAKTX
  MAKT~SPRAS

  INTO CORRESPONDING FIELDS OF TABLE O_MATCODE
  FROM MARA
  INNER JOIN MARC ON MARA~MATNR = MARC~MATNR AND MARA~MANDT = MARC~MANDT AND MARC~WERKS = '1001'
  INNER JOIN MAKT ON MARA~MATNR = MAKT~MATNR AND MARA~MANDT = MAKT~MANDT AND MAKT~SPRAS = '1'   "存在转码  不能写  = ZH
*  WHERE MARA~MATNR = '000000001010000001'
    .

  DATA: TMPMEINS TYPE MARA-MEINS.
  LOOP AT O_MATCODE.
    CLEAR: TMPMEINS.
    CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
      EXPORTING
        INPUT  = O_MATCODE-MEINS
      IMPORTING
        OUTPUT = TMPMEINS.

    LOOP AT O_MATCODE WHERE MATNR = O_MATCODE-MATNR.
      O_MATCODE-MEINS = TMPMEINS.
      MODIFY O_MATCODE.
      CLEAR: TMPMEINS.
    ENDLOOP.
  ENDLOOP.

  IF SY-SUBRC IS NOT INITIAL.
    O_MSG = '无数据'.
  ELSE.
    O_MSG = 'OK'.
  ENDIF.
ENDFUNCTION.