原版日报表

REPORT  ZPP0017 MESSAGE-ID zpp-001.

INCLUDE zppr_0017a_top.

*********************************

INCLUDE <icon>.

TABLES:marc,mvke.
*声明存放ALV显示内表类型
TYPES:BEGIN OF ty_alv_itab.
        INCLUDE STRUCTURE zzt_pp_001.

TYPES:
zstatus_sc(220),"是否生产
zstatus_qh(220),"是否缺货
zqhqsrq TYPE d,"缺货起始日期
mvgr1 TYPE mvke-mvgr1,
bezei TYPE tvm1t-bezei,"描述
maktx TYPE makt-maktx,"物料描述
plnmg TYPE pbed-plnmg,"本月计划数
zmeng TYPE vbap-zmeng,"销售需求量
labst TYPE mard-labst,"库存数量
zqhjs TYPE menge13,"缺货数量（件）
zqhts TYPE menge13,"缺货天数
name1 TYPE t001w-name1,"工厂描述
lfimg TYPE lips-lfimg,"已发货数
menge TYPE mseg-menge,"当月已生产数量
lfimg1 TYPE lips-lfimg,"当月已发货数量

rowcolor(4),"行颜色
type_dd_hndl TYPE int4,"设置下拉
cellstyles TYPE lvc_t_styl,"样式
END OF ty_alv_itab.

TYPES:BEGIN OF ty_mvke,
  matnr TYPE mvke-matnr,"物料
  mvgr1 TYPE mvke-mvgr1,"物料组1
  bezei TYPE tvm1t-bezei,"描述
  END OF ty_mvke.

TYPES:BEGIN OF ty_pbim,
  matnr TYPE pbim-matnr,"物料
  werks TYPE pbim-werks,"工厂
  plnmg TYPE pbed-plnmg,"需求数量
  END OF ty_pbim.

DATA:
      ok_code_9000 LIKE sy-ucomm,
      ok_code_9001 LIKE sy-ucomm,
      save_ok like sy-ucomm.
*ALV数量
DATA:
      g_ischange,
      g_tabnm(30) TYPE c VALUE 'ZZT_PP_001',"维护表名
      gs_variant TYPE disvariant,
      gs_alv_itab TYPE ty_alv_itab,
      gt_alv_itab   TYPE TABLE OF ty_alv_itab WITH HEADER LINE,
      gt_type_dec TYPE TABLE OF dd07t WITH HEADER LINE,
      gt_fieldcat TYPE lvc_t_fcat,"ALV字段目录
      gs_layout TYPE lvc_s_layo,"ALV样式
      gt_exclude TYPE ui_functions,"ALV排除按钮
      wcl_container TYPE REF TO cl_gui_docking_container,"容器类
      wcl_alv TYPE REF TO cl_gui_alv_grid."ALV 类

*----------------------------------------------------------------------*
*       CLASS lcl_event_handler DEFINITION
*----------------------------------------------------------------------*
* 处理ALV事件类声明
*----------------------------------------------------------------------*
CLASS lcl_event_handler DEFINITION.
  PUBLIC SECTION.
    METHODS:
*    工具栏自定义按钮
    handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid
    IMPORTING e_object e_interactive,
*    监控按钮
    handle_user_command FOR EVENT user_command OF cl_gui_alv_grid
    IMPORTING e_ucomm,
*    数据改变
    handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid
    IMPORTING er_data_changed e_onf4 e_onf4_before e_onf4_after e_ucomm,
*    数据改变后
    handle_data_changed_finished FOR EVENT data_changed_finished OF
cl_gui_alv_grid
    IMPORTING e_modified  et_good_cells.
ENDCLASS.                    "lcl_event_handler DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_event_handler IMPLEMENTATION
*----------------------------------------------------------------------*
* 处理ALV事件类实现
*----------------------------------------------------------------------*
CLASS lcl_event_handler IMPLEMENTATION.
*  handle toolbar
  METHOD handle_toolbar.
    PERFORM handle_toolbar USING e_object e_interactive.
  ENDMETHOD.                    "handle_toolbar
*  handler user command
  METHOD handle_user_command.
    PERFORM handle_user_command USING e_ucomm.
  ENDMETHOD.                    "handle_user_command
*  handler data changed
  METHOD handle_data_changed.
    PERFORM handle_data_changed USING er_data_changed e_onf4
e_onf4_before e_onf4_after e_ucomm.
  ENDMETHOD.                    "handle_data_changed
*  handler data changed finished
  METHOD handle_data_changed_finished.
    PERFORM handle_data_changed_finished USING e_modified et_good_cells.
  ENDMETHOD.                    "handle_data_changed_finished
ENDCLASS.                    "lcl_event_handler IMPLEMENTATION

RANGES:
  r_now FOR marc-mmstd,
  r_erdat FOR vbak-erdat.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:
  s_werks FOR marc-werks OBLIGATORY MEMORY ID zwk,"工厂
  s_xqdat FOR marc-mmstd NO-DISPLAY,"OBLIGATORY MEMORY ID zxq,"销售需求日期
  s_qhdat FOR marc-mmstd NO-DISPLAY,"缺货起始日期
  s_wcdat FOR marc-mmstd NO-DISPLAY,"实际完成日期
  s_mvgr1 FOR mvke-mvgr1,"品牌
  s_matnr FOR marc-matnr ."物料编码
PARAMETERS P_BUDAT like marc-mmstd DEFAULT sy-datum.
*PARAMETER:p_check AS CHECKBOX NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK b1.

***********************************************************************************
INITIALIZATION.
  PERFORM frm_init."初始化

AT SELECTION-SCREEN.
  PERFORM frm_auth_check.

START-OF-SELECTION.

  IF sy-batch = 'X' AND sy-uname = 'ZBIT'.
    CLEAR:S_WERKS,S_WERKS[].
    S_WERKS-sign = 'I'.
    S_WERKS-option = 'CP'.
    S_WERKS-low = '*'.
    APPEND S_WERKS.

    p_budat = sy-datum.

  ENDIF.

  IF p_budat = sy-datum.
    PERFORM frm_get_data.
  ELSEIF p_budat < sy-datum.
    PERFORM frm_get_data1.
  ELSEIF p_budat > sy-datum.
    MESSAGE e008(zpp_001).

  ENDIF.

  IF sy-batch = 'X' AND sy-uname = 'ZBIT'.
    PERFORM pf_save_data.

  ENDIF.

  PERFORM frm_added.

end-OF-SELECTION.

  IF sy-batch ne 'X'.
    IF p_budat = sy-datum.
      call SCREEN 9000.
    ELSEIF p_budat < sy-datum.
      CALL SCREEN 9001.

    ENDIF.

  ENDIF.

  INCLUDE zppr_0017a_pbo.

  INCLUDE zppr_0017a_pai.


