SAP ALV 列头合并操作示例

源码：
*&---------------------------------------------------------------------*
*& Report  ZDEMO_ALV_MERGERHEADER                                      *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                        *
*&                                                                     *
*&---------------------------------------------------------------------*
REPORT  z_alv_manual_set_header                               .
TABLES:afko,afru,afpo,pbim,pbed,makt,mard .
*************ALV 
TYPE-POOLS slis.
DATA:l_events TYPE slis_t_event,
     gs_layout TYPE slis_layout_alv,
     fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
     eventcat TYPE slis_t_event WITH HEADER LINE.
DATA:l_variant TYPE TABLE OF disvariant WITH HEADER LINE,
     prg LIKE sy-repid.
**************
DATA:bedat LIKE pbed-pdatu,"当月月初
     eddat LIKE pbed-pdatu."当月月末
DATA yesterday LIKE sy-datum.
DATA:   lcm LIKE makt-matnr, " 冷藏门
        ldm LIKE makt-matnr, " 冷冻门
        bwm LIKE makt-matnr, "变温门
        czhxt LIKE makt-matnr," 初装后箱体
        zzhxt LIKE makt-matnr." 总装后箱体
DATA:gmnga_buf LIKE afru-gmnga. "计算当月计划
DATA:BEGIN OF itb_list_fert OCCURS 0, "当天有生产的整机清单
        stlbez LIKE afko-stlbez,      "物料号

        stlal LIKE afko-stlal,        "可选BOM
        stlan LIKE afko-stlan,        "BOM 用途
     END OF itb_list_fert.
DATA: maktx LIKE makt-maktx ,
      maktx1 LIKE makt-maktx ,
      f1 LIKE makt-maktx ,
      f2 LIKE makt-maktx ,
      f3 LIKE makt-maktx ,
      dot VALUE '.',
      dot1 VALUE ','.
DATA:BEGIN OF itb_output OCCURS 0,"输出表格
        maktx LIKE makt-maktx,    "产品型号
        plnmg_f_m LIKE pbed-plnmg, "当月计划
        czhxt LIKE makt-matnr," 初装后箱体
        gmnga_lcm LIKE afru-gmnga,   "冷藏门 当日完成
        gmnga_lcm_lj LIKE afru-gmnga,"冷藏门 累计完成
        labst_lcm LIKE mard-labst,   "冷藏门 结存
        gmnga_ldm LIKE afru-gmnga,   "冷冻门 当日完成
        gmnga_ldm_lj LIKE afru-gmnga,"冷冻门 累计完成
        labst_ldm LIKE mard-labst,   "冷冻门 结存
        gmnga_bwm LIKE afru-gmnga,   "变温门 当日完成
        gmnga_bwm_lj LIKE afru-gmnga,"变温门 累计完成
        labst_bwm LIKE mard-labst,   "变温门 结存
        gmnga_czhxt LIKE afru-gmnga,   "初装上楼 当日完成
        gmnga_czhxt_lj LIKE afru-gmnga,"初装上楼 累计完成
        labst_czhxt LIKE mard-labst,   "初装上楼 结存
        gmnga_zzhxt LIKE afru-gmnga,   "总装完成 当日完成
        gmnga_zzhxt_lj LIKE afru-gmnga,"总装完成 累计完成
        labst_zzhxt LIKE mard-labst,   "总装完成 结存
        gmnga_zj LIKE afru-gmnga,   "成品入库 当日完成 "生产计划已完成数