按照物料号码、估价范围、评估类型显示历史库存

按照物料号码、估价范围、评估类型显示历史库存 REPORT ZMMRAIS011. TABLES: MBEW. TYPE-POOLS: SLIS. SELECTION-SCREEN BEGIN OF BLOCK SCR1 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS: S_MATNR FOR MBEW-MATNR, "物料号码 S_BWKEY FOR MBEW-BWKEY, "估价范围 S_BWTAR FOR MBEW-BWTAR. "评估类型 SELECTION-SCREEN END OF BLOCK SCR1. TYPES: BEGIN OF ST_OUTPUT, MATNR TYPE MBEW-MATNR, "物料号码 BWKEY TYPE MBEW-BWKEY, "估价范围 BWTAR TYPE MBEW-BWTAR, "评估类型 LFGJA TYPE MBEW-LFGJA, "当前期间的会计年度 LBKU1 TYPE MBEW-LBKUM, "一月库存 SALK1 TYPE MBEW-SALK3, "一月库存价值 LBKU2 TYPE MBEW-LBKUM, "二月库存 SALK2 TYPE MBEW-SALK3, "二月库存价值 LBKU3 TYPE MBEW-LBKUM, "三月库存 SALK3 TYPE MBEW-SALK3, "三月库存价值 LBKU4 TYPE MBEW-LBKUM, "四月库存 SALK4 TYPE MBEW-SALK3, "四月库存价值 LBKU5 TYPE MBEW-LBKUM, "五月库存 SALK5 TYPE MBEW-SALK3, "五月库存价值 LBKU6 TYPE MBEW-LBKUM, "六月库存 SALK6 TYPE MBEW-SALK3, "六月库存价值 LBKU7 TYPE MBEW-LBKUM, "七月库存 SALK7 TYPE MBEW-SALK3, "七月库存价值 LBKU8 TYPE MBEW-LBKUM, "八月库存 SALK8 TYPE MBEW-SALK3, "八月库存价值 LBKU9 TYPE MBEW-LBKUM, "九月库存 SALK9 TYPE MBEW-SALK3, "九月库存价值 LBKU10 TYPE MBEW-LBKUM, "十月库存 SALK10 TYPE MBEW-SALK3, "十月库存价值 LBKU11 TYPE MBEW-LBKUM, "十一月库存 SALK11 TYPE MBEW-SALK3, "十一月库存价值 LBKU12 TYPE MBEW-LBKUM, "十二月库存 SALK12 TYPE MBEW-SALK3, "十二月库存价值 END OF ST_OUTPUT, BEGIN OF ST_MBEW, MATNR TYPE MBEW-MATNR, "物料号码 BWKEY TYPE MBEW-BWKEY, "估价范围 BWTAR TYPE MBEW-BWTAR, "评估类型 LFGJA TYPE MBEW-LFGJA, "当前期间的会计年度 LBKUM TYPE MBEW-LBKUM, "库存 SALK3 TYPE MBEW-SALK3, "库存价值 LFMON TYPE MBEW-LFMON, "当前期间 (记帐期间) END OF ST_MBEW. DATA: WA_OUTPUT TYPE ST_OUTPUT, IT_OUTPUT LIKE TABLE OF WA_OUTPUT, IS_LAYOUT TYPE SLIS_LAYOUT_ALV, IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, WA_REPID LIKE SY-REPID, WA_MBEW TYPE ST_MBEW, IT_MBEW LIKE TABLE OF WA_MBEW, WA_MBEWH TYPE ST_MBEW, IT_MBEWH LIKE TABLE OF WA_MBEWH, DE_LBKUM TYPE MBEW-LBKUM, DE_SALK3 TYPE MBEW-SALK3, WA_MBEWH_T TYPE ST_MBEW, DE_LFGJA1 TYPE MBEW-LFGJA, DE_LFMON1 TYPE MBEW-LFMON, DE_LFGJA2 TYPE MBEW-LFGJA, DE_LFMON2 TYPE MBEW-LFMON, DE_FIRSTDAY TYPE SY-DATUM, DE_LASTDAY TYPE SY-DATUM, DE_TEMPDAY1 TYPE SY-DATUM, DE_TEMPDAY2 TYPE SY-DATUM. FIELD-SYMBOLS: LIKE WA_OUTPUT, LIKE WA_MBEW, LIKE WA_MBEWH. START-OF-SELECTION. PERFORM GET_DATA. PERFORM PROCESS_DATA. PERFORM OUTPUT_DATA. *---------------------------------------------------------------------* * FORM GET_DATA * *---------------------------------------------------------------------* * 取得级别数 据 * *---------------------------------------------------------------------* FORM GET_DATA. PERFORM CALL_INDICATOR USING '读取商品评估' 10. SELECT MATNR BWKEY BWTAR LFGJA LFMON LBKUM SALK3 FROM MBEW INTO CORRESPONDING FIELDS OF TABLE IT_MBEW WHERE MATNR IN S_MATNR AND BWKEY IN S_BWKEY AND BWTAR IN S_BWTAR. PERFORM CALL_INDICATOR USING '读取物料评估：历史' 30. SELECT MATNR BWKEY BWTAR LFGJA LFMON LBKUM SALK3 FROM MBEWH APPENDING CORRESPONDING FIELDS OF TABLE IT_MBEWH WHERE MATNR IN S_MATNR AND BWKEY IN S_BWKEY AND BWTAR IN S_BWTAR. ENDFORM. *---------------------------------------------------------------------* * FORM PROCESS_DATA * *---------------------------------------------------------------------* * 处理数 据 * *---------------------------------------------------------------------* FORM PROCESS_DATA. * 1、递归,如果历史