*&---------------------------------------------------------------------*
*&      Form  FRM_INIT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_INIT .
  r_now-sign = 'I'.
  r_now-option = 'BT'.
  r_now-low = sy-datum.
  r_now-low+6(2) = '01'.

  CALL FUNCTION 'DATE_GET_MONTH_LASTDAY'
    EXPORTING
      I_DATE = r_now-low
    IMPORTING
      E_DATE = r_now-high.

  APPEND r_now.

  s_xqdat-sign = 'I'.
  s_xqdat-option = 'BT'.
  s_xqdat-low = sy-datum.
  s_xqdat-low+4(4) = '0101'.
  s_xqdat-high = sy-datum.
  APPEND s_xqdat.
*  后台运行数据自动清除，原因不明
  r_erdat-sign = 'I'.
  r_erdat-option = 'BT'.
  r_erdat-LOW = sy-datum.
  r_erdat-low+4(4) = '0101'.
  r_erdat-high = sy-datum.
  APPEND r_erdat.
ENDFORM.                    " FRM_INIT
*&---------------------------------------------------------------------*
*&      Form  FRM_AUTH_CHECK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_AUTH_CHECK .
  DATA lt_t001w LIKE TABLE OF t001w WITH HEADER LINE.
  DATA lt_tvm1 LIKE TABLE OF tvm1 WITH HEADER LINE.

  SELECT werks
    INTO CORRESPONDING FIELDS OF TABLE lt_t001w
    FROM t001w
    WHERE werks IN s_werks.

  SELECT mvgr1
    INTO CORRESPONDING FIELDS OF TABLE lt_tvm1
    FROM tvm1
    WHERE mvgr1 IN s_mvgr1.

  LOOP AT lt_t001w.
    CALL FUNCTION 'ZZ_CHECK_REPAUTH'
      EXPORTING
        I_MODULE       = 'PP'
        I_WERKS        = lt_t001w-WERKS
      EXCEPTIONS
        not_authorized = 1
        no_modue       = 2
        OTHERS         = 3.
    IF sy-subrc <> 0.

    ENDIF.

  ENDLOOP.


  LOOP AT lt_tvm1.
    AUTHORITY-CHECK OBJECT 'ZZ_MM005'
    ID 'MVGR1' FIELD lt_tvm1-mvgr1.
    IF sy-subrc <> 0.
      MESSAGE e004(zcomm) WITH lt_tvm1-mvgr1.
    ENDIF.

  ENDLOOP.
ENDFORM.                    " FRM_AUTH_CHECK
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_GET_DATA .
  CLEAR:gs_alv_itab,gt_alv_itab[].
  DATA:
        lt_mvke TYPE TABLE OF ty_mvke WITH HEADER LINE,
        lt_mard TYPE TABLE OF mard WITH HEADER LINE,
        lt_pbim type TABLE OF ty_pbim WITH HEADER LINE,
        lt_vbap TYPE TABLE OF vbap WITH HEADER LINE,
        lt_lips type TABLE OF lips WITH HEADER LINE,
        lt_pp_01 type TABLE OF zzt_pp_001 WITH HEADER LINE.
*取物料工厂数据
  SELECT t01~matnr"物料
    t01~werks"工厂
    t02~maktx"物料描述
    t03~name1"工厂描述
FROM marc AS t01
      INNER JOIN makt AS t02 ON t01~matnr = t02~matnr AND t02~spras = '1'
      INNER JOIN t001w AS t03 ON t01~werks = t03~werks
      INNER JOIN mara AS t04 ON t01~matnr = t04~matnr
      INTO CORRESPONDING FIELDS OF TABLE gt_alv_itab
    WHERE t01~matnr IN s_matnr
        AND t01~werks IN s_werks
        AND t04~mtart = 'FERT'.

*  取物料组数据
  SELECT t01~matnr"物料
              t01~mvgr1                                     "物料组1
              t02~bezei"描述
      FROM mvke AS t01
      INNER JOIN tvm1t AS t02 ON t01~mvgr1 = t02~mvgr1 AND t02~spras = '1'
      INTO CORRESPONDING FIELDS OF TABLE lt_mvke
    WHERE t01~matnr IN s_matnr.

*  库存数量
  SELECT matnr "物料
              werks"工厂
              lgort"库存地点
              labst"库存数
*              SUM( labst ) AS labst"库存数累计
      FROM mard
      INTO CORRESPONDING FIELDS OF TABLE lt_mard
    WHERE matnr IN s_matnr
        AND werks IN s_werks.
*       GROUP BY matnr werks.

*  本月需求数量
  SELECT matnr "物料
              werks "工厂
              SUM( plnmg )  AS plnmg"需求数量
    FROM pbim AS t01
    INNER JOIN pbed AS t02 ON t01~bdzei = t02~bdzei
    INTO CORRESPONDING FIELDS OF TABLE lt_pbim
    WHERE matnr IN s_matnr
        AND werks IN s_werks
        AND versb = '00'
*        AND pdatu IN r_now
        AND t01~loevr = ''
        AND t02~loevr = ''
    GROUP BY matnr werks.

*    销售数量
  SELECT t01~vbeln"销售订单
              t01~posnr"销售订单行
              t01~matnr "物料
              t01~werks "工厂
              t01~zmeng "销售订单数量
              t01~kwmeng "销售订单数量
              t02~edatu AS erdat"计划交货日期
      FROM vbap AS t01
      INNER JOIN vbep AS t02 ON t01~vbeln = t02~vbeln AND t01~posnr = t02~posnr
      INNER JOIN vbak AS t03 ON t01~vbeln = t03~vbeln
      INTO CORRESPONDING FIELDS OF TABLE lt_vbap
    WHERE t01~matnr IN s_matnr
        AND t01~werks IN s_werks
*        AND t02~edatu IN s_xqdat
        AND t02~edatu IN r_erdat
        AND t01~abgru = ''
        AND t03~auart IN ('ZBOR','ZBFR').

*     已交货数量
  IF lt_vbap[] IS NOT INITIAL .
    SELECT t01~vbeln "交货单
                t01~posnr "交货单行
                t01~matnr "物料
                t01~werks "工厂
                t01~lfimg "交货数量
                t01~vgbel "参考凭证
                t01~vgpos "凭证行
      FROM lips AS t01
      INNER JOIN vbup AS t02 ON t01~vbeln = t02~vbeln AND t01~posnr = t02~posnr AND t02~wbsta = 'C'
      INTO CORRESPONDING FIELDS OF TABLE lt_lips
      FOR ALL ENTRIES IN lt_vbap
    WHERE t01~vgbel = lt_vbap-vbeln
        AND t01~vgpos = lt_vbap-posnr
        AND t01~pstyv BETWEEN 'ZANN' AND 'ZTAN'.
  ENDIF.

*  取保存数据
  SELECT *
    FROM zzt_pp_001
    INTO TABLE lt_pp_01
  WHERE matnr IN s_matnr
      AND werks IN s_werks.

  LOOP AT lt_vbap.
    IF lt_vbap-zmeng IS INITIAL.
      lt_vbap-zmeng = lt_vbap-kwmeng.
      MODIFY lt_vbap.
    ENDIF.
  ENDLOOP.




  LOOP AT gt_alv_itab.
