*&---------------------------------------------------------------------* *& Report ZPMRP031 *&---------------------------------------------------------------------* *&历史库存查询6个月--Creat by Bruce King20191203 *&---------------------------------------------------------------------* REPORT ZPMRP031. TABLES:MATDOC,S031. TYPES:BEGIN OF TY_DATA, BUKRS TYPE MATDOC-BUKRS, "公司 WERKS TYPE MATDOC-WERKS, "工厂 LGORT_SID TYPE MATDOC-LGORT_SID, "库位 MATBF TYPE MATDOC-MATBF, "物料编码 MAKTX TYPE MAKT-MAKTX, "物料描述 * CHARG_SID TYPE MATDOC-CHARG_SID, "批次 EISBE LIKE MARC-EISBE, "基于工厂的安全库存 add by King 20191209 MEINS TYPE MATDOC-MEINS, "基本单位 YEARMONTH_BUDAT1 TYPE MATDOC-YEARMONTH_BUDAT, "年月 MENGE1 TYPE MATDOC-MENGE, "月末结存数量 END OF TY_DATA. TYPES:BEGIN OF TY_DATA1, YEARMONTH_BUDAT1 TYPE MATDOC-YEARMONTH_BUDAT, END OF TY_DATA1. DATA:IT_TEMP TYPE STANDARD TABLE OF TY_DATA1, WA_TEMP TYPE TY_DATA1. DATA IT_DATA TYPE TABLE OF TY_DATA. DATA IT_DATA1 TYPE TABLE OF TY_DATA. DATA WA_DATA TYPE TY_DATA. DATA WA_DATA1 TYPE TY_DATA. "FIELD SYMBOLS FIELD-SYMBOLS: <DYN_TABLE> TYPE STANDARD TABLE, <DYN_WA>, <DYN_FIELD>. DATA:N TYPE I. DATA: IT_TABLE TYPE REF TO DATA, IT_STRUCTURE TYPE LVC_T_FCAT, WA_STRUCTURE TYPE LVC_S_FCAT. DATA: WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV, IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, POS TYPE I, WA_LAYOUT TYPE SLIS_LAYOUT_ALV, G_LAYOUT TYPE LVC_S_LAYO. DATA: G_TITLE TYPE LVC_TITLE. DATA:TEMP_DATE(8) TYPE N. DATA:L_ON_DATE_E TYPE P0001-BEGDA. DATA:D_MONTH TYPE P0001-BEGDA. DEFINE ADD_COL. CLEAR WA_FIELDCAT. ADD 1 TO POS. WA_FIELDCAT-COL_POS = POS. WA_FIELDCAT-FIELDNAME = &1. WA_FIELDCAT-REF_FIELDNAME = &2. WA_FIELDCAT-REF_TABNAME = &3. WA_FIELDCAT-SELTEXT_M = &4. WA_FIELDCAT-TABNAME = &5. WA_FIELDCAT-DO_SUM = &6. WA_FIELDCAT-INPUT = &7. WA_FIELDCAT-NO_ZERO = &8. WA_FIELDCAT-DECIMALS_OUT = &9. APPEND WA_FIELDCAT TO IT_FIELDCAT. END-OF-DEFINITION. DEFINE CHANGE_DATE. "用来转换日期 change by king 20200302 CLEAR:TEMP_DATE,D_MONTH. D_MONTH = |{ &1 }01|. CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL' EXPORTING DATE = D_MONTH "输入日期 DAYS = 0 "天数加N或者减N 不加也不减 写0 MONTHS = 1 "月份加N或者减N 不加也不减 写0 SIGNUM = '-' "可以是+或者- YEARS = 0 "年份加N或者减N 不加也不减 写0 IMPORTING CALC_DATE = L_ON_DATE_E. "得到加减之后的日期 S_MONTH1 = L_ON_DATE_E(6) + 0. "取月份 END-OF-DEFINITION. "选择屏幕定义 SELECTION-SCREEN: BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-010. SELECT-OPTIONS: S_WERKS FOR MATDOC-WERKS OBLIGATORY,"工厂 S_LGORT FOR MATDOC-LGORT_SID OBLIGATORY,"库存地 S_MATNR FOR MATDOC-MATBF."物料编码 PARAMETERS S_MONTH1 TYPE S031-SPMON OBLIGATORY. "月份 SELECTION-SCREEN: END OF BLOCK A1. INITIALIZATION. AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_MONTH1. PERFORM MONAT_F4. START-OF-SELECTION. D_MONTH = |{ S_MONTH1 }01|. PERFORM FRM_GET_DATA1. CHANGE_DATE S_MONTH1. DATA(S_MONTH2) = S_MONTH1 . PERFORM FRM_GET_DATA2. CHANGE_DATE S_MONTH1. DATA(S_MONTH3) = S_MONTH1 . PERFORM FRM_GET_DATA3. CHANGE_DATE S_MONTH1. DATA(S_MONTH4) = S_MONTH1 . PERFORM FRM_GET_DATA4. CHANGE_DATE S_MONTH1. DATA(S_MONTH5) = S_MONTH1 . PERFORM FRM_GET_DATA5. CHANGE_DATE S_MONTH1. DATA(S_MONTH6) = S_MONTH1 . PERFORM FRM_GET_DATA6. PERFORM FRM_AUTHRITY_CHECK. PERFORM CREAT_STRUCTURE."创建内表结构 PERFORM CREAT_TABLE."按照结构定义内表 PERFORM DATA_TO_TABLE."写数据进内表 PERFORM FRM_INIT_LAYOUT. PERFORM FRM_SHOW_ALV."内表数据展示 FORM FRM_GET_DATA1. SELECT BUKRS, "公司 WERKS, "工厂 LGORT_SID, "库位 MATBF, "物料编码 MEINS, "基本计量单位 MENGE, "月末结存数量 YEARMONTH_BUDAT,"年月 BSTTYP_SG, "库存类别 * UMSOK_CID, "特殊库存标识 * CHARG_SID, "批次 SHKZG "借贷标识 FROM MATDOC INTO TABLE @DATA(IT_MATDOC1) WHERE WERKS IN @S_WERKS AND LGORT_SID IN @S_LGORT AND MATBF IN @S_MATNR AND YEARMONTH_BUDAT <= @S_MONTH1. "降序排列 REFRESH IT_DATA. SORT IT_MATDOC1 BY YEARMONTH_BUDAT ASCENDING. LOOP AT IT_MATDOC1 INTO DATA(WA) GROUP BY ( KEY1 = WA-BUKRS KEY2 = WA-WERKS KEY3 = WA-LGORT_SID KEY4 = WA-MATBF ) INTO DATA(KEY). WA_DATA-BUKRS = KEY-KEY1. WA_DATA-WERKS = KEY-KEY2. WA_DATA-LGORT_SID = KEY-KEY3. WA_DATA-MATBF = KEY-KEY4. * WA_DATA-CHARG_SID = KEY-KEY5. WA_DATA-YEARMONTH_BUDAT1 = S_MONTH1. LOOP AT GROUP KEY INTO DATA(WA_MATDOC1). IF WA_MATDOC1-SHKZG = 'H'. WA_MATDOC1-MENGE = 0 - WA_MATDOC1-MENGE. ENDIF. WA_DATA-MENGE1 = WA_DATA-MENGE1 + WA_MATDOC1-MENGE. WA_DATA-MEINS = WA_MATDOC1-MEINS. ENDLOOP. "获取物料描述 SELECT SINGLE MAKTX FROM MAKT INTO WA_DATA-MAKTX WHERE MATNR = WA_DATA-MATBF AND SPRAS = SY-LANGU. SELECT SINGLE EISBE FROM MARC INTO WA_DATA-EISBE WHERE MATNR = WA_DATA-MATBF AND WERKS = WA_DATA-WERKS. WA_DATA-MATBF = |{ WA_DATA-MATBF ALPHA = OUT }|. APPEND WA_DATA TO IT_DATA. CLEAR WA_DATA. ENDLOOP. ENDFORM. FORM FRM_GET_DATA2. SELECT BUKRS, "公司 WERKS, "工厂 MATBF, "物料编码 LGORT_SID, "库位 MEINS, "基本计量单位 MENGE, "月末结存数量 YEARMONTH_BUDAT,"年月 BSTTYP_SG, "库存类别 * UMSOK_CID, "特殊库存标识 * CHARG_SID, "批次 SHKZG "借贷标识 FROM MATDOC INTO TABLE @DATA(IT_MATDOC2) WHERE WERKS IN @S_WERKS AND LGORT_SID IN @S_LGORT AND MATBF IN @S_MATNR AND YEARMONTH_BUDAT <= @S_MONTH2. "降序排列 SORT IT_MATDOC2 BY YEARMONTH_BUDAT ASCENDING. LOOP AT IT_MATDOC2 INTO DATA(WA) GROUP BY ( KEY1 = WA-BUKRS KEY2 = WA-WERKS KEY3 = WA-LGORT_SID KEY4 = WA-MATBF ) INTO DATA(KEY). WA_DATA-BUKRS = KEY-KEY1. WA_DATA-WERKS = KEY-KEY2. WA_DATA-LGORT_SID = KEY-KEY3. WA_DATA-MATBF = KEY-KEY4. * WA_DATA-CHARG_SID = KEY-KEY5. WA_DATA-YEARMONTH_BUDAT1 = S_MONTH2. LOOP AT GROUP KEY INTO DATA(WA_MATDOC2). IF WA_MATDOC2-SHKZG = 'H'. WA_MATDOC2-MENGE = 0 - WA_MATDOC2-MENGE. ENDIF. WA_DATA-MENGE1 = WA_DATA-MENGE1 + WA_MATDOC2-MENGE. WA_DATA-MEINS = WA_MATDOC2-MEINS. ENDLOOP. "获取物料描述 SELECT SINGLE MAKTX FROM MAKT INTO WA_DATA-MAKTX WHERE MATNR = WA_DATA-MATBF AND SPRAS = SY-LANGU. SELECT SINGLE EISBE FROM MARC INTO WA_DATA-EISBE WHERE MATNR = WA_DATA-MATBF AND WERKS = WA_DATA-WERKS. WA_DATA-MATBF = |{ WA_DATA-MATBF ALPHA = OUT }|. APPEND WA_DATA TO IT_DATA. CLEAR WA_DATA. ENDLOOP. ENDFORM. FORM FRM_GET_DATA3. SELECT BUKRS, "公司 WERKS, "工厂 MATBF, "物料编码 LGORT_SID, "库位 MEINS, "基本计量单位 MENGE, "月末结存数量 YEARMONTH_BUDAT,"年月 BSTTYP_SG, "库存类别 * UMSOK_CID, "特殊库存标识 * CHARG_SID, "批次 SHKZG "借贷标识 FROM MATDOC INTO TABLE @DATA(IT_MATDOC3) WHERE WERKS IN @S_WERKS AND LGORT_SID IN @S_LGORT AND MATBF IN @S_MATNR AND YEARMONTH_BUDAT <= @S_MONTH3. "降序排列 SORT IT_MATDOC3 BY YEARMONTH_BUDAT ASCENDING. LOOP AT IT_MATDOC3 INTO DATA(WA) GROUP BY ( KEY1 = WA-BUKRS KEY2 = WA-WERKS KEY3 = WA-LGORT_SID KEY4 = WA-MATBF ) INTO DATA(KEY). WA_DATA-BUKRS = KEY-KEY1. WA_DATA-WERKS = KEY-KEY2. WA_DATA-LGORT_SID = KEY-KEY3. WA_DATA-MATBF = KEY-KEY4. * WA_DATA-CHARG_SID = KEY-KEY5. WA_DATA-YEARMONTH_BUDAT1 = S_MONTH3. LOOP AT GROUP KEY INTO DATA(WA_MATDOC3). IF WA_MATDOC3-SHKZG = 'H'. WA_MATDOC3-MENGE = 0 - WA_MATDOC3-MENGE. ENDIF. WA_DATA-MENGE1 = WA_DATA-MENGE1 + WA_MATDOC3-MENGE. WA_DATA-MEINS = WA_MATDOC3-MEINS. ENDLOOP. "获取物料描述 SELECT SINGLE MAKTX FROM MAKT INTO WA_DATA-MAKTX WHERE MATNR = WA_DATA-MATBF AND SPRAS = SY-LANGU. SELECT SINGLE EISBE FROM MARC INTO WA_DATA-EISBE WHERE MATNR = WA_DATA-MATBF AND WERKS = WA_DATA-WERKS. WA_DATA-MATBF = |{ WA_DATA-MATBF ALPHA = OUT }|. APPEND WA_DATA TO IT_DATA. CLEAR WA_DATA. ENDLOOP. ENDFORM. FORM FRM_GET_DATA4. SELECT BUKRS, "公司 WERKS, "工厂 MATBF, "物料编码 LGORT_SID, "库位 MEINS, "基本计量单位 MENGE, "月末结存数量 YEARMONTH_BUDAT,"年月 BSTTYP_SG, "库存类别 * UMSOK_CID, "特殊库存标识 * CHARG_SID, "批次 SHKZG "借贷标识 FROM MATDOC INTO TABLE @DATA(IT_MATDOC4) WHERE WERKS IN @S_WERKS AND LGORT_SID IN @S_LGORT AND MATBF IN @S_MATNR AND YEARMONTH_BUDAT <= @S_MONTH4. "降序排列 SORT IT_MATDOC4 BY YEARMONTH_BUDAT ASCENDING. LOOP AT IT_MATDOC4 INTO DATA(WA) GROUP BY ( KEY1 = WA-BUKRS KEY2 = WA-WERKS KEY3 = WA-LGORT_SID KEY4 = WA-MATBF ) INTO DATA(KEY). WA_DATA-BUKRS = KEY-KEY1. WA_DATA-WERKS = KEY-KEY2. WA_DATA-LGORT_SID = KEY-KEY3. WA_DATA-MATBF = KEY-KEY4. * WA_DATA-CHARG_SID = KEY-KEY5. WA_DATA-YEARMONTH_BUDAT1 = S_MONTH4. LOOP AT GROUP KEY INTO DATA(WA_MATDOC4). IF WA_MATDOC4-SHKZG = 'H'. WA_MATDOC4-MENGE = 0 - WA_MATDOC4-MENGE. ENDIF. WA_DATA-MENGE1 = WA_DATA-MENGE1 + WA_MATDOC4-MENGE. WA_DATA-MEINS = WA_MATDOC4-MEINS. ENDLOOP. "获取物料描述 SELECT SINGLE MAKTX FROM MAKT INTO WA_DATA-MAKTX WHERE MATNR = WA_DATA-MATBF AND SPRAS = SY-LANGU. SELECT SINGLE EISBE FROM MARC INTO WA_DATA-EISBE WHERE MATNR = WA_DATA-MATBF AND WERKS = WA_DATA-WERKS. WA_DATA-MATBF = |{ WA_DATA-MATBF ALPHA = OUT }|. APPEND WA_DATA TO IT_DATA. CLEAR WA_DATA. ENDLOOP. ENDFORM. FORM FRM_GET_DATA5. SELECT BUKRS, "公司 WERKS, "工厂 MATBF, "物料编码 LGORT_SID, "库位 MEINS, "基本计量单位 MENGE, "月末结存数量 YEARMONTH_BUDAT,"年月 BSTTYP_SG, "库存类别 * UMSOK_CID, "特殊库存标识 * CHARG_SID, "批次 SHKZG "借贷标识 FROM MATDOC INTO TABLE @DATA(IT_MATDOC5) WHERE WERKS IN @S_WERKS AND LGORT_SID IN @S_LGORT AND MATBF IN @S_MATNR AND YEARMONTH_BUDAT <= @S_MONTH5. "降序排列 SORT IT_MATDOC5 BY YEARMONTH_BUDAT ASCENDING. LOOP AT IT_MATDOC5 INTO DATA(WA) GROUP BY ( KEY1 = WA-BUKRS KEY2 = WA-WERKS KEY3 = WA-LGORT_SID KEY4 = WA-MATBF ) INTO DATA(KEY). WA_DATA-BUKRS = KEY-KEY1. WA_DATA-WERKS = KEY-KEY2. WA_DATA-LGORT_SID = KEY-KEY3. WA_DATA-MATBF = KEY-KEY4. * WA_DATA-CHARG_SID = KEY-KEY5. WA_DATA-YEARMONTH_BUDAT1 = S_MONTH5. LOOP AT GROUP KEY INTO DATA(WA_MATDOC5). IF WA_MATDOC5-SHKZG = 'H'. WA_MATDOC5-MENGE = 0 - WA_MATDOC5-MENGE. ENDIF. WA_DATA-MENGE1 = WA_DATA-MENGE1 + WA_MATDOC5-MENGE. WA_DATA-MEINS = WA_MATDOC5-MEINS. ENDLOOP. "获取物料描述 SELECT SINGLE MAKTX FROM MAKT INTO WA_DATA-MAKTX WHERE MATNR = WA_DATA-MATBF AND SPRAS = SY-LANGU. SELECT SINGLE EISBE FROM MARC INTO WA_DATA-EISBE WHERE MATNR = WA_DATA-MATBF AND WERKS = WA_DATA-WERKS. WA_DATA-MATBF = |{ WA_DATA-MATBF ALPHA = OUT }|. APPEND WA_DATA TO IT_DATA. CLEAR WA_DATA. ENDLOOP. ENDFORM. FORM FRM_GET_DATA6. SELECT BUKRS, "公司 WERKS, "工厂 MATBF, "物料编码 LGORT_SID, "库位 MEINS, "基本计量单位 MENGE, "月末结存数量 YEARMONTH_BUDAT,"年月 BSTTYP_SG, "库存类别 * UMSOK_CID, "特殊库存标识 * CHARG_SID, "批次 SHKZG "借贷标识 FROM MATDOC INTO TABLE @DATA(IT_MATDOC6) WHERE WERKS IN @S_WERKS AND LGORT_SID IN @S_LGORT AND MATBF IN @S_MATNR AND YEARMONTH_BUDAT <= @S_MONTH6. "降序排列 SORT IT_MATDOC6 BY YEARMONTH_BUDAT ASCENDING. LOOP AT IT_MATDOC6 INTO DATA(WA) GROUP BY ( KEY1 = WA-BUKRS KEY2 = WA-WERKS KEY3 = WA-LGORT_SID KEY4 = WA-MATBF ) INTO DATA(KEY). WA_DATA-BUKRS = KEY-KEY1. WA_DATA-WERKS = KEY-KEY2. WA_DATA-LGORT_SID = KEY-KEY3. WA_DATA-MATBF = KEY-KEY4. * WA_DATA-CHARG_SID = KEY-KEY5. WA_DATA-YEARMONTH_BUDAT1 = S_MONTH6. LOOP AT GROUP KEY INTO DATA(WA_MATDOC6). IF WA_MATDOC6-SHKZG = 'H'. WA_MATDOC6-MENGE = 0 - WA_MATDOC6-MENGE. ENDIF. WA_DATA-MENGE1 = WA_DATA-MENGE1 + WA_MATDOC6-MENGE. WA_DATA-MEINS = WA_MATDOC6-MEINS. ENDLOOP. "获取物料描述 SELECT SINGLE MAKTX FROM MAKT INTO WA_DATA-MAKTX WHERE MATNR = WA_DATA-MATBF AND SPRAS = SY-LANGU. SELECT SINGLE EISBE FROM MARC INTO WA_DATA-EISBE WHERE MATNR = WA_DATA-MATBF AND WERKS = WA_DATA-WERKS. WA_DATA-MATBF = |{ WA_DATA-MATBF ALPHA = OUT }|. APPEND WA_DATA TO IT_DATA. CLEAR WA_DATA. ENDLOOP. ENDFORM. FORM FRM_AUTHRITY_CHECK . LOOP AT IT_DATA INTO DATA(WA1). "排除没有权限的数据 AUTHORITY-CHECK OBJECT 'EDO_BUK' ID 'BUKRS' FIELD WA1-BUKRS. IF SY-SUBRC <> 0. DELETE IT_DATA. ENDIF. CLEAR WA1. ENDLOOP. ENDFORM. FORM L_STATUS100 USING EXTAB TYPE SLIS_T_EXTAB. SET PF-STATUS 'STANDARD'. ENDFORM. FORM FRM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD. DATA: REF TYPE REF TO CL_GUI_ALV_GRID. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING E_GRID = REF. CALL METHOD REF->CHECK_CHANGED_DATA. RS_SELFIELD-REFRESH = 'X'. ENDFORM. FORM MONAT_F4 . DATA: BEGIN OF MF_DYNPFIELDS OCCURS 1. INCLUDE STRUCTURE DYNPREAD. DATA: END OF MF_DYNPFIELDS. DATA: MF_RETURNCODE LIKE SY-SUBRC, MF_MONAT LIKE ISELLIST-MONTH, MF_HLP_REPID LIKE SY-REPID. FIELD-SYMBOLS: <MF_FELD>. GET CURSOR FIELD MF_DYNPFIELDS-FIELDNAME. APPEND MF_DYNPFIELDS. MF_HLP_REPID = SY-REPID. DO 2 TIMES. CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING DYNAME = MF_HLP_REPID DYNUMB = SY-DYNNR TABLES DYNPFIELDS = MF_DYNPFIELDS EXCEPTIONS INVALID_ABAPWORKAREA = 01 INVALID_DYNPROFIELD = 02 INVALID_DYNPRONAME = 03 INVALID_DYNPRONUMMER = 04 INVALID_REQUEST = 05 NO_FIELDDESCRIPTION = 06 UNDEFIND_ERROR = 07. IF SY-SUBRC = 3. MF_HLP_REPID = 'SAPLALDB'. ELSE. READ TABLE MF_DYNPFIELDS INDEX 1. TRANSLATE MF_DYNPFIELDS-FIELDVALUE USING '_ '. EXIT. ENDIF. ENDDO. IF SY-SUBRC = 0. CALL FUNCTION 'CONVERSION_EXIT_PERI_INPUT' EXPORTING INPUT = MF_DYNPFIELDS-FIELDVALUE IMPORTING OUTPUT = MF_MONAT EXCEPTIONS ERROR_MESSAGE = 1. IF MF_MONAT IS INITIAL. MF_MONAT = SY-DATLO(6). ENDIF. CALL FUNCTION 'POPUP_TO_SELECT_MONTH' EXPORTING ACTUAL_MONTH = MF_MONAT IMPORTING SELECTED_MONTH = MF_MONAT RETURN_CODE = MF_RETURNCODE EXCEPTIONS FACTORY_CALENDAR_NOT_FOUND = 01 HOLIDAY_CALENDAR_NOT_FOUND = 02 MONTH_NOT_FOUND = 03. IF SY-SUBRC = 0 AND MF_RETURNCODE = 0. CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT' EXPORTING INPUT = MF_MONAT IMPORTING OUTPUT = MF_DYNPFIELDS-FIELDVALUE. COLLECT MF_DYNPFIELDS. CALL FUNCTION 'DYNP_VALUES_UPDATE' EXPORTING DYNAME = MF_HLP_REPID DYNUMB = SY-DYNNR TABLES DYNPFIELDS = MF_DYNPFIELDS EXCEPTIONS INVALID_ABAPWORKAREA = 01 INVALID_DYNPROFIELD = 02 INVALID_DYNPRONAME = 03 INVALID_DYNPRONUMMER = 04 INVALID_REQUEST = 05 NO_FIELDDESCRIPTION = 06 UNDEFIND_ERROR = 07. ENDIF. ENDIF. ENDFORM. FORM CREAT_STRUCTURE. DATA: L_LINES TYPE I. LOOP AT IT_DATA INTO WA_DATA. MOVE-CORRESPONDING WA_DATA TO WA_TEMP. APPEND WA_TEMP TO IT_TEMP. ENDLOOP. SORT IT_TEMP BY YEARMONTH_BUDAT1 ASCENDING. DELETE ADJACENT DUPLICATES FROM IT_TEMP COMPARING YEARMONTH_BUDAT1. SORT IT_TEMP BY YEARMONTH_BUDAT1 . DESCRIBE TABLE IT_TEMP LINES N. L_LINES = 8. * 创建静态结构部分 PERFORM FRM_ALV_FCAT_SET USING: 1 'BUKRS' TEXT-007 'BUKRS' 'MSEG' SPACE SPACE, 2 'WERKS' TEXT-007 'WERKS' 'MSEG' SPACE SPACE, 3 'LGORT_SID' TEXT-008 'LGORT' 'MSEG' SPACE SPACE, 4 'MATBF' TEXT-008 'MATNR' 'MAKT' SPACE SPACE, 5 'MAKTX' TEXT-008 'MAKTX' 'MAKT' SPACE SPACE, 6 'EISBE' TEXT-008 'EISBE' 'MARC' SPACE SPACE, 7 'MEINS' TEXT-008 'MEINS' 'MARA' SPACE SPACE. LOOP AT IT_TEMP INTO WA_TEMP. * DO N TIMES. CLEAR WA_STRUCTURE. *字段名称 WA_STRUCTURE-FIELDNAME = WA_TEMP-YEARMONTH_BUDAT1. *列名称 * CONCATENATE '移动类型' WA_DATA2-BWART INTO WA_STRUCTURE-SCRTEXT_L. WA_STRUCTURE-SCRTEXT_L = WA_TEMP-YEARMONTH_BUDAT1. WA_STRUCTURE-SCRTEXT_M = WA_STRUCTURE-SCRTEXT_L. WA_STRUCTURE-SCRTEXT_S = WA_STRUCTURE-SCRTEXT_L. WA_STRUCTURE-COLTEXT = WA_STRUCTURE-SCRTEXT_L. WA_STRUCTURE-NO_ZERO = 'X'. WA_STRUCTURE-DO_SUM = ''. WA_STRUCTURE-REF_FIELD = 'MENGE'. WA_STRUCTURE-REF_TABLE = 'EKPO'. WA_STRUCTURE-COL_POS = L_LINES. APPEND WA_STRUCTURE TO IT_STRUCTURE. L_LINES = L_LINES + 1. ENDLOOP. ENDFORM. FORM CREAT_TABLE. CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE EXPORTING IT_FIELDCATALOG = IT_STRUCTURE IMPORTING EP_TABLE = IT_TABLE. ASSIGN IT_TABLE->* TO <DYN_TABLE>. ENDFORM. FORM DATA_TO_TABLE. DATA:WA_NEW_LINE TYPE REF TO DATA. CREATE DATA WA_NEW_LINE LIKE LINE OF <DYN_TABLE>. ASSIGN WA_NEW_LINE->* TO <DYN_WA>. DATA:L_FIELDNAME TYPE LVC_S_FCAT-FIELDNAME. DATA:LW_ERFMG TYPE TY_DATA. SORT IT_DATA BY BUKRS WERKS LGORT_SID MATBF. LOOP AT IT_DATA INTO WA_DATA. CLEAR:L_FIELDNAME. L_FIELDNAME = WA_DATA-YEARMONTH_BUDAT1. ASSIGN COMPONENT L_FIELDNAME OF STRUCTURE <DYN_WA> TO <DYN_FIELD>. <DYN_FIELD> = WA_DATA-MENGE1. LW_ERFMG = WA_DATA. AT END OF MATBF. "会将of后面的字段及其左边的字段变化时运行下面的代码块 ASSIGN COMPONENT 'BUKRS' OF STRUCTURE <DYN_WA> TO <DYN_FIELD>. "将固定的字段一一列出 <DYN_FIELD> = LW_ERFMG-BUKRS. ASSIGN COMPONENT 'WERKS' OF STRUCTURE <DYN_WA> TO <DYN_FIELD>. <DYN_FIELD> = LW_ERFMG-WERKS. ASSIGN COMPONENT 'LGORT_SID' OF STRUCTURE <DYN_WA> TO <DYN_FIELD>. <DYN_FIELD> = LW_ERFMG-LGORT_SID. ASSIGN COMPONENT 'MATBF' OF STRUCTURE <DYN_WA> TO <DYN_FIELD>. <DYN_FIELD> = LW_ERFMG-MATBF. ASSIGN COMPONENT 'MAKTX' OF STRUCTURE <DYN_WA> TO <DYN_FIELD>. <DYN_FIELD> = LW_ERFMG-MAKTX. ASSIGN COMPONENT 'EISBE' OF STRUCTURE <DYN_WA> TO <DYN_FIELD>. <DYN_FIELD> = LW_ERFMG-EISBE. ASSIGN COMPONENT 'MEINS' OF STRUCTURE <DYN_WA> TO <DYN_FIELD>. <DYN_FIELD> = LW_ERFMG-MEINS. APPEND <DYN_WA> TO <DYN_TABLE>. CLEAR: <DYN_WA>. ENDAT. CLEAR: LW_ERFMG, WA_DATA1. ENDLOOP. * DELETE <DYN_TABLE> WHERE MATNR IS INITIAL. ENDFORM. *设置layout属性 FORM FRM_INIT_LAYOUT . G_TITLE = TEXT-006. CLEAR WA_LAYOUT. G_LAYOUT-CWIDTH_OPT = 'X'. ENDFORM. " FRM_INIT_LAYOUT FORM FRM_SHOW_ALV. * * ALV显示函数 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING I_CALLBACK_PROGRAM = SY-REPID IS_LAYOUT_LVC = G_LAYOUT IT_FIELDCAT_LVC = IT_STRUCTURE I_GRID_TITLE = G_TITLE * i_callback_pf_status_set = 'PF_STATUS_SET' * IT_EXCLUDING = "系统自带STATUS图标控制内表 I_SAVE = 'A' * i_callback_pf_status_set = 'PF_STATUS_SET' * i_callback_user_command = 'FRM_USER_COMMAND' TABLES T_OUTTAB = <DYN_TABLE> EXCEPTIONS PROGRAM_ERROR = 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. ENDFORM. FORM FRM_ALV_FCAT_SET USING PU_POS TYPE I PU_FNAME TYPE C PU_FTEXT TYPE C PU_RFIELD TYPE C PU_RTABLE TYPE C PU_QNAME TYPE C PU_EDIT TYPE C. CLEAR WA_STRUCTURE. WA_STRUCTURE-COL_POS = PU_POS. WA_STRUCTURE-FIELDNAME = PU_FNAME. WA_STRUCTURE-SCRTEXT_L = PU_FTEXT. WA_STRUCTURE-SCRTEXT_M = PU_FTEXT. WA_STRUCTURE-SCRTEXT_S = PU_FTEXT. WA_STRUCTURE-REF_FIELD = PU_RFIELD. WA_STRUCTURE-REF_TABLE = PU_RTABLE. WA_STRUCTURE-QFIELDNAME = PU_QNAME. WA_STRUCTURE-EDIT = PU_EDIT. WA_STRUCTURE-KEY = 'X'. APPEND WA_STRUCTURE TO IT_STRUCTURE. ENDFORM. " FRM_ALV_FCAT_S
