*&---------------------------------------------------------------------*
*& 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
浙公网安备 33010602011771号