*    读取品牌
    READ TABLE lt_mvke WITH KEY matnr = gt_alv_itab-matnr.
    IF sy-subrc = 0.
      gt_alv_itab-mvgr1 = lt_mvke-mvgr1.                    "物料组1
      gt_alv_itab-bezei = lt_mvke-bezei."描述
    ENDIF.
**    读取库存数量
*    READ TABLE lt_mard WITH KEY matnr = gt_alv_itab-matnr
*                                                     werks = gt_alv_itab-werks.
*    IF sy-subrc = 0.
*      gt_alv_itab-labst = lt_mard-labst."库存数量
*    ENDIF.
*    非限制数量
    LOOP AT lt_mard WHERE matnr = gt_alv_itab-matnr
                                    AND werks = gt_alv_itab-werks.
      IF lt_mard-werks = '1000'.
        CASE lt_mard-lgort.
          WHEN '1001' OR '1004' OR '1007' OR '1010' OR '1012' OR '1014' OR '1015'.
          WHEN OTHERS.
            CONTINUE.
        ENDCASE.
      ELSEIF lt_mard-werks = '1010'.
        CASE lt_mard-lgort.
          WHEN '1001' OR '1004' OR '1005' OR '1010' OR '1012' OR '1015'.
          WHEN OTHERS.
            CONTINUE.
        ENDCASE.
      ELSEIF lt_mard-werks = '1020'.
        CASE lt_mard-lgort.
          WHEN '1001' OR '1004' OR '1007' OR '1010' OR '1012' OR '1015'.
          WHEN OTHERS.
            CONTINUE.
        ENDCASE.
      ELSEIF lt_mard-werks = '1030'.
        CASE lt_mard-lgort.
          WHEN '1001' OR '1004' OR '1005' OR '1007' OR '1010' OR '1015'.
          WHEN OTHERS.
            CONTINUE.
        ENDCASE.
      ENDIF.
      ADD lt_mard-labst TO gt_alv_itab-labst.
    ENDLOOP.
*    读取本月计划数量
    READ TABLE lt_pbim WITH KEY matnr = gt_alv_itab-matnr
                                                     werks = gt_alv_itab-werks.
    IF sy-subrc = 0.
      gt_alv_itab-plnmg = lt_pbim-plnmg."计划数量
    ENDIF.
*    读取保存数据
    READ TABLE lt_pp_01 WITH KEY matnr = gt_alv_itab-matnr
                                                      werks = gt_alv_itab-werks.
    IF sy-subrc = 0.
      gt_alv_itab-zqhyy = lt_pp_01-zqhyy."缺货原因
      gt_alv_itab-zzrbm = lt_pp_01-zzrbm."责任部门
      gt_alv_itab-zzrr = lt_pp_01-zzrr."责任人
      gt_alv_itab-zsjwcrq = lt_pp_01-zsjwcrq."实际完成日期
      gt_alv_itab-zsfsc = lt_pp_01-zsfsc."是否生产
      gt_alv_itab-zznote = lt_pp_01-zznote."备注
    ENDIF.

*    累计已发货数，抵扣销售需求数量
    LOOP AT lt_lips WHERE matnr = gt_alv_itab-matnr
                                AND werks = gt_alv_itab-werks.
      ADD lt_lips-lfimg TO gt_alv_itab-lfimg.
*    扣减销售数量
      READ TABLE lt_vbap WITH KEY vbeln = lt_lips-vgbel
                                                      posnr = lt_lips-vgpos.
      IF sy-subrc = 0.
        lt_vbap-zmeng = lt_vbap-zmeng - lt_lips-lfimg.
        MODIFY lt_vbap INDEX sy-tabix.
      ENDIF.
    ENDLOOP.

    DELETE lt_vbap WHERE zmeng = 0."删除完全交货的销售订单
    SORT lt_vbap BY matnr werks erdat.
*    首个交货计划日期
    READ TABLE lt_vbap WITH KEY matnr = gt_alv_itab-matnr
                                                    werks = gt_alv_itab-werks.
    IF sy-subrc = 0.
      gt_alv_itab-zqhqsrq = lt_vbap-erdat.
    ENDIF.
*    累计销售需求数量
    LOOP AT lt_vbap WHERE matnr = gt_alv_itab-matnr
                                   AND werks = gt_alv_itab-werks.
      ADD lt_vbap-zmeng TO gt_alv_itab-zmeng.
    ENDLOOP.
*   缺货数量（件） = 销售需求数量 - 库存数量
    gt_alv_itab-zqhjs = gt_alv_itab-zmeng - gt_alv_itab-labst.
    IF gt_alv_itab-zqhjs > 0.
      gt_alv_itab-zstatus_qh = icon_led_red.
    ELSE.
      gt_alv_itab-zstatus_qh = icon_led_green.
    ENDIF.

    CASE gt_alv_itab-zsfsc.
      WHEN '是'.
        gt_alv_itab-zstatus_sc = icon_led_green.
      WHEN '否'.
        gt_alv_itab-zstatus_sc = icon_led_red.
      WHEN OTHERS.
        gt_alv_itab-zsfsc = '其他'.
        gt_alv_itab-zstatus_sc = icon_led_yellow.
    ENDCASE.

*  缺货天数 = 实际完成时间 - 缺货起始日
    IF gt_alv_itab-zqhqsrq IS NOT INITIAL
  AND gt_alv_itab-zsjwcrq IS NOT INITIAL.
      gt_alv_itab-zqhts = gt_alv_itab-zsjwcrq - gt_alv_itab-zqhqsrq.
    ENDIF.

    gt_alv_itab-type_dd_hndl = '1'.
*'MVGR1' '品牌'

    MODIFY gt_alv_itab.
    CLEAR gt_alv_itab.
  ENDLOOP.
  DELETE gt_alv_itab WHERE zqhqsrq NOT IN s_qhdat."缺货起始日期
  DELETE gt_alv_itab WHERE zsjwcrq NOT IN s_wcdat."实际完成日期
  DELETE gt_alv_itab WHERE mvgr1 NOT IN s_mvgr1."品牌

  PERFORM FRM_ADD_FAHUO. "ADD BY PYM 20121019

  SORT gt_alv_itab BY zstatus_sc.

