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.
ZPPFM008 获取物料基础数
最新推荐文章于 2023-08-11 17:18:10 发布