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 获取物料基础数
猜你喜欢
转载自blog.csdn.net/low584710047/article/details/80268593
今日推荐
周排行