ENDFORM.                    " FRM_GET_DATA
*&---------------------------------------------------------------------*
*&      Form  FRM_ADD_FAHUO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_ADD_FAHUO .
*本月发货

 DATA:BEGIN OF L_T_MATNR OCCURS 0,
   MATNR LIKE MAKT-MATNR,
 END OF L_T_MATNR.

  DATA:BEGIN OF L_T_LIPS OCCURS 0,
    VBELN LIKE LIPS-VBELN,
    POSNR LIKE LIPS-POSNR,
    VGBEL LIKE LIPS-VGBEL,
    VGPOS LIKE LIPS-VGPOS,
    PSTYV LIKE LIPS-PSTYV,
    MATNR LIKE LIPS-MATNR,
    WERKS LIKE LIPS-WERKS,
    LFIMG LIKE LIPS-LFIMG,
  END OF L_T_LIPS.

  DATA:BEGIN OF L_T_LIKP OCCURS 0,
    VBELN LIKE LIKP-VBELN,
    WADAT_IST LIKE LIKP-WADAT_IST,
  END OF L_T_LIKP.

  DATA:BEGIN OF L_T_VBUP OCCURS 0,
    VBELN LIKE VBUP-VBELN,
    POSNR LIKE VBUP-POSNR,
    LFSTA LIKE VBUP-LFSTA,
  END OF L_T_VBUP.

  DATA:BEGIN OF L_T_LIPS1 OCCURS 0,
    MATNR LIKE LIPS-MATNR,
    WERKS LIKE LIPS-WERKS,
    LFIMG LIKE LIPS-LFIMG,
  END OF L_T_LIPS1.


  DATA:BEGIN OF L_T_MKPF OCCURS 0,
    MBLNR LIKE MKPF-MBLNR,
    MJAHR LIKE MKPF-MJAHR,
    VGART LIKE MKPF-VGART,
    BLART LIKE MKPF-BLART,
    BUDAT LIKE MKPF-BUDAT,
  END OF L_T_MKPF.

  DATA:BEGIN OF L_T_MSEG OCCURS 0,
    MBLNR LIKE MSEG-MBLNR,
    MJAHR LIKE MSEG-MJAHR,
    ZEILE LIKE MSEG-ZEILE,
    BWART LIKE MSEG-BWART,
    MATNR LIKE MSEG-MATNR,
    WERKS LIKE MSEG-WERKS,
    LGORT LIKE MSEG-LGORT,
    CHARG LIKE MSEG-CHARG,
    INSMK LIKE MSEG-INSMK,
    SHKZG LIKE MSEG-SHKZG,
    BWTAR LIKE MSEG-BWTAR,
    MENGE LIKE MSEG-MENGE,
    MEINS LIKE MSEG-MEINS,
  END OF L_T_MSEG.

  DATA:BEGIN OF L_T_MSEG1 OCCURS 0,
    MATNR LIKE MSEG-MATNR,
    WERKS LIKE MSEG-WERKS,
    MENGE LIKE MSEG-MENGE,
  END OF L_T_MSEG1.

  DATA L_T_FIRST_DAY TYPE D.
  CONCATENATE P_BUDAT+0(6) '01' INTO L_T_FIRST_DAY.

  IF gt_alv_itab[] IS NOT INITIAL.
    SELECT VBELN
      POSNR
      VGBEL
      VGPOS
      PSTYV
      MATNR
      WERKS
      LFIMG
      INTO CORRESPONDING FIELDS OF TABLE L_T_LIPS
      FROM LIPS
      FOR ALL ENTRIES IN gt_alv_itab
      WHERE MATNR = gt_alv_itab-MATNR
      AND WERKS = gt_alv_itab-WERKS
      AND PSTYV IN ('ZTAN', 'ZANN').

  ENDIF.

  IF L_T_LIPS[] IS NOT INITIAL.
    SELECT
      VBELN
      WADAT_IST
      INTO CORRESPONDING FIELDS OF TABLE L_T_LIKP
      FROM LIKP
      FOR ALL ENTRIES IN L_T_LIPS
      WHERE VBELN = L_T_LIPS-VBELN
      AND WADAT_IST BETWEEN L_T_FIRST_DAY AND P_BUDAT.

    SELECT
      VBELN
      POSNR
      LFSTA
      INTO CORRESPONDING FIELDS OF TABLE L_T_VBUP
      FROM VBUP
      FOR ALL ENTRIES IN L_T_LIPS
      WHERE VBELN = L_T_LIPS-VGBEL
      AND POSNR = L_T_LIPS-VGPOS
      AND LFSTA = 'C'.
  ENDIF.

  SORT L_T_LIPS BY VBELN.
  SORT L_T_LIKP BY VBELN.

  LOOP AT L_T_LIPS.
    READ TABLE L_T_LIKP WITH KEY VBELN = L_T_LIPS-VBELN BINARY SEARCH.
    IF SY-SUBRC NE 0.
      DELETE L_T_LIPS.
    ELSE.
      READ TABLE L_T_VBUP WITH KEY VBELN = L_T_LIPS-VGBEL POSNR = L_T_LIPS-VGPOS.
      IF SY-SUBRC NE 0.
        DELETE L_T_LIPS.
      ENDIF.
    ENDIF.
  ENDLOOP.

  LOOP AT L_T_LIPS.
    L_T_LIPS1-MATNR = L_T_LIPS-MATNR.
    L_T_LIPS1-WERKS = L_T_LIPS-WERKS.
    L_T_LIPS1-LFIMG = L_T_LIPS-LFIMG.
    COLLECT L_T_LIPS1.
  ENDLOOP.
  SORT L_T_LIPS1 BY MATNR WERKS.

*本月生产

  select
    MBLNR
    MJAHR
    VGART
    BLART
    BUDAT
    INTO CORRESPONDING FIELDS OF TABLE L_T_MKPF
    FROM MKPF
    WHERE BUDAT BETWEEN L_T_FIRST_DAY AND P_BUDAT.
  IF L_T_MKPF[] IS NOT INITIAL.
    SELECT
      MBLNR
      MJAHR
      ZEILE
      BWART
      MATNR
      WERKS
      LGORT
      CHARG
      INSMK
      SHKZG
      BWTAR
      MENGE
      MEINS
      INTO CORRESPONDING FIELDS OF TABLE L_T_MSEG
      FROM MSEG
      FOR ALL ENTRIES IN L_T_MKPF
      WHERE MBLNR = L_T_MKPF-MBLNR
      AND MJAHR = L_T_MKPF-MJAHR
      AND WERKS IN s_werks
      AND BWART IN ('101','102').
  ENDIF.

  loop at L_T_MSEG.
    READ TABLE gt_alv_itab WITH KEY matnr = L_T_MSEG-matnr werks = L_T_MSEG-werks.
    if sy-subrc ne 0.
      delete l_t_mseg.
    endif.
  ENDLOOP.

  LOOP AT L_T_MSEG.
    L_T_MSEG1-MATNR = L_T_MSEG-MATNR.
    L_T_MSEG1-WERKS = L_T_MSEG-WERKS.
    IF L_T_MSEG-SHKZG = 'H'.
      L_T_MSEG1-MENGE = 0 - L_T_MSEG-MENGE.
    ELSE.
      L_T_MSEG1-MENGE = L_T_MSEG-MENGE.
    ENDIF.
    COLLECT L_T_MSEG1.
    CLEAR L_T_MSEG1.
  ENDLOOP.
  SORT L_T_MSEG1 BY MATNR WERKS.


  LOOP AT gt_alv_itab.
    READ TABLE L_T_MSEG1 WITH KEY MATNR = gt_alv_itab-MATNR WERKS = gt_alv_itab-WERKS.
    IF SY-SUBRC = 0.
      gt_alv_itab-MENGE = L_T_MSEG1-MENGE.
    ENDIF.
    READ TABLE L_T_LIPS1 WITH KEY MATNR = gt_alv_itab-MATNR WERKS = gt_alv_itab-WERKS.
    IF SY-SUBRC = 0.
      gt_alv_itab-LFIMG1 = L_T_LIPS1-LFIMG.
    ENDIF.
    MODIFY gt_alv_itab TRANSPORTING MENGE LFIMG1.
  ENDLOOP.