表

关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf

中没有上月库存记录，则上月库存为当前库存。 * 2、如果历史表中没有第N月库存, * 则第N月库存为第N+1月库存，直到递归到当前库存 CONCATENATE SY-DATUM(6) '01' INTO DE_FIRSTDAY. CALL FUNCTION 'LAST_DAY_OF_MONTHS' EXPORTING DAY_IN = DE_FIRSTDAY IMPORTING LAST_DAY_OF_MONTH = DE_LASTDAY EXCEPTIONS DAY_IN_NO_DATE = 1 OTHERS = 2. IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. SORT: IT_MBEWH BY MATNR BWKEY BWTAR LFGJA LFMON. CLEAR: WA_MBEWH. PERFORM CALL_INDICATOR USING '计算库存' 40. LOOP AT IT_MBEWH ASSIGNING . * 期初 IF -MATNR NE WA_MBEWH-MATNR OR -BWKEY NE WA_MBEWH-BWKEY OR -BWTAR NE WA_MBEWH-BWTAR. MOVE-CORRESPONDING TO WA_MBEWH. PERFORM APPEND_OUTPUT USING -MATNR -BWKEY -BWTAR -LFGJA -LFMON -LBKUM -SALK3. ENDIF. ENDLOOP. ENDFORM. *---------------------------------------------------------------------* * FORM APPEND_OUTPUT * *---------------------------------------------------------------------* * 初始化输出内 表 * *---------------------------------------------------------------------* FORM APPEND_OUTPUT USING MATNR BWKEY BWTAR LFGJA LFMON LBKUM SALK3. * 期出库存那 PERFORM APPEND_MONTH USING MATNR BWKEY BWTAR LFGJA LFMON LBKUM SALK3. DE_LFGJA1 = LFGJA. DE_LFMON1 = LFMON. SORT: IT_MBEW BY MATNR BWKEY BWTAR. DO. "一层循环,期初时间到当前日期,计算每月库存 DE_LFMON1 = DE_LFMON1 + 1. IF DE_LFMON1 = '13'. DE_LFGJA1 = DE_LFGJA1 + 1. DE_LFMON1 = '01'. ENDIF. CONCATENATE DE_LFGJA1 DE_LFMON1 '01' INTO DE_TEMPDAY1. IF DE_TEMPDAY1 GT DE_LASTDAY. EXIT. ENDIF. READ TABLE IT_MBEWH WITH KEY MATNR = MATNR BWKEY = BWKEY BWTAR = BWTAR LFGJA = DE_LFGJA1 LFMON = DE_LFMON1 INTO WA_MBEWH_T BINARY SEARCH. IF SY-SUBRC = 0. PERFORM APPEND_MONTH USING MATNR BWKEY BWTAR DE_LFGJA1 DE_LFMON1 WA_MBEWH_T-LBKUM WA_MBEWH_T-SALK3. ELSE. DE_LFGJA2 = DE_LFGJA1. DE_LFMON2 = DE_LFMON1. DO. "二层循环递归,当月库存找不到,为下一月库存 DE_LFMON2 = DE_LFMON2 + 1. IF DE_LFMON2 = '13'. DE_LFGJA2 = DE_LFGJA2 + 1. DE_LFMON2 = '01'. ENDIF. CONCATENATE DE_LFGJA2 DE_LFMON2 '01' INTO DE_TEMPDAY2. IF DE_TEMPDAY2 GT DE_LASTDAY. "历史表里没有,就为当前表的库存 READ TABLE IT_MBEW WITH KEY MATNR = MATNR BWKEY = BWKEY BWTAR = BWTAR INTO WA_MBEWH_T BINARY SEARCH. IF SY-SUBRC = 0. PERFORM APPEND_MONTH USING MATNR BWKEY BWTAR DE_LFGJA1 DE_LFMON1 WA_MBEWH_T-LBKUM WA_MBEWH_T-SALK3. EXIT. ENDIF. EXIT. ENDIF. READ TABLE IT_MBEWH WITH KEY MATNR = MATNR BWKEY = BWKEY BWTAR = BWTAR LFGJA = DE_LFGJA2 LFMON = DE_LFMON2 INTO WA_MBEWH_T BINARY SEARCH. IF SY-SUBRC = 0. PERFORM APPEND_MONTH USING MATNR BWKEY BWTAR DE_LFGJA1 DE_LFMON1 WA_MBEWH_T-LBKUM WA_MBEWH_T-SALK3. EXIT. ENDIF. ENDDO. ENDIF. ENDDO. ENDFORM. *-------------------------------------------------------------------- -* * FORM APPEND_MONTH * *-------------------------------------------------------------------- -* * 分配期间数 值 * *-------------------------------------------------------------------- -* FORM APPEND_MONTH USING MATNR BWKEY BWTAR LFGJA LFMON LBKUM SALK3. WA_OUTPUT-MATNR = MATNR. WA_OUTPUT-BWKEY = BWKEY. WA_OUTPUT-BWTAR = BWTAR. WA_OUTPUT-LFGJA = LFGJA. CASE LFMON. WHEN '01'. WA_OUTPUT-LBKU1 = LBKUM. WA_OUTPUT-SALK1 = SALK3. WHEN '02'. WA_OUTPUT-LBKU2 = LBKUM. WA_OUTPUT-SALK2 = SALK3. WHEN '03'. WA_OUTPUT-LBKU3 = LBKUM. WA_OUTPUT-SALK3 = SALK3. WHEN '04'. WA_OUTPUT-LBKU4 = LBKUM. WA_OUTPUT-SALK4 = SALK3. WHEN '05'. WA_OUTPUT-LBKU5 = LBKUM. WA_OUTPUT-SALK5 = SALK3. WHEN '06'. WA_OUTPUT-LBKU6 = LBKUM. WA_OUTPUT-SALK6 = SALK3. WHEN '07'. WA_OUTPUT-LBKU7 = LBKUM. WA_OUTPUT-SALK7 = SALK3. WHEN '08'. WA_OUTPUT-LBKU8 = LBKUM. WA_OUTPUT-SALK8 = SALK3. WHEN '09'. WA_OUTPUT-LBKU9 = LBKUM. WA_OUTPUT-SALK9 = SALK3. WHEN '10'. WA_OUTPUT-LBKU10 = LBKUM. WA_OUTPUT-SALK10 = SALK3. WHEN '11'. WA_OUTPUT-LBKU11 = LBKUM. WA_OUTPUT-SALK11 = SALK3. WHEN '12'. WA_OUTPUT-LBKU12 = LBKUM. WA_OUTPUT-SALK12 = SALK3. ENDCASE. COLLECT WA_OUTPUT INTO IT_OUTPUT. CLEAR: WA_OUTPUT. ENDFORM. *---------------------------------------------------------------------* * FORM OUTPUT_DATA * *---------------------------------------------------------------------* * 输出数 据 * *---------------------------------------------------------------------* FORM OUTPUT_DATA. PERFORM CALL_INDICATOR USING '准备输出' 90. SORT: IT_OUTPUT BY MATNR BWKEY BWTAR LFGJA. IS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. "优化列宽度 IS_LAYOUT-ZEBRA = 'X'. "条带化输出 WA_REPID = SY-REPID. PERFORM FIELDCAT_INIT USING IT_FIELDCAT[]. *ALV输出 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = WA_REPID IT_FIELDCAT = IT_FIELDCAT[] IS_LAYOUT = IS_LAYOUT I_SAVE = 'A' "允许保存变式 TABLES T_OUTTAB = IT_OUTPUT EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. ENDFORM. *---------------------------------------------------------------------* * FORM FIELDCAT_INIT * *---------------------------------------------------------------------* * * Initialization fieldcatalog * *---------------------------------------------------------------------* * --> RT_FIELDCAT * *---------------------------------------------------------------------* FORM FIELDCAT_INIT USING RT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV. DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 1. LS_FIELDCAT-KEY = 'X'. LS_FIELDCAT-FIELDNAME = 'MATNR'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'MATNR'. LS_FIELDCAT-SELTEXT_S = '物料号码'. LS_FIELDCAT-SELTEXT_M = '物料号码'. LS_FIELDCAT-SELTEXT_L = '物料号码'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 2. LS_FIELDCAT-KEY = 'X'. LS_FIELDCAT-FIELDNAME = 'BWKEY'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'BWKEY'. LS_FIELDCAT-SELTEXT_S = '估价范围'. LS_FIELDCAT-SELTEXT_M = '估价范围'. LS_FIELDCAT-SELTEXT_L = '估价范围'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. LS_FIELDCAT-COL_POS = 3. LS_FIELDCAT-KEY = 'X'. LS_FIELDCAT-FIELDNAME = 'BWTAR'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'BWTAR'. LS_FIELDCAT-SELTEXT_S = '评估类型'. LS_FIELDCAT-SELTEXT_M = '评估类型'. LS_FIELDCAT-SELTEXT_L = '评估类型'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 4. LS_FIELDCAT-KEY = 'X'. LS_FIELDCAT-FIELDNAME = 'LFGJA'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LFGJA'. LS_FIELDCAT-SELTEXT_S = '会计年度'. LS_FIELDCAT-SELTEXT_M = '会计年度'. LS_FIELDCAT-SELTEXT_L = '会计年度'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 5. LS_FIELDCAT-FIELDNAME = 'LBKU1'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '1月库存'. LS_FIELDCAT-SELTEXT_M = '1月库存'. LS_FIELDCAT-SELTEXT_L = '1月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 6. LS_FIELDCAT-FIELDNAME = 'SALK1'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '1月库存价值'. LS_FIELDCAT-SELTEXT_M = '1月库存价值'. LS_FIELDCAT-SELTEXT_L = '1月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 7. LS_FIELDCAT-FIELDNAME = 'LBKU2'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '2月库存'. LS_FIELDCAT-SELTEXT_M = '2月库存'. LS_FIELDCAT-SELTEXT_L = '2月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 8. LS_FIELDCAT-FIELDNAME = 'SALK2'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '2月库存价值'. LS_FIELDCAT-SELTEXT_M = '2月库存价值'. LS_FIELDCAT-SELTEXT_L = '2月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 9. LS_FIELDCAT-FIELDNAME = 'LBKU3'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '3月库存'. LS_FIELDCAT-SELTEXT_M = '3月库存'. LS_FIELDCAT-SELTEXT_L = '3月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 10. LS_FIELDCAT-FIELDNAME = 'SALK3'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '3月库存价值'. LS_FIELDCAT-SELTEXT_M = '3月库存价值'. LS_FIELDCAT-SELTEXT_L = '3月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 11. LS_FIELDCAT-FIELDNAME = 'LBKU4'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '4月库存'. LS_FIELDCAT-SELTEXT_M = '4月库存'. LS_FIELDCAT-SELTEXT_L = '4月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 12. LS_FIELDCAT-FIELDNAME = 'SALK4'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '4月库存价值'. LS_FIELDCAT-SELTEXT_M = '4月库存价值'. LS_FIELDCAT-SELTEXT_L = '4月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 13. LS_FIELDCAT-FIELDNAME = 'LBKU5'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '5月库存'. LS_FIELDCAT-SELTEXT_M = '5月库存'. LS_FIELDCAT-SELTEXT_L = '5月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 14. LS_FIELDCAT-FIELDNAME = 'SALK5'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '5月库存价值'. LS_FIELDCAT-SELTEXT_M = '5月库存价值'. LS_FIELDCAT-SELTEXT_L = '5月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 15. LS_FIELDCAT-FIELDNAME = 'LBKU6'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '6月库存'. LS_FIELDCAT-SELTEXT_M = '6月库存'. LS_FIELDCAT-SELTEXT_L = '6月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 16. LS_FIELDCAT-FIELDNAME = 'SALK6'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '6月库存价值'. LS_FIELDCAT-SELTEXT_M = '6月库存价值'. LS_FIELDCAT-SELTEXT_L = '6月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 17. LS_FIELDCAT-FIELDNAME = 'LBKU7'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '7月库存'. LS_FIELDCAT-SELTEXT_M = '7月库存'. LS_FIELDCAT-SELTEXT_L = '7月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 18. LS_FIELDCAT-FIELDNAME = 'SALK7'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '7月库存价值'. LS_FIELDCAT-SELTEXT_M = '7月库存价值'. LS_FIELDCAT-SELTEXT_L = '7月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 19. LS_FIELDCAT-FIELDNAME = 'LBKU8'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '8月库存'. LS_FIELDCAT-SELTEXT_M = '8月库存'. LS_FIELDCAT-SELTEXT_L = '8月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 20. LS_FIELDCAT-FIELDNAME = 'SALK8'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '8月库存价值'. LS_FIELDCAT-SELTEXT_M = '8月库存价值'. LS_FIELDCAT-SELTEXT_L = '8月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 21. LS_FIELDCAT-FIELDNAME = 'LBKU9'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '9月库存'. LS_FIELDCAT-SELTEXT_M = '9月库存'. LS_FIELDCAT-SELTEXT_L = '9月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 22. LS_FIELDCAT-FIELDNAME = 'SALK9'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '9月库存价值'. LS_FIELDCAT-SELTEXT_M = '9月库存价值'. LS_FIELDCAT-SELTEXT_L = '9月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 23. LS_FIELDCAT-FIELDNAME = 'LBKU10'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '10月库存'. LS_FIELDCAT-SELTEXT_M = '10月库存'. LS_FIELDCAT-SELTEXT_L = '10月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 24. LS_FIELDCAT-FIELDNAME = 'SALK10'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '10月库存价值'. LS_FIELDCAT-SELTEXT_M = '10月库存价值'. LS_FIELDCAT-SELTEXT_L = '10月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 25. LS_FIELDCAT-FIELDNAME = 'LBKU11'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '11月库存'. LS_FIELDCAT-SELTEXT_M = '11月库存'. LS_FIELDCAT-SELTEXT_L = '11月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 26. LS_FIELDCAT-FIELDNAME = 'SALK11'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '11月库存价值'. LS_FIELDCAT-SELTEXT_M = '11月库存价值'. LS_FIELDCAT-SELTEXT_L = '11月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 27. LS_FIELDCAT-FIELDNAME = 'LBKU12'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'LBKUM'. LS_FIELDCAT-SELTEXT_S = '12月库存'. LS_FIELDCAT-SELTEXT_M = '12月库存'. LS_FIELDCAT-SELTEXT_L = '12月库存'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. CLEAR LS_FIELDCAT. LS_FIELDCAT-COL_POS = 28. LS_FIELDCAT-FIELDNAME = 'SALK12'. LS_FIELDCAT-REF_TABNAME = 'MBEW'. LS_FIELDCAT-REF_FIELDNAME = 'SALK3'. LS_FIELDCAT-SELTEXT_S = '12月库存价值'. LS_FIELDCAT-SELTEXT_M = '12月库存价值'. LS_FIELDCAT-SELTEXT_L = '12月库存价值'. LS_FIELDCAT-DDICTXT = 'L'. APPEND LS_FIELDCAT TO RT_FIELDCAT. ENDFORM. "FIELDCAT_INIT *&------------------------------------------------------------------- --* *& Form CALL_INDICATOR *&------------------------------------------------------------------- --* * 在状态栏显示消息 *-------------------------------------------------------------------- --* * -->P_MSGTXT 消息文本 * -->P_PERCENT 百分比 *-------------------------------------------------------------------- --* FORM CALL_INDICATOR USING P_MSGTXT P_PERCENT. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING PERCENTAGE = P_PERCENT TEXT = P_MSGTXT. ENDFORM. " CALL_INDICATOR