ENDFORM.                    " FRM_ADD_FAHUO
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA1
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_GET_DATA1 .
  SELECT *
  INTO CORRESPONDING FIELDS OF TABLE gt_alv_itab
  FROM ZZT_PP_002
  WHERE budat = P_BUDAT
  AND matnr IN s_matnr
  AND MVGR1 IN s_mvgr1
  AND WERKS IN S_WERKS.


  DATA:BEGIN OF l_t_TVM1T OCCURS 0,
  SPRAS LIKE TVM1T-SPRAS,"语言代码
  MVGR1 LIKE TVM1T-MVGR1,"物料组1
  BEZEI LIKE TVM1T-BEZEI,"描述
  END OF l_t_TVM1T.

  DATA:BEGIN OF l_t_MAKT OCCURS 0,
  MATNR LIKE MAKT-MATNR,"物料号
  SPRAS LIKE MAKT-SPRAS,"语言代码
  MAKTX LIKE MAKT-MAKTX,"物料描述（短文本）
  MAKTG LIKE MAKT-MAKTG,"有关匹配码的大写的物料描述
  END OF l_t_MAKT.

  DATA:BEGIN OF l_t_T001W OCCURS 0,
  WERKS like T001W-WERKS, "工厂
  NAME1 like T001W-NAME1, "名称
  END OF l_t_T001W.


  select
  SPRAS
  MVGR1
  BEZEI
    INTO CORRESPONDING FIELDS OF TABLE l_t_TVM1T
    FROM TVM1T
    WHERE SPRAS = '1'.

  SELECT
  MATNR
  SPRAS
  MAKTX
  MAKTG
    INTO CORRESPONDING FIELDS OF TABLE l_t_MAKT
    FROM makt
    WHERE SPRAS = '1'.

  SELECT
    WERKS
    NAME1
    INTO CORRESPONDING FIELDS OF TABLE L_T_T001W
    FROM T001W
    .


  LOOP AT gt_alv_itab.

    CASE gt_alv_itab-zsfsc.
      WHEN '是'.
        gt_alv_itab-zstatus_sc = icon_led_green.
      WHEN '否'.
        gt_alv_itab-zstatus_sc = icon_led_red.
      WHEN '其他'.
        gt_alv_itab-zstatus_sc = icon_led_yellow.
      WHEN OTHERS.
    ENDCASE.

    IF gt_alv_itab-zqhjs > 0.
      gt_alv_itab-zstatus_qh = icon_led_red.
    ELSE.
      gt_alv_itab-zstatus_qh = icon_led_green.
    ENDIF.

*  READ TABLE l_t_TVM1T WITH KEY MVGR1 = gt_alv_itab-mvgr1 .
*  if sy-subrc = 0.
*    gt_alv_itab-bezei = l_t_TVM1T-bezei.
*  endif.

    READ TABLE l_t_TVM1T WITH KEY MVGR1 = gt_alv_itab-mvgr1 .
    if sy-subrc = 0.
      gt_alv_itab-bezei = l_t_TVM1T-bezei.
    endif.

    READ TABLE l_t_MAKT WITH KEY MATNR = gt_alv_itab-MATNR .
    if sy-subrc = 0.
      gt_alv_itab-MAKTX = l_t_MAKT-MAKTX.
    endif.

    READ TABLE L_T_T001W WITH KEY WERKS = gt_alv_itab-WERKS .
    if sy-subrc = 0.
      gt_alv_itab-NAME1 = L_T_T001W-NAME1.
    endif.


    MODIFY gt_alv_itab TRANSPORTING zstatus_sc zstatus_qh bezei MAKTX NAME1.
    CLEAR gt_alv_itab.

  ENDLOOP.


  SORT gt_alv_itab BY zstatus_sc.

ENDFORM.                    " FRM_GET_DATA1
*&---------------------------------------------------------------------*
*&      Form  PF_SAVE_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM PF_SAVE_DATA .
*5日内生产数
 DATA:BEGIN OF L_T_MKPF_1 OCCURS 0,
   MBLNR LIKE MKPF-MBLNR,
   MJAHR LIKE MKPF-MJAHR,
   VGART LIKE MKPF-VGART,
   BLART LIKE MKPF-BLART,
   BUDAT LIKE MKPF-BUDAT,
 END OF L_T_MKPF_1.

  DATA:BEGIN OF L_T_MSEG_1 OCCURS 0,
    MBLNR LIKE MSEG-MBLNR,
    MJAHR LIKE MSEG-MJAHR,
    ZEILE LIKE MSEG-ZEILE,
    BWART LIKE MSEG-BWART,
    MATNR LIKE MSEG-MATNR,
    WERKS LIKE MSEG-WERKS,
    LGORT LIKE MSEG-LGORT,
    CHARG LIKE MSEG-CHARG,
    INSMK LIKE MSEG-INSMK,
    SHKZG LIKE MSEG-SHKZG,
    BWTAR LIKE MSEG-BWTAR,
    MENGE LIKE MSEG-MENGE,
    MEINS LIKE MSEG-MEINS,
  END OF L_T_MSEG_1.

  DATA:BEGIN OF L_T_MSEG1_1 OCCURS 0,
    MATNR LIKE MSEG-MATNR,
    WERKS LIKE MSEG-WERKS,
    MENGE LIKE MSEG-MENGE,
  END OF L_T_MSEG1_1.

  DATA L_V_FIVE_DAY TYPE D.
*P_BUDAT
  L_V_FIVE_DAY = P_BUDAT - 5 + 1.

  select
    MBLNR
    MJAHR
    VGART
    BLART
    BUDAT
    INTO CORRESPONDING FIELDS OF TABLE L_T_MKPF_1
    FROM MKPF
    WHERE BUDAT BETWEEN L_V_FIVE_DAY AND P_BUDAT.
  IF L_T_MKPF_1[] IS NOT INITIAL.
    SELECT
      MBLNR
      MJAHR
      ZEILE
      BWART
      MATNR
      WERKS
      LGORT
      CHARG
      INSMK
      SHKZG
      BWTAR
      MENGE
      MEINS
      INTO CORRESPONDING FIELDS OF TABLE L_T_MSEG_1
      FROM MSEG
      FOR ALL ENTRIES IN L_T_MKPF_1
      WHERE MBLNR = L_T_MKPF_1-MBLNR
      AND MJAHR = L_T_MKPF_1-MJAHR
      AND WERKS IN s_werks
      AND BWART IN ('101','102').
  ENDIF.

  LOOP AT L_T_MSEG_1.
    L_T_MSEG1_1-MATNR = L_T_MSEG_1-MATNR.
    L_T_MSEG1_1-WERKS = L_T_MSEG_1-WERKS.
    IF L_T_MSEG_1-SHKZG = 'H'.
      L_T_MSEG1_1-MENGE = 0 - L_T_MSEG_1-MENGE.
    ELSE.
      L_T_MSEG1_1-MENGE = L_T_MSEG_1-MENGE.
    ENDIF.
    COLLECT L_T_MSEG1_1.
    CLEAR L_T_MSEG1_1.
  ENDLOOP.
  SORT L_T_MSEG1_1 BY MATNR WERKS.

*5日前缺货数
  L_V_FIVE_DAY = L_V_FIVE_DAY - 1.
  DATA L_T_PP002 LIKE TABLE OF ZZT_PP_002 WITH HEADER LINE.
  SELECT * INTO CORRESPONDING FIELDS OF TABLE L_T_PP002
    FROM ZZT_PP_002 WHERE
    budat = L_V_FIVE_DAY
    AND matnr IN s_matnr
    AND MVGR1 IN s_mvgr1
    AND WERKS IN S_WERKS.


  DATA WT_TEMP LIKE TABLE OF ZZT_PP_002 WITH HEADER LINE.
  loop at gt_alv_itab.
    MOVE-CORRESPONDING gt_alv_itab to WT_TEMP.
    WT_TEMP-budat = sy-datum.
    READ TABLE L_T_MSEG1_1 WITH KEY MATNR = WT_TEMP-MATNR WERKS = WT_TEMP-WERKS.
    IF SY-SUBRC = 0.
      WT_TEMP-MENGE1 = L_T_MSEG1_1-MENGE."5日内生产数
    ENDIF.

    READ TABLE L_T_PP002 WITH KEY WERKS = WT_TEMP-WERKS MATNR = WT_TEMP-MATNR.
    IF SY-SUBRC = 0.
      WT_TEMP-MENGE2 = L_T_PP002-zqhjs."5日前缺货数
    ENDIF.

    WT_TEMP-UZEIT = SY-UZEIT.
    append WT_TEMP.
    clear WT_TEMP.
  ENDLOOP.

  DATA: TIME1 TYPE P, TIME2 TYPE P.
  GET RUN TIME FIELD TIME1.

  MODIFY ZZT_PP_002 FROM TABLE WT_TEMP.

  IF sy-subrc = 0.
    COMMIT WORK AND WAIT.

    GET RUN TIME FIELD TIME2.
    TIME1 = TIME2 - TIME1.
    WRITE: /  'SUCESS' COLOR COL_HEADING.
    WRITE: / TIME1.
    ULINE.

  ELSE.
    ROLLBACK WORK.

    FORMAT COLOR COL_KEY.
    WRITE: / 'sy-subrc = ' , SY-SUBRC .

  ENDIF.


ENDFORM.                    " PF_SAVE_DATA
*&---------------------------------------------------------------------*
*&      Form  FRM_ADDED
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_ADDED .
  DATA WT_TEMP LIKE ZZT_FI_005.
  WT_TEMP-DATUM = SY-DATUM.
  WT_TEMP-UZEIT = SY-UZEIT.
  WT_TEMP-UNAME = SY-UNAME.
  WT_TEMP-TCODE = SY-TCODE.
  WT_TEMP-CPROG = SY-CPROG.
  WT_TEMP-BATCH = SY-BATCH.
  WT_TEMP-CALLD = SY-CALLD.
  CONCATENATE 'werks:' s_werks-LOW ',' s_werks-HIGH ';mvgr1:' s_mvgr1-LOW ',' s_mvgr1-HIGH
  ';matnr:' s_matnr-LOW ',' s_matnr-HIGH ';BUDAT:' P_BUDAT  INTO WT_TEMP-TITLE.
  MODIFY ZZT_FI_005 FROM WT_TEMP.
  IF SY-SUBRC = 0.
*  IF sy-subrc <> 0.
*    ROLLBACK WORK.
*  ELSE.
    COMMIT WORK.
  ENDIF.


ENDFORM.                    " FRM_ADDED

*&---------------------------------------------------------------------*
*&      Form  FRM_DISPLAY_ALV
*&---------------------------------------------------------------------*
*       显示ALV
*----------------------------------------------------------------------*
FORM frm_display_alv.
  IF wcl_container IS INITIAL.
    PERFORM frm_create_container.
    PERFORM frm_exclude.
    PERFORM frm_variant  USING '1' CHANGING gs_variant.
    PERFORM frm_pre_layout.
    PERFORM frm_pre_fieldcat.
    PERFORM frm_prepare_drilldown_values.
    PERFORM frm_upload_event.
    PERFORM frm_set_tab_display.
  ELSE.
    PERFORM frm_refresh_alv.
  ENDIF.
ENDFORM.                    " FRM_DISPLAY_ALV

*&---------------------------------------------------------------------*
*&      Form  frm_create_container
*&---------------------------------------------------------------------*
*       创建ALV容器,并将类添加到容器
*----------------------------------------------------------------------*
FORM frm_create_container .
  CREATE OBJECT wcl_container
    EXPORTING
      repid = sy-repid
      dynnr = sy-dynnr
      ratio = 95
      side  = cl_gui_docking_container=>dock_at_top.

  CREATE OBJECT wcl_alv
    EXPORTING
      i_parent = wcl_container.
ENDFORM.                    " frm_create_container

*&---------------------------------------------------------------------*
*&      Form  FRM_EXCLUDE
*&---------------------------------------------------------------------*
*       排除按钮
*----------------------------------------------------------------------*
FORM frm_exclude .
  DATA ls_exclude TYPE ui_func.
*排除打印按钮
  ls_exclude = cl_gui_alv_grid=>mc_fc_print .
  APPEND ls_exclude TO gt_exclude.
*排除添加、删除、插入、复制按钮
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row .
  APPEND ls_exclude TO gt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row .
  APPEND ls_exclude TO gt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy .
  APPEND ls_exclude TO gt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut .
  APPEND ls_exclude TO gt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row .
  APPEND ls_exclude TO gt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row .
  APPEND ls_exclude TO gt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row .
  APPEND ls_exclude TO gt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste .
  APPEND ls_exclude TO gt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row .
  APPEND ls_exclude TO gt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo .
  APPEND ls_exclude TO gt_exclude.
ENDFORM.                    " FRM_EXCLUDE

*&---------------------------------------------------------------------*
*&      Form  FRM_VARIANT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PS_VARIANT text
*----------------------------------------------------------------------*
FORM frm_variant  USING mode CHANGING ps_variant TYPE disvariant.
  ps_variant-report  = sy-repid."ABAP 程序名称
  ps_variant-handle  = mode."从相同程序重复调用管理标识
  ps_variant-log_group  = ''."逻辑组名
  ps_variant-username  = sy-uname."特定用户存储的用户名称
  ps_variant-variant  = ''."格式
  ps_variant-text  = ''."布局的描述
  ps_variant-dependvars  = '' ."相关变式条目向量
ENDFORM.                    " FRM_VARIANT

*&---------------------------------------------------------------------*
*&      Form  frm_pre_layout
*&---------------------------------------------------------------------*
*       设置ALV样式
*----------------------------------------------------------------------*
FORM frm_pre_layout .
  gs_layout-zebra = 'X'.
  gs_layout-sel_mode = 'A'.
*  gs_layout-cwidth_opt = 'X'.
  gs_layout-info_fname = 'ROWCOLOR'.
  gs_layout-stylefname = 'CELLSTYLES'.
ENDFORM.                    " frm_pre_layout

*&---------------------------------------------------------------------*
*&      Form  frm_pre_fieldcat
*&---------------------------------------------------------------------*
*       设置字段目录属性
*----------------------------------------------------------------------*
FORM frm_pre_fieldcat .
  PERFORM frm_fieldcat USING :
'ZSTATUS_SC' '是否生产' 'X' space space space space space 10 space ,
'ZSTATUS_QH' '是否缺货' 'X' space space space space space 10 space,
'ZQHQSRQ' '缺货起始日期' space space space space space space 12 space,
*'MVGR1' '品牌' space space space space space space 12 space,
'BEZEI' '品牌' space space space space space space 12 space,
'MATNR' '产品编码' space space space space space space 10 space,
'MAKTX' '产品名称、规格' space space space space space space 20 space,
'PLNMG' '本月计划数' space space space space space space 12 space,
'ZMENG' '销售需求量' space space space space space space 12 space,
'LABST' '库存数量' space space space space space space 10 space,
'ZQHJS' '缺货数量（件）' space space space space space space 14 space,
'ZQHYY' '缺货原因' space 'X' space space space space 50 space,
'WERKS' '工厂编码' space space space space space space 10 space,
'NAME1' '工厂描述' space space space space space space 20 space,
'ZZRBM' '责任部门' space 'X' space space space space 10 space,
'ZZRR' '责任人' space 'X' space space space space 10 space,
'ZSJWCRQ' '预计排产时间' space 'X' space space space space 14 space,"实际完成时间：改为预计排产时间
'ZQHTS' '缺货天数' space space space space space space 10 space,
'LFIMG' '已发货数' space space space space space space 10 space,
'MENGE' '当月已生产数量' space space space space space space 10 space,
'LFIMG1' '当月已发货数量' space space space space space space 10 space,
'ZSFSC' '是否生产' space 'X' space space space space 10 'TYPE_DD_HNDL',
'ZZNOTE' '计划下单时间' space 'X' space space space space 50 space."备注改为： 计划下单时间
ENDFORM.                    " frm_pre_fieldcat

*&---------------------------------------------------------------------*
*&      Form  frm_fieldcat
*&---------------------------------------------------------------------*
*       设置字段目录
*----------------------------------------------------------------------*
FORM frm_fieldcat USING p_field p_text p_icon p_edit p_f4 p_ref_tab p_ref_fld p_checkbox p_outputlen p_drdn_field.
  DATA lw_fcat TYPE lvc_s_fcat.
  lw_fcat-fieldname = p_field.
  lw_fcat-coltext = p_text.
  lw_fcat-icon = p_icon.
  lw_fcat-edit = p_edit.
  lw_fcat-f4availabl = p_f4.
  lw_fcat-ref_table = p_ref_tab.
  lw_fcat-ref_field = p_ref_fld.
  lw_fcat-checktable = p_ref_tab.
  lw_fcat-checkbox = p_checkbox.
  lw_fcat-outputlen = p_outputlen.
  lw_fcat-drdn_field = p_drdn_field.
  lw_fcat-no_zero = 'X'.
  lw_fcat-do_sum = 'X'.
  APPEND lw_fcat TO gt_fieldcat.
ENDFORM.                    " frm_fieldcat

*&---------------------------------------------------------------------*
*&      Form  frm_prepare_drilldown_values
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM frm_prepare_drilldown_values.

  DATA lt_ddval TYPE lvc_t_drop .
  DATA ls_ddval TYPE lvc_s_drop .
  ls_ddval-handle = '1' .
  ls_ddval-value = '是' .
  APPEND ls_ddval TO lt_ddval .
  ls_ddval-handle = '1' .
  ls_ddval-value = '否' .
  APPEND ls_ddval TO lt_ddval .
  ls_ddval-handle = '1' .
  ls_ddval-value = '其他' .
  APPEND ls_ddval TO lt_ddval .
  CALL METHOD wcl_alv->set_drop_down_table
    EXPORTING
      it_drop_down = lt_ddval.
ENDFORM. " frm_prepare_drilldown_values


*&---------------------------------------------------------------------*
*&      Form  frm_upload_event
*&---------------------------------------------------------------------*
*       注册事件
*----------------------------------------------------------------------*
FORM frm_upload_event .
  DATA lr_event_handler TYPE REF TO lcl_event_handler.
  CREATE OBJECT lr_event_handler.
  SET HANDLER lr_event_handler->handle_toolbar FOR wcl_alv.
  SET HANDLER lr_event_handler->handle_user_command FOR wcl_alv.

  CALL METHOD wcl_alv->register_edit_event
    EXPORTING
      i_event_id = cl_gui_alv_grid=>mc_evt_modified
    EXCEPTIONS
      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.

  SET HANDLER lr_event_handler->handle_data_changed FOR wcl_alv.
  SET HANDLER lr_event_handler->handle_data_changed_finished FOR
wcl_alv.
ENDFORM.                    " frm_upload_event

*&---------------------------------------------------------------------*
*&      Form  frm_set_tab_display
*&---------------------------------------------------------------------*
*       显示ALV
*----------------------------------------------------------------------*
FORM frm_set_tab_display .
  CALL METHOD wcl_alv->set_table_for_first_display
    EXPORTING
*     I_BUFFER_ACTIVE               =
*     I_BYPASSING_BUFFER            =
*     I_CONSISTENCY_CHECK           =
*     I_STRUCTURE_NAME              =
      is_variant                    = gs_variant
      i_save                        = 'A'
      i_default                     = 'X'
      is_layout                     = gs_layout
*     IS_PRINT                      =
*     IT_SPECIAL_GROUPS             =
      it_toolbar_excluding          = gt_exclude
*     IT_HYPERLINK                  =
*     IT_ALV_GRAPHICS               =
*     IT_EXCEPT_QINFO               =
*     IR_SALV_ADAPTER               =
    CHANGING
      it_outtab                     = gt_alv_itab[]
      it_fieldcatalog               = gt_fieldcat
*     IT_SORT                       =
*     IT_FILTER                     =
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
  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.                    " frm_set_tab_display

*&---------------------------------------------------------------------*
*&      Form  frm_refresh_alv
*&---------------------------------------------------------------------*
*       刷新ALV
*----------------------------------------------------------------------*
FORM frm_refresh_alv .
*刷新稳定性
  DATA: lw_stbl TYPE lvc_s_stbl.
  lw_stbl-row = 'X'.
  lw_stbl-col = 'X'.
  CALL METHOD wcl_alv->refresh_table_display
    EXPORTING
      is_stable      = lw_stbl
*     I_SOFT_REFRESH =
    EXCEPTIONS
      finished       = 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.                    " frm_refresh_alv

*&---------------------------------------------------------------------*
*&      Form  frm_save_data
*&---------------------------------------------------------------------*
*       保存数据
*----------------------------------------------------------------------*
FORM frm_save_data USING p_title p_text CHANGING p_answer.
  DATA:
        lt_pp_01 TYPE TABLE OF zzt_pp_001 WITH HEADER LINE.
  DATA:
        lt_row TYPE lvc_t_row,
       lt_row2 TYPE lvc_t_roid.

  CALL METHOD wcl_alv->get_selected_rows
    IMPORTING
      et_index_rows = lt_row
      et_row_no     = lt_row2.

  PERFORM frm_check_changed_data USING wcl_alv.
  LOOP AT gt_alv_itab.
    MOVE-CORRESPONDING gt_alv_itab TO lt_pp_01.
    APPEND lt_pp_01.
    CLEAR lt_pp_01.
  ENDLOOP.

  IF g_ischange = 'X'.
    IF p_title IS INITIAL OR p_text IS INITIAL.
      p_answer = '1'.
    ELSE.
      PERFORM frm_confirm USING p_title p_text CHANGING  p_answer.
    ENDIF.
    IF p_answer = '1'.
      MODIFY (g_tabnm) FROM TABLE lt_pp_01.
      CLEAR g_ischange .
    ENDIF.
  ENDIF.
ENDFORM.                    " frm_save_data

*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_CHANGED_DATA
*&---------------------------------------------------------------------*
*       获取改变数据
*----------------------------------------------------------------------*
FORM frm_check_changed_data USING pcl_alv TYPE REF TO cl_gui_alv_grid.
  DATA:
        l_valid.
  CALL METHOD pcl_alv->check_changed_data
    IMPORTING
      e_valid = l_valid.
ENDFORM.                    "FRM_CHECK_CHANGED_DATA

*&---------------------------------------------------------------------*
*&      Form  frm_confirm
*&---------------------------------------------------------------------*
*       确认对话框
*----------------------------------------------------------------------*
FORM frm_confirm USING p_title p_text CHANGING p_answer.
  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      titlebar      = p_title
      text_question = p_text
    IMPORTING
      answer        = p_answer.                             "1、 2、 A
ENDFORM.                    " frm_confirm

*&---------------------------------------------------------------------*
*&      Form  handle_toolbar
*&---------------------------------------------------------------------*
*       自定义按钮
*----------------------------------------------------------------------*
*      -->P_E_OBJECT  text
*      -->P_E_INTERACTIVE  text
*----------------------------------------------------------------------*
FORM handle_toolbar  USING
      p_e_object TYPE REF TO cl_alv_event_toolbar_set
      p_e_interactive.
ENDFORM.                    " handle_toolbar

*&---------------------------------------------------------------------*
*&      Form  handle_user_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_E_UCOMM  text
*----------------------------------------------------------------------*
FORM handle_user_command  USING    p_e_ucomm.

ENDFORM.                    " handle_user_command

*&---------------------------------------------------------------------*
*&      Form  handle_data_changed
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_ER_DATA_CHANGED  text
*      -->P_E_ONF4  text
*      -->P_E_ONF4_BEFORE  text
*      -->P_E_ONF4_AFTER  text
*      -->P_E_UCOMM  text
*----------------------------------------------------------------------*
FORM handle_data_changed  USING
      p_er_data_changed TYPE REF TO cl_alv_changed_data_protocol
      p_e_onf4
      p_e_onf4_before
      p_e_onf4_after
      p_e_ucomm TYPE sy-ucomm.
  g_ischange = 'X'.
ENDFORM.                    " handle_data_changed

*&---------------------------------------------------------------------*
*&      Form  handle_data_changed_finished
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_E_MODIFIED  text
*      -->P_ET_GOOD_CELLS  text
*----------------------------------------------------------------------*
FORM handle_data_changed_finished  USING p_e_modified
                       p_et_good_cells TYPE lvc_t_modi.
  DATA:ls_good_cells TYPE lvc_s_modi.

  LOOP AT p_et_good_cells INTO ls_good_cells WHERE fieldname = 'ZSFSC'.
    READ TABLE gt_alv_itab INDEX ls_good_cells-row_id.
    IF sy-subrc = 0.
      CASE ls_good_cells-value.
        WHEN '是'.
          gt_alv_itab-zstatus_sc = icon_led_green.
        WHEN '否'.
          gt_alv_itab-zstatus_sc = icon_led_red.
        WHEN '其他'.
          gt_alv_itab-zstatus_sc = icon_led_yellow.
      ENDCASE.
    ENDIF.
    MODIFY gt_alv_itab INDEX ls_good_cells-row_id.
  ENDLOOP.
  PERFORM frm_refresh_alv.
ENDFORM.                    " handle_data_changed_finished


*&---------------------------------------------------------------------*
*&      Form  FRM_DISPLAY_ALV1
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_DISPLAY_ALV1 .

  IF wcl_container IS INITIAL.
    PERFORM frm_create_container.
    PERFORM frm_exclude.
    PERFORM frm_variant  USING '1' CHANGING gs_variant.
    PERFORM frm_pre_layout.
    PERFORM frm_pre_fieldcat1.
    PERFORM frm_prepare_drilldown_values.
    PERFORM frm_upload_event.
    PERFORM frm_set_tab_display.
  ELSE.
    PERFORM frm_refresh_alv.
  ENDIF.

ENDFORM.                    " FRM_DISPLAY_ALV1

*&---------------------------------------------------------------------*
*&      Form  FRM_PRE_FIELDCAT1
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_PRE_FIELDCAT1 .

  PERFORM frm_fieldcat USING :
'ZSTATUS_SC' '是否生产' space space space space space space 10 space ,
'ZSTATUS_QH' '是否缺货' space space space space space space 10 space,
'ZQHQSRQ' '缺货起始日期' space space space space space space 12 space,
*'MVGR1' '品牌' space space space space space space 12 space,
'BEZEI' '品牌' space space space space space space 12 space,
'MATNR' '产品编码' space space space space space space 10 space,
'MAKTX' '产品名称、规格' space space space space space space 20 space,
'PLNMG' '本月计划数' space space space space space space 12 space,
'ZMENG' '销售需求量' space space space space space space 12 space,
'LABST' '库存数量' space space space space space space 10 space,
'ZQHJS' '缺货数量（件）' space space space space space space 14 space,
'ZQHYY' '缺货原因' space space space space space space 50 space,
'WERKS' '工厂编码' space space space space space space 10 space,
'NAME1' '工厂描述' space space space space space space 20 space,
'ZZRBM' '责任部门' space space space space space space 10 space,
'ZZRR' '责任人' space space space space space space 10 space,
'ZSJWCRQ' '预计排产时间' space space space space space space 14 space,"实际完成时间：改为预计排产时间
'ZQHTS' '缺货天数' space space space space space space 10 space,
'LFIMG' '已发货数' space space space space space space 10 space,
'MENGE' '当月已生产数量' space space space space space space 10 space,
'LFIMG1' '当月已发货数量' space space space space space space 10 space,
'ZSFSC' '是否生产' space space space space space space 10 'TYPE_DD_HNDL',
'ZZNOTE' '计划下单时间' space space space space space space 50 space."备注改为： 计划下单时间

ENDFORM.                    " FRM_PRE_FIELDCAT1